Listbox'dan sayfaya veri aktarma

[yselimyilmaz]

Selam herkese;

Userform üzerinde bulunan Listbox1 içindeki verileri sayfa1'e son dolu satırdan başlayarak aktarmak istiyorum.

Listbox1, 5 sutundan oluşmaktadır, satır sayısı değişmektedir.

Aşağıdaki kodu istediğim şekilde ayarlamama yardımcı olmanızı rica ederim.



Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 9
For a = 0 To ListBox1.ListCount - 1
Sayfa1.Cells(a + 2, i).Value = ListBox1.List(a, i - 1)
Next a
Next i
i = Empty
For i = 2 To Sayfa1.Range("a65536").End(3).Row
For a = 2 To Sheets.Count

Next a
Next i
MsgBox "Sonuçlar aktarılmıştır.", vbInformation, "İşlem Tamam"
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyiniz

[SIZE="2"]Private Sub CommandButton1_Click()
Dim i As Long, s As Long, a As Long
 s = [COLOR="Blue"]Sayfa1[/COLOR].Range("a65536").End(3).Row
For i = 1 To 5
For a = 0 To ListBox1.ListCount - 1
[COLOR="Blue"]Sayfa1[/COLOR].Cells(s + a + 1, i).Value = ListBox1.List(a, i - 1)
Next a
Next i
MsgBox "Sonuçlar aktarılmıştır.", vbInformation, "İşlem Tamam"
End Sub[/SIZE]

 

[yselimyilmaz]

Sayın Plint;
İlginize ve yardımınıza teşekkür ederim. Vermiş olduğunuz kod işlemimi yaptı.

 

[zaruri]

Başlık sorunuma uygun;
Forumda Daha önce yapılan bir çalışmayı kendime uyarlamaya çalışıyorum,
ListBoxdaki verileri sayfada istenilen hücrelere aktarmakta zorlandım.
İlgi ve alakalarınızı bekliyorum.

 

[Haluk]

s1.Range(s1.Cells(10, 3), s1.Cells(10 + sat, 3 + sut)) = ListBox3.List

.

 

[zaruri]

İlginize Teşekkür ederim,
Anlayabileceğim gibi bir formül olmuş, uyarlaması kolay oldu.

Ekte gönderdiğim örnekte bazı açıklamalar olacak.
Yemek ismi ve türünü de hücrelere getirmek istiyorum.
Son satır ve sütunlarda #YOK yazıyor.

 

[ÖmerFaruk]

Gerekli ilave ve düzeltmeleri yaptım.

Private Sub AKTAR_Click()
Sheets("ANASAYFA").[a2:z65536].ClearContents
Set s1 = Sheets("ANASAYFA")
sat = ListBox3.ListCount - 1
sut = ListBox3.ColumnCount - 1
s1.Range(s1.Cells(10, 5), s1.Cells(10 + sat, 5 + sut)) = ListBox3.List
s1.Range("C10") = ListBox1
s1.Range("D10") = ListBox2
End Sub

 

[zaruri]

Eksik olmayasınız, hepinize teşekkür eder, sağlıklı günler dilerim.

İyi ki Varsınız.

 

[zaruri]

Değerli Hocalarım.
Bir ricam daha olacak,
Malzemelerin doldurduğu satırlar kadar,
Yemek ve çeşit satırları da, doldurulabilir mi?

 

[ÖmerFaruk]

Private Sub AKTAR_Click()
    Sheets("ANASAYFA").[a2:z65536].ClearContents
    Set s1 = Sheets("ANASAYFA")
    sat = ListBox3.ListCount
    sut = ListBox3.ColumnCount
    s1.Range("C10").Resize(sat, 1) = ListBox1
    s1.Range("D10").Resize(sat, 1) = ListBox2
    s1.Range("E10").Resize(sat, sut) = ListBox3.List
End Sub

 

[zaruri]

Hocam teşekkür ederim,
Kopyala-Yapıştırcı olarak birçok şekli denedim olmadı.
Bilmek, bilerek bir iş yapmak ... harika bir duygu olsa gerek.

Emeğinize sağlık.