dgdizayn
Altın Üye
- Katılım
- 7 Mart 2011
- Mesajlar
- 138
- Excel Vers. ve Dili
- OFFİCE 2019 EN
- Altın Üyelik Bitiş Tarihi
- 04-05-2028
Merhabalar,
Aşağıdaki kod ile, bir excel dosyasını seçip o dosyanın açık olan sayfasındaki bilgileri alıp, açık olan excel sayfama yapıştırıyorum. Burada talep ettiğim iki konu var.
1-Dosya seçtiğim zaman sürekli "C:\" dizini açılıyor. Bu konuda bir çok araştırma yaptım hangi kodu yazdıysam bir türlü, nerede bulunuyorsa makro çalışacak dosya o klasörü açmıyor. Örneğin deneme.xlsm c:\0001\yeni klasor altında ise, dosya aç dediğimde sürekli c:\ dizini açıyor. Bunu sadece bulunduğu klasörü aç yapabilir miyiz.
2-Makro ile çalıştırınca seçtiğim dosyadan verileri alıp kopyalıyor fakat kopyaladıktan sonra bu excel dosyası kapansın istiyorum. Mümkün müdür.
Bu konuda ivedi yardımlarınızı bekliyorum. Şimdiden emeği geçen herkese teşekkür ederim.
Kod
Aşağıdaki kod ile, bir excel dosyasını seçip o dosyanın açık olan sayfasındaki bilgileri alıp, açık olan excel sayfama yapıştırıyorum. Burada talep ettiğim iki konu var.
1-Dosya seçtiğim zaman sürekli "C:\" dizini açılıyor. Bu konuda bir çok araştırma yaptım hangi kodu yazdıysam bir türlü, nerede bulunuyorsa makro çalışacak dosya o klasörü açmıyor. Örneğin deneme.xlsm c:\0001\yeni klasor altında ise, dosya aç dediğimde sürekli c:\ dizini açıyor. Bunu sadece bulunduğu klasörü aç yapabilir miyiz.
2-Makro ile çalıştırınca seçtiğim dosyadan verileri alıp kopyalıyor fakat kopyaladıktan sonra bu excel dosyası kapansın istiyorum. Mümkün müdür.
Bu konuda ivedi yardımlarınızı bekliyorum. Şimdiden emeği geçen herkese teşekkür ederim.
Kod
Kod:
ChDir "C:\"
dosya = Application.GetOpenFilename(FileFilter:="," & _
"*.xls;*.xlsx;", Title:="Dosya seçimi yapınız")
Workbooks.Open dosya
Cells.Select
Selection.Copy
If dosya = False Then ' eğer vazgeçe basarsanız
MsgBox "Dosya seçme işleminden vazgeçildi"
Exit Sub
End If
Windows("Deneme.xlsm").Activate
Sheets("Sayfa").Visible = True
Sheets("Sayfa").Select
Cells.Select
Range("A1").Activate
ActiveSheet.Paste