PDF DOSYASI İSİM BELİRLEME

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

PDF DOSYASI İSİM BELİRLEME

İleti#1)  radomaniax » 15 Nis 2018 14:26

Merhabalar
1.sayfada hesapladığım maliyete göre, 3.sayfada oluşturduğum fiyat teklif formunu, yine 1.sayfada atadığım bir buton vasıtasıyla, belirlemiş olduğum klasörde pdf olarak kaydettirmek istiyorum.
Kullandığım kod bu işlevi görüyor ancak, dosya ismi sabit kaldığından dolayı sürekli üzerine kaydediyor.
Ben dosya isminin müşteri adı ve tarih-saat olarak oluşmasını istiyorum. Müşteri adı 3.sayfa D3, tarih 3.sayfa H2 sütununda.
Bu konuda yardımcı olursanız çok sevinirim.


Kullandığım kod şu şekilde:


Private Sub CommandButton2_Click()
With Sheets("Sayfa3")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\Radoxy\Documents\arşiv\fiyat_teklifi.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub
Kullanıcı avatarı
radomaniax
 
Kayıt: 14 Nis 2018 15:13
Meslek: Tekstil Mühendisi
Yaş: 30
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: PDF DOSYASI İSİM BELİRLEME

İleti#2)  hemso41 » 16 Nis 2018 11:59

Kodunuzu aşağıdaki gibi revize ediniz.
Kod: Tümünü seç
Private Sub CommandButton2_Click()
With Sheets("Sayfa3")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\Radoxy\Documents\arşiv\& Sayfa3.Range("d3") & temizle(Sayfa3.Range("h1")) & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub

Daha sonra bir modül ekleyip aşağıdaki kodlarınız ekleyiniz.
Kod: Tümünü seç
Function temizle(veri)
    For i = 1 To Len(veri)
        If Mid(veri, i, 1) = "." Or Mid(veri, i, 1) = ":" Or Mid(veri, i, 1) = " " Then
            yeni = yeni & ""
        Else
            yeni = yeni & Mid(veri, i, 1)
        End If
    Next
    temizle = yeni
End Function
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 364
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

Cevap: PDF DOSYASI İSİM BELİRLEME

İleti#3)  radomaniax » 17 Nis 2018 12:20

Çok teşekkür ederim. Söylediğiniz gibi yapınca oldu.
Kullanıcı avatarı
radomaniax
 
Kayıt: 14 Nis 2018 15:13
Meslek: Tekstil Mühendisi
Yaş: 30
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: PDF DOSYASI İSİM BELİRLEME

İleti#4)  hemso41 » 17 Nis 2018 12:37

Rica ederim bu vesile ile de site yöneticilerine de teşekkürlerimizi borç biliriz.
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 364
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 3 misafir

cron
Bumerang - Yazarkafe