folder Tahribat.com Forumları
linefolder Programlama Genel
linefolder Excel Ustalarına Bir Makro Fonksiyonu Hakkında Sorum



Excel Ustalarına Bir Makro Fonksiyonu Hakkında Sorum

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SoloTurk
    SoloTurk's avatar
    Kayıt Tarihi: 16/Kasım/2009
    Erkek

    Merhaba arkadaşlar.

    Çalıştığım firmada ihracat operasyondaki arkadaşlara hız kazanmaları için bir excel dökümanı hazırladım. Kantar'dan gelen detayları aşağıdaki turuncu ekrandaki ilgili yerlere dolduruyorlar ve YEŞİL ekranda otomatik metin oluşuyor. 

    Burada maksat turuncu ekrandaki veriler girildiğinde YEŞİL ekranda kendiliğinden oluşan alanları mail atmak. Aşağıdaki gibi:

    Burada makro ile ilgili sorum şu. Buna bir makro kod ile GÖNDER butonu oluşturabilir miyiz? Excel ekranında GÖNDER tuşuna basığımızda OUTLOOK programında YENİ MAİL ekranı açılacak, exceldeki KONU alanı OUTLOOK'ta KONU alanına, MAİL içeriği OUTLOOK'ta mail içeriğine otomatik kopyalayacak. Bize sadece mail adresi girme işlemi kalacak.

    Bunu sağlayabilir miyiz?

    Şu an şirketteki bilgi işlem engeli nedeniyle excel dökümanını ekleyemedim. Yardımcı olmak isteyen arkadaşlara paylaşırlarsa mail olarak göndermek istiyorum

    Yardımlarınızı rica ederim


    Oksijen, belki de yavaş yavaş öldüren bir zehirdir...
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Ekerci
    Ekerci's avatar
    Kayıt Tarihi: 14/Ocak/2010
    Erkek

    güzel konu bakalım bilen biri çıkacak mı


    Konu ID: 112846 Konuyu Acan : Ekerci Konu Başlığı : Tahribatın en sevdiği adam ? Silinme Sebebi : 3 sayfadır takip ediyorum beni seven kimse çıkmadı. alacağınız olsun müridler
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    bugax
    bugax's avatar
    Banlanmış Üye
    Kayıt Tarihi: 11/Ağustos/2005
    Erkek

    http://www.megafileupload.com/tamV/deneme.xlsm

    a1:b5 aralığını kendine göre düzenleyebilirsin

    bugax tarafından 02/Oca/17 16:52 tarihinde düzenlenmiştir
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SoloTurk
    SoloTurk's avatar
    Kayıt Tarihi: 16/Kasım/2009
    Erkek
    bugax bunu yazdı

    http://www.megafileupload.com/tamV/deneme.xlsm

    a1:b5 aralığını kendine göre düzenleyebilirsin

    Hocam çok teşekkür ederim.

    Nasıl yaptın? Bize de anlatabilir misin?


    Oksijen, belki de yavaş yavaş öldüren bir zehirdir...
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Esquire
    Esquire's avatar
    Kayıt Tarihi: 10/Mart/2004
    Erkek

    yapılıyor hatta mail adresini excel üzerinden bile yaza bilirsin.

    vakti zamamında yaptığım bir macro.

    Dim OutApp As Outlook.Application
                    Dim NewMail As Outlook.MailItem
                    Set OutApp = New Outlook.Application
                    Set NewMail = CreateItem(olMailItem)
                    With NewMail
                    .To = Cells(29, 4) //hücredeki mail adresi d sütunu 29. satırdaki mail adresi
                    '.Subject = Cells(1, 4)
                    .Subject = "konu" //burası konu başlığı hücrelerden bilgi alıpta yapa bilirsin.
                    .Body = "mail metni" // burası mail içeriği hücrelerden veri alıp bir bütün olarak yapabilirsin.
                    '.Attachments.Add "C:\Asmm\Test.xls" // ek için kullanılıyor.
                    '.SendUsingAccount = OutApp.Session.Accounts.Item() //kullanıcı mailli. burada outlooktan hangi kullanıcı seçiliyse o kullanıcıdan mail gönderiliyor.
                    .Save
                    .Send
                    End With
                    Set NewMail = Nothing
                    Set OutApp = Nothing


    boş
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SoloTurk
    SoloTurk's avatar
    Kayıt Tarihi: 16/Kasım/2009
    Erkek
    Esquire bunu yazdı

    yapılıyor hatta mail adresini excel üzerinden bile yaza bilirsin.

    vakti zamamında yaptığım bir macro.

    Dim OutApp As Outlook.Application
                    Dim NewMail As Outlook.MailItem
                    Set OutApp = New Outlook.Application
                    Set NewMail = CreateItem(olMailItem)
                    With NewMail
                    .To = Cells(29, 4) //hücredeki mail adresi d sütunu 29. satırdaki mail adresi
                    '.Subject = Cells(1, 4)
                    .Subject = "konu" //burası konu başlığı hücrelerden bilgi alıpta yapa bilirsin.
                    .Body = "mail metni" // burası mail içeriği hücrelerden veri alıp bir bütün olarak yapabilirsin.
                    '.Attachments.Add "C:\Asmm\Test.xls" // ek için kullanılıyor.
                    '.SendUsingAccount = OutApp.Session.Accounts.Item() //kullanıcı mailli. burada outlooktan hangi kullanıcı seçiliyse o kullanıcıdan mail gönderiliyor.
                    .Save
                    .Send
                    End With
                    Set NewMail = Nothing
                    Set OutApp = Nothing

    Hocam teşekkür ederim.

    Sana zahmet biraz detay verebilir misin? Nasıl kullanacağım bu kodu?


    Oksijen, belki de yavaş yavaş öldüren bir zehirdir...
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    eyuperol
    eyuperol's avatar
    Kayıt Tarihi: 13/Şubat/2011
    Erkek

    Bende bir sorundan dolayı bir konu açacaktım da buradan sorsam sanırım sorunu çözebilirim.

    konu sahibi arkadaş idare et ;) konu da yukarı.

    resimde anlattığım her hangi bir excel dosyasını açtığımda sürekli güvenlik, makro uyarısını vermesini nasıl çözerim?


    İnsanları ( küçük-büyük, yaşlı-genç, tanıdık-tanımadık, eşdost-sevgili vs vs ) sevin, saygınızı gösterin ama kesinlikle insanlara acımayın. Çünkü acıdığınız anda acınacak duruma düşüyorsunuz
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SoloTurk
    SoloTurk's avatar
    Kayıt Tarihi: 16/Kasım/2009
    Erkek

    up :)


    Oksijen, belki de yavaş yavaş öldüren bir zehirdir...
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Esquire
    Esquire's avatar
    Kayıt Tarihi: 10/Mart/2004
    Erkek

    dosyanın çalışan halını yükledim.

    http://s3.dosya.tc/server10/69r1ov/mailGonder.rar.html

    hatta kodunuda ekleyim.

     

    Sub mailGonder1()
                    'Tools references microsoft outlook 14.0 object library eklemeyi unutma
                    Dim OutApp As Outlook.Application
                    Dim NewMail As Outlook.MailItem
                    Set OutApp = New Outlook.Application
                    Set NewMail = CreateItem(olMailItem)
                    With NewMail
                    .To = Cells(1, 2) 'hücredeki mail adresi b sütunu 1. satırdaki mail adresi
                    .Subject = Cells(2, 2) 'hücredki mail konu başlığı b sütunu 2 satırdaki hücre içeriği
                    ' .Subject = "konu" 'burası konu başlığı hücrelerden bilgi alıpta yapa bilirsin.
                    .Body = Cells(3, 2) ' burası mail içeriği b sütunu 3 satırdaki hücre içeriği
                    '.Attachments.Add "C:\Asmm\Test.xls" // ek için kullanılıyor.
                    '.SendUsingAccount = OutApp.Session.Accounts.Item() //kullanıcı mailli. burada outlooktan hangi kullanıcı seçiliyse o kullanıcıdan mail gönderiliyor.
                    .Save
                    .Send
                    End With
                    Set NewMail = Nothing
                    Set OutApp = Nothing

    End Sub


    boş
Toplam Hit: 1167 Toplam Mesaj: 9
excel makro operasyon makro ihracat kantar