userform ile sayfa 1 den sayfa 2 yi çağırma

[ojibu]

ekteki programda data sayfasında çağırmada hata yapıyor. isimleri alıyor fakat bilgilerini bul muyor. yardımlarınızı bekliyorum.

 

[Mahmut Kök]

formu DATA sayfasından açmanız veya hücreleri DATA sayfasına göre ayarlamanız gerekir. Şu haliyle, formu açtığınız sayfanın hücrelerine göre işlem yapıyor.

 

[ojibu]

bende onu istiyorum hücreler nasıl duzeltilir

 

[Levent Menteşoğlu]

Bul butonundaki kodu aşağıdaki ile değiştirin.

Private Sub CommandButton3_Click()
If ComboBox1.Text = "" Then
MsgBox "lütfen adınızı soyadınızı bulunuz!!!"
Exit Sub
End If
sat = ComboBox1.ListIndex + 2
For a = 2 To 15
Controls("textbox" & a) = Sheets("data").Cells(sat, a + 1)
Next
End Sub

Ayrıca userform kapatıldığında saatin durması içinde aşağıdaki kodu userformun kod sayfasına kopyalayın.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub

 

[Fuat Şirin]

dosya ekte

bu şekilde mi istiyorsun ben mi yanlış anladım
başka problem varsa yardımcı olurum

 

[ojibu]

teşekkür

leventm teşekkürler

 

[ojibu]

bul tamam

buna göre sil değiştri kaydet değişmesi mi gerekiyor