Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


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

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Kapalı Konu
 
Paylaş Konu Araçları Görünüm Modları
Eski 07-07-2015, 16:57   #1
fledermaus
Altın Üye
 
Giriş: 18/11/2012
Şehir: istanbul
Mesaj: 179
Excel Vers. ve Dili:
ingilizce 2016
Varsayılan Çalışma Sayfasını Buton İle PDF e Çevirme

Arkadaşlar Merhaba,

Ekte göndermiş olduğum çalışma sayfasını ilgili sayfanın sağ üst köşesine buton ekleyerek tek bir click ile nasıl pdf e çevirebilirim ? Yardımcı olabilecek biri var mıdır ? ""Not: Söz konusu sayfayı boş sayfalara create ederek sürekli kullanacağım" Yardımlarınız için şimdiden teşekkür ederim. Hayırlı ramazanlar dilerim.

Bu mesaj en son " 02-05-2016 " tarihinde saat 09:17 itibariyle fledermaus tarafından düzenlenmiştir....
fledermaus Çevrimdışı  
Eski 07-07-2015, 20:51   #2
fledermaus
Altın Üye
 
Giriş: 18/11/2012
Şehir: istanbul
Mesaj: 179
Excel Vers. ve Dili:
ingilizce 2016
Varsayılan

Arkadaslar yardimci olabilecek biri yok mu ?
fledermaus Çevrimdışı  
Eski 07-07-2015, 21:13   #3
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,713
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Kod:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub savePDF()
Dim Yol As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Yol = ThisWorkbook.Path
Say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1


Sheets("TABLO").PageSetup.PrintArea = "$A$1:$AV$75"


