İstenilen günün sütunun silinmesi

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar herkese iyi akşamlar: Sizlerden bir isteğim olacak yardımcı olursanız sevinirim. Aşağıdaki kodla

Sub SİL()

a = InputBox("HANGİ GÜN SİLİNSİN?", "LÜTFEN DİKKAT")


Set s2 = ThisWorkbook.Worksheets("PUANTAJ")
s2.Range("AJ7:AJ" & Rows.Count) = Empty
End Sub

Puantaj sayfasındaki 31. günü siliyorum yani 31. günde bulunan bütün verileri anında siliyorum isteğim; InputBox ile isteğim satırı nasıl silerim dosyam ekte Teşekkür ederim.

 

[Hacı Bayram ÖZKAN]

Arkadaşlar merhaba benim konuma bakabilir misiniz? Teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Sub Gun_Sil()
    Sutun = InputBox("Hangi gün silinsin?" & Chr(10) & Chr(10) & _
            "Harf olarak giriş yapınız...", "Lütfen Dikkat!")
    If Sutun = "" Or Sutun = False Then Exit Sub
    Set Sh = ThisWorkbook.Worksheets("PUANTAJ")
    Sh.Range(Sutun & "7:" & Sutun & "109") = Empty
    MsgBox "< " & Sutun & " > sütunu içeriği silinmiştir.", vbExclamation
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın abim; eline sağlık çok güzel oldu, AYNI anda iki yada üç sütun siline bilir mi?

 

[Korhan Ayhan]

Deneyiniz.

Sub Gun_Sil()
    Sutun = InputBox("Hangi gün silinsin?" & Chr(10) & Chr(10) & _
            "Harf olarak giriş yapınız..." & Chr(10) & Chr(10) & _
            "Aralarına virgül ekleyerek birden fazla sütun yazabilirsiniz.", "Lütfen Dikkat!")
    If Sutun = "" Or Sutun = False Then Exit Sub
    Set Sh = ThisWorkbook.Worksheets("PUANTAJ")
    If InStr(1, Sutun, ",") = 0 Then
        Sh.Range(Sutun & "7:" & Sutun & "109") = Empty
        MsgBox "< " & Sutun & " > sütunu içeriği silinmiştir.", vbExclamation
    Else
        Harf = Split(Sutun, ",")
        For X = 0 To UBound(Harf)
            Sh.Range(Trim(Harf(X)) & "7:" & Trim(Harf(X)) & "109") = Empty
        Next
        MsgBox "Seçtiğiniz sütunların içeriği silinmiştir." & Chr(10) & Chr(10) & _
               Sutun, vbExclamation
    End If
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın abim, harika oldu eline sağlık zahmet verdim dua ile kal iyi var sızın?