Listboxlara veri alma

[ferhatgurbuz]

Ekteki dosya üzerinde açıklama yaptım.Yardımcı olursanız sevinirim.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[alpmus]

Dosya ektedir

 

[ferhatgurbuz]

Teşekkür ederim arkadaşlar.

 

[alpmus]

Sayın Evren inde yardımıyla en doğrusu bu oldu galiba

 

[yavuz829]

Even bey liste veri kayıt dasyasını taksitli satış gibi kulanabilirmiyız acaba; Örneğin adı ve soyadından sonra
Adresi ve Telefon nosu
satılan malın cinsi
satılan malın tutarı
peşin alınan tutar
taksit sayısı
taksit tutarı
taksitler ödendiği zaman toplam borçtan düşüp kalanı göstersin taksitlerin ödendiği tarihleride göstersin.
Tutarları YTL olarak göstersin örneğin 100,25
Sizi çok uğraştıracak yardımcı olursanız çok sevinirim saygılar.

Not: liste veri kayıt dosyası şart değil başka bir şekide de olabilir yeterki işimi görsün.

 

[ferhatgurbuz]

Arkadaşlar yukarıdaki dosyada veriler 2. satırdan başlıyor. Benim dosyada 11. satırdan başlıyor. Hangi kodu değiştirmem gerekiyor. Bütün A2 ve B2 leri değiştirdim ama düzelmedi. Yardımcı olursanız sevinirim.

 

[Orion1]

Arkadaşlar yukarıdaki dosyada veriler 2. satırdan başlıyor. Benim dosyada 11. satırdan başlıyor. Hangi kodu değiştirmem gerekiyor. Bütün A2 ve B2 leri değiştirdim ama düzelmedi. Yardımcı olursanız sevinirim.

Benim yazdığım kodlarda kodları aşağıdaki gibi kullanınız.

Sub listele()
Dim sat As Long, i As Long
sat = Cells(65536, "B").End(xlUp).Row
ListBox1.Clear
If sat < [COLOR="Red"][B]11[/B][/COLOR] Then Exit Sub
ReDim myarr(1 To 8, 11 To sat)
For i = [COLOR="red"][B]11[/B][/COLOR] To Cells(65536, "B").End(xlUp).Row
    myarr(1, i) = Cells(i, "B").Value
    myarr(2, i) = Cells(i, "C").Value
    myarr(3, i) = Cells(i, "AC").Value
    myarr(4, i) = Cells(i, "X").Value
    myarr(5, i) = Cells(i, "G").Value
    myarr(6, i) = Cells(i, "F").Value
    myarr(7, i) = Cells(i, "H").Value
    myarr(8, i) = Format(Cells(i, "I").Value, "dd.mm.yyyy")
Next i
ListBox1.Column = myarr
Erase myarr
End Sub

 

[Orion1]

Even bey liste veri kayıt dasyasını taksitli satış gibi kulanabilirmiyız acaba; Örneğin adı ve soyadından sonra
Adresi ve Telefon nosu
satılan malın cinsi
satılan malın tutarı
peşin alınan tutar
taksit sayısı
taksit tutarı
taksitler ödendiği zaman toplam borçtan düşüp kalanı göstersin taksitlerin ödendiği tarihleride göstersin.
Tutarları YTL olarak göstersin örneğin 100,25
Sizi çok uğraştıracak yardımcı olursanız çok sevinirim saygılar.

Not: liste veri kayıt dosyası şart değil başka bir şekide de olabilir yeterki işimi görsün.

Örnek dosyayı ekleyiniz.
Üzerine bir miktar veri giriniz ve açıklamasını yazınız.

 

[Orion1]

Sayın Evren inde yardımıyla en doğrusu bu oldu galiba

sayın alpmus, sizin eklediğiniz dosya ,benim yaptığım dosyanın aynisi, buraya ben yaptım diye eklemişsiniz.Ayıp olmuyormu?:mrgreen:

 

[ferhatgurbuz]

EVREN HOCAM çok teşekkür ederim. Hayırlı çalışmalar

 

[ferhatgurbuz]

Evren Hocam bir ricam daha olacak. form üzerindeki verilere çift tıkladığımda veri sayfasında dolgu renkleri oluyor. Sarı olan rekler kalıyor, diğer laciver olanlar ise formu kapatınca gidiyor. Mümkünse hiçbir renk olmasın yada kalıcı olanlar yani sarı olan dolgu rengini iptal edelim.





Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For a = 0 To 6
Controls("textbox" & a + 5) = ListBox1.Column(a)
Next
TextBox8 = Format(ListBox1.Column(7), "dd.mm.yyyy")
Range("A11:I" & [a65536].End(3).Row).Interior.ColorIndex = 25
sat = ListBox1.ListIndex + 2
Range("A" & sat & ":I" & sat).Interior.ColorIndex = 6
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

 

[Orion1]

Evren Hocam bir ricam daha olacak. form üzerindeki verilere çift tıkladığımda veri sayfasında dolgu renkleri oluyor. Sarı olan rekler kalıyor, diğer laciver olanlar ise formu kapatınca gidiyor. Mümkünse hiçbir renk olmasın yada kalıcı olanlar yani sarı olan dolgu rengini iptal edelim.





Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For a = 0 To 6
Controls("textbox" & a + 5) = ListBox1.Column(a)
Next
TextBox8 = Format(ListBox1.Column(7), "dd.mm.yyyy")
Range("A11:I" & [a65536].End(3).Row).Interior.ColorIndex = 25
sat = ListBox1.ListIndex + 2
Range("A" & sat & ":I" & sat).Interior.ColorIndex = 6
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

Aşağıdaki satırları silerseniz hiç bir renk olmaz.

Range("A11:I" & [a65536].End(3).Row).Interior.ColorIndex = 25
sat = ListBox1.ListIndex + 2
Range("A" & sat & ":I" & sat).Interior.ColorIndex = 6