Tablolarda dolu hücre varsa çıktı alma

[emreyilmazer]

Merhabalar

31 sayfadan oluşan tablom var, her sayfasının ilk satırında veri varsa sayfa yazılsın, veri yok ise atlansın, bunun için yardımcı olabilecek arkadaşların yardımlarını bekliyorum,

iyi çalışmalar


http://dosya.web.tr/NjWgZK

 

[YUSUF44]

İlk satırdan kastınız nedir? Tüm sayfaların ilk satırında ya başlıklar ya da eğer onları saymıyorsanız Devir var.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub kod()
For a = 1 To ActiveSheet.UsedRange.Columns.Count Step 6
    For b = 1 To ActiveSheet.UsedRange.Rows.Count Step 49
        If Cells(b + 3, a) <> "" Then
            Range(Cells(b, a), Cells(b + 47, a + 4)).PrintOut
        End If
    Next
Next
End Sub

 

[emreyilmazer]

İlk satırdan kastınız nedir? Tüm sayfaların ilk satırında ya başlıklar ya da eğer onları saymıyorsanız Devir var.

Devir sabit kalacak, ilk satırdan kastım
A:4,A:53,A:101 gibi devirin altından başlayan satırlar

 

[emreyilmazer]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub kod()
For a = 1 To ActiveSheet.UsedRange.Columns.Count Step 6
    For b = 1 To ActiveSheet.UsedRange.Rows.Count Step 49
        If Cells(b + 3, a) <> "" Then
            Range(Cells(b, a), Cells(b + 47, a + 4)).PrintOut
        End If
    Next
Next
End Sub

hocam çok teşekkürler, büyük bir yükten kurtardınız, saygılarımla...