userforma sayfaya veri aktarmak ve sayfaya veri aktarmak

[mahmutozdemir]

Userform içindeki listbokaveriler sayfasından ver ekleyip butana basarak başka bir sayfaya aktarmak istiyorum. Teşekkürler şimdiden.

 

[tazgulgul]

Aşağıdaki kodu gerekli düzeltmeleri yaparak userform'a kopyalarsan listboxta sayfadaki verilerini görebilirsin.


Private Sub UserForm_Initialize()
ListBox1.ColumnHeads = True
ListBox1.RowSource = "verilen!b2:L" & Cells(65536, "L").End(xlUp).Row
ListBox1.ColumnCount = 11
ListBox1.ColumnWidths = "110;70;70;70;70;70;70;70;70;70;70"
End Sub

 

[mahmutozdemir]

Yaptım ama hata verdi size zahmet önek dosya üzerinde yapabilirmsiniz.

 

[tazgulgul]

Yaptım ama hata verdi size zahmet önek dosya üzerinde yapabilirmsiniz.

Private Sub UserForm_Initialize()
ListBox1.ColumnHeads = True
ListBox1.RowSource = "veriler!a2:a" & Cells(65536, "a").End(xlUp).Row
ListBox1.ColumnCount = 1
End Sub

Bu şekilde kopyalarsan olur.Ama bu sadece listboxta görüntüleme kısmı.Sayfaya aktarma kısmına hocalar cevap verirler sanırım.