userform üzerinde tektbox a veri çağırma

[cdroy1]

herkeze kolay gelsin

uzerformda kayıt düzenleme bölümümde combobox a dosyadan düzenlemem gereken listenin b sütunun çağırıyorum buraya kadar sorun yok fakat commonbuton(kayıtdüzenle) a bastığımda combobax taki isime göre altındaki 5tane tektbox a diğer sütunlardan verileri getiremedim,
sorun: commonbutona basınca veri tektbox a gelecek ben yanlış bilgiyi düzeltip diğer kaydet commonbutonuna bastığımda kaydecek

formu baya bi dolaştım birçok örneğe baktım farklı şekillerde olduğu için anladığım kadarıyla yapmaya çalıştım buraya kadar geldim burada takıldım kaldım yardım edebilirseniz çok menmun olurum örnek olsun diye bi dosya ekledim
kolay gelsin

 

[sender]

sıralı bi örnek yaptım. Sen bul ile kimi bulup ve hangi bölümleri çağırıp düzenlemek istiyorsan ona göre uyarlarsın. kolay gelsin.

 

[emrexcel123]

ek

arkadaşım eki inceler misin ...

 

[cdroy1]

teşekkürler sender arkadaşım eline sağlık çok güzel bi örnek oldu benim için işimi görüyor sağolasın kolay gelsin emre arkadaşım sanada teşekkür ediyorum sende sağol

 

[cdroy1]

selamlar

sayın sender hocam bi sorunum daha var benim gönderdiğim örnekte tek bir sayfa vardı fakat benim çalışma sayfam 10 sayfa

Private Sub CommandButton10_Click()
Dim bak As Range
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
TextBox42.Value = ActiveCell.Offset(0, -1).Value
TextBox22.Value = ActiveCell.Offset(0, 0).Value
TextBox23.Value = ActiveCell.Offset(0, 2).Value
TextBox24.Value = ActiveCell.Offset(0, 3).Value
TextBox25.Value = ActiveCell.Offset(0, 4).Value
TextBox26.Value = ActiveCell.Offset(0, 5).Value
TextBox27.Value = ActiveCell.Offset(0, 6).Value
TextBox28.Value = ActiveCell.Offset(0, 7).Value
TextBox29.Value = ActiveCell.Offset(0, 8).Value
TextBox30.Value = ActiveCell.Offset(0, 9).Value
Exit Sub
End If
Next bak
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub


bu koda liste isimli sayfayı tanımlamayı yapamadım nereye ne eklemem gerekiyor yardım edersen sevinirim kolay gelsin

 

[ocamsul]

bu koda liste isimli sayfayı tanımlamayı yapamadım nereye ne eklemem gerekiyor yardım edersen sevinirim kolay gelsin

Kodlarınızın başına ilgili sayfayı aşağıdaki gibi tanımlayınız.

Sheets("LISTE").Select

 

[emrexcel123]

kaydır yerine kaçıncı

arkadaşım burada kaydır fonksiyonu yerine kaçıncı formülünü kullansan daha iyi olur bence ayrıca sayfayı belirtirken hücre başına sheets("sayfa").cells(1,1) gibi ifade eklersen sorunun çözülür...

 

[sender]

Kodlarınızın başına ilgili sayfayı aşağıdaki gibi tanımlayınız.

Sheets("LISTE").Select

sayın emrexcel123 cevabı vermiş.

 

[sender]

NAsıl bir çalışma yapıyorsun bilmiyorum ama 10 sayfa dediğin çalımanda textboxlara karşılık gelecek veriler aynıysa Bi adet combobox ile sayfa etkinleştirmesi yapabilirsin. Combobxtan sayfayı seçer sonra bulma ve düzeltme işlemi yapabilirisn.