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 12-05-2005, 17:05   #21
Tarkan VURAL
 
Tarkan VURAL kullanıcısının avatarı
 
Giriş: 21/04/2005
Şehir: İstanbul - Beylikdüzü
Mesaj: 486
Excel Vers. ve Dili:
Ofis 2003-2007-2010 Türkçe tarkan@excelvba.net
Varsayılan email gönderme

Hemen hemen hergün kendi kullandığım bir kodum var bunu sizinle paylaşmak isterim.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub yolla_click()
Dim wb As Workbook
Dim strdate As String
Dim name, isim, plaka As String
    plaka = Sheets("form").Range("f8").Value
    isim = Sheets("form").Range("c6").Value
    strdate = Format(Now, "dd-mm-yy ")
    name = isim & " " & plaka & " " & strdate & ".XLS"
    Application.ScreenUpdating = False
    ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
        .SaveAs "c:\" & name
        .SendMail "tarkanvural@hotmail.com", _
                  "Sipariş Formu"
        .Close False
End With
    Application.ScreenUpdating = True
    Kill "c:\" & name

End Sub
SAYGILARIMLA;
Tarkan VURAL
__________________
- Ne Mutlu Türk' üm Diyene -

İş =OfficePro2003TR - 2010TR
Ev=OfficePro2003TR-2007TR-2010TR
Tarkan VURAL Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-05-2005, 17:07   #22
tamercan
 
Giriş: 07/04/2005
Mesaj: 42
Varsayılan

Sayın reider kodları bir excel dosyasına kadedip yaptığımda problemsiz çalıştı. Ancak personal dosyasına tanımladığımda debug veriyor. Gönderilen excel dosyasını siliyor giden sayfa da boş gidiyor. Hata verdiği yeri
ekledim. Teşekkürler.

Kill WbName----Burada debug veriyor.
End Sub
tamercan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-05-2005, 17:14   #23
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,136
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

tamercan,

Ben Personal.xls dosyası ile pek ( hatta, hiç) çalışmam.

Emin olmamakla birliktre aşağıdaki satırı
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ThisWorkbook.SaveCopyAs WbName
aşağıdaki satırla değiştirip, bir deneyin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ActiveWorkbook.SaveCopyAs WbName
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 12-05-2005, 17:27   #24
tamercan
 
Giriş: 07/04/2005
Mesaj: 42
Varsayılan

Sayın Reider sonuç alamadım, ama diğer makrolarda böyle bir sorun yaşamamıştım. Neyse önemli değil bende kullanacağım excel dosyasına makro olarak kaydedip öyle kullanırım yardımların için teşekkürler.
tamercan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-05-2005, 11:44   #25
melwitch
 
melwitch kullanıcısının avatarı
 
Giriş: 18/04/2005
Mesaj: 67
Varsayılan

Raider, vermiş olduğun kodu kullanıyorum ve çok işime yarıyor ancak bu konu ile ilgili farklı bir ihtiyacım çıktı ortaya.

Þöyle anlatayım.

Ã?ncelikle bir çok ile ait verileri ayrı sheetlere atıyorum. Buradan da send e-mail yaparken şunların olmasını istiyorum

1- Oraya aktarılan bilgilerin sadece belli bir bölümünü (A1 den F10 na kadar seçili alan mesela) mailin içine tablo olarak aktararak (dosya olarak değil) gönderebilirmiyim

