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 18-02-2005, 17:24   #11
lionamic
 
lionamic kullanıcısının avatarı
 
Giriş: 27/06/2004
Şehir: İstanbul
Mesaj: 66
Varsayılan

:?
lionamic Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-02-2005, 17:25   #12
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,139
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Alıntı:
Sanırım espiri derin di?
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-03-2005, 10:40   #13
akd
Destek Ekibi
 
Giriş: 14/08/2004
Şehir: Gaziantep
Mesaj: 1,030
Excel Vers. ve Dili:
2003
Varsayılan

Merhaba arkadaşlar,
Tam bu aşamada bende bir soru sormak itiyorum izin verirseniz,
siz kitabı kopyalayıp gönderiyorsunuz,
ben yalnız kitabın seçecegim bir sayfasındaki bilgileri autlook experesin mesaj yazılan kısmı ile göndermek istedim ama yapamadım bunun hakkında bana yol gösterebilirmisiniz.
selamlar...
__________________
akdyazilim.com
akd Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-03-2005, 11:21   #14
lionamic
 
lionamic kullanıcısının avatarı
 
Giriş: 27/06/2004
Şehir: İstanbul
Mesaj: 66
Varsayılan

aşağıdaki kodu birden fazla kişiye email gönderecek şekilde nasıl düzenleyebilirim?acil yardımlarınızı bekliyorum.teşekkürler.

Alıntı:
Sub Email()

Sheets("D.REPORT").Select

Dim source As Range
Dim dest As Workbook
Dim strdate As String

Set source = Nothing
On Error Resume Next
Set source = Range("G3:I8").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If source Is Nothing Then
MsgBox "The source is not a range or the sheet is protect, please correct and try again.", vbOKOnly
Exit Sub
End If

Application.ScreenUpdating = False
Set dest = Workbooks.Add(xlWBATWorksheet)
source.Copy
With dest.Sheets(1)
.Cells(1).PasteSpecial PASTE:=8
' Paste:=8 will copy the column width in Excel 2000 and higher
' If you use Excel 97 use the other example
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
End With

strdate = Format(Now, "dd-mm-yy")
With dest
.SaveAs "virmanlar" & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "birisi@birisi.com"
"VDMK2"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True


End Sub
lionamic Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-05-2005, 14:59   #15
tamercan
 
Giriş: 07/04/2005
Mesaj: 42
Varsayılan

Selamlar sayın Raider burada veridiğiniz kodla sadece içinde bulunduğumuz sayfayı göndermek istediğimde alıcı adresini de makronun içine yazmış olmamız gerekiyor. Bu uygulamada, outlook açılıp sayfa eklenmiş To ve Subject alanı boş olarak ekrana gelmesi için, makro kodunun nasıl olması gerekir. Yani kod çalıştığında excelde file menüsünden send to ile kitap ekleyip gönderme şeklinde çalışması için. Þayet bu yapılırsa adres satırını istediğimiz adresleri yazıp gönderebiliriz ve makro kodlarına müdahale etme gereği ortadan kalkar. Yardım edecek tüm arkadaşlara şimdiden teşekkürler.
tamercan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-05-2005, 14:13   #16
melwitch
 
melwitch kullanıcısının avatarı
 
Giriş: 18/04/2005
Mesaj: 67
Varsayılan

aynı sorunla bende karşılaştım. Bende workbook içinde yer alan bir sürü sheet ten sadece birini maile attach yapmak istiyorum ancak verilen kod belirlenmiş kişilere gönderiyor maili. Oysa her bir sheetin başka kişilere gitmesi gerek. Bunu kendim to ya yazmalıyım. Bu konuda bende acilen yardım istiyorum.

Yardım edecek arkadaşlara teşekkür
__________________
HAYAT GÜLÜMSEDİÐİNDE GÜZELDİR..

EXCEL 2003- İngilizce
melwitch Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-05-2005, 14:24   #17
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,139
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Orjinal kodlarda aşağıdaki kısmı, eskisiyle değiştirin....

[vb:1:6b755bdaa3] Set NewMail = CreateItem(olMailItem)
With NewMail
.To = ""
.Subject = ""
.Body = "Bu e-mail deneme amacıyla gönderilmektedir."
.Attachments.Add WbName
.Display
End With
Set NewMail = Nothing
[/vb:1:6b755bdaa3]
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-05-2005, 15:38   #18
turkanet
 
Giriş: 30/03/2005
Mesaj: 753
Excel Vers. ve Dili:
2016 EN
Varsayılan

benim sorunum outlook a o eklentiyi yapamadım, kabul etmedi..
__________________
TÜRKÇEMİZE SAHİP ÇIKALIM
turkanet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-05-2005, 15:39   #19
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,139
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Peki.... ne dedi ?

(MS Outlook'da değil de, MS Excel'de o referansı verdiğini kabul ederek....)
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-05-2005, 15:44   #20
mehmetcan
 
Giriş: 28/08/2004
Mesaj: 16
Varsayılan

Mail gönderirken uyarı vermeden gönderebilirmiyiz,teşekkürler
mehmetcan Ç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:11


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 - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- 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- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden