sutundaki son hücreyi silme kodu hk.

[kemal turan]

Merhabalar,
Aşağıdaki kodumuz butona tıklandığında C sutunundaki (3 ncü sutun) en son hücreyi siliyor.
KOD:
Private Sub CommandButton2_Click()
Sheets("sayfa1").Select
Cells(Rows.Count, 3).End(3).Rows.Select
Selection.ClearContents
End Sub

İsteğim;
aynı anda 9,10,11,12 nolu sutunlardaki son veriyide silmesi.
isteğime yönelik satırı Cells(Rows.Count, 3,9,10,11,12).End(3).Rows.Select bu şekilde reviz ettim olmadı.
Yardımlarınızı rica ediyorum.

 

[Emir Hüseyin Çoban]

. . .

Sheets("sayfa1").Select
Cells(Rows.Count, 3).End(3).Rows.ClearContents
Cells(Rows.Count, 9).End(3).Rows.ClearContents
Cells(Rows.Count, 10).End(3).Rows.ClearContents

. . .

 

[kemal turan]

Sn.Hüseyin bey,
Çok teşekkür ederim.
Selametle kalınız.

 

[Ömer]

Merhaba,

Alternatif olarak; çoklu sütunlar için tek tek aynı kodu tanımlamadan aşağıdaki kod ile istediğinizi yapabilirsiniz.

Private Sub CommandButton2_Click()
 
    Dim i As Integer, son As Long, a As String, sutun()
 
    Sheets("sayfa1").Select
    sutun = Array(3, 9, 11, 10, 12, 18, 25, 32)[COLOR=darkgreen] 'sütun numaralarını yazın.[/COLOR]
    
    For i = 0 To UBound(sutun)
        son = Cells(Rows.Count, sutun(i)).End(xlUp).Row
        a = a & "," & Cells(son, sutun(i)).Address
    Next i
 
    a = WorksheetFunction.Substitute(a, ",", "", 1)
    Range(a).ClearContents
 
End Sub

 

[kemal turan]

Sn.Ömer bey,
Çok teşekkür ederim.
Selametle kalın.