[]
excel de ciddi sorun
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
.Start = CDate(Target.value) +....
Diye gidelim.
Edit: DateValue(Target.value)
Diye gidelim.
Edit: DateValue(Target.value)
- ameliee
(27.10.16 13:04:54 ~ 13:07:10)
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
- niceguy (27.10.16 13:08:12)
edit de olmadı
- niceguy (27.10.16 13:09:59)
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)...
- ameliee (27.10.16 13:12:18 ~ 13:14:28)
sarı renkli satırdaki target.value üzerinde mouse ile durunca ne gösteriyor?
- €xpolerer (27.10.16 13:45:56)
Başlangıç saati 12:00'den önce olanlar için de aynı hatayı veriyor mu?
- cakabo
(27.10.16 13:48:02)
@ €xpolerer ilgili satırdaki değeri gösteriyor yani firmanın adını
- niceguy (27.10.16 15:09:30)
@ cakabo evet aynı hatayı veriyor
- niceguy (27.10.16 15:09:52)
@ €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.
- cakabo (27.10.16 15:24:03)
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.
- €xpolerer (27.10.16 16:09:29 ~ 16:18:34)
anladım fakat ben düzeltemiyorum cakabo'ya mail gönderdim umarım o düzeltebilir.
- niceguy (27.10.16 17:51:46)
ecxelin ekran görüntüsünü atsana
eğer Excel'de tarihin olduğu sütun sabitse ona göre makro değişebilir.
şu an ki hali a,b,c,d,e sütunlarındaki değişikliğe bakıyor.
eğer Excel'de tarihin olduğu sütun sabitse ona göre makro değişebilir.
şu an ki hali a,b,c,d,e sütunlarındaki değişikliğe bakıyor.
- €xpolerer (28.10.16 14:45:56)
1
