Takvim ekleme ile ilgili

muyat

Altın Üye
Katılım
27 Ekim 2017
Mesajlar
41
Beğeniler
1
Excel Vers. ve Dili
2010 TÜRKÇE
#1
B2 ve b100 arasındaki hücrelere
veya
d2 ve d100 arasındaki hücrelere tıklayınca takvim açılsın istiyorum.Userformdan takvim ekledim aama aşagıdaki kodu ekleyince hata veriyor
Lütfen düzeltebilir misiniz.Hata nerde


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("B2:B100") Or Range("D2:D100")) Is Nothing) Then
TAKVİM.Show
End If

End Sub
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,070
Beğeniler
501
Excel Vers. ve Dili
2013 64Bit
English
#2
If Not Intersect(Target, Range("B2:B100,D2: D100")) Is Nothing Then
veya
If Not Intersect(Target, Range("B2:B100")) Is Nothing Or Not Intersect(Target, Range("D2: D100")) Is Nothing Then
Şeklinde deneyin.
 
Son düzenleme:

muyat

Altın Üye
Katılım
27 Ekim 2017
Mesajlar
41
Beğeniler
1
Excel Vers. ve Dili
2010 TÜRKÇE
#3
Çok Teşekkür ederim.Oldu:)
Peki son olarak şunu da istesem yazar mısınız.
D2:D100 aralıgındaki hücrelere bir tarih girince ya da ekledigim takvimle bir tarih seçince ,program otomatik olarak e2:100 deki hücreye ilgili d satırındaki tarihin 30 gün sonrasını otomatik yapıştırsın istiyorum
Yani d2 deki tarih 11.02.2019 ise e2deki tarih 30 gün sonrası olcak.
d3deki tarih 11.04.2019 ise e3 deki tarih 30 gün sonrası şeklinde
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,070
Beğeniler
501
Excel Vers. ve Dili
2013 64Bit
English
#4
Sayfa Kodu kısmına diğer kodunuzun bulunduğu yere aşağıdaki kodu uygulayıp deneyin.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2:D100")) Is Nothing Then
If Target = "" Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, 1) = CDate(Target.Value + 30)
End If
End If
End Sub
 
Üst