Temizleme Butonu

[hatirlabeni]

Selam arkadaslar

ben makra ile sayfama buton ekledim hücrelerdeki verileri temizlemesi için fakat butona tıkladıgım zaman bütün hücrelerdeki verileri siliyor istedigimiz hücrelerdeki verileri silmmemesi için ne yapmam lazım

Kullanmıiş olduğum kod :

Sub Düğme57_Tıklat()
a = Cells.ClearContents
End Sub

 

[Mahir64]

Merhaba,

Silinecek hücre sabit mi? Yoksa seçili hücre mi silinecek?

 

[hatirlabeni]

Silinecek hücreler sabit
silinecek hücreler

c28 - c55 sutunundan
k28 - k55 sütunun
aynı sekilde d-e-f-ı-j-k
aralıgındaki bütün sütunlar silinecek diğerleri kalacak.

 

[security]

Selam arkadaslar

ben makra ile sayfama buton ekledim hücrelerdeki verileri temizlemesi için fakat butona tıkladıgım zaman bütün hücrelerdeki verileri siliyor istedigimiz hücrelerdeki verileri silmmemesi için ne yapmam lazım

Kullanmıiş olduğum kod :

Sub Düğme57_Tıklat()
a = Cells.ClearContents
End Sub

Sub Düğme57_Tıklat()
 
Range("C28:C55").Select
    Selection.ClearContents

    Range("K28:K55").Select
    Selection.ClearContents
 
Range("D28:D55").Select
    Selection.ClearContents
 
Range("E28:E55").Select
    Selection.ClearContents
 
Range("F28:F55").Select
    Selection.ClearContents
 
Range("I28:I55").Select
    Selection.ClearContents
 
Range("J28:J55").Select
    Selection.ClearContents
 
End Sub

 

[hatirlabeni]

bunu nasıl
c28 - c55 sutunundan
k28 - k55 sütunun
aynı sekilde d-e-f-ı-j-k

bu hücreler için uygulayacagım. ?

 

[security]

yukarda verdiğim kodu dügmeye ekleyin.

 

[hatirlabeni]

yukarda verdiğim kodu dügmeye ekleyin.

Tesekkur Ederim Eline Saglık Oldu...

 

[security]

Tesekkur Ederim Eline Saglık Oldu...

İyi Çalışmalar.

Sub Düğme57_Tıklat()
Range("C28:C55").Select
    Selection.ClearContents
    Range("K28:K55").Select
    Selection.ClearContents
 
Range("D28:D55").Select
    Selection.ClearContents
 
Range("E28:E55").Select
    Selection.ClearContents
 
Range("F28:F55").Select
    Selection.ClearContents
 
Range("I28:I55").Select
    Selection.ClearContents
 
Range("J28:J55").Select
    Selection.ClearContents
 
Range("A1").Select
MsgBox " TEMİZLEME YAPILDI.", vbInformation, "BİLGİ"
End Sub

Şeklinde Değiştirisen Daha İyi Sanırım..

 

[Murat OSMA]

Ben bu gibi durumlarda, silinecek alanı ctrl tuşuyla seçip, formül çubuğunun solundaki hücre adresi aralığına bir isim yazıyorum.
Bu sayede dinamik alan oluşturup koda o ismi yazarak makroyu çalıştırıyorum.

[SIZE="2"][FONT="Trebuchet MS"]Sub Emre()
    Range("Dinamik Alan İsmi").ClearContents
End Sub[/FONT][/SIZE]

 

[Seyit Tiken]

Murat beyin sunduğu daha pratik ve bir kısayoldur.

[alan] = ""