Lisboxtaki Listeyi Sayfaya Gönder

[basridogan]

Herkese selam

Listbox2'deki listeyi sayfa2'de (a2)den itibaren "a" sütununda listelemeyi nasıl yapabilirim? Yardımcı olusanız sevinirim.

 

[medfad]

Merhaba
sanırım işini görür

Range("A2:c200").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select

 

[basridogan]

Sayın medfad ilginizden dolayı teşekkür ederim. Ama benim istediğim listbox'taki listeyi sayfaya göndermekti.

 

[medfad]

merhaba
birde bunu deneyin

Sheets("Sayfa2").Range("A2:A100").ClearContents
For j = 1 To ListBox2.ListCount
Sheets("Sayfa2").Cells(j + 1, 1) = ListBox2.List(j - 1)
Next

 

[basridogan]

Sayın medfad çok teşekkür ederim. Bu kod işime yaradı.