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 08-04-2015, 16:50   #21
wesdesa
 
Giriş: 08/04/2015
Şehir: Samsun
Mesaj: 24
Excel Vers. ve Dili:
Microsoft Excel 2010
Varsayılan

Merhaba,
Sayfa üzerinde yazdırma alanı belirlenmiş bir alan var bu alana pdf ye çevir diye bir buton kodlaması yazdım ve çeviriyor çevirirken yazdırma alanı içerisindeki D6 hücresinden dosya kaydı yapacağı müşterinin adını otomatik çekiyor..Buraya kadar herşey normal bir buton kodlaması daha yaptım yine d12 deki mail adresine göre yazdırma sayfası içindeki kayıtlı olan dosyayı mail atmak istiyorum fakat Attachment yapacağım yerde dosya yolunu yazmam gerek ben yine müşteri adından çeksin istiyorum umarım anlatabilmişimdir…Cevabınızı bekliyorum teşekkürler..
wesdesa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-04-2015, 08:26   #22
wesdesa
 
Giriş: 08/04/2015
Şehir: Samsun
Mesaj: 24
Excel Vers. ve Dili:
Microsoft Excel 2010
Varsayılan

Cevap verecek kimse yokmu arkadaşlar..
wesdesa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-06-2017, 11:33   #23
engakb
Altın Üye
 
Giriş: 06/09/2007
Şehir: İstanbul
Mesaj: 2
Excel Vers. ve Dili:
Excel 2016
Smile

Alıntı:
sukruyilmaz tarafından gönderildi Mesajı Görüntüle
bende aşağıdaki kodu kullanarak mail gönderme butonu yapmıştım. kodu yazan forumdaki üstadlarımdır...

Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Set rng = Nothing
On Error Resume Next
'Only the visible cells in the selection
Set rng = Selection.SpecialCells(xlCellTypeVisible)
'You can also use a range if you want
Set rng = Nothing
On Error GoTo 0


With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = ""
.Attachments.Add ""
.HTMLBody = ""
.Display
End With
On Error GoTo 0

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub
Mükemmel çalışıyor. Yapanın eline ve emeğine sağlık.
engakb Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-06-2017, 12:13   #24
zeidor
 
Giriş: 18/11/2009
Şehir: istanbul
Mesaj: 41
Excel Vers. ve Dili:
excel 2010
Lightbulb

yeni bir konu açmadan sorumu buraya yazmaya karar verdim inşallah cevap alırım.
Sorum şu,aşağıdaki kodda d41 hücresindeki sayıyı çekemiyorum mailin konusuna diğerleri geliyor bu gelmiyor,d41 hücresindeki değer başka hücredede olsa yine olmuyor,kodda bir hatamı var,yardımcı olabilirmisiniz?
.Subject = "FİŞ" + Range("D41").Value + "-" + Range("D35").Value

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

Private Sub CommandButton2_Click()
ActiveSheet.PageSetup.PrintArea = "A1:I31"
Application.Dialogs(xlDialogPrint).Show
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D35:D37:H35")) Is Nothing Then Exit Sub
Target.Font.Size = 16
End Sub
Private Sub CommandButton1_Click()
Dim Sayfa As Worksheet
    Dim Alan As Range
    Dim daralan As Range
    
    ' mailin gönderileceği kişi girilmemişse HATA'ya git
    If Range("D36").Value = "" Then GoTo HATA

    On Error GoTo HATA

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    ' mail ile gönderilecek alanı ayarla
    Set Sayfa = ActiveSheet
    Set Alan = ActiveSheet.Range("A1:I30")
   
    With Alan

        .Parent.Select
        Set daralan = ActiveCell

        .Select
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope

                        With .Item
                .To = Range("D36").Value
                .CC = Range("D37").Value
                .Subject = "FİŞ" + Range("D41").Value + "-" + Range("D35").Value
                .Send
            End With

        End With

        daralan.Select
    End With
    
    Sayfa.Select

HATA:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
   ActiveSheet.PageSetup.PrintArea = "A1:I31"
Application.Dialogs(xlDialogPrint).Show

End Sub
zeidor Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-06-2017, 14:26   #25
zeidor
 
Giriş: 18/11/2009
Şehir: istanbul
Mesaj: 41
Excel Vers. ve Dili:
excel 2010
Varsayılan

kendi sorumu kendim cevaplayayım,artılardan(+) kurtardık sorun çözüldü.
.Subject = "FİŞ" & Range("D41").Value & "-" & Range("D35").Value
zeidor Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2018, 16:58   #26
UsTaa55
Altın Üye
 
Giriş: 20/12/2011
Şehir: samsun
Mesaj: 1
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

Arkadaşlar merhaba "to" kısmında birden fazla kişiye nasıl mail atılır.
UsTaa55 Ç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 06:25


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- Ç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- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden