kod hatası

[burhancavus61]

Kod satırını H-J aralığı olarak H:J şeklinde yazdığım zaman hata alıyorum nasıl yazmam gerekir.
Tek sütunda sorun çıkartmıyor.

            If i = Target.Row Then
                Cells(i, "H").ClearContents
                Exit Sub
            End If

 

[AdemCan]

Range(Cells(i, "H"), Cells(i, "J")).ClearContents

olarak yazabilirsiniz.

 

[Levent Menteşoğlu]

Ya da

Range("H"  & i & ":J" & i).ClearContents

 

[Korhan Ayhan]

Ya da;

Cells(i, "H").Resize(1, 3).ClearContents

 

[burhancavus61]

Çözüm önerileri için teşekkürler