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 21-05-2017, 18:03   #1
denese
Altın Üye
 
denese kullanıcısının avatarı
 
Giriş: 17/03/2011
Şehir: Ordu
Mesaj: 199
Excel Vers. ve Dili:
Office 2016 Türkçe
Varsayılan Toplu izin formu oluştur, tek dosyada PDF kaydet

Merhaba,

Ekteki izin formu dosyasında, Data sayfasındaki personel bilgilerini kaynak göstererek makro ile tüm kişiler için ayrı ayrı izin formu oluşturup toplu çıktı alabiliyorum.

Yapmak istediğim; ayrı bir makro atayarak tüm kişiler için yine ayrı ayrı oluşacak izin formlarını, tek bir dosyada pdf formatında farklı kaydetmesini, kayıt yerini Gözat ile sormasını istiyorum.

Saygılar, selamlar
Eklenmiş Dosyalar
Dosya Türü: xlsm İzin Formu.xlsm (37.8 KB, 10 Görüntülenme)
denese Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2017, 19:10   #2
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,488
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 tobloları_pdf_yap()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
sayfa = ActiveSheet.Name

say = 0
For i = 2 To ThisWorkbook.Sheets("T.Data").[A65536].End(xlUp).Row
say = say + 1
ThisWorkbook.Sheets(sayfa).Range("BI4:BI12").ClearContents

'---  PERSONEL BİLGİLERİ   ---
ThisWorkbook.Sheets(sayfa).Cells(4, 61).Value = ThisWorkbook.Sheets("T.Data").Cells(i, 3).Value
ThisWorkbook.Sheets(sayfa).Cells(5, 61).Value = ThisWorkbook.Sheets("T.Data").Cells(i, 1).Value
ThisWorkbook.Sheets(sayfa).Cells(6, 61).Value = ThisWorkbook.Sheets("T.Data").Cells(i, 2).Value
ThisWorkbook.Sheets(sayfa).Cells(7, 61).Value = ThisWorkbook.Sheets("T.Data").Cells(i, 4).Value
ThisWorkbook.Sheets(sayfa).Cells(8, 61).Value = ThisWorkbook.Sheets("T.Data").Cells(i, 5).Value
ThisWorkbook.Sheets(sayfa).Cells(9, 61).Value = ThisWorkbook.Sheets("T.Data").Cells(i, 6).Value
ThisWorkbook.Sheets(sayfa).Cells(10, 61).Value = ThisWorkbook.Sheets("T.Data").Cells(i, 7).Value
ThisWorkbook.Sheets(sayfa).Cells(11, 61).Value = ThisWorkbook.Sheets("T.Data").Cells(i, 8).Value
ThisWorkbook.Sheets(sayfa).Cells(12, 61).Value = ThisWorkbook.Sheets("T.Data").Cells(i, 9).Value

'-----------------------------  YAZICIYA   -----------------------------------
'ActiveWindow.SelectedSheets.PrintOut Copies:=1

If say = 1 Then
ThisWorkbook.Sheets(sayfa).Copy
'GoTo atla
Else
ThisWorkbook.Sheets(sayfa).Copy After:=ActiveWorkbook.Sheets(1)
say1 = ActiveWorkbook.Sheets.Count
Sheets(ActiveSheet.Name).Move After:=Sheets(say1)
End If

Next i

If say > 0 Then
ActiveWorkbook.Worksheets.Select
'Application.DisplayAlerts = False
yol = ThisWorkbook.Path
say2 = CreateObject("Scripting.FileSystemObject").GetFolder(yol).Files.Count + 1

ActiveWorkbook.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & "\pdf dosyası " & say2 & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.ScreenUpdating = True
Application.DisplayAlerts = True

ActiveWorkbook.Close False
End If
MsgBox "İşlem Tamam", vbInformation, " U Y A R I "
End Sub
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2017, 19:38   #3
denese
Altın Üye
 
denese kullanıcısının avatarı
 
