textboxta 1 artırma

[aydın3838]

selamlar
userformla sayfaya veri giriyorum fakat text 12 deki rakamın her defasında 1 artması gerekiyor

aşağıdaki kodu kullanıyorum sayfada veri olmasa bile ilk başlangıç 2 den başlıyor 1 den başlaması gerekiyor
sayfaya 1 den başlayarak numara veriyorum ama text 12 herzaman 2 den başlıyor
kodlar hatalımı acaba

Application.WorksheetFunction.Max(Sheets("MERMERCİ").Range("A:A")) + 1
TextBox12.Text = TextBox12 + 1

s = WorksheetFunction.CountA(Sayfa4.Range("A:A"))
TextBox12.Text = s

 

[fedeal]

TextBox12.Text = Application.WorksheetFunction.Max(Sheets("MERMERCİ ").Range("A:A")) + 1

üsteki gibi(değiştirdim) kullanırsanız mermerci sayfası a sütunundaki en büyük rakamdan bir büyük rakamı verir.

s = WorksheetFunction.CountA(Sayfa4.Range("A:A"))
TextBox12.Text = s

üstekini kullanırsanız sayfa 4 a sütünunda kaçtane dolu hücre varsa onu textboxa verir.

ikisini birden yazarsanız makro sıralı(yukardan aşagıya)çalıştıgı için alta hangisini yazarsanız onu yapar.saygılar.

 

[aydın3838]

sayın fedeal bey
ilginize ve pazar pazar dertlerimizi dinlediğiz için teşekkürler
verdiğiniz kodları denedim olmadı
örneğe bakarsanız sevinirim

açınca text 12 2 den başlıyor halbuki sayfada veri yok 1 den başlaması gerekirdi
saygılar

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub UserForm_Initialize()

Dim i As Long
ListBox1.ColumnCount = 12
ListBox1.ColumnWidths = "15;70;19,50,25,25,25,90,30,40,40"
[B][COLOR=red]s = Sheets("MERMERCİ").[A65536].End(3).Row - 2
[/COLOR][/B]TextBox12.Text = s
ComboBox2.RowSource = "MERMERCİ!B4:B" & [B][COLOR=red]s + 2
[/COLOR][/B]s = WorksheetFunction.CountA(Sayfa1.Range("A:A"))
ComboBox3.RowSource = "Sayfa1!B2:B" & s
With ComboBox1
        .AddItem "İÇ DIŞ KANALLI"
        .AddItem "İÇ DIŞ KANALSIZ"
        .AddItem "İÇ MERMER"
        .AddItem "DIŞ MERMER"
        .AddItem "İÇ MERMER FUGALI"
        .AddItem "DIŞ MERMER FUGALI"
        
    End With
    
   
Label15 = Format(Date, "dd.mm.yyyy")
TextBox11.Text = Format(Date)
UserForm9.Controls("TextBox13" & pir).Visible = False
 UserForm9.Controls("combobox3" & pir).Visible = False
UserForm9.Controls("commandbutton7" & pir).Visible = False
UserForm9.Controls("Label30" & pir).Visible = False
End Sub