Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 15-10-2014, 14:28   #1
cemto
 
Giriş: 11/05/2006
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
Microsoft Office 2010
Exclamation cari mutabakat mektubu

Merhaba, sitede araştırma yaptım ama detaylı yoktu , aylık olarak firmalar cari hesap mutabakat mektubu mail atmak istiyorum yalnız üç farklı para birimi bulunmakta detaylı anlatım dosya içinde var ilgilenen arkadaşlara teşekkürü borç bilirim.
Eklenmiş Dosyalar
Dosya Türü: xlsx mail mutabakat.xlsx (17.4 KB, 47 Görüntülenme)
cemto Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2014, 23:40   #2
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

mail gönder sayfasında C sütununda göndermek istediğiniz müşterileri aralıksız seçin.
Örneğin C3:C5 sonra C6:C10 gibi.
Bunu gönderme işlemini 10-15 li gruplar halinde yapmanız için yaptım ki spama düşmeyin.

Firma ünvanları mizan ile aynı olmalı. (C ve B sütunları)

Data sayfanızın baskısını A4 sayfasına sığacak hale getirmenizde fayda var.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub KOD()
    
    'NOT: TOOLS-REFERENCES TIKLA
    'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI
    
    Dim SD As Worksheet
    Dim SM As Worksheet
    Dim SMG As Worksheet
    Dim SR As Worksheet
    Set SD = Sheets("data")
    Set SM = Sheets("mizan")
    Set SMG = Sheets("mail gönder")
    Set SR = Sheets("rapor")
    
    If Selection.Column <> 3 Then Exit Sub
    With Selection
        ilk_sat = .Row
        son_sat = .Rows.Count + ilk_sat - 1
    End With
    
    For i = ilk_sat To son_sat
        
        If SMG.Cells(i, "C") <> "" Then
            
            For a = 2 To SM.Cells(Rows.Count, "B").End(3).Row
                
                If SMG.Cells(i, "C") = SM.Cells(a, "B") Then
                    
                    SD.Range("B19") = SM.Cells(a, "B")
                    
                    If SM.Cells(a, "H") = "" Then
                        SD.Range("C26") = "TL"
                    Else
                        SD.Range("C26") = SM.Cells(a, "H")
                    End If
                    
                    If SM.Cells(a, "F") > 0 Then
                        SD.Range("B26") = SM.Cells(a, "F")
                        SD.Range("E26") = "BORÇ"
                    Else
                        SD.Range("B26") = SM.Cells(a, "G")
                        SD.Range("E26") = "ALACAK"
                    End If
                    
                    yol = CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & SMG.Cells(i, "A").Row & ".pdf"
                    
                    SD.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                    yol, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                    OpenAfterPublish:=False
                    
                    With Application
                        .EnableEvents = False
                        .ScreenUpdating = False
                    End With
                    
                    Dim objOutlook As Object
                    Dim objMail As Object
                    Set objOutlook = CreateObject("Outlook.Application")
                    Set objMail = objOutlook.CreateItem(0)
                    With objMail
                        .To = SMG.Cells(i, "E").Value
                        .CC = ""
                        .Subject = "Mutabakat"
                        .Attachments.Add yol
                        .Save
                        '.Display
                        .Send
                    End With
                    
                    sonsat = SR.Cells(Rows.Count, "A").End(3).Row + 1
                    SR.Cells(sonsat, "A") = SMG.Cells(i, "C")
                    SR.Cells(sonsat, "B") = SMG.Cells(i, "D")
                    SR.Cells(sonsat, "C") = Now
                    
                    Exit For
                    
                    Else: End If
                Next a
                Kill yol
                
                Else: End If
            Next i
            
            Set objMail = Nothing
            Set objOutlook = Nothing
            
            With Application
                .EnableEvents = True
                .ScreenUpdating = True
            End With
            
End Sub
. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2014, 11:34   #3
cemto
 
Giriş: 11/05/2006
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
Microsoft Office 2010
Unhappy

Alıntı:
Hüseyin Çoban tarafından gönderildi Mesajı Görüntüle
. . .

mail gönder sayfasında C sütununda göndermek istediğiniz müşterileri aralıksız seçin.
Örneğin C3:C5 sonra C6:C10 gibi.
Bunu gönderme işlemini 10-15 li gruplar halinde yapmanız için yaptım ki spama düşmeyin.

