Butonla istediğim sütunu silmek

[ASLAN7410]

Herkese hayırlı geceler.

Ekte gönderdiğim excel dosyamdaki verileri Application.InputBox ile silmek istiyorum.

Butona bastığımda örneğin A3 hücresinden A sütunun sonuna kadar silmek istiyorum.
Birşeyler yapmaya çalıştım ancak yapamadım.

Yardımcı olur musunuz?
.

 

[Ömer BARAN]

Merhaba Sayın ERASLAN.

Bu saatte pek herkes yok.

Ben aşağıdaki gibi bir yapı düşündüm (Z sütunundan sonra hiç veri sütunu olmayacağını varsaydım) .
.

Sub Sil()
sor = Application.InputBox("Silinecek sütunun harfini giriniz!..." & vbCrLf & " ", "ASLAN", "A", Type:=2)
sor = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(sor, "ç", "c"), _
    "Ç", "C"), "ğ", "G"), "Ğ", "G"), "ö", "O"), "ö", "O"), "ş", "S"), "Ş", "S"), "ü", "U"), "Ü", "U")
        If sor = False Then
            MsgBox "İşlemi iptal ettiniz.", vbInformation, "A S L A N"
            Exit Sub
        End If
If Len(sor) > 1 Then
    MsgBox "Sadece 1 adet HARF yazmalısınız."
    Exit Sub
End If

If IsNumeric(sor) = True Then
    MsgBox "Sadece HARF yazınız."
Else
    If Cells(Rows.Count, sor).End(3).Row = 2 Then _
        MsgBox "Yazılan sütunda zaten 3'üncü satırdan itibaren veri yok."
[COLOR="Red"]    If Cells(Rows.Count, sor).End(3).Row > 2 Then
        Range(Cells(3, sor), Cells(Cells(Rows.Count, sor).End(3).Row, sor)).ClearContents
        MsgBox "İstenilen sütundaki veriler silindi."
    End If[/COLOR]
End If
End Sub

 

[ASLAN7410]

Sayın Ömer Bey, ilginiz için çok teşekkür ediyorum. Süper çalışıyor tam istediğim gibi oldu. Ellerinize sağlık.

Koda aşağıdaki mesajı da ekledim ancak veri olmadığı halde eklediğim mesajda çıkıyor. Bu kısmı da düzeltir misiniz?

Sub Sil()
sor = Application.InputBox("Silinecek sütunun harfini giriniz!..." & vbCrLf & " ", "ASLAN", "A", Type:=2)
sor = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(sor, "ç", "c"), _
    "Ç", "C"), "ğ", "G"), "Ğ", "G"), "ö", "O"), "ö", "O"), "ş", "S"), "Ş", "S"), "ü", "U"), "Ü", "U")
        If sor = False Then
            MsgBox "İşlemi iptal ettiniz.", vbInformation, "A S L A N"
            Exit Sub
        End If
If Len(sor) > 1 Then
    MsgBox "Sadece 1 adet HARF yazmalısınız.", vbInformation, "A S L A N"
    Exit Sub
End If

If IsNumeric(sor) = True Then
    MsgBox "Sadece HARF yazınız.", vbInformation, "A S L A N"
Else
    If Cells(Rows.Count, sor).End(3).Row = 2 Then _
        MsgBox "Yazılan sütunda zaten 3'üncü satırdan itibaren veri yok.", vbInformation, "A S L A N"
        
    If Cells(Rows.Count, sor).End(3).Row > 2 Then _
        Range(Cells(3, sor), Cells(Cells(Rows.Count, sor).End(3).Row, sor)).ClearContents
        
       [COLOR="Red"] MsgBox sor & " sütunu silindi.", vbInformation, "A S L A N"[/COLOR]
End If

End Sub

 

[yanginci34]

Denermisiniz.

Sub Sil()
sor = Application.InputBox("Silinecek sütunun harfini giriniz!..." & vbCrLf & " ", "ASLAN", "A", Type:=2)
sor = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(sor, "ç", "c"), _
"Ç", "C"), "ğ", "G"), "Ğ", "G"), "ö", "O"), "ö", "O"), "ş", "S"), "Ş", "S"), "ü", "U"), "Ü", "U")
If sor = False Then
MsgBox "İşlemi iptal ettiniz.", vbInformation, "A S L A N"
Exit Sub
End If
If Len(sor) > 1 Then
MsgBox "Sadece 1 adet HARF yazmalısınız.", vbInformation, "A S L A N"
Exit Sub
End If

If IsNumeric(sor) = True Then
MsgBox "Sadece HARF yazınız.", vbInformation, "A S L A N"
Else
If Cells(Rows.Count, sor).End(3).Row = 2 Then _
MsgBox "Yazılan sütunda zaten 3'üncü satırdan itibaren veri yok.", vbInformation, "A S L A N"
End If
If Cells(Rows.Count, sor).End(3).Row > 2 Then _
Range(Cells(3, sor), Cells(Cells(Rows.Count, sor).End(3).Row, sor)).ClearContents

MsgBox sor & " sütunu silindi.", vbInformation, "A S L A N"
End If

 

[ASLAN7410]

Sayın yanginci34 ilginiz için çok teşekkür ederim.

Bu seferde veri olduğu halde silme işlemi yapmıyor.

 

[yanginci34]

4 nolu mesajı tekrar güncelledim hatalıydı.

 

[Ömer BARAN]

Önceki cevabımı güncelledim (kırmızı bölüm)
Sadece o satırları değiştirecekseniz Then kelimesinden sonraki _ karakterini silmeyi unutmayın,
ya da kod'u olduğu gibi kopyalayarak alın.

 

[ASLAN7410]

Sayın yanginci34 sizin kod'da kompile error yazıyor. Yine de ilginiz için çok teşekkür ediyorum.

Sayın Ömer Bey, çok teşekkür ediyorum.
Tam istediğim gibi çalışıyor, hayırlı sabahlar, hayırlı çalışmalar diliyorum.

 

[Ömer BARAN]

Bilmukabele.