ListBox verilerini farklı kaydetme

[Usyk]

Listbox ile çekilen verileri farklı dosya olarak kaydetmek mümkün mü?

 

[muysun35]

kodları kendi dosyanıza uyarlayın

Sub listboxtanfarklidosyaya ()
Dim yeniaktarmasayfasi As String
yeniaktarmasayfasi = "textboxtakiler"
Sheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(yeniaktarmasayfasi).Select
ActiveSheet.Name = yeniaktarmasayfasi
Worksheets(yeniaktarmasayfasi).Select
Range("a2:c" & ListBox1.ListCount + 1) = ListBox1.List
Activesheet.Copy
ChDir ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:="yeniaktarmadosyasi" & ".xlsx"
ActiveWorkbook.Close
End Sub

 

[muysun35]

Sheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(yeniaktarmasayfasi).Select 'bu satırı silin
ActiveSheet.Name = yeniaktarmasayfasi

 

[Usyk]

Tamam muysun35 hemen deniyorum. Teşekkür ederim.

 

[Usyk]

Sayın muysun35 yazdığınız kodları kendime göre düzenledim, gayet güzel çalışıyor, ilginiz ve yardımınız için tekrar çok teşekkür ederim.

 

[muysun35]

Sayın muysun35 yazdığınız kodları kendime göre düzenledim, gayet güzel çalışıyor, ilginiz ve yardımınız için tekrar çok teşekkür ederim.

Rica ederim. Faydalı olabildiysem ne mutlu. iyi çalışmalar.