Tablo ismi olan illeri her satıra yazdırmak

[SER973]

Merhaba

Elimde her ilin satış tabloları var. İl adı Tablo Başlığı gibi yazılmış. İl adlarını A Sütünuna macro ile nasıl yazdırabiliriz. 81 ilin tablosu alt alta Satır sayısı 2000 Kadar

ornek dosyada sadece 3 ili yazdım. asıl dosyada 81 ilde var...

Yardımlarınız için şimdiden teşekkürler..

 

[Ömer BARAN]

Merhaba.

İstediğiniz işlemi aşağıdaki formülü kullanarak yapabilirsiniz.

Formülü A6 hücresine uygulayın ve aşağı doğru kopyalayın.
.

=EĞER(SOLDAN(B6;6)="TOPLAM";"";EĞER([B][COLOR="Red"]A[/COLOR][/B]5<>"";[B][COLOR="Red"]A[/COLOR][/B]5;EĞER(SOLDAN(B3;5)="Tablo";PARÇAAL(B3;BUL(":";B3;1)+2;255);"")))

Ardından formül uygulanan hücreleri seçip;
KOPYALA -> ÖZEL YAPIŞTIR -> DEĞERLERİ
şeklinde işlem yaparak formüllerden kurtulabilirsiniz elbette.

 

[SER973]

Merhaba Ömer Bey,

Öncelikle cevabınız için Teşekkür ederim.

Dediğiniz gibi formülü A6 hücresine uygulayıp aşağıya doğru kopyaladığımda;
Tablodaki ilk firmanın karşısına il ismini getiriyor. Tabloda il değişene kadar boş geliyor.
Tablo değiştikten sonra tekrar ilk firma için ilin ismi geliyor. Diğerleri tekrar boş geliyor.

ilgili illerin tablosundaki her firmanın yanına il adını yazmalı.

Mantık ben şöyle düşünüyorum ; B sütününda "Tablo 4.S XXXXX " Gördüğünde; ilinin adını bulup Sabit olarak hafızada tutup , B sütununda hücre değeri"Tablo 4.S XXXX" başlayan görene kadar A Sütüna Sabit ilin adını A sütünündaki hücrelere yazacak. Sonra yeni ilin adını sabitleyip B sütununda ilin adı değişene kadar devam edecek. B sütununda hücre değeri "SON" görene kadar bu işlem devam etmeli.

Vb macro olarak kodlarını yazamıyorum.

Saygılarımla;

 

[veyselemre]

Ömer Beyin formülünü aşağıdaki gibi değiştirirseniz istediğiniz olur,

=EĞER(SOLDAN(B6;6)="TOPLAM";"";EĞER(SOLDAN(B3;5)="Tablo";PARÇAAL(B3;BUL(":";B3;1)+2;255);A5))

Sub test()
    For i = 3 To Cells(Rows.Count, "B").End(3).Row
        If Cells(i, "B").Value Like "Tablo*" Then
            il = Trim(Split(Cells(i, "B").Value, ":")(1))
            bas = i + 3
        End If
        If Cells(i, "B").Value = "TOPLAM" Then
            son = i - 1
            Range("A" & bas & ":A" & son).Value = il
        End If
    Next i
End Sub

 

[aerten]

Tüm satırlarda il adının yazması için

Ömer Beyin formülünü şu şekilde değiştirerek istediğiniz sonucu alabilirsiniz.

=EĞER(SOLDAN(B6;6)="TOPLAM";"";EĞER(SOLDAN(B3;5)="Tablo";PARÇAAL(B3;BUL(":";B3;1)+2;255);A5))

Aynısını Veyselemre de yazmış. Geç kalmışım.

 

[Ömer BARAN]

Tekrar merhaba.

İlk cevabımdaki formülü K sütununda denemiştim.
Önceki cevabımda yer alan formülde K sütun adını (2 adet) A olarak değiştirmeniz yeterli olur.
Önceki cevabımda kırmızı ile vurgulayarak düzeltme yaptım.

Kortrol ediniz.
.

 

[SER973]

Sn.Ömer Baran, Sn.Aerten, Sn.VeyselEmre, cevaplarınız için Teşekkür ederim.

Harikasınız... Sorunum Çözülmüştür