combobox veri yazmak içine

[by_forest]

slm iyiakşamlar:
comboboxlara veri nasıl yazılır:
içine alfabe-yada takımlar örneğin)
tsk şimdiden

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz nesneye üç türlü veri yüklemesi yapabilirsiniz.

RowSource metodu ile (en hızlısı budur)
AddItem metodu ile
Döngü metodu ile

Yüklemek istediğiniz verilerinizin Sayfa2 "A" sütununda olduğunu varsayarsak formunuzun kod bölümüne aşağıdaki kodu uygulayabilirsiniz.

ROWSOURCE METODU

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Sayfa2!A1:A" & [Sayfa2!A65536].End(3).Row
End Sub

Yada AddItem metodu ile hiç sayfadan veri almadan direk forma kod yazarak verileri yükleyebilirsiniz.

ADDITEM METODU

Private Sub UserForm_Initialize()
    With ComboBox1
        .Clear
        .AddItem "A"
        .AddItem "B"
        .AddItem "C"
        .AddItem "Ç"
        .AddItem "D"
        .AddItem "E"
        .AddItem "F"
        'Bu şekilde devam ediniz...
    End With
End Sub

Yine sayfaya gerek kalmadan döngü ile verileri ilgili nesneye yükleyebilirsiniz.

DÖNGÜ METODU

Private Sub UserForm_Initialize()
    Dim Harfler() As Variant, X As Byte
 
    'Siz Harfler dizisine dilediğiniz harfleri ekleyin.
    Harfler = Array("A", "B", "C", "Ç", "D", "E", "F")
 
    ComboBox1.Clear
 
    For X = 0 To UBound(Harfler)
        ComboBox1.AddItem Harfler(X)
    Next
End Sub

 

[by_forest]

Merhaba benim yazmak istediğim şunlar ama denedim olmadı
ÇZ TOMRUK
ÇZ MADEN DİREK
ÇZ TELDİREK
ÇZ SANAYİ
ÇZ KAGITLIK
ÇZ İBRELİ YAKACAK ODUN
ÇZ İBRELİ LİF YONGA
ÇK TOMRUK
ÇK MADEN DİREK
ÇK TELDİREK
ÇK SANAYİ
ÇK KAGITLIK
SD TOMRUK
SD MADEN DİREK
SD TELDİREK
SD SANAYİ
SD KAGITLIK

 

[İhsan Tank]

zip'in içindeki 3 dosyaya üç seçenekte eklenmiştir

 

[Korhan Ayhan]

Selamlar,

ADDITEM metodundaki tırnak işareti arasındaki harfleri silip kendi değerlerinizi yazınız.

Örnek;

.AddItem "ÇZ TOMRUK"

 

[by_forest]

Comboboxta kı verıyı texbox ayada ( texboxlara ) aktarma

Ektekı dosyada comboboxta cektımız yazıyı texboxlarada cıkmasını nasıl saglarız

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Gerçi siz formunuzun üzerinde 3 adet TextBox kullanmışsınız. Fakat detaylı açıklama yapmadığınız için sadece aşağıdaki kodu öneriyorum.

Private Sub ComboBox1_Change()
    TextBox1 = ComboBox1
End Sub

 

[by_forest]

evet dogru 3 tane textbox var combbobaxta olan veri 3 textbokta aynı anda cıkmasını saglamak amacım

 

[Korhan Ayhan]

Selamlar,

Bu durumda aşağıdaki kodu kullanabilirsiniz.

Private Sub ComboBox1_Change()
    TextBox1 = ComboBox1
    TextBox2 = ComboBox1
    TextBox3 = ComboBox1
End Sub

 

[İhsan Tank]

evet dogru 3 tane textbox var combbobaxta olan veri 3 textbokta aynı anda cıkmasını saglamak amacım

userform'un kod bölümüne

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1
TextBox2 = ComboBox1
TextBox3 = ComboBox1
End Sub

 

[mesudiye_052]

Selamlar;

Sayın Korhan Ayhan
Sayenizde çok şey öğreniyorum
sizin örneklere bakarak aşağıdaki kodu yapabildim teşekkürler

Private Sub UserForm_Initialize()
Dim dizi()
son = Range("A65536").End(xlUp).Row
ReDim dizi(son)
For i = 1 To UBound(dizi)
dizi(i) = Cells(i, 1).Value
ComboBox1.AddItem dizi(i)
Next
End Sub

