Skip to main content

AccessTr.neT


ComboBox 'a Veri çekme

ComboBox 'a Veri çekme

#3
Private Sub ComboBox6_Change()
Dim hucresay As Long
   With ComboBox6
       .ColumnCount = 2
       For hucresay = 1 To 10
           .AddItem Range("B2:B10").Cells(hucresay, 1).Value
           .List(.ListCount - 1, 1) = Range("C2:C10").Cells(hucresay, 1).Value
       Next hucresay
   End With
End Sub
Hata veriyor
[Resim: do.php?imgf=147158434589261.png]
Son Düzenleme: 19/08/2016, 08:26, Düzenleyen: ozkovlu29.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
ComboBox 'a Veri çekme - Yazar: ozkovlu29 - 18/08/2016, 17:05
Cvp: ComboBox 'a Veri çekme - Yazar: atoz112 - 18/08/2016, 20:47
Cvp: ComboBox 'a Veri çekme - Yazar: ozkovlu29 - 19/08/2016, 08:26
Cvp: ComboBox 'a Veri çekme - Yazar: atoz112 - 19/08/2016, 10:14
Cvp: ComboBox 'a Veri çekme - Yazar: ozkovlu29 - 19/08/2016, 10:36
Cvp: ComboBox 'a Veri çekme - Yazar: atoz112 - 19/08/2016, 13:33
Cvp: ComboBox 'a Veri çekme - Yazar: ozkovlu29 - 19/08/2016, 13:55
Cvp: ComboBox 'a Veri çekme - Yazar: ozkovlu29 - 19/08/2016, 15:11
Task