Clearcontents Hatası

(18/04/2023, 17:35)berduş yazdı: aşağıdaki kodu denediğimde hata vermedi
tam olarak ne yapınca hata veriyor?

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Me.Range("B:B")) Is Nothing Then Exit Sub



    If Target.Value <> "" Then

        Target.Offset(0, -1) = Target.Row - 6

        Me.Range("A7:A" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents

    Else

        Target.Offset(0, -1).ClearContents

    End If

End Sub 

B hücresine veri girişi yapılıp hücreden çıkış yapınca "Run time error 1004 Ne yazikki bu işlemi birleştirilmiş bir hücrede yapamıyoruz" hatase veriyor

hangi hücreler bitişik

(19/04/2023, 16:26)berduş yazdı: hangi hücreler bitişik

A ve E arası ama satır bazen azalıyor bazen çoğalıyor

clearcontents birleşik hücrelerde kullanılamıyormuş demek ki
o zaman boş değer vermeyi deneyin