(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