• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

CommandButton ile istediğimiz hücrelerdeki verileri silme

S

SanaLSukuL

Katılım
25 Haziran 2006
Mesajlar
183
Excel Vers. ve Dili
Excel 2003 TR SP2
Denetim Araç Kutusundaki Komut düğmesi ile istediğimiz hücrelerdeki verileri silen makro yapabiliyoruz.
Bu işlemi CommandButton ile yapabilir miyiz?
Mesela A1 ile H20 arasında bir tablo oluşturduk. Biz sadece CommandButtona tıklayınca A2, C5, D19, E15, H16 hücrelerindeki verileri silmesini istiyoruz, diğerlerini silmesin.
CommandButton ile böyle bir çalışma yapabilirmiyiz. Tşk ler.
 
Merhaba.
Aşağıdaki kodları deneyiniz.:cool:
Kod: 
Private Sub CommandButton1_Click()
Range("A2").ClearContents
Range("C5").ClearContents
Range("D19").ClearContents
Range("E15").ClearContents
Range("H16").ClearContents
MsgBox "Silme İşlemi yapıldı", vbOKOnly, Application.UserName
End Sub
 
Rica ederim.
İyi çalışmalar.:cool:
 
Birleştirilmiş hücleri silmiyor nedense error 1004 hatası veriyor dosyayı ekledim. İncelerseniz sevinirim hatam nerde.
Tşk ler.
 
Merhaba.
Sayın sanalsukul Birleştirilmiş hücrelerden birisini silmek istiyorsunuz.Ondan debug veriyor.Oysa Birleştirilen hücrelerin tamamını silmeniz gerekir.Zaten debugdada söylüyor.
Aşağıdaki kodları kullanın.:cool:
Kod: 
Private Sub CommandButton2_Click()
Range("D6").ClearContents
Range("E6:F6").ClearContents
Range("G6").ClearContents
Range("H6:I6").ClearContents
Range("J6").ClearContents
Range("K6:l6").ClearContents
Range("D7").ClearContents
Range("E7:F7").ClearContents
Range("G7").ClearContents
Range("H7:I7").ClearContents
Range("J7").ClearContents
Range("K7:l7").ClearContents
Range("J6").ClearContents
Range("D10").ClearContents
Range("E10").ClearContents
Range("F10").ClearContents
Range("G10").ClearContents
Range("H10").ClearContents
Range("I10").ClearContents
Range("J10").ClearContents
Range("K10").ClearContents
Range("L10").ClearContents
Range("D12").ClearContents
Range("E12:F12").ClearContents
Range("G12").ClearContents
Range("H12:I12").ClearContents
Range("J12").ClearContents
Range("K12:L12").ClearContents
Range("D13").ClearContents
Range("E13:F13").ClearContents
Range("G13").ClearContents
Range("H13:I13").ClearContents
Range("J13").ClearContents
Range("K13:L13").ClearContents
Range("D15").ClearContents
Range("E15:F15").ClearContents
Range("G15").ClearContents
Range("H15:I15").ClearContents
Range("J15").ClearContents
Range("K15:L15").ClearContents
Range("D18").ClearContents
Range("E18:F18").ClearContents
Range("G18").ClearContents
Range("H18:I18").ClearContents
Range("J18").ClearContents
Range("K18:L18").ClearContents
Range("D19:F19").ClearContents
Range("G19:I19").ClearContents
Range("J19:L19").ClearContents
Range("C22:L22").ClearContents
MsgBox "Silme İşlemi yapıldı", vbOKOnly, Application.UserName
End Sub
 
Bu şekilde deneyiniz.

Private Sub CommandButton1_Click()
[A2,C5, D19, E15, H16] = ""
End Sub

Not : Birleştirilmiş hücrelerde kod çalışıyor.
 
tşk ederim iLginize
sayenizde bir konu daha öğrendim.
SAYGILAR...
 
Sn.Sanal Sukul buton üzerine gelindiğinde çıkan "Sanal SUKUL" yazısını çok merak ettim,acaba nasıl oluşturdun.
 
onunda programları var arama motorlarından icon yapma programı diye aratabilirsiniz. Ben ARTICONS programını kullanarak yaptım. Program isimini kopyalayın arama motorlarında aratın bulunur. eğer bulmadım derseniz bi çaresine bakarız.
Kolay gelsin.
SAYGILAR...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst