Bir satırda seçilen hücrenin devamında...

[acolkesen1]

Merhaba herkese..
Bir satırda seçilen hücrenin devamında sağa doğru belirleyeceğim sayıdaki hücreyi silmek için "Selection.ClearContents" komutundan önce nasıl bir kod yazmak gerekir?
Örnek vermek gerekirse;bir çalışma sayfasında her seferinde farklı satırlarda ardarda gelen hücre dizisini silmem gerekiyor .A1 hücresini seçip makroyu çalıştırdığımda A1:A5 hücrelerini daha sonra örn. F1 hücresini seçip F1:F5 arasını silsin istiyorum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz.

Sub TEST()
Range(ActiveCell, ActiveCell.Offset(5, 0)).ClearContents
End Sub

 

[acolkesen1]

satır sil

Olmadı maalesef. Örnek dosya ekedir.

 

[N.Ziya Hiçdurmaz]

Yanıt

Dosyanız ekte

 

[Seyit Tiken]

Çift tıklamayla uygulayabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For s = 1 To 5
ActiveCell(s) = vbNullString
Next
ActiveCell.Offset(1).Select
End Sub