[]
aylardır çözülemeyen excel makro sorusu
internetten zamanında bi makro formulü buldum bu formülde excel'de ilgili sütuna tarih girdiğim anda direk outlook'a atıyor ilgili tarihe metinleri atıyor fakat her yazdığımda run time error alıyorum formul şu
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 And Target.Row < 5 Then Exit Sub
Dim MSOutlook As Object, Takvim As Object
Set MSOutlook = CreateObject("Outlook.Application")
Set Takvim = MSOutlook.CreateItem(1)
With Takvim
.Start = Target.Value + TimeValue("06:00:00")
.End = .Start + TimeValue("00:30:00")
.Subject = Target.Offset(0, -11).Value
.Location = ""
For i = 1 To 15
x = x & Cells(3, i) & " : " & Cells(Target.Row, i) & vbCrLf
Next
.Body = x
.BusyStatus = olBusy
.ReminderMinutesBeforeStart = 120
.ReminderSet = True
.Save
End With
Set Takvim = Nothing
Set MSOutlook = Nothing
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 And Target.Row < 5 Then Exit Sub
Dim MSOutlook As Object, Takvim As Object
Set MSOutlook = CreateObject("Outlook.Application")
Set Takvim = MSOutlook.CreateItem(1)
With Takvim
.Start = Target.Value + TimeValue("06:00:00")
.End = .Start + TimeValue("00:30:00")
.Subject = Target.Offset(0, -11).Value
.Location = ""
For i = 1 To 15
x = x & Cells(3, i) & " : " & Cells(Target.Row, i) & vbCrLf
Next
.Body = x
.BusyStatus = olBusy
.ReminderMinutesBeforeStart = 120
.ReminderSet = True
.Save
End With
Set Takvim = Nothing
Set MSOutlook = Nothing
End Sub
takvim yerine calendar yazarsan belki. veya outlook olabilir türkçe kullanma bakalım.
- illegalstar
(18.12.16 22:24:25)
calendar yaptım birşey değişmedi
- niceguy
(18.12.16 22:26:54)
sütun a/sütun b/sütun c/sütun d
ankara bilgi1 bilgi2 18.12.2016
--------------------------------
yukardaki excel tablosuna d sütununa tarih girip enter'e bastığım anda ilgili bilgileri outlook takvime 18.12.2016 tarihine atıyor ancak sorun şu, b sütununa bilgi1 yazdığım anda hata alıyorum hata da ya type mistmatch ya da run time error
makro da yukarda yerli yabancı hiçbir kaynakta bulamadım
ankara bilgi1 bilgi2 18.12.2016
--------------------------------
yukardaki excel tablosuna d sütununa tarih girip enter'e bastığım anda ilgili bilgileri outlook takvime 18.12.2016 tarihine atıyor ancak sorun şu, b sütununa bilgi1 yazdığım anda hata alıyorum hata da ya type mistmatch ya da run time error
makro da yukarda yerli yabancı hiçbir kaynakta bulamadım
- niceguy (18.12.16 22:56:37)
@gram altın size zahmet olacak yani ancak çok sevinirim.
- niceguy (19.12.16 08:41:33)
1