2- O tablo ile ilgili açıklamayı ise dosyanın herhangi bir yerine koyacağım açıklama ile gönderebilirmiyim. (Açıklama tablo ile ayrıntıları veriyor. Sabit bir yazı olmadığından makronun içine yazmak sorun olabilmekte. O yüzden ona vereceğim bir hücreye gidip oaradaki açıklamayı alıp yapıştırması gerekiyor

3- Kime gideceği kısmı makro içine yazılarak değilde, farklı bir sheette yer alan illerin karşısındaki kişileri (to.. ve cc.. olarak) bulup yazsa. Yani İSTANBUL a ait tablo gönderiliyorsa, oradaki yetkili kişileri sheet 2 de bulup to ve cc. yapsa.

Çok şey istedim biliyorum ama sanırım bu tür makroya ihtiyacı olan çok arkadaşımda çıkacaktır. Yardımlarınızı esirgemezseniz sevinirim :?
__________________
HAYAT GÜLÜMSEDİÐİNDE GÜZELDİR..

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

Alıntı:
melwitch tarafından gönderildi

Oraya aktarılan bilgilerin sadece belli bir bölümünü (A1 den F10 na kadar seçili alan mesela) mailin içine tablo olarak aktararak (dosya olarak değil) gönderebilirmiyim
Bu işi biraz daha değiştirir.

Þimdilik aşağıdakini bir deneyin... Aktif sayfanın A1:F10 aralığını mail' in gövdesine, A20 hücresine yazılan metni de mail'in "Subject - Konu" bölümüne yerleştirir.

[vb:1:e6b05e3184]Sub EmailSheet()
Dim OutlookApp As Object, OutlookMsg As Object
Dim FSO As Object, BodyText As Object
Dim MyRange As Range, TempFile As String

On Error Resume Next
Set MyRange = ActiveSheet.Range("A1:F10")
If MyRange Is Nothing Then Exit Sub
Set FSO = CreateObject("Scripting.FilesystemObject")
TempFile = "C:\TempHTML.htm"
ActiveWorkbook.PublishObjects.Add _
(4, TempFile, MyRange.Parent.Name, MyRange.Address, 0, "", "").Publish True
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMsg = OutlookApp.CreateItem(0)
Set BodyText = FSO.OpenTextFile(TempFile, 1)

With OutlookMsg
.HTMLBody = BodyText.ReadAll
.Subject = Range("A20").Text
.To = "raider@hotmail.com"
.cc = "raider@yahoo.com"
.Display
End With

Kill TempFile

Set BodyText = Nothing
Set OutlookMsg = Nothing
Set OutlookApp = Nothing
Set FSO = Nothing
End Sub
[/vb:1:e6b05e3184]
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 16-05-2005, 12:12   #27
melwitch
 
melwitch kullanıcısının avatarı
 
Giriş: 18/04/2005
Mesaj: 67
Varsayılan

Alıntı:
2- O tablo ile ilgili açıklamayı ise dosyanın herhangi bir yerine koyacağım açıklama ile gönderebilirmiyim. (Açıklama tablo ile ayrıntıları veriyor. Sabit bir yazı olmadığından makronun içine yazmak sorun olabilmekte. O yüzden ona vereceğim bir hücreye gidip oaradaki açıklamayı alıp yapıştırması gerekiyor

3- Kime gideceği kısmı makro içine yazılarak değilde, farklı bir sheette yer alan illerin karşısındaki kişileri (to.. ve cc.. olarak) bulup yazsa. Yani İSTANBUL a ait tablo gönderiliyorsa, oradaki yetkili kişileri sheet 2 de bulup to ve cc. yapsa.
PEKİ BUNLARI GERÇEKLEÞTİRMEK MÜMKÜN OLABİLECEKMİ?
__________________
HAYAT GÜLÜMSEDİÐİNDE GÜZELDİR..

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

Yukarıdaki kod, 1nci ve 2nci sorunuzun cevabıdır.

Eğer buraya kadarı işinize yaradıysa, bir şekilde 3ncü ve son kısmı için de birşeyler yapılabilir.
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 16-05-2005, 13:37   #29
melwitch
 
melwitch kullanıcısının avatarı
 
Giriş: 18/04/2005
Mesaj: 67
Varsayılan

Subject kısmında sorun yok. A1:F10 arasındaki tabloyu komple aktarması gerekirken hiç bir şey çıkmıyor. Ayrıca A1:F10 aralığı ile birlikte mesala G1 e yazılı tablo için açıklayıcı bilgilerinde aktarılması gerekmekte.
__________________
HAYAT GÜLÜMSEDİÐİNDE GÜZELDİR..

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

Ã?rnek bir dosya üzerinde denedikten sonra kodu yolladım, bende bir problem olmadı...

Kendi dosyanızı buraya eklerseniz, bir bakalım...
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimiçi   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 11:05


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