İleri Geri Butonundaki Sayı Bul İle Orantılı Olması

[alitolga2000]

İyi akşamlar,
Textboxlara veriyi sayfadan bulup eklettiriyorum ayrıca burda istediğimide bulduruyorum, birde bunlara sonradan ileri geri enbaş enson gibi tuşlar ekledim.
Birde ortalarında hangi sırada olduklarını gösteren bir textbox var txtsıra örneğin 5.hücredeki değeri buldurduğumda
txtsıra nında 5 yazmasını nasıl ayarlarız?

Private Sub UserForm_Initialize()
Dim say As Integer
Sheets("aNA").Select
txtsira.Locked = True
If Range("A2") = "" Then
say = WorksheetFunction.CountA(Range("A1:a65000"))
textbox1.RowSource = "ANA!A2:A" & say + 1
Else
say = WorksheetFunction.CountA(Range("A2:a65000"))
textbox1.RowSource = "ANA!A2:A" & say
End If
txtsira.Value = say
cmdEnBas_Click
textbox1.SetFocus

End Sub
Private Sub bul_Click()
cmdbul_Click
End Sub
'bul; CbAd sanra 1, 2, 3, diye sıra takip edilir'
Private Sub cmdbul_Click()
Dim bak As Range
For Each bak In Range("a1:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(textbox1.Value, vbUpperCase) Then
bak.Select

textbox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
TextBox40.Value = Format(ActiveCell.Offset(0, 39), "dd.mm.yyyy")
Exit Sub
End If
txtsira.Value = bak-----------------------burası yok pardon.
Next bak
If textbox1.Value = "" Then
Exit Sub
Else
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End If
End Sub
Private Sub cmdEnBas_Click()
Dim say As Integer
say = WorksheetFunction.CountA(Range("A2"))
textbox1 = Cells(2, 1)
TextBox2 = Cells(2, 2)
TextBox3 = Cells(2, 3)
......
.....

 

[Orion1]

Merhaba.
Aşağıdaki şekilde denermisiniz.

Private Sub cmdbul_Click()
Dim bak As Range
For Each bak In Range("a1:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(textbox1.Value, vbUpperCase) Then
bak.Select
txtsira.Value = ActiveCell.Row
textbox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
TextBox40.Value = Format(ActiveCell.Offset(0, 39), "dd.mm.yyyy")
Exit Sub
End If
txtsira.Value = bak-----------------------burası yok pardon.
Next bak
If textbox1.Value = "" Then
Exit Sub
Else
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End If
End Sub

 

[alitolga2000]

Dediğinizi yaparak sorunu hallettim.
Teşekkürler
Elinize sağlık

İyi çalışmalar, Hayırlı geceler.

 

[Orion1]

Rica ederim.
İyi geceler.