Teklif Şablonu Hazırlama Hk.

[enigmatic]

Herkese Merhaba,

Fırsat bulup öğrenebildiğim kadarıyla bir şablon hazırladım. Ama bir yerde gelip tıkandım. VBA-macro bilgim yok. Müşteriye sadece teklif dosyasının teklif sayfasını göndermek istiyorum. Bunu bir türlü beceremedim. Nasıl bir yol izlemem lazım?

Saygılarımla

 

[YUSUF44]

Bizden nasıl bir yardım istiyorsunuz?

 

[enigmatic]

Merhaba,
Hazırladığım şablonu çift tıklayıp açtığımda ve içini hazırlayıp sadece teklif adlı sayfayı farklı kaydederek müşterime göndermek.Bunu nasıl daha zahmetsizce yapabilirim?

 

[cems]

.............

 

[tahsinanarat]

Sub YeniKitap()
Dim Sh As Worksheet
Set Sh = ActiveSheet
ActiveSheet.Copy
ActiveSheet.Name = "YeniSayfa"
Sh.Range("A1:I50").Copy Range("a1")
End Sub

 

[enigmatic]

Sub YeniKitap()
Dim Sh As Worksheet
Set Sh = ActiveSheet
ActiveSheet.Copy
ActiveSheet.Name = "YeniSayfa"
Sh.Range("A1:I50").Copy Range("a1")
End Sub

yardımlarınız için teşekkürler bu kodlar işimi gördü deneme yanılma yaparak sonuca ulaştım sayılır.
saygılarımla