TEXTBOX DA SIRA NUMARASI GÖRME

[ocamsul]

TEXTBOX DA SIRA NUMARASI GÃ?RME

DÜZENLEMİÞ OLDUÐUM USERFORM ÜZERİNDEKİ TEXBOX DA KAYIT GİRİLEBİLECEK SIRA NUMARASINI GÃ?RMEK İSTİYORUM. Ã?RNEK BİR ÇALIÞMA VARSA BENİMLE PAYLAÞIRMISINIZ ARKADAÞLAR.

 

[isakarakus]

TEXBOX DA KAYIT GİRİLEBİLECEK SIRA NUMARASINI GÃ?RMEK

nasıl yani?

 

[ocamsul]

YANİ SIRA NUMARASI OTOMATİK OLACAK. ÜSERFORMU HER AÇTIÐIMDA MESELA SAYFA1 DE KAYIT GİREBİLECEÐİM SIRA NUMARASINI GÃ?RMEK İSTİYORUM.

 

[isakarakus]

A sutununda sıra numarası kayıtlarını tuttuğunu varsayarsak.

formun initialize olayına şunu yazmalısın

Range("A1").Select
Selection.End(xlDown).Offset(1,0).Select  'en son satıra gider
textbox1.text=ActiveCell.Offset(-1, 0) + 1 'en son numaraya 1 ekler

 

[Levent Menteşoğlu]

Alternatif olarak,
[vb:1:4ba9a5c241]Private Sub UserForm_Initialize()
TextBox1 = WorksheetFunction.CountA(Columns("A")) + 1
End Sub
[/vb:1:4ba9a5c241]

 

[ocamsul]

leventm ve isakarakus BELİRTTİÐİNİZ KODLARI NERELERE YAZMAM LAZIM? USERFORM İÇİNEMİ TEXBOX İÇİNEMİ? MALUM ACEMİLİK. İÃžİ KAVRAYINCAYA KADAR İDARE EDİN ARKADAÞLAR.

 

[Levent Menteşoğlu]

Userformu çift tıklayıp yukarıdaki kodları aynı şekilde kopyalayın. Sn isakarakus'un önerisinide userform_initialize olayına yazmanız gerekir.

 

[ocamsul]

TEÞEKKÜR EDERİM leventm.