değerli arkadaşlar
satırgizle makrosu kullanıyorum 700 satırlık bir dosya için.ama ilk başta makro çalışıyor daha sonraları hata veriyor.hata mesajı "type mismatch" acaba hata nerde yada sorun. kullandığım makro işte bu.yardımcı olursanız çok memnun olurum.dosyada kaydettiğim makrolarda var ama önce bu makroyu çalıştırıyorum yine hata veriyor.
Option Explicit
Sub BOŞ_SATIR_GİZLE()
Dim X As Long, Y As Byte, VERİ As String
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For X = 6 To [C65536].End(3).Row
VERİ = Empty
For Y = 3 To 14
VERİ = VERİ & Cells(X, Y)
Next
If Len(VERİ) = 0 Then
Rows(X).Hidden = True
End If
Next
Application.ScreenUpdating = True
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
satırgizle makrosu kullanıyorum 700 satırlık bir dosya için.ama ilk başta makro çalışıyor daha sonraları hata veriyor.hata mesajı "type mismatch" acaba hata nerde yada sorun. kullandığım makro işte bu.yardımcı olursanız çok memnun olurum.dosyada kaydettiğim makrolarda var ama önce bu makroyu çalıştırıyorum yine hata veriyor.
Option Explicit
Sub BOŞ_SATIR_GİZLE()
Dim X As Long, Y As Byte, VERİ As String
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For X = 6 To [C65536].End(3).Row
VERİ = Empty
For Y = 3 To 14
VERİ = VERİ & Cells(X, Y)
Next
If Len(VERİ) = 0 Then
Rows(X).Hidden = True
End If
Next
Application.ScreenUpdating = True
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub