listbox ta AddItem ile 10 dan fazla sutun sorunu

[bkts34]

Sayın hocam link aşağıdaki gibi buyrun,
Birde ben textbox12 ye satır satır işlem yapabilirmiyim ? yani diyelim bir kaç madde yazıcam bu textboxa 1. maddeyi yazınca enter tıklayınca bir alt satıra inse ben 2 maddeyi yazsam mesela bu mümkünmü ? şuan mevcut durumda yazı yazdığım satır tamamen dolmadan bir alta inemiyorum.
ilginize çok teşekkür ederim kolay gelsin.

http://s6.dosya.tc/server6/s5gblf/NUMUNE.rar.html

 

[magnet2014]

Estafurullah hocam.
İyi çalışmalar.

Sayın Orion

Ben de bir konu açtım ancak cevaplayan olmadı User form kullanarak veri girişi isminde Rica etsem Yardımcı olabilir misiniz?

Teşekkürler

 

[Orion1]

Sayın hocam link aşağıdaki gibi buyrun,
Birde ben textbox12 ye satır satır işlem yapabilirmiyim ? yani diyelim bir kaç madde yazıcam bu textboxa 1. maddeyi yazınca enter tıklayınca bir alt satıra inse ben 2 maddeyi yazsam mesela bu mümkünmü ? şuan mevcut durumda yazı yazdığım satır tamamen dolmadan bir alta inemiyorum.
ilginize çok teşekkür ederim kolay gelsin.

http://s6.dosya.tc/server6/s5gblf/NUMUNE.rar.html

Ben userformun initialize olayına combobox3 için yaptım.
Diğerleri için ise siz yapın.
textbox12 ye alt satıra geçmek için ise ctrl + enter tuşlarına birlikte basınız.
Dosya linki aşağıdadır.

DOSYAYI İNDİR

....

 

[bkts34]

Hocam siz yaptiysaniz sorun yoktur ellerinize saglik ben uyarlarim digerlerine ancak yarin bakabilirim ama simdiden tesekkur ederim ben hocam bu arada benim userform sizde acilirken hata verdimi ? Ben userformu bur kez aciyorum ikinciye acarken degisken belirtin gibi bir hata veriyor neden olabilir ?

 

[Orion1]

Hocam siz yaptiysaniz sorun yoktur ellerinize saglik ben uyarlarim digerlerine ancak yarin bakabilirim ama simdiden tesekkur ederim ben hocam bu arada benim userform sizde acilirken hata verdimi ? Ben userformu bur kez aciyorum ikinciye acarken degisken belirtin gibi bir hata veriyor neden olabilir ?

Userformun initialize olayında bir prosedürü çalıştırmak istemişsiniz.
O satırı devre dışı bırakınca programınız çalıştı.Sanırım sıralama ve auto filter yapmaya çalışan bir prosedür idi.

 

[bkts34]

Aynen hocam, bende buldum hallettim, emeklerinize sağlık, çok büyük yardımınız oldu bana, başarılar dilerim kolay gelsin.

 

[bkts34]

Sayın Orion

Ben de bir konu açtım ancak cevaplayan olmadı User form kullanarak veri girişi isminde Rica etsem Yardımcı olabilir misiniz?

Teşekkürler

Ben bir dosya yaptım forumdaki konunuza linki ekledim, bi bakın isterseniz.

 

[bydogannn67]

merhabalar,

bende dosyama uyarlamaya çalıştım ama beceremedım listboxtan verı sectığımde textbox'lara verı gondermem lazım nasıl yapabılırım

Private Sub ListBox1_Click()
TextBox1 = ListBox1.Column(0)
TextBox2 = ListBox1.Column(3)
TextBox8 = ListBox1.Column(4)
TextBox9 = ListBox1.Column(9)
TextBox27 = ListBox1.Column(5)
TextBox28 = ListBox1.Column(7)
TextBox29 = ListBox1.Column(8)
TextBox10 = ListBox1.Column(10)
TextBox11 = ListBox1.Column(11)
TextBox12 = ListBox1.Column(12)

End Sub

Private Sub TextBox13_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String
Set S1 = Sheets("LİSTE")
With ListBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "140,50,0,0,0,0,0"