Firma ünvanları mizan ile aynı olmalı. (C ve B sütunları)

Data sayfanızın baskısını A4 sayfasına sığacak hale getirmenizde fayda var.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub KOD()
    
    'NOT: TOOLS-REFERENCES TIKLA
    'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI
    
    Dim SD As Worksheet
    Dim SM As Worksheet
    Dim SMG As Worksheet
    Dim SR As Worksheet
    Set SD = Sheets("data")
    Set SM = Sheets("mizan")
    Set SMG = Sheets("mail gönder")
    Set SR = Sheets("rapor")
    
    If Selection.Column <> 3 Then Exit Sub
    With Selection
        ilk_sat = .Row
        son_sat = .Rows.Count + ilk_sat - 1
    End With
    
    For i = ilk_sat To son_sat
        
        If SMG.Cells(i, "C") <> "" Then
            
            For a = 2 To SM.Cells(Rows.Count, "B").End(3).Row
                
                If SMG.Cells(i, "C") = SM.Cells(a, "B") Then
                    
                    SD.Range("B19") = SM.Cells(a, "B")
                    
                    If SM.Cells(a, "H") = "" Then
                        SD.Range("C26") = "TL"
                    Else
                        SD.Range("C26") = SM.Cells(a, "H")
                    End If
                    
                    If SM.Cells(a, "F") > 0 Then
                        SD.Range("B26") = SM.Cells(a, "F")
                        SD.Range("E26") = "BORÇ"
                    Else
                        SD.Range("B26") = SM.Cells(a, "G")
                        SD.Range("E26") = "ALACAK"
                    End If
                    
                    yol = CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & SMG.Cells(i, "A").Row & ".pdf"
                    
                    SD.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                    yol, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                    OpenAfterPublish:=False
                    
                    With Application
                        .EnableEvents = False
                        .ScreenUpdating = False
                    End With
                    
                    Dim objOutlook As Object
                    Dim objMail As Object
                    Set objOutlook = CreateObject("Outlook.Application")
                    Set objMail = objOutlook.CreateItem(0)
                    With objMail
                        .To = SMG.Cells(i, "E").Value
                        .CC = ""
                        .Subject = "Mutabakat"
                        .Attachments.Add yol
                        .Save
                        '.Display
                        .Send
                    End With
                    
                    sonsat = SR.Cells(Rows.Count, "A").End(3).Row + 1
                    SR.Cells(sonsat, "A") = SMG.Cells(i, "C")
                    SR.Cells(sonsat, "B") = SMG.Cells(i, "D")
                    SR.Cells(sonsat, "C") = Now
                    
                    Exit For
                    
                    Else: End If
                Next a
                Kill yol
                
                Else: End If
            Next i
            
            Set objMail = Nothing
            Set objOutlook = Nothing
            
            With Application
                .EnableEvents = True
                .ScreenUpdating = True
            End With
            
End Sub
. . .



Hüseyin bey merhaba,

bilmiyorum hatırladınız mı daha öncede ba bs mutabakat formu ile ilgili yardımcı olmuştunuz çok kişi duasını aldınız inanın, bu çalışmaya o dosya üzerinden başladım ama verdiğiniz kodu onun üzerinde makroya yapıştırdım açılışta başka bir bağlantı var güncelle vs.. diye birşeyler çıkıyor sistem ve bende error verdim , o yüzden dosyayı yeni bir excel sayfası yaptım sayfa ayalarını yapıp daha detaylı belirgin bir açıklama ile yazdım ekledim şimdi rica etsem bu dosya içine ekleye bilir miyiz saatlerce uğraştım yapamadım , bir çok meslektaşın işine yarayacak bir çalışma olacak teşekkür ederim.
Eklenmiş Dosyalar
Dosya Türü: xlsx cari mutabakat.xlsx (16.0 KB, 22 Görüntülenme)

Bu mesaj en son " 16-10-2014 " tarihinde saat 11:35 itibariyle cemto tarafından düzenlenmiştir.... Neden: dosya eklendi
cemto Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2014, 11:59   #4
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

