Soru Makro ile Satır gizleme ve Grafiğe Veri Çektirme

[Baturfurkan]

1.ci kod'daki
Range("A" & x & ":B220").Cut [A1]
For I = 1 To 220
If Cells(I, 2) = 0 Then x = I: GoTo 20:
Next I
20:
Range("A" & x & ":A220").EntireRow.Hidden = True

Bölümünü:
Range("A" & x & ":B221").Cut [A1]
For I = 1 To 221
If Cells(I, 2) = 0 Then x = I: GoTo 20:
Next I
20:
Range("A" & x & ":A221").EntireRow.Hidden = True
şeklinde,
2.ci kod'daki

Rows("1:220").EntireRow.Hidden = False
kısmını
Rows("1:221").EntireRow.Hidden = False
şeklinde değiştirip deneyin.

Yeni deneme şansım oldu çok teşekkür ederim kod sorunsuz çalışıyor

 

[turist]

Yeni deneme şansım oldu çok teşekkür ederim kod sorunsuz çalışıyor

İyi çalışmalar.