[Yardım]  İki farklı Kodu birleştirip yazdır yerine gönder kullanmak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

İki farklı Kodu birleştirip yazdır yerine gönder kullanmak

İleti#1)  beyfendi » 24 Tem 2020 08:30

Merhaba Üstadlarım,

Daha önce aşağıdaki Yazdır Kodunu kullanıyordum ama şimdi bu yazdır kodu yerine daha aşağıdaki e-Mail Gönder kodunu yazdır koduna uyarlayıp e-Mail gönderme işlemini yaptırmak istiyorum,

YAZDIR KODU
Kod: Tümünü seç
If Not Intersect(Target, Range("N" & Target.Row)) Is Nothing Then
If Not Range("N7").Row > Target.Row Then
If Target.Row < 7 Then
Sheets("0" & CInt(ActiveCell.Row - 2)).PrintPreview
Else
Sheets(CInt(ActiveCell.Row - 1)).PrintPreview
End If
End If
End If
Dim cevap As VbMsgBoxResult, tip As VbMsgBoxStyle, soru As String
''''



E-MAİL GÖNDER KODU
Kod: Tümünü seç
Sub kaydet_ilet()

ad = Format(Sheets("KAYIT").Range("C4") & " " & Sheets("KAYIT").Range("B2") & " " & Sheets("KAYIT").Range("C5") & " ŞUBESİNE")

ChDir "\\192.168.0.74\e\NAKİL YAZILARI\"
Sheets("Form").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\192.168.0.74\e\NAKİL YAZILARI\" & ad & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
With Application
  [COLOR="DarkGreen"]
    'MAİL GÖNDERİMİ BAŞLANGIÇ
    'NOT: TOOLS-REFERENCES TIKLA
    'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI[/COLOR]
  End With
 
    With Application
        .EnableEvents = False:  .ScreenUpdating = False
    End With
   
    Dim xlOutlook   As Object
    Dim xlMail      As Object
    Set xlOutlook = CreateObject("Outlook.Application")
    Set xlMail = xlOutlook.CreateItem(0)
   
    ad = Format(Sheets("KAYIT").Range("C4") & " " & Sheets("KAYIT").Range("B2") & " " & Sheets("KAYIT").Range("C5") & " ŞUBESİNE")
    yol = "\\192.168.0.74\E\NAKİL YAZILARI\"
   
   [COLOR="DarkGreen"] 'ChDir yol
    'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & ad & "&.pdf", _
    'Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True[/COLOR]
   
   
    With xlMail
        .To = Sheets("KAYIT").Range("D4").Value
        .CC = "ik@celikkayalar.com.tr;" & Sheets("KAYIT").Range("E4").Value & ";" & Sheets("KAYIT").Range("E5").Value & ";" & Sheets("KAYIT").Range("D5").Value
        .Subject = Format(Sheets("KAYIT").Range("B2") & " HK.")
        .Body = Format(Sheets("KAYIT").Range("B4") & " PERSONELİ " & Sheets("KAYIT").Range("B2") & "'IN " & Sheets("KAYIT").Range("B5") & "'NE NAKİL YAZISI EKTEDİR, İYİ ÇALIŞMALAR.")
        .Attachments.Add yol & ad & ".pdf"
        .Save
        .Display
        '.Send
    End With
   
    Set xlMail = Nothing
    Set xlOutlook = Nothing
   
    With Application
        .EnableEvents = True:   .ScreenUpdating = True
    End With
End Sub


Yardımcı olan üstadıma şimdiden teşekkür ederim.
Kullanıcı avatarı
beyfendi
Yeni Başlamış
 
Adı Soyadı:Ramazan KARAKAYA
Kayıt: 22 Ağu 2011 11:41
Konum: Kuzey
Meslek: Muhasebe
Yaş: 40
İleti: 96
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kuzey

Cevap: İki farklı Kodu birleştirip yazdır yerine gönder kull

İleti#2)  beyfendi » 27 Tem 2020 10:33

Üstadlar rica ediyorum bir yardımcı olabilir misiniz.
Kullanıcı avatarı
beyfendi
Yeni Başlamış
 
Adı Soyadı:Ramazan KARAKAYA
Kayıt: 22 Ağu 2011 11:41
Konum: Kuzey
Meslek: Muhasebe
Yaş: 40
İleti: 96
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kuzey

Cevap: İki farklı Kodu birleştirip yazdır yerine gönder kull

İleti#3)  Feyzullah » 02 Ağu 2020 23:49

Örnek dosya paylaşırmısın ?
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 790
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: İki farklı Kodu birleştirip yazdır yerine gönd

İleti#4)  beyfendi » 05 Ağu 2020 16:15

Feyzullah yazdı:Örnek dosya paylaşırmısın ?


Örnek dosyayı ekledim üstad,

Liste sayfasında en üstte N ve O sütünlarını gizleyen ve gösteren "Göster" ve "Gizle" diye iki seçenek var hangisine seçersek seçelim vb deki mail gönder kodlarında hata veriyor ayrıca N sütunundaki "GÖNDER" seçeneklerinden hangisine tıklanırsa tıklansın otomatik mail gönderimini hazırlamıyor aynı mail gönder kodu başka bir çalışmamda sorunsuz çalışıyor, mail gönder kodunu kod grubundan çıkardığımda diğer bütün kodlar sorunsuz çalışıyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
beyfendi
Yeni Başlamış
 
Adı Soyadı:Ramazan KARAKAYA
Kayıt: 22 Ağu 2011 11:41
Konum: Kuzey
Meslek: Muhasebe
Yaş: 40
İleti: 96
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kuzey

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: İki farklı Kodu birleştirip yazdır yerine gönder kull

İleti#5)  Feyzullah » 06 Ağu 2020 10:14

ekli dosyayı deneyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 790
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe