belirli bir alanı kriterlere göre kopyalama

[deon4812]

Merhaba aşağıda ki linke yapılmak isteneni örneklerle anlattığım excel dosyası var. Yapılmak istenen, tablodan boş satırları gizleyip geri kalan dolu satırları kopyalama. tablolar değişken ve satır sayısı fazla olduğu için elle yapmak mümkün değil malesef. Rica etsem yardımcı olabilir misiniz.

İndir örnek

Dosyayı indir örnek

dosya.co

 

[veyselemre]

Sub test()
    Dim rngH As Range, sh As Worksheet, veri()

    veri = Sheets("Sayfa1").Range("B10:H10").Value
    Set sh = Sheets(veri(1, 1))
    Set rngH = sh.Range(sh.Range(veri(1, 2)), sh.Range(veri(1, 3)))
    rngH.EntireRow.Hidden = False
    sh.Range(sh.Range(veri(1, 4)), sh.Range(veri(1, 5))).EntireRow.Hidden = True
    rngH.SpecialCells(xlCellTypeVisible).Copy

End Sub

 

[deon4812]

çok teşekkür ederim elinize sağlık