AccessTr.neT
Clearcontents Hatası - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Clearcontents Hatası (/konu-clearcontents-hatasi.html)

Sayfalar: 1 2

Clearcontents Hatası - HORZUM - 18/04/2023

Kod:
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
Değerli arkadaşlar, B7 hücresinden itibaren veri girince A7 hücresinden aşağı doğru sıra numarasını otomatik olarak alıp veriyi silince sıra numarasının da silinmesini istiyorum. Ancak Me.Range("A7:A" & Me.Cells(Me.Rows.Count, "A").End(xlUp).Row).ClearContents kısmında hata veriyor. İlginiz için şimdiden teşekkürler

RE: Clearcontents Hatası - berduş - 18/04/2023

Me. Neden var

RE: Clearcontents Hatası - HORZUM - 18/04/2023

(18/04/2023, 16:44)berduş yazdı: Me. Neden var

Worksheet_Change(ByVal Target As Range) ile başlayan sistemde aynı sayfada çalışması için diye biliyorum.

RE: Clearcontents Hatası - berduş - 18/04/2023

Worksheet_Change zaten aktif sayfada çalışır

RE: Clearcontents Hatası - HORZUM - 18/04/2023

(18/04/2023, 16:57)berduş yazdı: Worksheet_Change zaten aktif sayfada çalışır

Me. kaldırdım yine aynı kardeş

RE: Clearcontents Hatası - berduş - 18/04/2023

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