Sorgu için arama sonuçları: Outlook+Cells

Private Sub CommandButton1_Click() Dim Uygulama As Object Dim Yeni_Mail As Object Dim mesaj As String Dim yol As String Dim xiskurnox As String Dim xfirmadix As String Dim i As Integer Dim onem As Integer Dim s1 As Worksheet Dim S2 As Worksheet...

Merhaba arkadaşlar. forumda aradım ancak bu tarz bir konu bulamadım hep bir butona göre mail gönderimi yapabiliyoruz. benim ricam ise, a3 hücresi dolu ise belirlenen adreslere a3 hücresini kopyalayıp mail olarak göndersin. mevcut bir mail gönderme makrom var zaten o makronun içine bunu da...

Sub Düğme1_Tıkla() Dim ws As Worksheet Dim rngTarih As Range, cellTarih As Range Dim acilAdres As String, acilDegilAdres As String Dim mailKonu As String, mailIcerik As String Dim outlookApp As Object Dim outlookMail As Object Dim sonSatir As Long Set ws =...

Sub Zamanı_Geldi() Application.OnTime TimeValue("14:22:30"), ThisWorkbook.Name & "!Sayfa1.Düğme1_Tıkla" End Sub Sub Düğme1_Tıkla() Dim ws As Worksheet Dim rngTarih As Range, cellTarih As Range Dim rngMail As Range Dim mailKonu As String, mailIcerik As String Dim...

ayn Merhaba aynı işlemi yaptım ama. outlook açtı tüm maillere gönder penceresi açtı ve bekkiyor. otom gönderme yapmadı tek tek gönder tuşuna basmam gerekli maalesef.

İsteğimi tam olarak açıklayamadım sanırım. Görsel destek olarak bir resim yükledim. Bu resim üzerinden anlatacak olursam; Bir proje excel de oluşturulacak. Projenin içinde A, B, C, D ve E iş tanımları olacak. İş tanımları durumlarının her biri yönetici tarafından veri doğrulama listesinden açık...

Evet, bu işlemi otomatize etmek mümkündür. Şu formatta bir liste oluşturarak, her bir satırı döngü ile işleyerek her mail arasına 5 saniye bekleme süresi ekleyerek ve istediğiniz bilgileri içeren bir e-posta gönderimi gerçekleştirebiliriz. Excel'de belirlenen konular hakkında sorumlu seçimi...

Run time 2147221238 (8004010a) Otomasyon hatası alıyorum 0.6 KBGörüntüleme: 32 Beğen Alıntı CevaplaŞikayet Et! Asri Asri 26 Temmuz 2017 Add bookmark #4 Alternatif; Aşağıdaki kodu kendinize göre uyarlayınız. Üst bölümdeki resimleri eklemedi. Kod: Sub mail_secili_alan() Dim wrdEdit...

Yapmak istediğim tam olarak şu Ben textbox1 e Sayın Yetkili xiskurnox numaralı firmanızın adresi xadresx şeklinde güncellenmiştir. yazdığımda mailller şu şekilde gitsin istiyorum : 1. Mail : Sayın yetkili 1 numaralı firmanızın adresi 1 şeklinde güncellemiştir 2. Mail: Sayın yetkili 2 numaralı...

Merhaba, Netsis veri tabanına Power Query ile bağlanıp, bir ürün için haftalık stok hareketini çekiyorum. Sonrasında bu stok hareketini Pivot Tablo'ya alıp, Windows Zamanlanmış Görevler yardımıyla, her hafta Salı günü ilgililere mail olarak göndertiyorum. İlgili dosya belirtilen tarih ve saat...

Bulunsun.. Private Declare PtrSafe Function apiGetClassName Lib "user32" Alias _ "GetClassNameA" (ByVal hwnd As Long, _ ByVal lpClassName As String, _ ByVal nmaxCount As Long) As Long Private Declare PtrSafe Function apiGetDesktopWindow Lib...

Hocam çok güzel oldu teşekkür ederim. Bir tık daha öteye nasıl taşırım peki. Örneğin yüklenecek dökümanlar J,K,L,M,N hücrelerinde kategorize edilmiş. Bu hücrelere çift tıklayınca diğer bilgileri getiriyo burada problem yok. Buna ek olarak hangi sütundaysa o sütunun başlığını nasıl ekletebilirim...

Kod olarakta atıyorum, dışardan yükleyebilmeniz için dosya olarakta. Sayfanın kodlarına yapıştırılacak. Asşağıdaki satırdaki belirttiğim yere dikkat edin. Asıl dosyanızda alan farklı ise düzeltin. If Intersect(Target, Range("A2:F" & Range("A" & Rows.Count).End(3).Row)) Is Nothing Then Exit Sub...

@Korhan Ayhan hocam kodda RAPOR kelimesi yok hâlâ RAPOR diye kaydedip, gönderiyor. Anlamadım. Private Sub CommandButton1_Click() On Error Resume Next ActiveSheet.Range("A6:E30").Select ChDir "C:\&Cells(1, 2).pdf" Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _...

Arkadaşlar, sayın hocalarım. Çok saygı duyduğum hocamın tavsiyesi üzerine kendim bir şeyler yapmaya çalıştım. Bir dosya hazırladım. Seçili alanı PDF olarak mail atıyor. Masaüstünde açtığım dosyaya kaydediyor (hatta siliyor) Tek bir şeyi yapamadım. O hususta yardımınızı rica ediyorum. Ben PDF'e...

Hocam, bu dosya çalıştı. Halen kullanıyorum. Emeğinize sağlık. Peki hocam bu kodları revize edip. Aktif sayfayı PDF olarak kaydedip gönderebilir miyiz? Subject B1 hücresinde To B2 hücresinde cc B3 hücresinde Şeklinde Çok denedim yapamadım. Her seferinde bozdum. Size zahmet hocam, bakabilir...

Hocam, PDF olarak yapamadım. Şöyle bir şey yapmaya çalıştım. Ancak şöyle bir sorun çıkıyor. Sayfayı çoğaltıp ismini değiştirdiğim zaman, yine bu sayfayı atıyor. Çünkü aktif sayfayı yapamadım. Yardımcı olur musunuz? Private Sub CommandButton1_Click() Dim Sayfa As Worksheet Dim Alan As Range...

Kimseden ses çıkmayınca uzun uğraşılar sonucu ben hallettim. ihtiyacı olanlar için kod aşağıdadır. tek dikkat edilmesi gereken sayfa koruması devre dışı olmalıdır. eğer bunu kapatmanın bir yolu varsa hangi satır olduğunu gösterirseniz bende faydalanmış olurum. Sub resimgonder()...

kodları denedim ama maile sadece resimdeki gibi bir alanı atıyor rica etsem eklediğim dosyadan kontrol edebilirmisiniz benim için sarıya boyadığım hücreleri yapıştırsa yeterli

Deneyin.. Sub SelectByColor() Dim cell As Range Dim rng As Range Dim FoundRange As Range Set rng = Range("A2:OK500") For Each cell In rng.Cells If cell.Interior.ColorIndex = 6 Then 'Or cell.Interior.ColorIndex = 40 If FoundRange Is Nothing Then Set FoundRange = cell Else Set FoundRange =...