userform sonrakine geç

[yok_06]

Merhaba yaptığım bir çalışma ile alakalı bir sorunum var

kaydet güncelle dediğimde sayfanın en sonuna gidiyor
sonraki kayda geçmiyor id olarak b sutununu kullanıyorum
ve kaydet dediğimde açık olanın ardındakini geçmesini istiyorum

ve combobox'ta boş olan satırları göstermemem için ne yapmalıyım.

yardımlarınızı bekliyorum teşekkürler

http://s3.dosya.tc/server9/4l7wjc/deneme.xlsm.rar.html

 

[PLİNT]

Merhaba
İstediğiniz "Combobox" taki sıra ile ilgili ise; ekteki dosyayı bir deneyiniz.
http://s2.dosya.tc/server3/q6tt1i/deneme.xlsm.zip.html

 

[yok_06]

öncelikle teşekkür ederim

 

[vardar07]

Sizdeki kodlar ile aşağıdakileri değiştirip deneyiniz.

Dim hücre
Private Sub adisoyadi_Change()
hücre = adisoyadi.ListIndex + 2
With Sheets("Sayfa1")
If StrConv(.Cells(hücre, 1).Value, vbUpperCase) = StrConv(adisoyadi.Value, vbUpperCase) Then
   adisoyadi = .Cells(hücre, 1).Value
   asilalacak = .Cells(hücre, 2).Value
   toplamodeme = .Cells(hücre, 3).Value
   bakiye = .Cells(hücre, 4).Value
End If
End With
End Sub
Private Sub Güncelle_Click()
If adisoyadi = "" Or asilalacak = "" Or toplamodeme = "" Or bakiye = "" Then MsgBox " Güncellenecek veri eksik": Exit Sub
With Sheets("Sayfa1")
.Cells(hücre, 2).Value = asilalacak.Value
.Cells(hücre, 3).Value = toplamodeme.Value
.Cells(hücre, 4).Value = bakiye.Value
End With
Call Temizle_Click
End Sub
Private Sub Temizle_Click()
adisoyadi.Text = ""
bakiye.Text = ""
asilalacak.Text = ""
toplamodeme.Text = ""
End Sub
Private Sub Kapat_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
son = Sheets("Sayfa1").Range("A" & Rows.Count).End(3).Row
adisoyadi.RowSource = "sayfa1!A2: A" & son
End Sub