sutundaki son hücreyi silme

[kemal turan]

Merhabalar,
Ek dosyada açıklamasını yaptım.
Düğmeye tıklandığında istenilen sutundaki son hücreyi silecek koda ihtiyacım var.
Teşekkür ederim.

 

[uzmanamele]

Merhabalar,
Ek dosyada açıklamasını yaptım.
Düğmeye tıklandığında istenilen sutundaki son hücreyi silecek koda ihtiyacım var.
Teşekkür ederim.

Merhaba
Bunu deneyiniz.

Sub hucresıl()
Sheets("sayfa1").Select
Cells(Rows.Count, 4).End(3).Select
    Selection.ClearContents
End Sub

 

[kemal turan]

merhaba Sn.Uzmanamale,
Çok teşekkür ederim.
Bende bir koddan yola çıkarak bende aşağıdaki şekile getirebildim.
Görünen o ki daha çok yol almamız lazım.
İşiniz rast gitsin.
Selametle kalın.

Sub hucresıl()
Sheets("sayfa1").Select
Cells(Rows.Count, 9).End(3).Row.Select
Selection.ClearContents
End Sub

 

[dEdE]

Düğmeye tıklandığında istenilen sutundaki son hücreyi silecek koda ihtiyacım var.

Merhaba,
İstenilen sutundan kastınızı aktif hücrenin bulunduğu satır olarak algıladım. Bu durumda aşağıdaki kodu kullanabilirsiniz.

Sub hucresıl()
Sheets("sayfa1").Select
Cells(ActiveCell.Row, [A1].End(2).Column).ClearContents
End Sub

 

[kemal turan]

Sn.uzmanamele,
Kodumuz excel dosyasında çalıştı.
Ben userform lu bir çalılşma yapıyorum.
Aldığım bu örnek kodları alıp userform üzerindeki bir butonun kod penceresine yapıştırdım olmadı.
Kalın karakterli satırda hata veriyor.
Bu şekilde form üzerindeki bir buton olduğunda farklı mı olması gerekiyor.
Not:Silinecek sutun "c" sutunudur.
Bir yardımcı olursanız sevinirim.
Teşekkürler.
Private Sub CommandButton2_Click()
Sheets("sayfa1").Select
Cells(Rows.Count, 3).End(3).Row.Select
Selection.ClearContents
End Sub

 

[uzmanamele]

Sn.uzmanamele,
Kodumuz excel dosyasında çalıştı.
Ben userform lu bir çalılşma yapıyorum.
Aldığım bu örnek kodları alıp userform üzerindeki bir butonun kod penceresine yapıştırdım olmadı.
Kalın karakterli satırda hata veriyor.
Bu şekilde form üzerindeki bir buton olduğunda farklı mı olması gerekiyor.
Not:Silinecek sutun "c" sutunudur.
Bir yardımcı olursanız sevinirim.
Teşekkürler.
Private Sub CommandButton2_Click()
Sheets("sayfa1").Select
Cells(Rows.Count, 3).End(3).Row.Select
Selection.ClearContents
End Sub

Bunu deneyiniz.

Private Sub CommandButton2_Click()
Sheets("sayfa1").Select
Cells(Rows.Count, 4).End(3).Rows.Select
Selection.ClearContents
End Sub

 

[kemal turan]

Sn:Uzmanamele,
Çok Teşekkür ederim.Hakkınızı helal ediniz.
Selametle kalınız.