Merhaba,
Birde
Belirtilen koşulları sağlayan hücreler: Satır 3: $C$3,$H$3:$I$3 bu şekilde mail içine yazmış hücre içinde ne yazıyorsa onu getirebilir miyiz.
Tekrar teşekkür ederim
Günaydın, çok teşekkür ederim Trilenium elinize sağlık, mail atma şartı da olması gerekiyordu bu durumu ifade etmemişim :( "I" sütununda bir hesaplama var. Hesaplanan değer >=0 ve <=7 koşulu oluştuğunda otomatik gönderme yapabilir miyiz.
Sub MailGonder()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim i As Integer
Dim rng As Range
Dim cel As Range
Dim bodyText As String
' Outlook nesneleri oluştur
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail =...
Merhaba,
"I" sütunundaki hesaplanmış değerler 0 dan büyük 7 den küçük koşuluna göre ilgili satır ve satırları seçerek mail atmasını istiyorum. Destek olabilir misiniz.
Teşekkür ederim.
Merhaba, şunun gibi bir mantıkla "Say" değişkeninin sonucunu "if/then/end if" ile kontrol ettirip makroyu sonlandırabilirsiniz:
Set sh = Sheets("Kredi")
Set Rng = sh.AutoFilter.Range
Say= Application.WorksheetFunction.Subtotal(103, rng.Resize(, 1))
Say sonucu 1 ise sadece başlık satırı var...
...Dim yeniSayfa As Worksheet
Dim dosyaYolu As String
dosyaYolu = Environ("TEMP") & "\Rapor.htm"
Dim objOutlook As Object
Dim objMail As Object
Dim strHTMLBody As String
Dim fso As Object
Dim htmlFile As Object
Dim htmlContent As String
' B sütününda Son...
...sadece satırları kopyalaması, bunu da direkt hücre aralığını verip sorunu aştık, ama yapıltır esnasında kolonları dar yapıştırdığı için gelen mail içinde alanlar "#####" şeklinde geliyor,
.Cells(1).EntireColumns.AutoFit şeklinde satır ekledim ama işe yaramadı.
sayın pitchoute size de...
mailleri düzelttim , mail adresinde makrolarada izin verdim , aynı excel ile normal masa üzerinde işlem yapıyor, ama uzak masaüstünde bu hatayı veriyor
...Çözüm Önerileri
Aşağıda, yukarıdaki noktaları kontrol edip düzelttikten sonra kodunuza ekleyebileceğiniz birkaç değişiklik bulunmaktadır:
Sub Mail()
Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range
Dim saydir As Long
Dim DinamikAlan As String
Dim emailTo...
...Kodda bazı düzenlemeler yaparak, daha sağlam bir yapı elde edebiliriz. Örneğin, aşağıda güncellenmiş bir versiyon verilmiştir:
Sub Mail()
Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range
Dim saydir As Long
Dim DinamikAlan As String
' E-posta...
Merhaba,
Kod normalde süzme işlemini ilgili alanları seçiyor yalnız kopyala yapıştır kısmına gelince boş alan yapıştırdığı için mail de boş geliyor.
Hangi kısmında hata yapıyorum ? Teşekkür ederim.
Sub MailBilgi()
Zaman = Time
Tarih = Date + 21
Dim EmailApp As Outlook.Application
Dim Source...
...olan yeni epostanın Yukarıda ki Menüsünden
Seçenekler - Teslimi Geciktir Tıklayınız
Açılan pencere de Bu Tarihten önce teslim etme seçeneği (mailin ileri teslim tarihini istediğiniz zaman belirleyebilirsiniz.)
Konuyu açtığınız da ilk istediğiniz buydu sanırım ileri tarihli mail oluşturmak...
...ayrı bir başlık açmak istemedim, kod normalde süzme işlemini ilgili alanları seçiyor yalnız yapıştır kısmına gelince boş alan yapıştırdığı için mail de boş geliyor.
Hangi kısmında hata yapıyorum ? Teşekkür ederim.
Sub MailKredi()
Zaman = Time
Tarih = Date + 21
Dim EmailApp As...
Biolightant;
Tarih sütunu kodun içinde nerede, hangi alanı değiştireceğim.
Cems'e yanıt verirken dosya eklemiştim.
Onun üstünde örnek uygulama yapabilir misin ?
Cems;
Kodu denedim, gayet güzel çalışıyor.
Dosyayı her açtığımda aynı faturalar için uyarı veriyor.
Halbuki olması gereken daha önce uyarı verilenleri devre dışı bırakarak 160 gün şartına uyanlar için uyarı almak olmalı.
Bunu nasıl yapabiliriz diye düşündüm. Uyarı verenler için mesela D...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.