Clearcontents Hatası

HORZUM

Excel Cevaplanmış Soruları

476

18/04/2023, 16:42 #1

Aktif Üye

HORZUM

Bul

Aktif Üye

Adı Soyadı: BE.... HO....

Yaşı: 52

Konum: Burdur

Ofis Versiyonu: Ofis 2016 64 Bit

Son Oturumu: 07/03/2024,13:04

Yorumları: 89

Konuları: 20

Kayıt Tarihi: 22/12/2010

Teşekkür Puanı: 0

Mesleğiniz: MEMUR

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

Son Düzenleme: 18/04/2023, 16:45, Düzenleyen: HORZUM.

Cevapla