verilerin bir kez TextBox1 nesnesine gelsin

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; sitede şöyle bir kod buldum,
Private Sub UserForm_Initialize()
Dim AllCells As Range, Cell As Range
Dim ciftolmayan As New Collection
Dim Item
' A1:A105 arası öğeleri yükler
Set AllCells = Range("A1:A105")

On Error Resume Next
For Each Cell In AllCells
ciftolmayan.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
' Benzersiz öğeleri Combobox'a ekler
For Each Item In ciftolmayan
UserForm1.ComboBox1.AddItem Item
Next Item
UserForm1.Show
End Sub
Bu kod ile sayfanın a1:a105 aralığındaki verileri bir kez ComboBoxa alıyor, ama ben bunu TextBox1'e almasını istiyorum nasıl düzelteyim.
Teşekkürler.

 

[asi_kral]

Merhaba arkadaşlar; sitede şöyle bir kod buldum,
Private Sub UserForm_Initialize()
Dim AllCells As Range, Cell As Range
Dim ciftolmayan As New Collection
Dim Item
' A1:A105 arası öğeleri yükler
Set AllCells = Range("A1:A105")

On Error Resume Next
For Each Cell In AllCells
ciftolmayan.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
' Benzersiz öğeleri Combobox'a ekler
For Each Item In ciftolmayan
UserForm1.ComboBox1.AddItem Item
Next Item
UserForm1.Show
End Sub
Bu kod ile sayfanın a1:a105 aralığındaki verileri bir kez ComboBoxa alıyor, ama ben bunu TextBox1'e almasını istiyorum nasıl düzelteyim.
Teşekkürler.

Textbox'un liste özelliği mevcut değil bunu yapamazsınız.

 

[mancubus]

TextBox'lar bir parça metni tutmak içindir. tüm verileri bir anda TextBox'a yükleyerek bir sonuca ulaşmak zor.

yine de....

Private Sub UserForm_Initialize()

For i = 1 To 105
    metin = metin & Cells(i, 1) & " | "
Next

metin = Left(metin, Len(metin) - 3)

TextBox1.Value = metin

End Sub

bunun yerine Mesaj Kutusunda göstermeyi öneririm.
Mesaj kutuları kodun çalışmasını durdururlar. Devam etmek için OK tıklamak gerekir.

Private Sub UserForm_Initialize()

For i = 1 To 105
    metin = metin & Cells(i, 1) & " | "
Next

metin = Left(metin, Len(metin) - 3)

MsgBox metin

End Sub

 

[Hacı Bayram ÖZKAN]

TextBox'lar bir parça metni tutmak içindir. tüm verileri bir anda TextBox'a yükleyerek bir sonuca ulaşmak zor.

yine de....

Private Sub UserForm_Initialize()

For i = 1 To 105
    metin = metin & Cells(i, 1) & " | "
Next

metin = Left(metin, Len(metin) - 3)

TextBox1.Value = metin

End Sub

bunun yerine Mesaj Kutusunda göstermeyi öneririm.
Mesaj kutuları kodun çalışmasını durdururlar. Devam etmek için OK tıklamak gerekir.

Private Sub UserForm_Initialize()

For i = 1 To 105
    metin = metin & Cells(i, 1) & " | "
Next

metin = Left(metin, Len(metin) - 3)

MsgBox metin

End Sub

Teşekkürler ederim, o zaman ekli dosyamdaki ComboBox ve TextBoxlar için kod yazarmısınız, bu şekilde yapayım.

 

[mancubus]

tabii sitede ihtiyaç duyanlara destek "dosya bu, gereken kodları yazın" şeklindeki taleplere yanıt vermek şeklinde olmuyor.
bunu profesyonel hizmet sunan firmalardan veya kendi şirketimizdeki ilgili görevlilerden talep etmek daha uygun.

ben şöyle destek olaya çalışayım.
elinizde comboboxlar için kod varmış. yukarıda eklemişsiniz. onu kullanabilirsiniz.

aşağıdaki kodu ilgili kontrollerin isimlerini değiştirerek çoğaltmak mümkün:

Private Sub ComboBox1_Change()
    TextBox1.Value = ComboBox1.Value
End Sub

Private Sub ComboBox2_Change()
    TextBox2.Value = ComboBox2.Value
End Sub

vs
vs

 

[Hacı Bayram ÖZKAN]

Merhaba, elbetteki biliyorum, bu sitenin bir şirket olmadığını, şunu belirtmek istiyiorum, sizin tabirinizle "Yazın" sözcügünü kullanmadım, nezaket gereği "Yazar mısınız?" diyerek bir rica bir şükrandan, minnetten bahsetmeye çalışmıştım. İyi günler.

 

[mancubus]

anlaşamadık.

nezaketle ilgili sıkıntı olsa idi, yahut "işimi görsünler demiş" diye düşünse idim konuya cevap yazmazdım.

zaten soru da cevaplanmış durumda.

 

[Hacı Bayram ÖZKAN]

Ne bileyim, biraz üzüldüm sanki hata yaptım gibi algıladım. Dua ile kalın.

 

[mancubus]

şunu anlatmaya çalışıyorum.

mevcut örneklerden hareketle kodlarımızı kendimiz yazalım. takıldığımız yerde yardım talep edelim.