Belirlenen Hücrelerin Silinmesi

[ahmed_ummu]

İyi akşamlar arkadaşlar.

Bi konuda daha yardımınızı rica edeceğim ama excel de mümkün müdür bilmiyorum.

Örnek resimde seçtiğim bir hücre gurubunu silebilir miyim. Yani aktif satırın R-S-T-U sütunlarındaki hücreleri. Aktif satırın altındaki ve üstündeki hücreler silinmeyecek. Ve silinen hücrelerin sağındaki hücreler silinen hücrelerin yerine kayacak. İnşallah anlatabilmişimdir. Yardımcı olursanız sevinirim.
Örnek resimde 4 satır aktif satır.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub test()
    Range("R3:U3").Delete Shift:=xlToLeft
End Sub

 

[ahmed_ummu]

Merhaba,

Deneyiniz.

Sub test()
    Range("R3:U3").Delete Shift:=xlToLeft
End Sub

Teşekkürler Ömer bey. Örnek dosyada sorun çıkmadı, kendi dosyamda deneyeceğim.

 

[ahmed_ummu]

Merhaba Ömer bey.

Denedim ama örnek resim2 deki gibi çalışıyor. Aktif hücrenin 10-11-12-13 sağındaki hücreleri silmek istiyorum ama aktif hücrenin 12-14-16-18 sağındaki hücreleri siliyor.

For i = 10 To 13 Step 1
ActiveCell.Offset(0, i).Delete Shift:=xlToLeft
Next i

Step 1 yazmasam da aynı şekilde çalışıyor.

 

[ahmed_ummu]

Resim1 deki yazı rengi kırmızı olan hücreleri silmesi gerekiyor.

 

[Ömer]

10-13 sütunlar J:M arasıdır. Siz K:N yi işaretlemişsiniz.

Ben J:M ye göre yazdım. J ve M leri size uygun olan sütunlara göre değiştirirsiniz.

Sub test()
    Dim s As Long
    s = ActiveCell.Row
    Range("J" & s & ":M" & s).Delete Shift:=xlToLeft
End Sub

 

[ahmed_ummu]

10-13 sütunlar J:M arasıdır. Siz K:N yi işaretlemişsiniz.

Ben J:M ye göre yazdım. J ve M leri size uygun olan sütunlara göre değiştirirsiniz.

Sub test()
    Dim s As Long
    s = ActiveCell.Row
    Range("J" & s & ":M" & s).Delete Shift:=xlToLeft
End Sub

Çok Teşekkürler Ömre bey.