bir sorumda
ComboBox1.AddItem(pvargitem:=0, pvargindex:=0) = 1
ifadesinde additem parantesi içindeki olayları anlamadım (pvargitem gibi..)
açıklık getirirseniz çok sevinirim

Saygılarla

 

[mesudiye_052]

Selamlar;

aşağıdaki gibi yanı 1 satır atlayarak comboya eklemek istiyorum
ama yapamadım
nasıl yapabiliriz.

Private Sub UserForm_Initialize()
Dim dizi
son = Range("A65536").End(xlUp).Row
ReDim dizi(son)
For i = 1 To UBound(dizi) Step 1
dizi(i) = Cells(i, 1).Value
ComboBox1.RowSource.Index(i) = "Sayfa1!A" & i & ""
Next
End Sub

Saygılar;

 

[mesudiye_052]

Selamlar
biraz işi kurcalayarak birşeyler yapmaya çalıştım

Option Base 1
Private Sub UserForm_Initialize()
Dim dizi(), diziler
son = Range("A65536").End(xlUp).Row
ReDim dizi(son)
For i = 1 To UBound(dizi)
    dizi(i) = Cells(i, 1)
    diziler = Array([A1].Value, [A2].Value, [A3].Value)
    ComboBox1.AddItem dizi(i)
    ComboBox2.AddItem Cells(i, 1)
    ComboBox3.AddItem Range("A" & i & ":" & "A" & i)
    ComboBox4.RowSource = "Sayfa1!A1:A" & son
    ComboBox5.AddItem
    ComboBox5.List(i - 1, 0) = dizi(i)
    ComboBox6.AddItem
    ComboBox6.List(i - 1, 0) = Cells(i, 1)
    ComboBox7.List = diziler
    ComboBox8.List = Array([A1].Value, [A2].Value, [A3].Value)
    ComboBox9.List = Array("Bölüm", "Matematik", "Fen")
Next
End Sub

Sayın arkadaşlardan Excel hücrelerden combobox ve diğer nesnelere veri aktarımı hakkında
bildiklerini paylaşırlarsa çok sevinirim.

Saygılarla;

 

[mesudiye_052]

Selamlar

arkadaşlar biraz kurcaladım ve öğrendim ve kodu gönderiyorum

Dim sat As Long, sut As Byte
Private Sub UserForm_Initialize()

'1.Yöntem
ListBox1.ColumnCount = 2
ListBox1.RowSource = "Sayfa1!A1:C20"

'2.Yöntem
ListBox2.ColumnCount = 2
ListBox2.List = Sheets(1).Range("A1:C20").Value

'3.Yöntem
ListBox3.ColumnCount = 2
ListBox3.List = Array([A1].Value, "Bölüm", "Matematik", "Fen")

'4.Yöntem
ListBox4.ColumnCount = 2
For i = 1 To 20
    For x = 1 To 2
        ListBox4.AddItem Cells(i, x)
    Next
Next

'5.Yöntem
ListBox5.ColumnCount = 2
For i = 1 To 20
    For x = 1 To 2
        ListBox5.AddItem
        ListBox5.List(i - 1, x - 1) = Cells(i, x)
    Next
Next

'6.Yöntem
Satson = Cells(65536, "A").End(xlUp).Row
Sutson = Cells(1, "IV").End(xlToLeft).Column
ReDim dizi(1 To Satson, 1 To Sutson)
ListBox6.ColumnCount = UBound(dizi, 2)
For sat = 1 To UBound(dizi, 1)
    For sut = 1 To UBound(dizi, 2)
        dizi(sat, sut) = Cells(sat, sut)
    Next sut
Next sat
ListBox6.Clear
ListBox6.List = dizi
Erase dizi

'7.Yöntem
ListBox7.ColumnCount = 2
For i = 1 To 20
    For x = 1 To 2
        ListBox7.AddItem
        ListBox7.Column(x - 1, i - 1) = Cells(i, x)
    Next
Next

'8.Yöntem
Satson = Cells(65536, "A").End(xlUp).Row
Sutson = Cells(1, "IV").End(xlToLeft).Column
ReDim dizi(1 To Sutson, 1 To Satson)
ListBox8.ColumnCount = UBound(dizi, 1)
For sat = 1 To UBound(dizi, 2)
    For sut = 1 To UBound(dizi, 1)
        dizi(sut, sat) = Cells(sat, sut)
    Next sut
Next sat
ListBox8.Clear
ListBox8.Column = dizi
Erase dizi

End Sub

Saygılarla;