Kodlar çalışıyor. Bir kaç revize yaptım.
Dosyanız ektedir ve çalışma adımları videosu aşağıdadır.

Dikkat etmeniz gerek kısımlar;
  • Mizan sayfası ile mail gönder sayfasındaki firma isimleri aynı olmalı.
  • mail gönder sayfasında C sütununda mail göndermek istediğiniz firmaları seçip, kodu çalıştırın.

Ekran Görüntüsü (GİF)



. . .
Eklenmiş Dosyalar
Dosya Türü: rar cari mutabakat_01.rar (56.5 KB, 64 Görüntülenme)
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2014, 14:08   #5
cemto
 
Giriş: 11/05/2006
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
Microsoft Office 2010
Varsayılan

Alıntı:
Hüseyin Çoban tarafından gönderildi Mesajı Görüntüle
. . .

Kodlar çalışıyor. Bir kaç revize yaptım.
Dosyanız ektedir ve çalışma adımları videosu aşağıdadır.

Dikkat etmeniz gerek kısımlar;
  • Mizan sayfası ile mail gönder sayfasındaki firma isimleri aynı olmalı.
  • mail gönder sayfasında C sütununda mail göndermek istediğiniz firmaları seçip, kodu çalıştırın.

Ekran Görüntüsü (GİF)



. . .
hüseyin bey dosya ve gif dosyası çok güzel olmuş çok teşekkür ederim,

1) dosyayı incelediğimde , tl de sıkıntı yok ama dolar ve euro cinsinde mail atılacak tutar k ve l sütunu olması gerekiyor ( Döviz Borç Bakiyesi ,Döviz Alacak Bakiyesi )

2) birde maillin içine bir açıklama yazdım data klasörünün altına bunu 70- 89 arasındaki mailin içine yazma imkanımız varmı
Eklenmiş Dosyalar
Dosya Türü: xlsm cari mutabakat_01.xlsm (57.1 KB, 17 Görüntülenme)
cemto Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2014, 15:48   #6
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

Alıntı:
cemto tarafından gönderildi Mesajı Görüntüle
hüseyin bey dosya ve gif dosyası çok güzel olmuş çok teşekkür ederim,

1) dosyayı incelediğimde , tl de sıkıntı yok ama dolar ve euro cinsinde mail atılacak tutar k ve l sütunu olması gerekiyor ( Döviz Borç Bakiyesi ,Döviz Alacak Bakiyesi )

2) birde maillin içine bir açıklama yazdım data klasörünün altına bunu 70- 89 arasındaki mailin içine yazma imkanımız varmı
. . .

Dosyanız ektedir.

. . .
Eklenmiş Dosyalar
Dosya Türü: rar cari mutabakat_02.rar (59.0 KB, 53 Görüntülenme)
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2014, 17:45   #7
cemto
 
Giriş: 11/05/2006
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
Microsoft Office 2010
Varsayılan

Alıntı:
Hüseyin Çoban tarafından gönderildi Mesajı Görüntüle
. . .

Dosyanız ektedir.

. . .
Hüseyin bey , mail gönder dediğimde outlook ta her biri için sayfa açıyor taslakta tutuyor otomatik göndermiyor
cemto Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2014, 17:49   #8
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

Kodları incelerseniz .send satırı pasif yaptım ki ben denemeler yaparken sürekli mail atmaması için.
Sizde .Display satırını pasif yapıp, .send satırını aktif edin.

. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2014, 18:05   #9
cemto
 
Giriş: 11/05/2006
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
Microsoft Office 2010
Varsayılan

Alıntı:
Hüseyin Çoban tarafından gönderildi Mesajı Görüntüle
. . .

Kodları incelerseniz .send satırı pasif yaptım ki ben denemeler yaparken sürekli mail atmaması için.
Sizde .Display satırını pasif yapıp, .send satırını aktif edin.

. . .

Hüseyin bey kod işinden anlamıyorum bana çin yazısı gibi geliyor rica etsem o şekilde göndere bilirmisiniz teşekkür ederim
cemto Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2014, 19:15   #10
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

Önce bir deneyin. Değişiklik yaptıktan sonra çalıştırarsk sonucu gözlemleyin.
Yine yapamazsanız yardımcı olalım.

.
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Ç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 04:09


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-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden