Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 16-02-2012, 14:01   #1
excelapachi
 
Giriş: 28/01/2008
Şehir: SİVAS
Mesaj: 85
Excel Vers. ve Dili:
Office 2003 Türkçe
Varsayılan Aktif Sayfayı Masaüstüne PDF olarak farklı kaydetme

Sub farklı_kaytet_pdf()
dosya_adı = Cells(1, "a").Value
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "işlem tamam!"
End If
If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
End If
End Sub




Az önce bir arkadaş böyle bir şey sormuştu ama konuyu göremedim.
Aktif sayfayı masaüstüne PDF formatında farklı kaydeder.
Modüle yapıştırarak kullanın.
excelapachi Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-07-2012, 08:44   #2
arif_55
 
Giriş: 26/06/2012
Şehir: kocaeli
Mesaj: 10
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

peki masaüstüne değilde isteğimiz bi klasöre nasıl kaydederiz.şimdiden teşekkürler.

Bu mesaj en son " 07-07-2012 " tarihinde saat 08:50 itibariyle arif_55 tarafından düzenlenmiştir....
arif_55 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-07-2012, 11:13   #3
arif_55
 
Giriş: 26/06/2012
Şehir: kocaeli
Mesaj: 10
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

arkadaşlar yardım edecek kimse yokmu
arif_55 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-07-2012, 16:03   #4
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 12,019
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

ThisWorkbook.Path'i değiştiriniz. Örneğin : "C:\DENEME" yazabilirsiniz.
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-07-2012, 09:05   #5
arif_55
 
Giriş: 26/06/2012
Şehir: kocaeli
Mesaj: 10
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

hocam dediğiniz şeklilde denedim ya olmadı ya beceremedim kusuruma bakmayın daha çok yeniyim.
arif_55 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-07-2012, 09:20   #6
asi_kral
Özel Üye
 
asi_kral kullanıcısının avatarı
 
Giriş: 22/02/2012
Şehir: İstanbul /
Mesaj: 2,761
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Alıntı:
arif_55 tarafından gönderildi Mesajı Görüntüle
hocam dediğiniz şeklilde denedim ya olmadı ya beceremedim kusuruma bakmayın daha çok yeniyim.
Merhaba
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub deneme()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\asi_kral_1967" & "\" & "excelciler", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Bu şekilde deneyin.

"C:\asi_kral_1967" ------ Bu yol bilgisi
"excelciler" ------------- Bu dosya adı bilgisi
__________________
Dosyalarınızı UPLOAD sitelerine yükleyip link ile ekleyebilirsiniz.
asi_kral Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-07-2012, 10:24   #7
arif_55
 
Giriş: 26/06/2012
Şehir: kocaeli
Mesaj: 10
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

teşekkür ederim arkadaşlar sonunda oldu.emeği geçen herkesin eline sağlık....
arif_55 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2013, 16:28   #8
leventidil
Altın Üye
 
Giriş: 21/11/2007
Mesaj: 30
Excel Vers. ve Dili:
excel 2003 tr
Varsayılan

iki farklı sekmeyi kayıt yapabilirmiyiz sizin çalışma işime yaradı ama aşağıdaki sekmelere girip o şekilde 2 kere işlem yapmam gerekiyor
leventidil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-01-2018, 15:08   #9
atakan1971
Altın Üye
 
Giriş: 19/12/2010
Şehir: Eskişehir
Mesaj: 28
Excel Vers. ve Dili:
Office 2007 TRK
Varsayılan

Oluşturduğum EXCEL dosyasında "VARDİYA" sayfasında "nöbet listesi" düğmesine basınca tüm sayfaları PDF olarak kayıt ediyor. Ben ön izlemeyi istediğim tarihe göre almak istiyorum ve aynı zamanda masaüstüne PDF Adobe Reader dosyası kayıt etmesini istiyorum. Yani sadece 1 sayfayı görmek ve PDF olarak kayıt yapmak istiyorum.

Böyle bir kod yaptım ama tüm sayfaları kayıt yapıyor;

Sub YuvarlatılmışDikdörtgen_Tıklat()
dosya_adı = Cells(1, "a").Value
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\cengiz\Desktop" & "\" & "GÜNLÜK VARDİYA ÇALIŞMA ÇİZELGESİ", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "işlem tamam!"
End If
If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
End If
End Sub
atakan1971 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-01-2018, 16:49   #10
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,285
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

atakan1971;

Bu şekilde bir deneyin, bakalım olacak mı?

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\cengiz\Desktop" & "\" & "GÜNLÜK VARDİYA ÇALIŞMA ÇİZELGESİ.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
.
__________________
Kod anlatılmaz,yazılır ! 🇹🇷
Haluk Çevrimiçi   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 20:26


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden