Belirli Sayfaları Kopyalıp, Kayıt Etmek

[SworP]

Arkadaşlar daha öncesinde bu konuda yardım talep etmiştim fakat anladım ki makro olmadan olacak birşey değil.

Fazla uzatmadan yardımınızı isteyeceğim.

Fatura ve İrsaliye sayfalarını kopyalayıp farklı bir çalışma kitabına almasını daha sonrada A16'dan firmanın ismini AI35'tende tarihi alarak

..... LTD ŞTİ. 03.10.2013 şeklinde Masaüstündeki FATURA&İRSALİYE klasörüne kayıt etmesine istiyorum.

Aynı anda bulunduğum ana çalışma kitabınıda normal bir şekilde kayıt etmesini istiyorum.


Yardımcı olabilecek arkadaşlara şimdiden teşekkürler.


ÖRNEK DOSYA EKTEDİR.

Önemli Hatırlatma:

A16'da düşey ara formülü mevcut.Aynı zamanda AI35'te de Bugün formülü var.Bunların bir önemi var mı bilmiyorum ama vurgulamak istedim.

 

[Huseyinkis]

Ekteki kodları denermisiniz. Masa üstündeki klasör yerini sizin yazmanız lazım ekteki kodlarda benim masa üstü mevcut. "C:\Users\Huseyin\Desktop\FATURA&İRSALİYE"

Sayfa isimlerinde boşluk kullanmak gereksiz bence.

Sub farklıkaydet()
Sheets("İRSALİYE                       ").Select
strDate = Cells(1, 16).Value&" "&Cells(35, 35).Value
Sheets(Array("FATURA                         ", "İRSALİYE                       ")).Copy
       
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users\Huseyin\Desktop\FATURA&İRSALİYE\strDate&".xls",FileFormat:=56
ActiveWorkbook.Close False
Application.DisplayAlerts = True
end sub

 

[SworP]

Malesef, aynen dediğiniz gibi yaptım fakat Syntax Error diyor.

 

[SworP]

Yardım bekliyorum.

 

[cenk e.]

Merhaba, Sn. Huseyinkis çevrim dışı olduğundan ben cevaplamak istedim.
Koddaki syntax error hatasına sebep olabilecek hataları düzelttim.
Bu haliyle dener misiniz?

Sub farklıkaydet()
Sheets("İRSALİYE                       ").Select
strDate = Cells(1, 16).Value & " " & Cells(35, 35).Value
Sheets(Array("FATURA                         ", "İRSALİYE                       ")).Copy
       
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users\Huseyin\Desktop\FATURA&İRSALİYE\strDate" & ".xls", FileFormat:=56
ActiveWorkbook.Close False
Application.DisplayAlerts = True
End Sub

 

[SworP]

Merhaba, Sn. Huseyinkis çevrim dışı olduğundan ben cevaplamak istedim.
Koddaki syntax error hatasına sebep olabilecek hataları düzelttim.
Bu haliyle dener misiniz?

Sub farklıkaydet()
Sheets("İRSALİYE                       ").Select
strDate = Cells(1, 16).Value & " " & Cells(35, 35).Value
Sheets(Array("FATURA                         ", "İRSALİYE                       ")).Copy
       
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users\Huseyin\Desktop\FATURA&İRSALİYE\strDate" & ".xls", FileFormat:=56
ActiveWorkbook.Close False
Application.DisplayAlerts = True
End Sub

Teşekkürler herhangi bir hata almıyorum fakat dosyayı direkt olarak strDate ismiyle kaydediyor.

 

[SworP]

Yardım bekliyorum...

 

[cenk e.]

Merhaba, denemedim ama şu şekilde dener misiniz?

Sub farklıkaydet()
Sheets("İRSALİYE                       ").Select
strDate = Cells(1, 16).Value&" "&Cells(35, 35).Value
Sheets(Array("FATURA                         ", "İRSALİYE                       ")).Copy
       
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users\Huseyin\Desktop\FATURA&İRSALİYE\" & Sheets("FATURA                         ").Range("A16").Value & Sheets("FATURA                         ").Range("AI35").Value & ".xls",FileFormat:=56
ActiveWorkbook.Close False
Application.DisplayAlerts = True
end sub

 

[SworP]

Elinize sağlık.Çok teşekkür ediyorum.

 

[cenk e.]

Rica ederim, asıl teşekkürü Hüseyin Bey hak ediyor tabi o ayrı.

 

[SworP]

Hüseyin Bey'e de teşekkürler.Hatta forumda emeği geçen herkese teşekkürler.Çok yardımcı oluyorsunuz.