raporlama hk.

[zamenya]

sayın hocalarım merhabalar bir ön çalışma yapıyorum ama en önemli kısmında tıkandım
Çalışmamda düşey arayı vba ile(uğraştımda) yapamadığım için fonksiyonları kullandım
çalışma kitabımdaki genel sayfasındaki ulaşmayan evrakları rapor kısmına almak istiyorum ama fonksiyn kullandığım için veri olmayan hücrelerdede ulaşmadı çıkıyor bunu nasıl engelleyebilrim ve benim için önemli olan rapor sayfasına ulaşamayan evrakları aldırmak ama takıldım bu konuda yardımcı olabilirmisiniz

 

[Orion1]

Dosyanız ekte.

Sub raporla()
Dim s1 As Worksheet, i As Long, sat As Long, adr1 As Range, adr2 As Range
If MsgBox("GENEL sayafasındaki Ulaşmayanları Rapor Sayfasına Çıkarmak istiyormusunuz?" _
, vbYesNo + vbQuestion, Application.UserName) = vbNo Then Exit Sub
Sheets("Rapor").Select
Range("A2:D65536").ClearContents
Set s1 = Sheets("GENEL")
sat = 2
Application.ScreenUpdating = False
For i = 2 To s1.Cells(65536, "D").End(xlUp).Row
    If s1.Cells(i, "D").Value = "ULAŞMADI" Then
        Set adr1 = s1.Range(s1.Cells(i, "A"), s1.Cells(i, "D"))
        Set adr2 = Range(Cells(sat, "A"), Cells(sat, "D"))
        adr2.Value = adr1.Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Ulaşmayanlar Rapor Sayfasına Aktarıldı..!!", _
vbOKOnly + vbInformation, Application.UserName
Application.ScreenUpdating = True
End Sub

 

[zamenya]

sayın evren bey çok teşekkürler yardımınız için

 

[Orion1]

sayın evren bey çok teşekkürler yardımınız için

Rica ederim.
İyi çalışmalar.