ComBobox'a gelen verilerin başka hücreye yazdırılması

[İsmail Küçükşengün]

Merhabalar;

Ekteki çalışmamda da açıklandığı gibi, Combobox.la seçilerin verilerin aynı sayfada başka hücrelere yazdırılması hususunda yardımlarınıza şimdiden teşekkürlerimle.

 

[algil]

Sn kucuksengun

Amatörce bir kod ama aşağıdaki kod işinizi görebilir.

Private Sub adi_Change()
sat = [A1000].End(3).Row
Cells(3, "h") = ""
Cells(3, "I") = ""
If adi = "Tümü" Then
    For i = 2 To sat
    asd = asdf & vbLf & Cells(i, "a")
    asde = asdfg & vbLf & Cells(i, "b")
    asdf = asd
    asdfg = asde
    Next i
Cells(3, "h") = asdf
Cells(3, "I") = asdfg
Else
Cells(3, "h") = adi
ssa = [veritabani!a1:a65536].Find(adi).Row
Cells(3, "I") = Cells(ssa, "b")
End If
End Sub

 

[İsmail Küçükşengün]

Sayın algil;

Verdiğiniz kod sorunumu yarı yarıya çözdü.
Fakat Tümünü seçtiğimizde, A3, A4 ve A5 deki isimlerin tamamını H3 hücresine aldırabilirsek çok güzel olacak.

Teşekkür ve selamlarımla.

 

[algil]

Sn kucuksengun

Aşağıdaki örneği inceleyiniz.

 

[İsmail Küçükşengün]

Sayın algil;

Teşekkürlerimi sunuyorum.

 

[İsmail Küçükşengün]

Sayın algil;

Örneğinizi çalışmama uygulamak istedim.
Fakat combodan seçtiğim kişinin adres bilgilerini getiremedim.

Örnek dosyam ekte.

Kodları düzenleyebilirseniz memnun olurum.

Selam ve saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Örnek olarak eklediğiniz dosyaya göre kullanmış olduğunuz kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub adi_Change()
    Cells(44, "E") = ""
    Cells(44, "F") = ""

    If adi.ListIndex = 0 Then
    For X = 32 To 35
    If İSİM2 = "" Then
    İSİM1 = Cells(X, "B")
    İSİM2 = İSİM1
    Else
    İSİM1 = İSİM2 & vbLf & Cells(X, "B")
    İSİM2 = İSİM1
    End If
    Next
    Cells(44, "E") = İSİM2
    Cells(44, "F") = Cells(adi.ListIndex + 31, "C")
    Else
    Cells(44, "E") = Cells(adi.ListIndex + 31, "B")
    Cells(44, "F") = Cells(adi.ListIndex + 31, "C")
    End If
End Sub

 

[İsmail Küçükşengün]

Sayın COST CONTROL;

Teşekkür ediyorum.
Selam ve saygılarımla.