Satırı temizleme

[gecemavisi]

öyle bir buton komutu yazmalıyım ki;
satırlarda rastgele gezerken 5 nolu satırı veya herhangi üzerine tıkladığım bir satırı a:? satırdan g? satıra kadar temizlemek istiyorum. Yalnız burda si komutu değilde sadece "İçerini temizl"e komutu kullanılacak.
sizce nasıl olur. İlgilenen arkadaşlarıma şimdiden teşekkürler.

 

[Ali]

Aşağıdaki kodları deneyin

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A:G]) Is Nothing Then Exit Sub
satirlar = "A" & Target.Row & ":G" & Target.Row
Select Case Target
Case Range(satirlar).ClearContents
End Select
End Sub

 

[gecemavisi]

iyi de hocam
Bu kodları hangi bölüme yazacağız. Butona mı yada worksheet bölümüne mi

 

[Ali]

Worksheet_BeforeDoubleClick

İlgili sayfanızı sayfa sekmesini sağ tuş ile tıklayıp kod görüntüle kısmına yapıştırın.
Butona gerek kalmadan çalışacaktır.

Butona bağladığınızda belirtiğiniz gibi çift tıklamanın bir manası olmayacaktır.

 

[gecemavisi]

Arkadaşlar Bana bunun düğmeye basıldığında çalışan hali gerek. Hangi satırda isem o satırın belli bir yerinden belli yere kadar temizleyecek.

 

[Korhan Ayhan]

Selamlar,

İşlemi yapacağınız sayfa üzerinde bir buton oluşturun ve aşağıdaki kodu uygulayın.

Sub TEMİZLE()
ARALIK = "A" & ActiveCell.Row & ":D" & ActiveCell.Row
Range(ARALIK).ClearContents
End Sub

Kod içinde "A" ve "" ifadeleri sütunları ifade etmektedir. Kendinize göre değiştirebilirsiniz.

Kodun işleyiş mantığıda butona tıkladığınızda bulunduğunuz satırdaki belirtilen aralığın içeriğini temizlemesidir.

 

[gecemavisi]

Saygıdeğer Cost control;
Formülünüz çok güzel, Yalnız bunu biraz daha uyarlamak mümkün mü, mesela formüller olan hücreler haricindeki a ile d arasındaki satırlar için mümkün mü?
Formüllere dokunmayacak.
Sizce nasıl olur?
Saygılarımla..

 

[hamitcan]

Aşağıdaki kodu deneyin...

Sub TEMİZLE()
ARALIK = "A" & ActiveCell.Row & "" & ActiveCell.Row
Range(ARALIK).SpecialCells(xlCellTypeConstants, 23).Clear
End Sub

 

[gecemavisi]

Sn Hamitcan
Kodlarınızı aşağıdaki şekilde deniyorum ama başarılı olamadım. Bir daha akar mısınız lütfen

ActiveSheet.Unprotect "x"
ARALIK = "A" & ActiveCell.Row & ":AV" & ActiveCell.Row
Range(ARALIK).SpecialCells(xlCellTypeConstents, 23).Clear
Range(ARALIK).ClearContents
ActiveSheet.Protect "x"

 

[hamitcan]

Range(ARALIK).ClearContents satırı fazla bu satırı silin.

Ayrıca,

Range(ARALIK).SpecialCells(xlCellTypeConstents, 23).Clear

kırmızı olan harf, "e" değil "a" olacak.

 

[gecemavisi]

valla olmadı sn hamitcan

 

[hamitcan]

Son çare, dosyayı gönderin inceleyelim.

 

[gecemavisi]

Ekte sundum Sn hamitcan

 

[gecemavisi]

yalnız ben sütunlardan birine formül koymayı unuttum. Formülle denemeniz de gerekebilir. Bana formül bozulmayacak şekilde içeriğini temizle komutu lazım

 

[hamitcan]

Eki inceleyin

 

[Korhan Ayhan]

Selamlar,

Aynı satırda iken iki kez butona basarsanız hata oluşacaktır. Bunu önlemek için Sn. hamitcan beyin örneğindeki kodu aşağıdaki gibi düzenleyiniz.

Sub Sil()
On Error GoTo Son
ActiveSheet.Unprotect "x"
ARALIK = "A" & ActiveCell.Row & ":AV" & ActiveCell.Row
Range(ARALIK).SpecialCells(xlCellTypeConstants, 23).Clear
Son:
ActiveSheet.Protect "x"
End Sub

 

[gecemavisi]

Valla tam istediğim gibi oldu hocam,Eliniz dert görmesin

 

[Seyit Tiken]

Örnek niteliğindeki dosyaya bir bakın.