arkadaşlar A klasorunde her gecen gun yenisi eklenen excel kitapları var... bu kitap isimlerini combobox'a nasıl yukleyebilirim ve ismini sectigimde o çalışma kitabını nasıl acabilirim....
Private Sub CommandButton1_Click()
On Error Resume Next
dosya = Klasör & Me.ComboBox1.Value
If VarType(dosya) = vbBoolean Then
Exit Sub
Else
Workbooks.Open (dosya)
Columns("a:aj").Select
Selection.Copy
[a3].Select
Windows("kod.xls").Activate
ActiveWorkbook.Sheets(1).[a1].Select
Selection.PasteSpecial
ActiveWorkbook.Sheets(1).[a1].Select
Workbooks.Open (dosya)
ActiveWorkbook.Close
End If
Unload Me
End Sub
birkaçduzenleme yaparak daha cok işime yarar hale getirdim tekrar teşekkürler
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.