Skip to main content

AccessTr.neT

Kayıt Ol

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

Clearcontents Sınırlaması

HORZUM
HORZUM
Excel Cevaplanmış Soruları
9
497

Clearcontents Sınırlaması

Çözüldü #1
HORZUM
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
Kolay gelsin arkadaşlar...

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
    Application.EnableEvents = False
    Range("A7:A15000").ClearContents
    No = 1
    Select Case Target.Column
        Case 1 To 6
        For X = 7 To 15000
            If Cells(X, 2) <> "" And Cells(X, 2) <> "" Then
                Cells(X, 1) = No
                No = No + 1
            End If
        Next
    End Select
10  Application.EnableEvents = True
End Sub
Yukarıdaki kod ile Excel de otomatik satır numarası verilmekte. Ancak Range("A7:A15000").ClearContents  olarak satır sınırlamasını 15000 olarak sınırlandırdım. Son satırdaki 15000'den küçük yani satır sayısı Örneğin:2845 olduğunda otomatik olarak sayı vermiyor. 15000 sınırlandırmasını Range("A7:A").ClearContents yapıncada otomatik sayı vermiyor. Sınırlandırma olmadan otomatik sayı vermeyi nasıl halledebilir.

Saygılar....!
.rar 6-Haziran-2.rar (Dosya Boyutu: 61,8 KB | İndirme Sayısı: 2)
Son Düzenleme: 13/09/2023, 17:27, Düzenleyen: HORZUM.
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 Sınırlaması - Yazar: HORZUM - 13/09/2023, 15:24
RE: Clearcontents Sınırlaması - Yazar: feraz - 13/09/2023, 17:00
Re: Clearcontents Sınırlaması - Yazar: feraz - 13/09/2023, 17:58
RE: Clearcontents Sınırlaması - Yazar: HORZUM - 14/09/2023, 09:33
RE: Clearcontents Sınırlaması - Yazar: feraz - 14/09/2023, 17:35
RE: Clearcontents Sınırlaması - Yazar: HORZUM - 15/09/2023, 09:11
RE: Clearcontents Sınırlaması - Yazar: feraz - 15/09/2023, 19:26
RE: Clearcontents Sınırlaması - Yazar: HORZUM - 18/09/2023, 10:29
RE: Clearcontents Sınırlaması - Yazar: feraz - 18/09/2023, 12:59
RE: Clearcontents Sınırlaması - Yazar: feraz - 15/09/2023, 19:41
Task