Excel sayfasında Listbox hk. yardım

[boztepelibey]

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.

 

[Orion1]

Dosyanız ekte.

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

 

[boztepelibey]

Selamün Aleyküm;

EVREN HOCAM Eline sağlık.Allah Razı Olsun.

Hakkını Helal Et

 

[Orion1]

Selamün Aleyküm;

EVREN HOCAM Eline sağlık.Allah Razı Olsun.

Hakkını Helal Et

Rica ederim.
İyi çalışmalar.