• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excel sayfasını word ve pdf olarak kaydetme

S

serkans

Altın Üye
Katılım
18 Ekim 2004
Mesajlar
171
Excel Vers. ve Dili
Office LTSC Pro Plus 21 64 Bit
Merhaba

Ekteki dosyada BS GÖNDER de 1 den 5 e kadar olan satırları BS FORMU' nda K4 te düşey ara ile formüllenmiş şekliyle bilgileri alıp, her rakam için BS FORMU excel sayfasını WORD e resim olarak yapıştırıp AAAAAAAA, BBBBBBBBBB, CCCCCCCCCC diye Sayın altındaki ilgili kişiler adına word sayfasını bir klasöre kopyalayacak makro yapabilir miyiz?
 

Ekli dosyalar

Merhaba,
Eklediğim sıkıştırılmış klasörü bilgisayarınıza çıkarın. Ardından excel dosyasını açın ve makrolar seçeneğinden makroyu bulup çalıştırın. Word dosyaları "dosyalar" klasörünün içine kaydedilecektir. Çakışma olmaması için word adının sonuna tarih ve saat ekledim.
Kod: 
Sub worde_aktar()
Set s1 = Sheets("BS GÖNDER")
Set s2 = Sheets("BS FORMU")
yol = ThisWorkbook.Path & "\dosyalar\"
Application.ScreenUpdating = False
Set wd = CreateObject("Word.Application")
Set wddoc = wd.Documents.Add(DocumentType:=0)
wd.Visible = False
For x = 1 To s1.Cells(Rows.Count, 1).End(3).Row
If s1.Cells(x, 1) <> "" Then
s2.[k4] = s1.Cells(x, 1)
s2.Range("b7:j34").CopyPicture
wd.ActiveDocument.Bookmarks("\page").Range.Delete
wd.Selection.Paste
wddoc.SaveAs yol & s2.[b11].Text & "-" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".doc"
End If
Next
wd.Visible = True
wddoc.Application.Quit
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı.", vbInformation, "l e u m r u k"
End Sub
 

Ekli dosyalar

teşekkür ederim leumruk, yalnız dosyayı açmak istediğimde "mswrd632 dönüştürücüsünü başlatamıyor" uyarısı geliyor. dosyayı müşterilerime gönderdiğimde onlar da aynı sorunu yaşarlarsa sıkıntı olabilir...
 
ilginiz için çok teşekkür ederim, ben düzelttim ancak firmalardan açamadıklarına dair mailler dönüyor, makroda word yerine pdf oluşturabilir miyiz?
 
serkans' Alıntı:
ilginiz için çok teşekkür ederim, ben düzelttim ancak firmalardan açamadıklarına dair mailler dönüyor, makroda word yerine pdf oluşturabilir miyiz?
Genişletmek için tıkla ...
Firmadakilere word dosyalarını mı gönderiyorsunuz, yoksa excelde oluşturduğumuz makroyu onlar da mı kullanıyor? Bir de bilgisayarınızda kullandığınız office programının versiyonu nedir?
 
Excel'den kopyalayıp Word'e Bağ Yapıştır'ı deneyiniz.
 
evet makrodan sonra dosyaya kaydedilen word sayfalarını gönderiyordum. ancak word yerine pdf olarak kaydedebilir miyiz excelden alınan sayfayı?
 
orjinal çalışmada 300 - 400 satır var tek tek kopyalamak, yapıştırmak, çevirmek zor, makroyla yapmam lazım.
 
Merhaba,
2. sorumun cevabı önemli. Office programınız hangi versiyon. 2003 mü, 2007 ya da 2010 mu? 2007 ya da 2010 ise fazla uğraşmadan çözüm bulabiliriz. 2003 ise bilgisayarınızda ek bir programın bulunması gerekli.
 
Merhaba,
Daha önceki cevabımda eklediğim excel dosyasına aşağıdaki makroyu kopyalayın ve çalıştırın. Makronun çalışabilmesi için "SaveAsPDF.exe" eklentisini daha önceden yüklemiş olmanız gerekli. Eğer yüklü değilse. Aşağıdaki linkten eklentiyi indirip kurun.

http://www.microsoft.com/downloads/tr-tr/details.aspx?familyid=f1fc413c-6d89-4f15-991b-63b07ba5f2e5&displaylang=tr

Kod: 
Sub pdf_aktar()
Set s1 = Sheets("BS GÖNDER")
Set s2 = Sheets("BS FORMU")
yol = ThisWorkbook.Path & "\dosyalar\"
Application.ScreenUpdating = False
For x = 1 To s1.Cells(Rows.Count, 1).End(3).Row
If s1.Cells(x, 1) <> "" Then
s2.[k4] = s1.Cells(x, 1)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    yol & s2.[b11].Text & "-" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı.", vbInformation, "l e u m r u k"
End Sub
 
Çok teşekkür ederim, süper oldu...
 
sayın leumruk, yaptığınız makro çok yardımcı oldu bana, teşekkür ederim.

ekteki dosyada pdf ye giden resimleri resimleri kaydettikten sonra sayfa 1 deki ilgili kişilerin mail adreslerine otomatik gönderecek bir makro da yapabilir miyiz?
 

Ekli dosyalar

Merhaba,
Serkan Bey,
Bu konu için "mail gönderme" yazarak sitede arama yaptırın ya da ayrı bir başlık açın. Ben bir kaç kod denedim bendeki outlook hata veriyor, bu nedenle deneme yapamıyorum.
 
Bilgi rica ve teşekkür

Sayın Mustafa Altun;


Üstadım, gününüz aydınlık, neşeniz ve sağlığınız yerinde ve kazancınız bol olsun.

Yukarıdaki konu ilgimi çekti. Office 2010 TR kullanıyorum.

"PDF" uzantılı kayıt için kodlarda nasıl bir değişiklik yapılması gerekiyor?

İlgi ve yanıtınız için önceden teşekkürler.


Sevgi ve saygılar.
 
assenucler' Alıntı:
Sayın Mustafa Altun;


Üstadım, gününüz aydınlık, neşeniz ve sağlığınız yerinde ve kazancınız bol olsun.

Yukarıdaki konu ilgimi çekti. Office 2010 TR kullanıyorum.

"PDF" uzantılı kayıt için kodlarda nasıl bir değişiklik yapılması gerekiyor?

İlgi ve yanıtınız için önceden teşekkürler.


Sevgi ve saygılar.
Genişletmek için tıkla ...
Merhaba,
2010 hiç kullanmadım. 2007'ye bile şimdilerde geçtim diyebilirim. 2010'da da bu kodun çalışması gerekirdi diye düşünmeme rağmen, çalışmamış olacak ki bu soruyu sordunuz. Bu durumda şöyle bir yöntem uygulayabiliriz. "Makro Kaydet"i çalıştırın. Excel dosyanız üzerinden pdf olarak kaydetmek istediğiniz sayfayı seçin, Farklı Kaydet seçeneklerinden "PDF"yi seçerek kayıt işlemini gerçekleştirin. Makro Kaydet'i durdurun. Elde ettiğiniz kodu buraya ekleyin. Ben de bu kodu, kodların ilgili yerine yerleştireyim.:)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst