ListBoxa veri almak için...

[Emine Şahin]

Merhaba.
Listboxa veri almak için kodları Listbox'a mı yazmalıyız yoksa
UserForm_Initialize() altınamı yazmalıyız?
Örneğin A1 hücresinden AH1 hücresne kadar verileri çağırmak istiyorum.

Burada bulduğum bazıkodları denedim ama, buton oluşturmama rağmen (yani her yolu denedim)
birtürlü verileri çağıramadım. Bu kodları nereye kopyalamam gerek?

Dim SonSatir As Integer, Satir As Integer
SonSatir = WorksheetFunction.CountA(ActiveSheet.Range("A1:A100"))
For Satir = 2 To SonSatir
ListBox1.AddItem ListBox1.List(Satir - 2, 0) = ActiveSheet.Range("A" & Satir)
ListBox1.List(Satir - 2, 1) = ActiveSheet.Range("B" & Satir)
ListBox1.List(Satir - 2, 2) = ActiveSheet.Range("C" & Satir)
ListBox1.List(Satir - 2, 3) = ActiveSheet.Range("D" & Satir)
ListBox1.List(Satir - 2, 4) = ActiveSheet.Range("E" & Satir)
Next

 

[Ömer]

Merhaba,

Basit mantıkla aşağıdaki gibi kullanabilirsiniz.

Private Sub UserForm_Initialize()
 
    With ListBox1
        .ColumnCount = 34 [COLOR=teal]'kolon sayısı[/COLOR]
        .ColumnWidths = "20;20;20" [COLOR=teal]'kolon genişlikleri.[/COLOR]
        .RowSource = "Sayfa1!A1:AH1"[COLOR=teal] 'veri aralığı[/COLOR]
    End With
 
End Sub

.

 

[Emine Şahin]

Merhaba Ömer Bey.
Private Sub UserForm_Initialize() kullanıyorum.
Kodları hemen altına ekledim. UserFormum "satış" adındadır.
Hata verdi ama? Yanlış mı uyguladım acaba.
Ayrıca altalta girilen veriler olacağından gösterimi nasıl artırabilirim?

 

[Ömer]

Hata aldığınız çalışmayı ekleyebilirmisiniz.

 

[Emine Şahin]

Dosyam ektedir.
Yapmak istediğim biraz karışık gibi. Ama siz bakınca anlarsınız.
ListBox satış Formundadır.

 

[Ömer]

Dosyam ektedir.
Yapmak istediğim biraz karışık gibi. Ama siz bakınca anlarsınız.
ListBox satış Formundadır.

İlgili bölümle ilgili düzeltme yapılmıştır.

.

 

[Emine Şahin]

Teşekkür ederim Ömer Bey. Uzun zamandır cevabını alamadığım bir konuydu.
Birkaç sorum daha olsa ayıp olmaz değil mi?
Ben bu verileri text box ile süzmek ve üzerine çift tıklatınca da kayıt formundaki textboxlara ve comboboxlara gelmelerini sağlamak istiyorum. Mümkün mü?

 

[Emine Şahin]

Konu günceldir arkadaşlar. Mümkünse?

 

[Ömer]

Linki inceleyiniz.

Veri Yönetimi Uygulaması-Veri Kaydetme,Değiştirme ve Silme

.

 

[Emine Şahin]

Linki inceleyiniz.

Veri Yönetimi Uygulaması-Veri Kaydetme,Değiştirme ve Silme

.

Teşekkür ederim. Bu konuyu hiç görmemiştim. Faydalı olacak inşallah.

 

[Emine Şahin]

Merhaba.
Bu çalışmada bulduğum kodlarda iki sorunum var.
Çalışmamda ilk TextBox tarih atanmıştır ve güncel tarih kalmasını istiyorum.
Diğer konu ise benim veri aralığım A dan AH ye kadar uzanıyor. Bu kodları nasıl uzatabilirim?


EDİT: Uzatma konusunu buldum. Ama üzeri çift tıklanan satır sarı renkli oluyor. Kaldırmak istiyorum...

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'listbox kutusuna çit tıklattığınızda

For a = 0 To 6
'textboxlar için döngü kuruluyor
Controls("textbox" & a + 1) = ListBox1.Column(a)
'textboxlara sıara ile liste kutusundaki veriler yazılıyor.
Next
TextBox8 = Format(ListBox1.Column(7), "dd.mm.yyyy")
sat = ListBox1.ListIndex + 2
Range("A" & sat & ":I" & sat).Interior.ColorIndex = 6
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

 

[Ömer]

Sizin mesajdaki kodlarda kırmızı ile işaretlediğim satırı silmeniz yeterli olur.

 

[Emine Şahin]

Teşekkür ederim Ömer Bey.
Burada textbox1 sabitkalmak koşulu ile diğer varileri nasıl sıralarım.
Bu haliyle 1 sıra atlıyor zaten
Daha doğrusu formül doğru işliyor ama benim boş geçen hücrelerim var.
Yai dolu hücreleri sırayla yazdırabilir miyiz? Başlığı baz alarak?

Çok oldum farkındayım!

 

[Ömer]

Ayrıca aşağıdaki linkin #13 numaralı mesajında, Sayın Orion1 istediğiniz tabloyu hazırlamıştı sanırım.

http://www.excel.web.tr/f48/listbox-arama-kodu-t114149/sayfa2.html

.

 

[Emine Şahin]

Ayrıca aşağıdaki linkin #13 numaralı mesajında, Sayın Orion1 istediğiniz tabloyu hazırlamıştı sanırım.

http://www.excel.web.tr/f48/listbox-arama-kodu-t114149/sayfa2.html

.

VBA dilinden anlamadığım için öylece bakıp duruyorum. Elbet ufak tefek mantık yürüterek bir şeyler yapmaya çalışıyorum ama, bakma ile usta olunsa kediler kasap olurdu derlerya, o derece yani. Buradaki konuda benim işimi çok fazlasıyla görecek. Ama, ne kadar çözebileceğim bilmiyorum. Hayırlısı...