SİLME HATASI

[mavi674]

Selam,
Gönderdiğim ekteki örnek dosyada, bir hücrede silme işlemi yaptığımda kod hata veriyor
Bu yüzden kod çalışsın diye tekrar giriyorum.
Şimdiden teşekkürler...

DOSYA - Filemail

Click here to view and download these shared files from Filemail.com

www.filemail.com

 

[Muzaffer Ali]

Merhaba

Range(Cells(sat, 11), Cells(sat, sut)).ClearContents

Burada Range() parantez içinde adres belirtilmesi gerekiyor siz hücre referansı vermişsiniz.
Yani Örneğin Range("A2:A10", "D2:D10") gibi olmalıdır.
Sizin koda göre şöyle olmalı.

Range(Cells(sat, 11).Address, Cells(sat, sut).Address).ClearContents

Yalnız bu da hata verecektir çünkü bir hücre silince 11. sütun yani "K" sütunundaki hücreyi temizlemek istiyorsunuz bu hücre korumalı olduğu için hata verir.
Ayrıca örneğin D8 hücresini silerseniz bu kod sağdaki son dolu hücreyi de silmek istiyor.

Sonuç olarak bu satırı gözden geçirin.
B4:D12 ile F4:H10 hücrelerinden birini sildiğinizde kodlar otomatik çalışıyor. Burada otomatik olarak ne olmasını istiyorsanız ona göre kod yazılmalı.

 

[mavi674]

Selam
dosya ekledim
"o" rakamı ile girilen sayılar silmek için.
Şimdiden Teşekkürler....

DOSYA - Filemail

Click here to view and download these shared files from Filemail.com

www.filemail.com