- Katılım
- 26 Ocak 2009
- Mesajlar
- 25
- Excel Vers. ve Dili
- 2010 türkçe
Saygıdeğer form üyeleri
Şöyle bir sorunum var:
yazdığım makro bir çalışma kitabındaki çeşitli verileri bir kaç kritere göre süzüp çeşitli işlemlerden sonra beş ayrı sayfaya kaydediyor. Bu sayfaları seçip başka bir çalışma kitabı açıp oraya kopyalıyor. Buraya kadar bir sorun yok.
Bu çalışma kitabını kaydedip kapatırken bir isim vermesini istiyorum ve bu ismi süzme işleminde kullandığım kriterlere göre isimlendirsin istiyorum. Yani kullandığım değişkenleri dosya adında kullanmak istiyorum. Ancak söz dizliminde bir hatamı yapıyorum nedir bilmiyorum olmuyor bir türlü. Benim isim vermekte kullanmak istediğim deişkenler "DEGER1" ve "DEGER'" dosya ismi de
DEGER1in aldıgıdeger ve DEGER2nin aldıgı deger olsun istiyorum. Kodlar aşagıdaki gibidir.
Aşağıdaki kodda dosyayı deger1°er2.xls diye kaydediyor.Oysa ben bu degişkenlerin aldıkları degeri kullansın istiyorum.
ActiveWorkbook.SaveAs Filename:= _
"D:\AYLIK_İSTATİSTİKLER\DEGER1 & DEGER2.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Şöyle bir sorunum var:
yazdığım makro bir çalışma kitabındaki çeşitli verileri bir kaç kritere göre süzüp çeşitli işlemlerden sonra beş ayrı sayfaya kaydediyor. Bu sayfaları seçip başka bir çalışma kitabı açıp oraya kopyalıyor. Buraya kadar bir sorun yok.
Bu çalışma kitabını kaydedip kapatırken bir isim vermesini istiyorum ve bu ismi süzme işleminde kullandığım kriterlere göre isimlendirsin istiyorum. Yani kullandığım değişkenleri dosya adında kullanmak istiyorum. Ancak söz dizliminde bir hatamı yapıyorum nedir bilmiyorum olmuyor bir türlü. Benim isim vermekte kullanmak istediğim deişkenler "DEGER1" ve "DEGER'" dosya ismi de
DEGER1in aldıgıdeger ve DEGER2nin aldıgı deger olsun istiyorum. Kodlar aşagıdaki gibidir.
Aşağıdaki kodda dosyayı deger1°er2.xls diye kaydediyor.Oysa ben bu degişkenlerin aldıkları degeri kullansın istiyorum.
ActiveWorkbook.SaveAs Filename:= _
"D:\AYLIK_İSTATİSTİKLER\DEGER1 & DEGER2.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close