Belli Hücreleri Silmek

[serkan.sevinc]

Merhaba,

I3 .....
J3 .....
L3 .....
U3 .....

hücreleri ve sonrasını aşağıya doğru bir kerede silmek istiyorum. Makro olarak yardımcı olabilir misiniz?
Teşekkürler

 

[Ziynettin]

Merhaba,

Sub temizle()
    son = Rows.Count
    Range("I3:J" & son & ", L3:L" & son & ",U3:U" & son & "").ClearContents
End Sub

 

[serkan.sevinc]

çok teşekkür ederim

 

[serkan.sevinc]

tüm sütun olduğu için çok yavaş siliyor. 1000 satıra kadar yapabilir miyiz?

 

[1Al2Ver]

Merhaba,

Arşivimden bir örnek ekledim,

Sub Sil()
Dim sor
sor = MsgBox("Silmek istediğinizden emin misiniz?", vbQuestion + vbYesNo, "Silme İşlemi")
Select Case sor
Case vbYes
ActiveSheet.Range("I3:I1000, J3:J1000, L3:L1000, U3:U1000").ClearContents
End Select
End Sub

YADA

Sub Sil()

ActiveSheet.Range("I3:I1000, J3:J1000, L3:L1000, U3:U1000").ClearContents

End Sub

 

[serkan.sevinc]

çok sağolun