sıra no' nun otomatik gelmesi.

[ünal karadavut]

Page1 de sayfa 1 e kayıt yapınca hangi sırada olduğumu TextBox1 gözükmesi,
Page2 de Sayfa2 ye kayıt yapınca yine hangi Sıra No da olduğumu TextBox3 te göstermesini istiyorum.

yardımcı olursanız sevinirim.

 

[ünal karadavut]

lütfen cevap bekliyorum.

 

[ünal karadavut]

excel' de makrosu mu yok, yada uğraşmak için vakti mi yok. sitemim şu an atif olanlara.

 

[Korhan Ayhan]

Selamlar,

Forumda konuyla ilgili örnekler mevcut. Eğer arasaydınız ulaşabilirdiniz. Sitem etmenize gerek yok.

Aşağıdaki kodları denermisiniz.

Private Sub CommandButton1_Click()
    Set S1 = Sheets("Sayfa1")
    Satır = S1.[A65536].End(3).Row + 1
    S1.Cells(Satır, 1) = Satır - 1
    S1.Cells(Satır, 2) = TextBox2
    UserForm1.TextBox1 = Satır
End Sub

Private Sub CommandButton2_Click()
    Set S2 = Sheets("Sayfa2")
    Satır = S2.[A65536].End(3).Row + 1
    S2.Cells(Satır, 1) = Satır - 1
    S2.Cells(Satır, 2) = TextBox2
    UserForm1.TextBox3 = Satır
End Sub

 

[ünal karadavut]

COST_CONTROL
Allah sizden razı olsun.
Allah zihninizi açsın.
emeğinize sağlık.