- Katılım
- 19 Mart 2008
- Mesajlar
- 2,154
- Excel Vers. ve Dili
-
Office 2007 Enterprise
Türkçe
Merhabalar. Arkadaşlar Halit Bey'in çalışmasından alıntılarla Listbox multiselect ile sadece seçilen sayfaları aktarmaya çalışıyorum. Ancak
kısmında gerekli mantığı kuramadım.
Kod:
n = 0
For i = ListBox1.ListCount - 1 To 1 Step -1
If ListBox1.Selected(i - 1) = True Then
ReDim Preserve myArray(n)
myArray(n) = i
n = n + 1
End If
Next
Sheets(myArray).Select
Sheets(myArray).Copy After:=Workbooks(dosya_adı).Sheets(1)
Windows(dosya_adı).Activate
Ekli dosyalar
-
31.7 KB Görüntüleme: 21