butona tıkladığımda diğer sayfadan bilgileri alma?

[CeNK_aLPeR]

ismi değiştirmeyide becerdim. Çok detaylı 2 tane kaynak ta buldum.isteyenler olursa gönderebilirim.

hiçbir sorun kalmadı, teşekkürler.

yalnız bir eksik farkettim, butona tıkladığımdaki gelen listeyi her seferinde seçerek silmek zorunda kalıyorum.Başka bir butona tıkladığımda da ekrana gelen bilgilerin silinmesini sağlayan komutu yazabilirmisiniz?yani kısaca görüntülenen sayfadaki bilgileri silen bir kod istiyorum fakat 4.sıradan başlayacak çnkü 1-2-3. sıralarda butonlar mevcut

 

[zafer]

Merhaba

Aşağıdaki kodları bir butona bağlayınız.
aktif sayfadaki verileri siler.

Sub sil()
son = Cells(65536, 1).End(xlUp).Row
Range(Cells(4, 1), Cells(son, 15)).Clear
End Sub

 

[CeNK_aLPeR]

nihayet bitti, bi problem çıktı ama onuda hallettim

problem ise normalde ekle bakalım butonuna tıkladığımda "anahtar alan" daki sayıları sola dayalı yasıodu fakat temizle dedikten sonra "anahtar alan" ın formatınıda siliyordu tekrar ekleye bastıımda sayıları sağa dayıyordu.

Range(Cells(4, 1), Cells(son, 15)).Clear

komutundaki ".clear" ı .ClearContents olarak değiştirdiğimde hiçbir problem kalmadı.

ekte dosyayı gönderiyorum, birilerinin işine yarayabilir.

Herşey için teşekkürler...

 

[CeNK_aLPeR]

merhaba

yeni farkettim.liste boş iken temizle butonuna bastığımda sütun başlıklarını siliyor("anahtar alan"-"özel alan" gbi)

a sütunun 4.satırı boş olduu zaman uyarı veren ve temizleme işlemini gerçekleştirmeyen kodu nası uygulayabilirim aşağıdaki koda?

Sub sil()
son = Cells(65536, 1).End(xlUp).Row
Range(Cells(4, 1), Cells(son, 15)).ClearContents
End Sub

 

[zafer]

Merhaba

Range(Cells(4, 1), Cells(son+1, 15)).ClearContents