Tablodaki Bazı Alanları Değiştirme

Çözüldü Tablodaki Bazı Alanları Değiştirme

52779

Normal Üye
Excel Versiyonu
Excel 365
Excel Sürümü
32 Bit
Excel Dili
Türkçe
Selamlar,
Sorum resimdeki gibidir...
R336.webp

Kısaca açıklarsam
Solda, 14 satır ve 12 kolondan oluşan tablomuz bulunmakta.
Tabloda, BOŞ hücreler de bulunmakta olup, 0 ile 25 arasında değerler mevcuttur.
Not : Tablo için, kolaylık sağlanması açısından, satır numarası ve kolonlar için de harfler, özellikle verildi.

Bu tablomuzda bazı alanları değiştirmek istiyoruz.
Tabloda değiştirilecek alanlar renklendirildi.
Tablodaki bu alanları, Alan1, Alan2, Alan3 ve Alan4 olarak verilen alanlarla değiştirmek istiyoruz. Bu alanlar da tablodaki alanlara göre renklendirildi. Verilen bu alanlar için, tablda karşılık gelen satır numaraları ve sütun harfleri de verilmektedir.

Beklenen sonuç, sayfanın en sağındaki gibidir.

Çözüm olarak, formül, makro,..... vs tüm Excel yöntemleri kabulümüzdür.
Şimdiden teşekkürler....

Soruya ait dosya ektedir.
 

Ekli dosyalar

Çözüm
Tabloların sol üst köşelerinde bulunan Alan 1, Alan 2, .. isimlerini silmeden kodu çalıştırın. Aktarılacak bu tabloların aralığını tespit etmek için "Alan" kelimesi baz alınıyor. Aktarılacak tabloların bulunduğu aralığı daha sonra değiştirecek olursanız; Vba Kodu üzerindeki notları dikkate alarak değişiklik yaparsınız.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(11 satır)
Sn. @cakarem 'in bakış açısı olayın sadeleşmesini sağlamış oldu.
Ben de buna göre kendi son önerimi yapayım.

Formül kullanımı:
=degistir( ANA tablo ; AltTablo1 ; AltTablo2 ; AltTablo3 ; AltTablo4 ; .... )&""

-- Alt tabloların başlık satır ve sütunlarının 2, 3, 4, F, G, H gibi sıralı olması gerekmez.
-- Bir'den fazla alt tabloda, 5-F gibi aynı koordinat mevcutsa, yazılan KTF formülündeki sıralama esas alınır, yani kesişen koordinat için formüldeki son alt tabloya göre sonuç döndürülür.
-- Alt tablodaki koordinatların ANA tabloda olmaması, hataya neden olmaz.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(10 satır)
 
Üst