Değişen Seçili Alanın Silinmesi

[Seyit Tiken]

S.A, Arkadaşlar, değişen seçili alanın ve yanındaki üç sütunu silmek istiyorum. Teşekkür ediyorum.

 

[Ömer]

Merhaba Seyit Bey,

Deneyiniz.

Sub test()
    With Selection
        .Resize(.Row, .Columns.Count + 3).ClearContents
    End With
End Sub

 

[Seyit Tiken]

Ömer bey teşekkür ediyorum, istenilen sonucu veremedi, satırlar değişkendir, sütunlar sabittir, seçili satırlar dahil sağındaki üç sütundaki satırların da temizlenmesi gerek, Allah razı olsun...

 

[Seyit Tiken]

Şu şekilde bir çözüm buldum.

Selection = ""
Selection.Offset(0, 1) = ""
Selection.Offset(0, 2) = ""
Selection.Offset(0, 3) = ""

Bunu döngüye nasıl dönüştürebiliriz?

 

[Korhan Ayhan]

Siz seçimi nasıl yapıyorsunuz?

 

[YUSUF44]

Aşağıdaki gibi olur mu?

Sub temizle()
sat = Selection.Row
sut = Selection.Column
topsat = Selection.Rows.Count
Range(Cells(sat, sut), Cells(sat + topsat - 1, sut + 2)).ClearContents
End Sub

 

[Seyit Tiken]

Korhan bey seçimi manuel yapıyorum.

 

[Korhan Ayhan]

Peki seçimi yaparken satır atlamalı seçim yapıyor musunuz?

 

[Ömer]

Ömer bey teşekkür ediyorum, istenilen sonucu veremedi, satırlar değişkendir, sütunlar sabittir, seçili satırlar dahil sağındaki üç sütundaki satırların da temizlenmesi gerek, Allah razı olsun...

Deneyerek vermiştim. Çözdüyseniz sorun değil.
İyi çalışmalar.

 

[Seyit Tiken]

Yusuf bey teşekkürler, oldu, kod hızlı ve çalışıyor.

 

[Seyit Tiken]

Korhan bey satırlar arasında boşluk yok.

 

[Korhan Ayhan]

@Seyit Tiken,

Eğer atlamalı hücre seçimi yapmıyorsanız aşağıdaki kodu kullanabilirsiniz.

Option Explicit

Sub Temizle()
    Selection.Resize(, 4).ClearContents
End Sub

 

[Seyit Tiken]

Korhan bey teşekkürler, mükemmel bir şekilde çalışıyor, kodun kısa olması cabası.

 

[Korhan Ayhan]

Bu da çoklu satır (atlamalı) seçerseniz kullanabileceğiniz kod yapısıdır.

Option Explicit

Sub Temizle()
    Dim Alan As Range
    
    For Each Alan In Selection
        Alan.Columns(1).Resize(, 4).ClearContents
    Next
End Sub