Sheets(Array("TABLO")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "işlem tamam"

End Sub
__________________





Forum Kuralları
Ofis 2003 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104854.html
Ofis 2007 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104852.html
Timer Nesnesinin kurulumu
http://www.excel.web.tr/f167/timer-n...mu-t78713.html
halit3 Çevrimdışı  
Eski 07-07-2015, 23:16   #4
fledermaus
Altın Üye
 
Giriş: 18/11/2012
Şehir: istanbul
Mesaj: 179
Excel Vers. ve Dili:
ingilizce 2016
Varsayılan

Yardimlariniz icin cok tesekkur ederim gercekten. Cok uzun zamandir makro yazmadigim icin korelmisim. Eger zamaniniz var ise bana bir konuda daha yardimci olmanizi isteyecegim. Soz konusu sayfaya uc tane buton ekleyecegim. Bir tanesi bugun gondermis oldugunuz kod ile sayfayi sadece pdf e cevirecek. (Bu konu sayenizde cozuldu) Diger iki butondan bir tanesi pdf e cevirecek ve masa ustune sayfaya verdigim adi ekleyerek kaydedecek son buton ise pdf e cevirecek ve sayfaya verdigim isim ile kaydederek mail olarak acilacak. ( en son butondaki amaca musteriye huzli bir sekilde dosyayi mail atabilmek) Bu konuda bana yardimci olursaniz cok sevinirim cunku her uc durumuda acil olarak kullanmam gerekebiliyor. Biliyorum cok sey istiyorum belki yogunsunuz ama gercekten yardimci olusaniz cok sevinirim. Simdiden cok tesekkur ederim. Sevgilerle...
fledermaus Çevrimdışı  
Eski 08-07-2015, 02:37   #5
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,713
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
fledermaus tarafından gönderildi Mesajı Görüntüle
Yardimlariniz icin cok tesekkur ederim gercekten. Cok uzun zamandir makro yazmadigim icin korelmisim. Eger zamaniniz var ise bana bir konuda daha yardimci olmanizi isteyecegim. Soz konusu sayfaya uc tane buton ekleyecegim. Bir tanesi bugun gondermis oldugunuz kod ile sayfayi sadece pdf e cevirecek. (Bu konu sayenizde cozuldu) Diger iki butondan bir tanesi pdf e cevirecek ve masa ustune sayfaya verdigim adi ekleyerek kaydedecek son buton ise pdf e cevirecek ve sayfaya verdigim isim ile kaydederek mail olarak acilacak. ( en son butondaki amaca musteriye huzli bir sekilde dosyayi mail atabilmek) Bu konuda bana yardimci olursaniz cok sevinirim cunku her uc durumuda acil olarak kullanmam gerekebiliyor. Biliyorum cok sey istiyorum belki yogunsunuz ama gercekten yardimci olusaniz cok sevinirim. Simdiden cok tesekkur ederim. Sevgilerle...
kırmızı alanları kendinize göre doldurun.
kod:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub savePDF()

Application.ScreenUpdating = False

dosya_adı = InputBox("Dosya isimini değiştirebilirsiniz.", "UYARI!", "deneme")

If dosya_adı = "" Then
MsgBox "Dosya ismini yazmadınız"
Exit Sub
End If

msg1 = MsgBox("Dosya göndermek istiyormısunuz. ?", vbYesNo + vbInformation, "uyarı")

Yol = ThisWorkbook.Path
Say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1
Sheets("TABLO").PageSetup.PrintArea = "$A$1:$AV$75"

Sheets(Array("TABLO")).Select
dosya = Yol & "\" & dosya_adı & Say & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosya, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False


Set objEmail = CreateObject("CDO.Message")

kullanici_sahibi = "kullanıcı@gmail.com"
kullanici_parola = "parola"

objEmail.To = "birisi@hotmail.com" ' Gönderilecek e-mail adresi
objEmail.From = kullanici_sahibi ' Gönderen e-mail adresi

objEmail.Subject = "Ekli Dosya" 'konu

Txt1 = "Merhaba Sayın Yetkili1"
Txt2 = "Merhaba Sayın Yetkili2"
Txt3 = "Merhaba Sayın Yetkili3"

objEmail.HTMLBody = Txt1 & vbCrLf & Txt2 & vbCrLf & Txt3


If msg1 = vbYes Then
Application.Wait (Now + TimeValue("00:00:02"))
objEmail.Addattachment dosya '"C:\deneme.txt" ' eğer isterseniz eklenecek dosya
End If


With objEmail.Configuration.Fields

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = kullanici_sahibi '"kullanıcı@hotmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = kullanici_parola '"parola"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update

End With
objEmail.Send

Application.ScreenUpdating = True

MsgBox "işlem tamam.", vbApplicationModal, "Bilgilendirme!"

End Sub
ayrıca aşağıdaki linkide irdeleyiniz.

http://www.excel.web.tr/f48/makro-il...e-t148125.html
__________________





Forum Kuralları
Ofis 2003 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104854.html
Ofis 2007 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104852.html
Timer Nesnesinin kurulumu
http://www.excel.web.tr/f167/timer-n...mu-t78713.html
halit3 Çevrimdışı  
Eski 08-07-2015, 10:34   #6
fledermaus
Altın Üye
 
Giriş: 18/11/2012
Şehir: istanbul
Mesaj: 179
Excel Vers. ve Dili:
ingilizce 2016
Varsayılan Hata Kodu

Merhabalar,

Dediklerini yerine getirdim fakat (Run-time error '2147220975 (80040211)' şeklinde error vermekte. Yardımcı olabilir misniz acaba ? :8
fledermaus Çevrimdışı  
Eski 08-07-2015, 10:59   #7
fledermaus
Altın Üye
 
Giriş: 18/11/2012
Şehir: istanbul
Mesaj: 179
Excel Vers. ve Dili:
ingilizce 2016
Varsayılan Çalışma Sayfasını Buton İle PDF e Çevirme

Eklemiş olduğum dosyayı yeniledim ve çalıştırmak istediğim butonları ekledim. Daha fazla yardımcı olacağı kanaatindeyim. Şimdiden çok çok teşekkür ederim..

Bu mesaj en son " 02-05-2016 " tarihinde saat 09:18 itibariyle fledermaus tarafından düzenlenmiştir....
fledermaus Çevrimdışı  
Eski 08-07-2015, 12:21   #8
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,713
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
fledermaus tarafından gönderildi Mesajı Görüntüle
Eklemiş olduğum dosyayı yeniledim ve çalıştırmak istediğim butonları ekledim. Daha fazla yardımcı olacağı kanaatindeyim. Şimdiden çok çok teşekkür ederim..
5 nolu mesajdaki kullanıcı mail adı gmail hesabın da kodlar çalışıyor

bir adet gmail hesabı edinin

kullanici_sahibi = "kullanıcı@gmail.com" 'kullanıcı
kullanici_parola = "parola"

objEmail.To = "birisi@hotmail.com" ' Gönderilecek e-mail adresi
__________________





Forum Kuralları
Ofis 2003 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104854.html
Ofis 2007 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104852.html
Timer Nesnesinin kurulumu
http://www.excel.web.tr/f167/timer-n...mu-t78713.html
halit3 Çevrimdışı  
Eski 08-07-2015, 12:53   #9
fledermaus
Altın Üye
 
Giriş: 18/11/2012
Şehir: istanbul
Mesaj: 179
Excel Vers. ve Dili:
ingilizce 2016
Varsayılan Çalışma Sayfasını Buton İle PDF e Çevirme

Göndereceğim kişi değişebileceğinden mail açıldığında alıcı adresi kendim manual olarak yazmak istiyorum ayrıca tıpkı dosya ismi verebildiğimiz gibi mail konusunuda kendim manual olarak yazmak istiyorum. Kodları nasıl revize edebilirim ? Yardımcı olabilir misiniz ? Teşekkür ederim.
fledermaus Çevrimdışı  
Eski 08-07-2015, 13:07   #10
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,713
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
fledermaus tarafından gönderildi Mesajı Görüntüle
Göndereceğim kişi değişebileceğinden mail açıldığında alıcı adresi kendim manual olarak yazmak istiyorum ayrıca tıpkı dosya ismi verebildiğimiz gibi mail konusunuda kendim manual olarak yazmak istiyorum. Kodları nasıl revize edebilirim ? Yardımcı olabilir misiniz ? Teşekkür ederim.
Size yardımcı olabilmem için öncelikle söylenenleri yerine getirin
bir gmail hesabı ile 5 nolu mesajdaki kodu deneyin çalışıyormu boşuna kürek çekmeyelim.

mail adreslerinide elle yazmak zor olur sayfanın bir hücresine yazıp almak daha kolay olur.
__________________





Forum Kuralları
Ofis 2003 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104854.html
Ofis 2007 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104852.html
Timer Nesnesinin kurulumu
http://www.excel.web.tr/f167/timer-n...mu-t78713.html
halit3 Çevrimdışı  
Kapalı Konu


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 12:55


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 - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden