veriler comboboxa gelmiyor

[ahmett46]

Listbox taki isme tıkladığımda veriler boxlara gelmiyor.Ne yapmalıyım. Dosya ektedir. Teşekkürler..

 

[iaydin20]

kodu aşağıdaki gibi düzeltirseniz olur...

Private Sub ListBox1_Click()
On Error Resume Next
    Set SATIR = [veri!B:B].Find(ListBox1, LookAt:=xlWhole)
    If Not SATIR Is Nothing Then
    Cells(SATIR.Row, 2).Select
    sil.Enabled = True
    degistirguncelle.Enabled = True
    kayıt.Enabled = False
    ComboBox2.SetFocus
    End If

A.Value = ActiveCell.Offset(0, -1).Value
C.Value = ActiveCell.Offset(0, 1).Value
D.Value = ActiveCell.Offset(0, 2).Value
E.Value = ActiveCell.Offset(0, 3).Value
F.Value = ActiveCell.Offset(0, 4).Value
G.Value = ActiveCell.Offset(0, 5).Value
H.Value = ActiveCell.Offset(0, 6).Value
I.Value = ActiveCell.Offset(0, 7).Value
J.Value = ActiveCell.Offset(0, 8).Value
K.Value = ActiveCell.Offset(0, 9).Value
L.Value = ActiveCell.Offset(0, 10).Value
M.Value = ActiveCell.Offset(0, 11).Value
N.Value = ActiveCell.Offset(0, 12).Value
O.Value = ActiveCell.Offset(0, 13).Value
P.Value = ActiveCell.Offset(0, 14).Value
end sub

 

[ahmett46]

Tşk. Üstadım.

 

[ahmett46]

Üstadım veri sayfasına kayıt yapıyorum. combo sayfasında da hesap yapmak amacıyla burdaki bilgileri combo sayfasına bir tuşla gönderiyorum.
On Error Resume Next
Sheets("combo").Select
Range("C1").Value = B.Text
Range("C2").Value = E.Text
Range("C3").Value = F.Text
Range("C4").Value = G.Text
Range("C5").Value = H.Text
Range("C6").Value = I.Text
Range("C7").Value = J.Text
Range("C8").Value = K.Text
Range("C9").Value = L.Text
Range("C10").Value = M.Text
Range("C11").Value = N.Text
Range("C12").Value = O.Text
Range("C13").Value = P.Text kodlarıyla gönderiyorum.

Listboxtan başka isim seçtiğimde en son combo sayfasında işlem yapıldığı için comboboxlara combo sayfasındaki bilgiler geliyor. Listboxsa tıkladığımda veri sayfası gelebilir mi? Teşekkürler..

Ha bu arada

Geçti istemem gelmeni
Yokluğunda buldum seni
Bırak vehmimde gölgeni
Gelme artık neye yarar..

 

[iaydin20]

anladığım kadarıyla aşağıdaki kod işini görür...
şiirin devamı içinde teşekkür ederim ancak daha 2.dörtlük kısmına gelemedim..

Private Sub ListBox1_Click()
Sheets("veri").Select

 

[ahmett46]

Slm Arkadaşlar
1. mesajdaki dosyada güncelleme kodlarında hata var galiba. Nasıl düzeltebilirim. Teşekkürler..