ComboBox veri çekme hatası

[mesut turan]

Arkadaşlar merhabalar UserForm da comboboxlardan veri çekiliyorum. Fakat yemlerin ADF ve NDF değerleri gelmiyor. diğerleri geliyor sorun nerede acaba?

Private Sub UserForm_Initialize()

Aktar1
For i = 2 To 5
Controls("cb_kabayem" & i).List = cb_kabayem1.List
Controls("cb_kesifyem" & i).List = cb_kesifyem1.List
Next i

End Sub
Sub Aktar1()
On Error Resume Next
cb_kabayem1.Clear

Dim x As Integer
With Sheets("Yem Listesi")
For x = 2 To .Range("B5000").End(xlUp).Row
If .Range("B" & x) <> Empty Then
cb_kabayem1.AddItem (.Range("B" & x))
cb_kabayem1.List(cb_kabayem1.ListCount - 1, 4) = (.Range("E" & x))
cb_kabayem1.List(cb_kabayem1.ListCount - 1, 7) = (.Range("H" & x))
cb_kabayem1.List(cb_kabayem1.ListCount - 1, 8) = (.Range("I" & x))
cb_kabayem1.List(cb_kabayem1.ListCount - 1, 9) = (.Range("J" & x))
cb_kabayem1.List(cb_kabayem1.ListCount - 1, 10) = (.Range("K" & x))
cb_kabayem1.List(cb_kabayem1.ListCount - 1, 11) = (.Range("L" & x))
End If

If .Range("C" & x) <> Empty Then
cb_kesifyem1.AddItem (.Range("C" & x))
cb_kesifyem1.List(cb_kesifyem1.ListCount - 1, 3) = (.Range("E" & x))
cb_kesifyem1.List(cb_kesifyem1.ListCount - 1, 6) = (.Range("H" & x))
cb_kesifyem1.List(cb_kesifyem1.ListCount - 1, 7) = (.Range("I" & x))
cb_kesifyem1.List(cb_kesifyem1.ListCount - 1, 8) = (.Range("J" & x))
cb_kesifyem1.List(cb_kesifyem1.ListCount - 1, 9) = (.Range("K" & x))
cb_kesifyem1.List(cb_kesifyem1.ListCount - 1, 10) = (.Range("L" & x))
End If
Next
End With
End Sub
Sub Aktar2()
On Error Resume Next
For i = 1 To 5
If Controls("cb_kabayem" & i) = Empty Then
Controls("txt_kabafiyat" & i) = Empty
Controls("txt_kabakm" & i) = Empty
Controls("txt_kabahp" & i) = Empty
Controls("txt_kabaenerji" & i) = Empty
Controls("txt_kabaadf" & i) = Empty
Controls("txt_kabandf" & i) = Empty
Else
Controls("txt_kabafiyat" & i) = Controls("cb_kabayem" & i).Column(4)
Controls("txt_kabakm" & i) = Controls("cb_kabayem" & i).Column(7)
Controls("txt_kabahp" & i) = Controls("cb_kabayem" & i).Column(8)
Controls("txt_kabaenerji" & i) = Controls("cb_kabayem" & i).Column(9)
Controls("txt_kabaadf" & i) = Controls("cb_kabayem" & i).Column(10)
Controls("txt_kabandf" & i) = Controls("cb_kabayem" & i).Column(11)
End If
If Controls("cb_kesifyem" & i) = Empty Then
Controls("txt_kesiffiyat" & i) = Empty
Controls("txt_kesifkm" & i) = Empty
Controls("txt_kesifhp" & i) = Empty
Controls("txt_kesifenerji" & i) = Empty
Controls("txt_kesifadf" & i) = Empty
Controls("txt_kesifndf" & i) = Empty
Else
Controls("txt_kesiffiyat" & i) = Controls("cb_kesifyem" & i).Column(3)
Controls("txt_kesifkm" & i) = Controls("cb_kesifyem" & i).Column(6)
Controls("txt_kesifhp" & i) = Controls("cb_kesifyem" & i).Column(7)
Controls("txt_kesifenerji" & i) = Controls("cb_kesifyem" & i).Column(8)
Controls("txt_kesifadf" & i) = Controls("cb_kesifyem" & i).Column(9)
Controls("txt_kesifndf" & i) = Controls("cb_kesifyem" & i).Column(10)
End If
Next i
End Sub

Private Sub cb_kabayem1_Change(): Aktar2: End Sub
Private Sub cb_kabayem2_Change(): Aktar2: End Sub
Private Sub cb_kabayem3_Change(): Aktar2: End Sub
Private Sub cb_kabayem4_Change(): Aktar2: End Sub
Private Sub cb_kabayem5_Change(): Aktar2: End Sub
Private Sub cb_kesifyem1_Change(): Aktar2: End Sub
Private Sub cb_kesifyem2_Change(): Aktar2: End Sub
Private Sub cb_kesifyem3_Change(): Aktar2: End Sub
Private Sub cb_kesifyem4_Change(): Aktar2: End Sub
Private Sub cb_kesifyem5_Change(): Aktar2: End Sub

 

[HücrelereFısıldayanAdam]

On Error Resume Next i kaldırıp tekrar çalıştırın, "Yem Listesinde" yanlış yerden veri almaya çalışıyor olabilir.

 

[mesut turan]

On Error Resume Next i kaldırıp tekrar çalıştırın, "Yem Listesinde" yanlış yerden veri almaya çalışıyor olabilir.

Hocam kaldırınca komple hata veriyor. Şu haliyle verileri çekiyor doğru bir şekilde sadece 2 veriyi alamıyor kodlarda bir sıkıntı göremedim anlam da veremedim

 

[HücrelereFısıldayanAdam]

İşte bir yerde sorun var ki hata veriyor hocam, verinizi yüklemeye çalışın, alınan hatanın satırına da bakın, yardımcı olan çıkacaktır.