Merhaba
Aşağıdaki Kod İle sayfaya eklediğim düğmeye atadım.Boş olan satırları gizliyor.Tabii bu gizleme işi epey bir süre alıyor.Bu sürede uyarı mesajı (lütfen bekleyiniz..) nasıl verebilirim.Arşive baktım birkaç konu vardı ama kendime uygulayamadım birde Tollbox da progres barı bulamıyorum nasıl bulabilirim.
Şimdiden Teşekkür Ederim.
Sub SATIR_GIZLE1()
Cells.EntireRow.Hidden = False
For Each alan In Range("d7:d7000")
If alan = "0" Then
alan.EntireRow.Hidden = True
End If
Next
MsgBox "Boş Olan Satırları Gizleme İşlemi Tamamlanmıştır...", vbInformation, _
" Bilgi"
Aşağıdaki Kod İle sayfaya eklediğim düğmeye atadım.Boş olan satırları gizliyor.Tabii bu gizleme işi epey bir süre alıyor.Bu sürede uyarı mesajı (lütfen bekleyiniz..) nasıl verebilirim.Arşive baktım birkaç konu vardı ama kendime uygulayamadım birde Tollbox da progres barı bulamıyorum nasıl bulabilirim.
Şimdiden Teşekkür Ederim.
Sub SATIR_GIZLE1()
Cells.EntireRow.Hidden = False
For Each alan In Range("d7:d7000")
If alan = "0" Then
alan.EntireRow.Hidden = True
End If
Next
MsgBox "Boş Olan Satırları Gizleme İşlemi Tamamlanmıştır...", vbInformation, _
" Bilgi"