Giriş: 17/03/2011
Şehir: Ordu
Mesaj: 199
Excel Vers. ve Dili:
Office 2016 Türkçe
Varsayılan

Sn Halit3, desteğiniz için çok teşekkürler, ancak kodu farklı bir modüle uyguladığımda, kayıt için gözat penceresi yerine yazıcı seçenekleri çıkıyor, sonrasında ise hata veriyor.
Eklenmiş Resimler
Dosya Türü: jpg görüntü.jpg (16.4 KB, 2 Görüntülenme)
Eklenmiş Dosyalar
Dosya Türü: xlsm İzin Formu.xlsm (38.5 KB, 4 Görüntülenme)
denese Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2017, 19:52   #4
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,488
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

kayıtı dosyanın yanına yapıyor sürücü de kısıtlama yoksa kayıt yapıyor.
yapılan bir kayıtı ekliyorum.

2 nolu mesajdaki kodu güncelledim
Eklenmiş Dosyalar
Dosya Türü: pdf pdf dosyası 26.pdf (138.1 KB, 6 Görüntülenme)
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2017, 20:21   #5
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,488
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Ayrıca bilgisayarınızda yüklü bir yazıcı olmalı
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2017, 20:21   #6
denese
Altın Üye
 
denese kullanıcısının avatarı
 
Giriş: 17/03/2011
Şehir: Ordu
Mesaj: 199
Excel Vers. ve Dili:
Office 2016 Türkçe
Varsayılan

Halit Bey,

Excel dosyası masaüstünde yer alıyor. Bilgisayarıma bağlı olan ya da ağda yer alan herhangi bir yazıcı bulunmuyor. Sürücüde herhangi bir kısıtlama olmadığını düşünüyorum ancak bilmediğim atladığım bir başka durum olabilir.

Ekteki görüntü1 penceresine "İptal" dediğimde, görüntü2 deki hatayı alıyorum. görüntü3 de ise hata içeriği yer alıyor.
Eklenmiş Resimler
Dosya Türü: jpg görüntü1.jpg (16.4 KB, 3 Görüntülenme)
Dosya Türü: jpg görüntü2.jpg (15.3 KB, 1 Görüntülenme)
Dosya Türü: jpg görüntü3.jpg (20.4 KB, 1 Görüntülenme)
denese Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2017, 20:52   #7
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,488
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

aşağıdaki linki irdeleyiniz.

http://www.excel.web.tr/f48/stenen-s...k-t157469.html
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-05-2017, 08:02   #8
denese
Altın Üye
 
denese kullanıcısının avatarı
 
Giriş: 17/03/2011
Şehir: Ordu
Mesaj: 199
Excel Vers. ve Dili:
Office 2016 Türkçe
Varsayılan

Sayın halit3,

Kodu, yazıcı tanımlı ofis bilgisayarımda denedim ve sonuç kusursuz. Yardım ve destekleriniz için çok teşekkür ediyorum.

İyi çalışmalar
denese Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-05-2017, 08:27   #9
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,488
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
denese tarafından gönderildi Mesajı Görüntüle
Sayın halit3,

Kodu, yazıcı tanımlı ofis bilgisayarımda denedim ve sonuç kusursuz. Yardım ve destekleriniz için çok teşekkür ediyorum.

İyi çalışmalar
Yazıcı olmayan bilgisayara sanal herhangi bir yazıcı yükle orada da çalışacaktır.
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-05-2017, 20:25   #10
denese
Altın Üye
 
denese kullanıcısının avatarı
 
Giriş: 17/03/2011
Şehir: Ordu
Mesaj: 199
Excel Vers. ve Dili:
Office 2016 Türkçe
Varsayılan

Alıntı:
halit3 tarafından gönderildi Mesajı Görüntüle
Yazıcı olmayan bilgisayara sanal herhangi bir yazıcı yükle orada da çalışacaktır.
Dediğiniz şekilde de denedim ve sonuca ulaştım, çok teşekkür ederim.
denese Ç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 00:07


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- 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- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden