Çalışmayan kod

[rekkezum]

Selamlar,

Evde çalışan kod işyerinde çalışmadı sebebi ne olabilir?

Private Sub CommandButton2_Click()
Set bul = Range("f9:f65536").Find(ComboBox3, lookat:=xlWhole, LookIn:=xlValues)
If Not bul Is Nothing Then
TextBox2.Text = Cells(bul.Row, "e").Value
TextBox3.Text = Cells(bul.Row, "b").Value
TextBox4.Text = Cells(bul.Row, "g").Value
TextBox5.Text = Cells(bul.Row, "c").Value
TextBox6.Text = Cells(bul.Row, "d").Value
TextBox7.Text = Cells(bul.Row, "h").Value
TextBox8.Text = Cells(bul.Row, "j").Value
TextBox9.Text = Cells(bul.Row, "m").Value
TextBox10.Text = Cells(bul.Row, "n").Value
TextBox11.Text = Cells(bul.Row, "o").Value
TextBox12.Text = Cells(bul.Row, "p").Value
ComboBox1.Text = Cells(bul.Row, "k").Value
ComboBox2.Text = Cells(bul.Row, "l").Value
Else
MsgBox "Aradığınız kayıt bulunamadı!"
End If
End Sub

 

[zafer]

Merhaba

Hata veriyorsa hata kodunu buraya yazabilirmisiniz.
Ayrıca Büyük küçük harf konumlarınada bakınız karakterler aynı olmalı.

 

[rekkezum]

İlgin için öncelikle teşekkür ederim

Compile error
Can't find project ot library uyarısı veriyor. Tamam dedikten sonra commandbutton7 satırı sarı zeminli ve sadece bul= altı da
mavi ye boyanıyor. Dosyayı eklememi istermisin hocam.

 

[zafer]

Merhaba

VBA düzenleyicisinde tools /references kısmında missing ile başlayan yer varsa işaretini kaldırınız.

 

[zafer]

Merhaba

Ayrıca Çok fazla kdo yazmak yerine Texbox'larınızı Sütünlara göre ayarlarsanız döngü ile bulabilirsiniz.

Aşağıdaki kodlarda döngü ilk döndüğünde Textbox1'e A (sütun numarası 1)sütünundaki bulduğu veriyi yazar ,ikinci dönüşünde Textbox2'ye B sütünundaki veriyi yazar
12 ye kadar döner.

For X = 1 To 12
With UserForm1
.Controls("textbox" & X).Text = Cells(bul.Row, X).Value
End With
Next

Bu konuyu incelemenizi öneririm.

Controls yazıp aratın çeşitli işinize yarayacak bilgilere ulaşırsınız

 

[rekkezum]

Hocam halettim de şöyle ufak bir sorun kaldı,

Üstadım, bu değiştir düğmesi yapmıştım ben bazı hücrelerdeki verileri değiştirip kaydedeceğim. Lakin bazı verilerin hiç silinmesini istemediğim için onları kilitliyorum. Böyle olunca da userform çalışmıyor. Bu çözülebilecek bir sorunmu ?