For sat = 2 To S1.Cells(65536, "b").End(xlUp).Row
If TextBox13 = "" Then
deg1 = UCase(Replace(Replace(S1.Cells(sat, "D"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace("İNADA ÇELİK", "ı", "I"), "i", "İ"))
Else
deg1 = UCase(Replace(Replace(S1.Cells(sat, "B"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(TextBox13, "ı", "I"), "i", "İ"))
End If
If deg1 Like "*" & deg2 & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = S1.Cells(sat, "b")
ListBox1.List(s, 1) = S1.Cells(sat, "c")
ListBox1.List(s, 2) = S1.Cells(sat, "D")
ListBox1.List(s, 3) = S1.Cells(sat, "E")
ListBox1.List(s, 4) = S1.Cells(sat, "F")
ListBox1.List(s, 5) = S1.Cells(sat, "G")
ListBox1.List(s, 6) = S1.Cells(sat, "H")
ListBox1.List(s, 7) = S1.Cells(sat, "I")
ListBox1.List(s, 8) = S1.Cells(sat, "J")
ListBox1.List(s, 9) = S1.Cells(sat, "K")
ListBox1.List(s, 10) = S1.Cells(sat, "L")
ListBox1.List(s, 11) = S1.Cells(sat, "M")
ListBox1.List(s, 12) = S1.Cells(sat, "N")
s = s + 1
End If: Next
End With
End Sub

 

[PLİNT]

merhabalar,

bende dosyama uyarlamaya çalıştım ama beceremedım listboxtan verı sectığımde textbox'lara verı gondermem lazım nasıl yapabılırım

Merhaba
Konudaki kodları; sizin kodlarınıza aşağıdaki gibi ekleyebilirsiniz.
(Sizin "Listbox1_click" altındaki kodlar doğru görünüyor o şekilde deneyin)

Private [COLOR="Blue"]Sub UserForm_Initialize[/COLOR]()
With ListBox1
.ColumnCount = 14
.ColumnWidths = "30,30,30,30,30,30,30,30,30,30,30,30,30,30"
End With

End Sub

Private Sub Textbox13_Change()
Dim sat, s, x, satır As Integer
Dim deg1, deg2 As String
Dim myarr As Variant
Set S1 = Sheets("LİSTE")
ListBox1.Clear
ReDim myarr(1 To [b65536].End(3).Row - 1, 1 To 15)
satır = 1
For sat = 2 To S1.Cells(65536, "b").End(xlUp).Row
If TextBox13 = "" Then
deg1 = UCase(Replace(Replace(S1.Cells(sat, "D"), "ı", "I"), "i", "İ"))
deg2 = "İNADA ÇELİK"
Else
deg1 = UCase(Replace(Replace(S1.Cells(sat, "B"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(TextBox13, "ı", "I"), "i", "İ"))
End If
If deg1 Like deg2 & "*" Then
For x = 1 To 14
myarr(satır, x) = S1.Cells(sat, x)
Next
satır = satır + 1
s = s + 1
End If: Next
If satır <> Empty Then ListBox1.List = myarr

End Sub

 

[bydogannn67]

Hocam aşağıdaki hata ekranını verdi

 

[PLİNT]

Merhaba

Private Sub TextBox26_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String
Set S1 = Sheets("LİSTE")
With ListBox2
.Clear
'...............................
[COLOR="Red"].ColumnCount = 2
.ColumnWidths = "140,50,0,0,0,0,0"[/COLOR]
'...................................

Textbox26 da bulunan bu ayar gibi Listbox1 için başka bir yerde varsa o yüzdendir.
Ek dosyadaki gibi form açılışında olması yeterlidir

Dosyadaki form sizin dosyanızdaki (yukarıdaki resim)form5
http://s6.dosya.tc/server6/s8onwe/DOGAN_BEY.zip.html

Sizin mesajınızda eklediğiniz kodlara göre;
Form açılırken liste boş olacak "arama" ile dolacak,
Textbox13 boşaldığında sadece "B" sütununda "İ.ÇELİK" bulunan satırlar alınacak.

If [COLOR="Red"]TextBox13 = "" Then[/COLOR]
deg1 = UCase(Replace(Replace(S1.Cells(sat, "D"), "ı", "I"), "i", "İ"))
deg2 = "İNADA ÇELİK"
Else

 

[bydogannn67]

hocam ilgili alanları düzenlediğimde formda sıkıntı yok istediğim verileri listboxta görüntülüyor ve verileri textboxa aktarabılıyorum

fakat yazdır dedığımde ekrandakı hatayı veriyo

 

[PLİNT]

Bendeki örneğinize göre sorunu bulamadım.
Yazdırma butonunda ki (CommandButton110) kodları eklermisiniz? İmkanı varsa örnek dosya eklerseniz daha iyi olur.

 

[Gkhnozn]

Ekli dosyayı inceleyiniz.

satır = 1
ReDim myarr(1 To [b65536].End(3).Row - 1, 1 To 11)
For X = 2 To [b65536].End(3).Row
    myarr(satır, 1) = Range("c" & X)
     myarr(satır, 2) = Range("B" & X)
     myarr(satır, 3) = Range("d" & X)
     myarr(satır, 4) = Range("e" & X)
     myarr(satır, 5) = Range("G" & X)
     myarr(satır, 6) = Range("H" & X)
     myarr(satır, 7) = Range("I" & X)
     myarr(satır, 8) = Range("J" & X)
     myarr(satır, 9) = Range("k" & X)
     myarr(satır, 10) = Range("J" & X) - Range("K" & X)
     myarr(satır, 11) = Range("L" & X)
    satır = satır + 1
Next
ListBox1.List = myarr

Hocam merhaba bu kodunuzu gördüm çok güzel çalışıyor fakat bunu Veri sayfası icerisinde g sütununda bulunan tarihlere gore filtrelemek istersem nasil yapacagim?
Tarihleri textbox1 ve textbox2 ile gireceğim hocam.
Teşekkür ederim