Excel'den mail gönderimi

kısaca özet geçiyorum; a kişisinin excel tablosunu b kişisi c'ye gönderiyor. akabinde a kişisi b'ye sen benim tablomu neden c'ye gönderdin diyor. soru şu?

bu nasıl olmuş olabilir?

1-mail ile göndermeye çalışırken yanlışlıkla ilet diyeceğine tümünü yanıtla mı dedi? (düşük ihtimal, zaten mail ile gitmeyince skype ile alınmış)

2-excel tablosunda makrolar var, bu makrolar ile otomatik mail gönderimi tanımlanmış olabilir mi? şu anda bende makrolar devre dışı, makroları nerden görebilirim. yani öyle bir komut varsa onu bulabilir miyim?

biraz önemli bir konu, teşekkürler.

sotw #129147

2- dosyayı açarken makroları etkinleştir i seçmediysen kendi kendine gönderemez. makroları görmek için excel dosyasındayken alt + f11 yapıp vba düzenleyicisini açıp oradan görebilirsin makro olup olmadığını.

mahallenindelisi (02.03.10 09:21:47)

makrolarda yazan kodlar şunlar;

Sub getprice()
'
' getprice Macro
' Macro recorded
'
' Keyboard Shortcut: Ctrl+g
'

For Each c In Selection
Pattern = c.Offset(0, -3)
For Each finishcell In Worksheets("Sheet1").Range("D2:D28356")

If finishcell.Formula = Pattern Then
c.Formula = finishcell.Offset(0, 2)
Exit For
End If
Next
Next
End Sub

Sub getline()

'
' getprice Macro
' Macro recorded
'
' Keyboard Shortcut: Ctrl+l
' Dim sayi as integer
sayi = 0
For Each c In Selection
Pattern = c.Formula
For Each finishcell In Worksheets("FORD A.M.").Range("B2:B4500")
If finishcell.Formula = Pattern Then
c.Offset(0, -1).Formula = finishcell.Offset(0, -1)
c.Offset(0, 1).Formula = finishcell.Offset(0, 1)
c.Offset(0, 2).Formula = finishcell.Offset(0, 2)
c.Offset(0, 3).Formula = finishcell.Offset(0, 3)
c.Offset(0, 4).Formula = finishcell.Offset(0, 4)
c.Offset(0, 5).Formula = finishcell.Offset(0, 5)
c.Offset(0, 6).Formula = finishcell.Offset(0, 6)
c.Offset(0, 7).Formula = finishcell.Offset(0, 7)
c.Offset(0, 8).Formula = finishcell.Offset(0, 8)
c.Offset(0, 9).Formula = finishcell.Offset(0, 9)
c.Offset(0, 10).Formula = finishcell.Offset(0, 10)
c.Offset(0, 11).Formula = finishcell.Offset(0, 11)
c.Offset(0, 12).Formula = finishcell.Offset(0, 12)
sayi = 1
Exit For
End If
Next
If sayi = 0 Then
For Each finishcell In Worksheets("MERCEDES").Range("B2:B560")
If finishcell.Formula = Pattern Then
c.Offset(0, -1).Formula = finishcell.Offset(0, -1)
c.Offset(0, 1).Formula = finishcell.Offset(0, 1)
c.Offset(0, 2).Formula = finishcell.Offset(0, 2)
c.Offset(0, 3).Formula = finishcell.Offset(0, 3)
c.Offset(0, 4).Formula = finishcell.Offset(0, 4)
c.Offset(0, 5).Formula = finishcell.Offset(0, 5)
c.Offset(0, 6).Formula = finishcell.Offset(0, 6)
c.Offset(0, 7).Formula = finishcell.Offset(0, 7)
c.Offset(0, 8).Formula = finishcell.Offset(0, 8)
c.Offset(0, 9).Formula = finishcell.Offset(0, 9)
c.Offset(0, 10).Formula = finishcell.Offset(0, 10)
c.Offset(0, 11).Formula = finishcell.Offset(0, 11)
c.Offset(0, 12).Formula = finishcell.Offset(0, 12)
sayi = 1
Exit For
End If
Next
End If

If sayi = 0 Then
For Each finishcell In Worksheets("SPECIAL PRICED O.E.").Range("B2:B1800")
If finishcell.Formula = Pattern Then
c.Offset(0, -1).Formula = finishcell.Offset(0, -1)
c.Offset(0, 1).Formula = finishcell.Offset(0, 1)
c.Offset(0, 2).Formula = finishcell.Offset(0, 2)
c.Offset(0, 3).Formula = finishcell.Offset(0, 3)
c.Offset(0, 4).Formula = finishcell.Offset(0, 4)
c.Offset(0, 5).Formula = finishcell.Offset(0, 5)
c.Offset(0, 6).Formula = finishcell.Offset(0, 6)
c.Offset(0, 7).Formula = finishcell.Offset(0, 7)
c.Offset(0, 8).Formula = finishcell.Offset(0, 8)
c.Offset(0, 9).Formula = finishcell.Offset(0, 9)
c.Offset(0, 10).Formula = finishcell.Offset(0, 10)
c.Offset(0, 11).Formula = finishcell.Offset(0, 11)
c.Offset(0, 12).Formula = finishcell.Offset(0, 12)
sayi = 1
Exit For
End If
Next
End If
If sayi = 0 Then
For Each finishcell In Worksheets("O.E. LCV").Range("B2:B30000")
If finishcell.Formula = Pattern Then
c.Offset(0, -1).Formula = finishcell.Offset(0, -1)
c.Offset(0, 1).Formula = finishcell.Offset(0, 1)
c.Offset(0, 2).Formula = finishcell.Offset(0, 2)
c.Offset(0, 3).Formula = finishcell.Offset(0, 3)
c.Offset(0, 4).Formula = finishcell.Offset(0, 4)
c.Offset(0, 5).Formula = finishcell.Offset(0, 5)
c.Offset(0, 6).Formula = finishcell.Offset(0, 6)
c.Offset(0, 7).Formula = finishcell.Offset(0, 7)
c.Offset(0, 8).Formula = finishcell.Offset(0, 8)
c.Offset(0, 9).Formula = finishcell.Offset(0, 9)
c.Offset(0, 10).Formula = finishcell.Offset(0, 10)
c.Offset(0, 11).Formula = finishcell.Offset(0, 11)
c.Offset(0, 12).Formula = finishcell.Offset(0, 12)
sayi = 1
Exit For
End If
Next
End If
If sayi = 0 Then
For Each finishcell In Worksheets("O.E. CARS").Range("B2:B49000")
If finishcell.Formula = Pattern Then
c.Offset(0, -1).Formula = finishcell.Offset(0, -1)
c.Offset(0, 1).Formula = finishcell.Offset(0, 1)
c.Offset(0, 2).Formula = finishcell.Offset(0, 2)
c.Offset(0, 3).Formula = finishcell.Offset(0, 3)
c.Offset(0, 4).Formula = finishcell.Offset(0, 4)
c.Offset(0, 5).Formula = finishcell.Offset(0, 5)
c.Offset(0, 6).Formula = finishcell.Offset(0, 6)
c.Offset(0, 7).Formula = finishcell.Offset(0, 7)
c.Offset(0, 8).Formula = finishcell.Offset(0, 8)
c.Offset(0, 9).Formula = finishcell.Offset(0, 9)
c.Offset(0, 10).Formula = finishcell.Offset(0, 10)
c.Offset(0, 11).Formula = finishcell.Offset(0, 11)
c.Offset(0, 12).Formula = finishcell.Offset(0, 12)
sayi = 1
Exit For
End If
Next
End If
sayi = 0
Next
End Sub

sotw (02.03.10 09:36:46)

açıkçası pek anlamadım bu makroyu ama mail gönderme ile ilgili bir şey yok sanırım. belirli sayfalardaki B2:B4500 aralığına bakıp fiyat getiriyor olması lazım.

mahallenindelisi (02.03.10 10:02:46)

buraya yazılanların hakları Sir Anthony Hopkins'e aittir.
yazan eden compumaster, ilgilenen eden fader
modere edenler angelus, Artibir, aychovsky, baba jo, basond, compumaster, deckard, duyulmasi gerektigi kadar, fader, fraise, groove salad, kahvegibi, kaymaktutmayansicaksut, kibritsuyu, monstro, pandispanya, robin, ron dennis
bu sitede yazılanların hiçbiri doğru değildir. site içeriği küçükler için sakıncalı olabilir. yazılardan yazarları sorumludur. kaynak göstermeden alıntılanamaz. devlet tarafından atanmış bir kurumun internet üzerinde kimin hangi bilgiye ulaşıp ulaşamayacağına karar vermesi insan haklarına aykırıdır. web siteleri kullanıcıların istekleri doğrultusunda bağlandıkları yerlerdir. kullanıcılar isterlerse bir web sitesine bağlanmayabilirler. bu güçleri ve imkanları mevcuttur. bir kullanıcı bir siteye bağlanmak istiyorsa bu onun tercihi ve hakkıdır. bağlanmak istemiyorsa bu yine onun tercihi ve hakkıdır. halkın kendisine hizmet etmesi için görevlendirdiği kurumlar hadlerini aşıp halka neye ulaşıp ulaşmayacağını bilmeyen cahil cühela muamelesi edemezler. ebeveynlerin çocuklarını sakıncalı içeriklerden koruması için çok sayıda bedava ve ücretli yazılım mevcuttur. bu yazılımlar bir web tarayıcısını kullanmaktan daha karmaşık teknik bilgi gerektirmemektedir. devletin milletini küçük düşürmesi ve ebleh yerine koyması yasaktır. Skimlinks ile linkler üzerinden yönlendirme payı alınmaktadır.

Lütfen Javascript desteği bulunan bir tarayıcı kullanın. Bir hata olduğunu düşünüyorsanız tarayıcınızın veya (varsa) antivirüs yazılımınızın ayarlarını kontrol edin.

Ekşi Duyuru

Excel'den mail gönderimi