Excel sayfasında Listbox hk. yardım

Katılım
12 Aralık 2005
Mesajlar
211
Selamün Aleyküm.
ÜSTADLARIM'ın ekli dosya hakkında bilgilerine ihtiyacım var.Nasıl Yapılır.Yazdığınız kodlar neye göre yazılır. En azında örneğe bakarak kendi kendime bendeki dosyalarıma çok rahat uygulayabileyim.

Verdiğim zahmet için yüce affınıza sığınıyorum. Hakkınızı helal edin.
 

Ekli dosyalar

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,239
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Dosyanız ekte.:cool:
Kod:
Private Sub CommandButton1_Click()
Dim i As Integer
Set s1 = Sheets("data")
With Sheets("Sayfa1")
.ListBox1.ColumnCount = 9
        .ListBox1.AddItem
    For i = 1 To 9
        sat = s1.Cells(65536, "A").End(xlUp).Row + 1
        'data sayfasına aktarılıyor
        s1.Cells(sat, i).Value = Cells(2, i).Value
        'listboxa aktarılıyor.
        .ListBox1.List(.ListBox1.ListCount - 1, i - 1) = Cells(2, i).Value
    Next i
End With
MsgBox "Kayıtlar girildi..!"
End Sub
 

Ekli dosyalar

Üst