• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

listbox ta AddItem ile 10 dan fazla sutun sorunu

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
 
bkts34' Alıntı:
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
Genişletmek için tıkla ...

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.:cool:

DOSYAYI İNDİR

....
 
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 ?
 
bkts34' Alıntı:
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 ?
Genişletmek için tıkla ...

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.
 
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.
 
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

Kod: 
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
 
bydogannn67' Alı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
Genişletmek için tıkla ...
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)
Kod: 
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
Kod: 
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
 
Hocam aşağıdaki hata ekranını verdi

d32LvL.jpg
 
Merhaba
Kod: 
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.
Kod: 
If [COLOR="Red"]TextBox13 = "" Then[/COLOR]
deg1 = UCase(Replace(Replace(S1.Cells(sat, "D"), "ı", "I"), "i", "İ"))
deg2 = "İNADA ÇELİK"
Else
 
Son düzenleme:
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

nMg9Z1.png
 
Bendeki örneğinize göre sorunu bulamadım.
Yazdırma butonunda ki (CommandButton110) kodları eklermisiniz? İmkanı varsa örnek dosya eklerseniz daha iyi olur.
 
Orion1' Alıntı:
Ekli dosyayı inceleyiniz.:cool:
Kod: 
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
Genişletmek için tıkla ...

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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst