VBA Koda silme ekleme

[horzum]

Kıymetli üstadlar,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target <> "" Then
Target.Offset(0, -1) = Target.Row - 6
Target.Offset("A7:A65536").ClearContents
End If
End Sub

bu kod da otomotik sıralama yapıyor ama veriyi silince otomatik silme yapamadım. Şimdiden teşekkürler....

 

[xtrkax]

Bundan mı bahsediyorsunuz:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
        Target.Offset(0, -1) = Target.Row - 6
        Target.Offset("A7:A65536").ClearContents
    Else
        Target.Offset(0, -1).ClearContents ' Hücre içeriği silindiğinde ilgili hücrenin de içeriğini siler
    End If
End Sub

 

[horzum]

Bundan mı bahsediyorsunuz:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
        Target.Offset(0, -1) = Target.Row - 6
        Target.Offset("A7:A65536").ClearContents
    Else
        Target.Offset(0, -1).ClearContents ' Hücre içeriği silindiğinde ilgili hücrenin de içeriğini siler
    End If
End Sub

B hücresine veri girince Target.Offset("A7:A65536").ClearContents hata verdi

 

[xtrkax]

Bunu dener misiniz hocam:

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" & Me.Cells(Me.Rows.Count, "A").End(xlUp).Row).ClearContents
    Else
        Target.Offset(0, -1).ClearContents
    End If
End Sub

 

[horzum]

Bunu dener misiniz hocam:

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" & Me.Cells(Me.Rows.Count, "A").End(xlUp).Row).ClearContents
    Else
        Target.Offset(0, -1).ClearContents
    End If
End Sub

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