Çalışma Sayfasından UserForm üzerine veri alma

[acebeci]

Değerli arkadaşlar sorumu ekdeki dosyada anlatım ama kısaca bahsedeyim çalışma sayfasındaki verileri UserForm daki sıra no kısmına yazdığım rakama göre UserForm üzerine almak istiyorum.Bu konuda yardımcı olabilirseniz çok ama çok memnun olacağım.şimdiden teşekkürler

 

[İhsan Tank]

Değerli arkadaşlar sorumu ekdeki dosyada anlatım ama kısaca bahsedeyim çalışma sayfasındaki verileri UserForm daki sıra no kısmına yazdığım rakama göre UserForm üzerine almak istiyorum.Bu konuda yardımcı olabilirseniz çok ama çok memnun olacağım.şimdiden teşekkürler

eki inceler misiniz

 

[acebeci]

Siz bir harikasınız çok ama çok teşekkür ederim

 

[İhsan Tank]

Siz bir harikasınız çok ama çok teşekkür ederim

rica ederim
:yazici:

 

[erdem_emre]

Değerli arkadaşlar sorumu ekdeki dosyada anlatım ama kısaca bahsedeyim çalışma sayfasındaki verileri UserForm daki sıra no kısmına yazdığım rakama göre UserForm üzerine almak istiyorum.Bu konuda yardımcı olabilirseniz çok ama çok memnun olacağım.şimdiden teşekkürler

Bu kodu denermisiniz.

Private Sub TextBox16_Change()
If TextBox16.Text = "" Then
Exit Sub
End If
If ComboBox1.Value = "" Then
MsgBox "sayfa ismi yok"
Exit Sub
End If
sonsat = Worksheets(ComboBox1.Value).Cells(Rows.Count, "a").End(3).Row
If sonsat < Val(TextBox16.Text) Then
MsgBox "bu satırda bilgi yok"
Exit Sub
End If
sayfa_adi = ComboBox1.Value
sat = TextBox16.Text + 3
TextBox2.Value = Sheets(sayfa_adi).Cells(sat, "c").Value
TextBox1.Value = Sheets(sayfa_adi).Cells(sat, "b").Value
TextBox4.Value = Sheets(sayfa_adi).Cells(sat, "d").Value
TextBox5.Value = Sheets(sayfa_adi).Cells(sat, "e").Value
TextBox6.Value = Sheets(sayfa_adi).Cells(sat, "f").Value
TextBox7.Value = Sheets(sayfa_adi).Cells(sat, "g").Value
TextBox8.Value = Sheets(sayfa_adi).Cells(sat, "h").Value
TextBox9.Value = Sheets(sayfa_adi).Cells(sat, "ı").Value
TextBox10.Value = Sheets(sayfa_adi).Cells(sat, "j").Value
TextBox11.Value = Sheets(sayfa_adi).Cells(sat, "k").Value
TextBox12.Value = Sheets(sayfa_adi).Cells(sat, "l").Value
TextBox13.Value = Sheets(sayfa_adi).Cells(sat, "m").Value
TextBox14.Value = Sheets(sayfa_adi).Cells(sat, "n").Value
TextBox15.Value = Sheets(sayfa_adi).Cells(sat, "o").Value

End Sub

 

[acebeci]

Hepinize çok minnetdarım çok teşekkürler arkadaşalr