(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.