- Katılım
- 13 Temmuz 2005
- Mesajlar
- 34
- Excel Vers. ve Dili
- Excel 2016 İngilizce
ARKADAŞLAR AŞAĞIDAKİ KODU KULLANIYORUM
Private Sub CommandButton3_Click()
Sheets("AKTAR").[a2:k65536].ClearContents
For sat = 1 To ListBox1.ListCount + 1
For sut = 1 To 10
Sheets("AKTAR").Cells(sat + 1, sut) = ListBox1.List(sat, sut - 1)
Next: Next
Sheets("AKTAR").Visible = True
Sheets("AKTAR").Select
Unload Me
End Sub
YALNIZ LİSTBOXTAKİ İLK SATIRI AKTARMIYOR NASIL DÜZELTEBİLİRİM
SAYGILAR
Private Sub CommandButton3_Click()
Sheets("AKTAR").[a2:k65536].ClearContents
For sat = 1 To ListBox1.ListCount + 1
For sut = 1 To 10
Sheets("AKTAR").Cells(sat + 1, sut) = ListBox1.List(sat, sut - 1)
Next: Next
Sheets("AKTAR").Visible = True
Sheets("AKTAR").Select
Unload Me
End Sub
YALNIZ LİSTBOXTAKİ İLK SATIRI AKTARMIYOR NASIL DÜZELTEBİLİRİM
SAYGILAR