Listbox verileri bir butonla virgulle ayırarak eklemek

[tkisa]

Oncelikle herkese merhabalar .. Benim sorunum excelde 2 tane list box (biri kullanıcı Adı) (Diğeri Zaman) içinden secilebilecek veri bir kaydet botunuyla bir başka sayfaya virgulle aktarılımasını sağlamaya çalışıyorum ama bir turlu başarılı olamadım.. Bana Lutfen yardımcı olun.. Excel konusunda bilgim yetersiz . . Ekte excel'le secilip cıktısı istediğim gibi olacak dosyayı gönderiyorum tekrar tekrar teşekürler..

 

[tkisa]

Herhalde elinde buna ornek olabilecek bir çalışma yapan arkadaş olmadı..

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sat As Long
If TextBox1.Text = "" Then
    MsgBox "Sayfa2'ye aktarabilmek için Listeden bir seçim yapmalısınız.", vbCritical, "UYARI"
    Exit Sub
End If
sat = Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row + 1
If sat > 65533 Then
    MsgBox "Sayfa2 doldu.Kayıt Girilmedi.", vbCritical, "UYARI"
    Exit Sub
End If
Sheets("Sayfa2").Cells(sat, "A").Value = TextBox1.Text
MsgBox "Seçili Veri sayfa2'ye akatarıldı." & _
vbLf & "evrengizlen@hotmail.com.", vbOKOnly + vbInformation, "E V R E N"
End Sub

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
TextBox1.Text = ListBox1.Value
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.RowSource = "LogonHours!A1:A" & Sheets("LogonHours") _
.Cells(65536, "A").End(xlUp).Row
End Sub

 

[tkisa]

supersiniz..

İlginize tşkler.. Yadığınız koddaki satırlar acayip işime yaradı.. Peki bu son sayfayı içeğini notepad dosyası olarak kaydetmem mümkünmü.. "txt" aslında içeği virgulle koymamanın sebebi "csv" olması ama.. Tekrar tekrar teşekkür ederim