- Katılım
- 6 Ağustos 2017
- Mesajlar
- 98
- Excel Vers. ve Dili
- 2010
- Altın Üyelik Bitiş Tarihi
- 11-03-2020
Yeni deneme şansım oldu çok teşekkür ederim kod sorunsuz çalışıyor1.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.