- Katılım
- 17 Haziran 2008
- Mesajlar
- 1,871
- Excel Vers. ve Dili
- Microsoft Ofis Profesyonel 2019 x64 TR
- Altın Üyelik Bitiş Tarihi
- 26-03-2020
Merhaba arkadaşlar;
bu vermiş olduğum kod ile Listbox taki isimleri s değişkenine alıp hafızaya kopyalatmak istiyorum. Fakat isimleri bir türlü alamıyorum , nasıl yapabilirim ?
Kod:
Private Sub Command4_Click()
Dim i, s
For i = 1 To List1.ListCount
If s <> "" Then s = s & vbCrLf & i Else s = i
Next
MsgBox s, , "Dosya İsimleri"
Clipboard.Clear
Clipboard.SetText s
End Sub