niceguy
yani çözülmez gibi geliyor amadurum şu alacakları takip ettiğim listemde makro var ve excel'de ben ilgili sütuna tarih girdiğimde otomatik olarak outlook takvime atıyor . Herşey güzel ama sürekli şu hatayı alıyorum.http://hizliresim.com/nEBzLailgili makro http://hizliresim.com/dXRQ3Z
yani çözülmez gibi geliyor ama
durum şu alacakları takip ettiğim listemde makro var ve excel'de ben ilgili sütuna tarih girdiğimde otomatik olarak outlook takvime atıyor . Herşey güzel ama sürekli şu hatayı alıyorum.
hizliresim.com
ilgili makro hizliresim.com
durum şu alacakları takip ettiğim listemde makro var ve excel'de ben ilgili sütuna tarih girdiğimde otomatik olarak outlook takvime atıyor . Herşey güzel ama sürekli şu hatayı alıyorum.
hizliresim.com
ilgili makro hizliresim.com
0
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 = CDate(Target.Value) + TimeValue("12:00:00")
.End = .Start + TimeValue("00:15: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 = 5
.ReminderSet = True
.Save
End With
Set Takvim = Nothing
Set MSOutlook = Nothing
End Sub
yaptım ama aynı hatayı verdi
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 = CDate(Target.Value) + TimeValue("12:00:00")
.End = .Start + TimeValue("00:15: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 = 5
.ReminderSet = True
.Save
End With
Set Takvim = Nothing
Set MSOutlook = Nothing
End Sub
yaptım ama aynı hatayı verdi
0
Yakinlarimda pc yok. Aklima gelenler bunlar. Sorun tarih biciminde ommayan bir degeri bir baska bicim ile isleme tabii tutmaniz.
Edit: TimeValue(Target.Value)...
Edit: TimeValue(Target.Value)...
0
@ €xpolerer ilgili satırdaki değeri gösteriyor yani firmanın adını
Firma adı gösteriyorsa hata var demektir.
Orada başlangıç tarihi göstermesi lazım.
Tarih hücresi seçiliyken makroyu çalıştırmayı dene.
Firma adı gösteriyorsa hata var demektir.
Orada başlangıç tarihi göstermesi lazım.
Tarih hücresi seçiliyken makroyu çalıştırmayı dene.
0
cakabonun da dediği gibi ilgili hücrede tarih değil firma adi varsa o hatayı verir.
A,b,c,d,r sütünlarının birinde bir değişiklik yapınca bu makro çalışır ve değişiklik yapılan hücredeki değeri tarih kabul edip o tarihi takvime ekler.
Eğer değişiklik yaptığın hücrede yazı yazıyorsa bunu tarihe çeviremez.
A,b,c,d,r sütünlarının birinde bir değişiklik yapınca bu makro çalışır ve değişiklik yapılan hücredeki değeri tarih kabul edip o tarihi takvime ekler.
Eğer değişiklik yaptığın hücrede yazı yazıyorsa bunu tarihe çeviremez.
0
anladım fakat ben düzeltemiyorum cakabo'ya mail gönderdim umarım o düzeltebilir.
0
