Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 24-04-2017, 12:35   #11
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 207
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

Merhaba ,

imzali gondermem gereke dediginiz için "direkt mail gonderme" işine hiç girmedim sadece pdf olarak kayit edilebilir şeklinde calismami sonlandirdim. gule gule kullanin.

eur usd işi şöyle olabilir : odeme tab sayfasini usdtab eurtab vs cogaltirsiniz. matbu kisimlari degistirrisiniz. user formda iki uc tane check box yerlestirilir. secilenleri aktar butonunun yanina konur. hangi checkbox secili ise listenizde isaretlediginiz firmalari usdtab, eurtab hangi check box secili ise o sayfaya gonderir.. yaziya cevirme işi için yazytl eklentisini vba projesini acip ctrl+h kullanarak" turk lirasi" yazilarini USD AMERİKAN DOLARİ vs degistirebilirsiniz. yeni eklenti olarak kaydedersiniz . yeni dovizli ödeme sayfalarinizda o eklentileri kullanirsiniz...
dosyaniz:
https://wetransfer.com/downloads/42e...4101955/e99958
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-04-2017, 07:45   #12
manahos
 
Giriş: 20/10/2015
Şehir: Antalya
Mesaj: 23
Excel Vers. ve Dili:
2013-Türkçe
Varsayılan

Alıntı:
hoguz2 tarafından gönderildi Mesajı Görüntüle
Merhaba ,

imzali gondermem gereke dediginiz için "direkt mail gonderme" işine hiç girmedim sadece pdf olarak kayit edilebilir şeklinde calismami sonlandirdim. gule gule kullanin.

eur usd işi şöyle olabilir : odeme tab sayfasini usdtab eurtab vs cogaltirsiniz. matbu kisimlari degistirrisiniz. user formda iki uc tane check box yerlestirilir. secilenleri aktar butonunun yanina konur. hangi checkbox secili ise listenizde isaretlediginiz firmalari usdtab, eurtab hangi check box secili ise o sayfaya gonderir.. yaziya cevirme işi için yazytl eklentisini vba projesini acip ctrl+h kullanarak" turk lirasi" yazilarini USD AMERİKAN DOLARİ vs degistirebilirsiniz. yeni eklenti olarak kaydedersiniz . yeni dovizli ödeme sayfalarinizda o eklentileri kullanirsiniz...
dosyaniz:
https://wetransfer.com/downloads/42e...4101955/e99958
Üstad eline sağlık çok güzel olmuş. Yalnız pdf kaydet butonundaki vba kodlarınızdaki dosya yolunu değiştirmem gerekiyor dimi. Çünkü kaydetmedi. Değiştirmeyi denedim ama olmadı yine. "not possible to creat the pdf..." şeklinde msgbox yazısı çıkıyor.
manahos Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-04-2017, 08:48   #13
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 207
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

merhaba ,

aslinda bir sey yapmaniza degistirmenize gerek yok oldugu gibi calisiyor. fakat tefarruatli bir kod. Microsoft Shared\OFFICE eklenti falan kullaniyor sanirim .. benim bilgisayarda calisiyor ama sizde ne gibi bir sıkıntı oldu bilemiyorum. forumda cok kod var pdf ile ilgil mesela şu aşağıya yazdığımla değiştirin onu kullanın aynı işi yapar.

Sub PDF_Click()

dosya_adı = Cells(6, "D").Value
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If

a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")

If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
Exit Sub
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

bu kod d6 hucresindeki veriyi dosya adı olarak kullanarak asil calisma yaptiginiz excelin oldugu klasorun içine pdf olarak kaydediyor. d6 degilde tarihin oldugu hucreyi belirtebilirsiniz mesela daha kullanışlı olur =bugün() & "HALKBANK TALİMAT" gibi bir sey yazarsiniz hucreye tarih şeklinde talimatlari da klasorlemiş olursunuz.

iyi calismalar.
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-04-2017, 11:14   #14
manahos
 
Giriş: 20/10/2015
Şehir: Antalya
Mesaj: 23
Excel Vers. ve Dili:
2013-Türkçe
Varsayılan

Alıntı:
hoguz2 tarafından gönderildi Mesajı Görüntüle
merhaba ,

aslinda bir sey yapmaniza degistirmenize gerek yok oldugu gibi calisiyor. fakat tefarruatli bir kod. Microsoft Shared\OFFICE eklenti falan kullaniyor sanirim .. benim bilgisayarda calisiyor ama sizde ne gibi bir sıkıntı oldu bilemiyorum. forumda cok kod var pdf ile ilgil mesela şu aşağıya yazdığımla değiştirin onu kullanın aynı işi yapar.

Sub PDF_Click()

dosya_adı = Cells(6, "D").Value
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If

a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")

If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
Exit Sub
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

bu kod d6 hucresindeki veriyi dosya adı olarak kullanarak asil calisma yaptiginiz excelin oldugu klasorun içine pdf olarak kaydediyor. d6 degilde tarihin oldugu hucreyi belirtebilirsiniz mesela daha kullanışlı olur =bugün() & "HALKBANK TALİMAT" gibi bir sey yazarsiniz hucreye tarih şeklinde talimatlari da klasorlemiş olursunuz.

iyi calismalar.
Allah razı olsun. Çok süper oldu. Elinize sağlık... Teşekkür ederim.
manahos Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-04-2017, 14:08   #15
manahos
 
Giriş: 20/10/2015
Şehir: Antalya
Mesaj: 23
Excel Vers. ve Dili:
2013-Türkçe
Varsayılan

Alıntı:
manahos tarafından gönderildi Mesajı Görüntüle
Allah razı olsun. Çok süper oldu. Elinize sağlık... Teşekkür ederim.
Buna bir de pdf olarak kaydetmeden önce pdf önizlemesini görmek mümkün mü? Önizleme diye bir buton yapabilir misiniz?
manahos Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-04-2017, 09:27   #16
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 207
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

Sub PDF_Click()

dosya_adı = Cells(6, "D").Value
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
ActiveWindow.SelectedSheets.PrintPreview
a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")

If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
Exit Sub
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub



eklenen satir ActiveWindow.SelectedSheets.PrintPreview satiri
isterseniz kod içinde degil dediginiz gibi ayri buton a da atayabilirsiniz

bundan sonraki eklentiler hediyeye tabi ... )
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-04-2017, 16:02   #17
manahos
 
Giriş: 20/10/2015
Şehir: Antalya
Mesaj: 23
Excel Vers. ve Dili:
2013-Türkçe
Varsayılan

Alıntı:
hoguz2 tarafından gönderildi Mesajı Görüntüle
Sub PDF_Click()

dosya_adı = Cells(6, "D").Value
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
ActiveWindow.SelectedSheets.PrintPreview
a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")

If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
Exit Sub
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub



eklenen satir ActiveWindow.SelectedSheets.PrintPreview satiri
isterseniz kod içinde degil dediginiz gibi ayri buton a da atayabilirsiniz

bundan sonraki eklentiler hediyeye tabi ... )
Üstad işlerin yoğunluğundan yazamadım. Çok Teşekkür ediyorum. Allah Razı olsun sizden. Yaptığınız çalışma gayet güzel bi şekilde işimi görüyor.
Hediye için sıkıntı yok
manahos Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 03:27


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Hurda - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Çorlu İnşaat- Marmara Ereğlisi Yurt- Çorlu Solucan Gübresi- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden