(28/07/2011, 11:53)aobendes yazdı: [ -> ]Arşivimde şöyle bir makro buldum dener misiniz ?
Sub Test()
'
' Raider ® - 26/09/2006
'
Dim OutApp As Object, OutFolder As Object
Dim MyMail As Object, MailItems As Object
Dim i As Long, j As Long
Dim Temp As Variant
Cells.ClearContents
Set OutApp = CreateObject("Outlook.Application")
Set OutFolder = OutApp.GetNamespace("MAPI").GetDefaultFolder(6)
Set MailItems = OutFolder.Items
For Each MyMail In MailItems
If LCase(MyMail.Subject) = "test" Then
i = i + 1
Temp = MyMail.body
Temp = Replace(Temp, Chr(13), Empty)
Cells(i, 1) = Left(Temp, Len(Temp) - 1)
End If
Next
MsgBox "Konusu - (Subject) ''test'' olan tüm e-maillerin içeriği sayfaya işlendi"
End Sub
Hocam bu kodu kopyala yapıstır yaptım 10 satırda hata verdi yardımcı olurmusunuz. bı örnek tablo gönderiyorum, ortalama hesaplandıktan sonra puanı 50 den yüksek olan geçsin düşük olan kalsın yazsın ıstıyorum, ancak buradakı veriler aktarım yoluyla yapılacagı için ya tabloda yapacağız yada verileri içeri aldıktan sonra bı makra yardımıyla ama nasıl olacağını bilmiyorum yardımlarınızı bekliyorum.
Teşekkürler
Yanlış mantık kuruyorsunuz. Aktarma ile yapılıyor diye hesaplamalar tabloda yapılmaz. Zaten form veya sorgu olmadan tabloya da hesaplama işlemlerini aktaramazsınız. Bu işi bir form veya sorgu üzerinden yapmak en mantıklısıdır. Yukarda size verilen makro zaten bu iş için değil, aktarım için önerildi. Eğer hala konuyla ilgili dönüş bekliyorsanız buraya birşeyler yazın da size bir form hazırlayıp bu işlemlerin nasıl yapılabileceğini göstereyim. Eğer dönüş yapmazsanız -ki zaten 04.08.2011'den beri uğramamışsınız- konuyu cevaplanmış olarak taşıyacağım.
(21/08/2011, 02:34)mehmetdemiral yazdı: [ -> ]Yanlış mantık kuruyorsunuz. Aktarma ile yapılıyor diye hesaplamalar tabloda yapılmaz. Zaten form veya sorgu olmadan tabloya da hesaplama işlemlerini aktaramazsınız. Bu işi bir form veya sorgu üzerinden yapmak en mantıklısıdır. Yukarda size verilen makro zaten bu iş için değil, aktarım için önerildi. Eğer hala konuyla ilgili dönüş bekliyorsanız buraya birşeyler yazın da size bir form hazırlayıp bu işlemlerin nasıl yapılabileceğini göstereyim. Eğer dönüş yapmazsanız -ki zaten 04.08.2011'den beri uğramamışsınız- konuyu cevaplanmış olarak taşıyacağım.
Siteye girmenize rağmen dönüş yapmadığınız için konu cevaplanmışlara taşınmıştır.