Sutundan Veri Bulma

[DrsnDrsn]

Selamlar, Ornek dosyadaki uygulanışı nasıl yapabilirim? Yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Deneyiniz.

H8;

=$D$2

H9;

=$D$3

H10;

=İNDİS($D$12:$D$21;KÜÇÜK(EĞER($D$12:$D$21<>"";SATIR($D$12:$D$21)-11);EĞERSAY($G$10:G$10;"z:")))

Son formül DİZİ formüldür. CTRL+SHIFT+ENTER tuşlarına basılarak formül girişi tamamlanmalıdır.

Bu formülleri uyguladıktan sonra G8:H10 hücrelerini seçip sağa doğru blok olarak yapıştırabilirsiniz. Formül hata verene kadar blokları sağa doğru kopyalayınız.

 

[DrsnDrsn]

Teşekkür ederim.

Son olarak kopyalama yapmadan kendisi direkt olarak yazdırılabilir mi çünkü örnekteki gibi az veriye sahip değilim de

 

[Korhan Ayhan]

Makro ile kopyalama işlemi otomatik yapılabilir.

 

[Korhan Ayhan]

Hızlı çoğaltmak için aşağıdaki kodu kullanabilirsiniz.

Kod içindeki hücre adreslerini asıl dosyanıza uyarlarsınız.

Option Explicit

Sub Kopyala()
    Dim X As Integer

    Application.ScreenUpdating = False

    Range("G8:H10").Copy
   
    For X = 10 To 10 + WorksheetFunction.CountIf(Range("D12:D21"), "<>") Step 3
        Cells(8, X).PasteSpecial
    Next
   
    Range("A1").Select
   
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
   
    MsgBox "Kopyalama işlemi tamamlanmıştır.", vbInformation
End Sub

 

[DrsnDrsn]

İlginiz için teşekkürler.