Sub satir_sil()
Dim x, i
For i = 1 To 5 '*
For x = 2 To [D65526].End(3).Row Step 1
If Cells(x, 4) Like "*de*" Then
Rows(x).Delete
End If
Next x
Next i
End Sub
Sub bosSatirrSil() Application.ScreenUpdating = False Dim i As Integer t = ActiveSheet.UsedRange.Rows.Count For i = t To 1 Step -1 If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i, 4)) Then Rows(i).Delete Shift:=xlUp End If Next i Application.ScreenUpdating = True End Sub
yada daha kısası
Sub bosSatirSil() Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub
;) güzel site, başarılar... tunç olcay (coreldraw vba) www.tuncolcay.com
merhaba. ben tablo olarak biçimlendirdiğim tablomda, seçmiş olduğum tablo satırını silmek istiyorum ama beceremedim. her seferinde tabloyu uçurdum. basit bir macro satırı var mıdır? Teşekkürler.
Sub bosSatirrSil()
YanıtlaSilApplication.ScreenUpdating = False
Dim i As Integer
t = ActiveSheet.UsedRange.Rows.Count
For i = t To 1 Step -1
If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i, 4)) Then
Rows(i).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub
yada daha kısası
Sub bosSatirSil()
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
;) güzel site, başarılar...
tunç olcay
(coreldraw vba) www.tuncolcay.com
merhaba. ben tablo olarak biçimlendirdiğim tablomda, seçmiş olduğum tablo satırını silmek istiyorum ama beceremedim. her seferinde tabloyu uçurdum. basit bir macro satırı var mıdır? Teşekkürler.
YanıtlaSil