Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Clearcontents Hatası

HORZUM
HORZUM
Excel Cevaplanmış Soruları
9
495

Clearcontents Hatası

#6
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,09:44
Yorumları: 8.405
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.037
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Clearcontents Hatası - Yazar: HORZUM - 18/04/2023, 16:42
RE: Clearcontents Hatası - Yazar: berduş - 18/04/2023, 16:44
RE: Clearcontents Hatası - Yazar: HORZUM - 18/04/2023, 16:48
RE: Clearcontents Hatası - Yazar: berduş - 18/04/2023, 16:57
RE: Clearcontents Hatası - Yazar: HORZUM - 18/04/2023, 16:59
RE: Clearcontents Hatası - Yazar: berduş - 18/04/2023, 17:35
RE: Clearcontents Hatası - Yazar: HORZUM - 19/04/2023, 16:20
RE: Clearcontents Hatası - Yazar: berduş - 19/04/2023, 16:26
Re: Clearcontents Hatası - Yazar: HORZUM - 19/04/2023, 16:27
RE: Clearcontents Hatası - Yazar: berduş - 19/04/2023, 16:32
Task