Belirli hücreleri silebilmek için buton oluşturma

[ikopiko]

Değerli arkadaşlar;
beni çok büyük bir dertten kurtarıcak bir formüle ihtiyacım var, öncelikle şunu söyliyeyim ; excel de çok bilgili değilim.
sorum işe şu ;
müşteri cari bilgilerini excele çekiyoruz, bir excel sayfasının içinde 4 tane sütun oluşuyor...
öyle bir kod yazmam ve buton oluşturmam lazım ki ;
bu buton sayfa 1 de yer alacak ve butona baştığım zaman sayfa2,sayfa3,sayfa4 üzerinde ki a9-g1000 aralığındaki bütün hücreleri temizleyecek.
bana bu konuda yardımcı olursanız çok büyük bir dertten kurtulucam.

 

[İhsan Tank]

Değerli arkadaşlar;
beni çok büyük bir dertten kurtarıcak bir formüle ihtiyacım var, öncelikle şunu söyliyeyim ; excel de çok bilgili değilim.
sorum işe şu ;
müşteri cari bilgilerini excele çekiyoruz, bir excel sayfasının içinde 4 tane sütun oluşuyor...
öyle bir kod yazmam ve buton oluşturmam lazım ki ;
bu buton sayfa 1 de yer alacak ve butona baştığım zaman sayfa2,sayfa3,sayfa4 üzerinde ki a9-g1000 aralığındaki bütün hücreleri temizleyecek.
bana bu konuda yardımcı olursanız çok büyük bir dertten kurtulucam.

merhaba
sadece temizlik yapılacak ise

Sub temizlik()
Sheets("Sayfa2").Range("A9:G1000").ClearContents
Sheets("Sayfa3").Range("A9:G1000").ClearContents
Sheets("Sayfa4").Range("A9:G1000").ClearContents
End Sub

bunu
tüm satırlar silinecek ise

Sub satırsil()
Sheets("Sayfa2").Rows("9:1000").Delete
Sheets("Sayfa3").Rows("9:1000").Delete
Sheets("Sayfa4").Rows("9:1000").Delete
End Sub

bu kodu kullanabilirsiniz

 

[ikopiko]

ihsan bey teşekkür ederim,
amacım belirttiğim aralıktaki bütün verileri silmek.
bana ulaştırmış olduğunuz kodlardan bir buton oluşturmak istedim fakat kabul etmedi.
makro atama işleminden gerçekleştirdim ve sizin verdiğiniz kodu yapıştırdım

 

[İhsan Tank]

ihsan bey teşekkür ederim,
amacım belirttiğim aralıktaki bütün verileri silmek.
bana ulaştırmış olduğunuz kodlardan bir buton oluşturmak istedim fakat kabul etmedi.
makro atama işleminden gerçekleştirdim ve sizin verdiğiniz kodu yapıştırdım

buton oluşturmak için bu link işinizi görür sanırım.
kodlar işinizi gördümü

 

[ikopiko]

buton oluşturmak için bu link işinizi görür sanırım.
kodlar işinizi gördümü

ihsan bey kodlarda da hata alıyorum

 

[İhsan Tank]

ihsan bey kodlarda da hata alıyorum

dosyanızı ekler misiniz
kod'u ben denedim herhangi bir hata almadım.

 

[excel_ance]

selamlar

merhabalar. arkadaşım ihsan hocamın vermiş olduğu kodlar gayet güzel çalışıyorlar ben oluşturup bizzat denedim ve ilgili dosyayı ekliyorum

 

[excel_ance]

selamlar hocam

merhaba
sadece temizlik yapılacak ise

Sub temizlik()
Sheets("Sayfa2").Range("A9:G1000").ClearContents
Sheets("Sayfa3").Range("A9:G1000").ClearContents
Sheets("Sayfa4").Range("A9:G1000").ClearContents
End Sub

bunu
tüm satırlar silinecek ise

Sub satırsil()
Sheets("Sayfa2").Rows("9:1000").Delete
Sheets("Sayfa3").Rows("9:1000").Delete
Sheets("Sayfa4").Rows("9:1000").Delete
End Sub

bu kodu kullanabilirsiniz

merhabalar hocam siz değerli uzmanlarımızın ayırmıyorum hepsinin kodlarını tek tek imkanım oldukça TXT dosyasına aktarıyorum inşallah yakında sizlerin sayesinde makro vba kodlarını bir form haline getirip yayımlamayı düşünüyorum. şahsınızda herkese sağlık ve esenlikler diliyorum