Takvİmİ İkİ Farkli SÜtunda ÇaliŞtirma

[isafidan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [d:d]) Is Nothing Then Exit Sub
Takvim.Show
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
On Error GoTo hata
If CDate(Target.Value) > Date Then
MsgBox "Girdiğiniz Tarih Bu Günkü Tarihten Büyük.!", vbCritical, "HEY UYAN.!"
Target.Select
End If
hata:
End Sub


Yukardaki kodda sadece D sütununda takvim çıkıyor. O sütunundada çıkması için ne yapmam gerekiyor.[d] yaparsam aradaki bütün sütunlarda etkili oluyor. Sadece D ve O sütununda aktif olmasını istiyorum.

 

[ECYavuz]

Elimde Kod Arşiv Programında yer alan bir örnek var. (Alıntıdır.)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("B3:B20, D17")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, 1) = Date
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

 

[Korhan Ayhan]

Selamlar,

Kodda geçen

[D:D]

bölümünü aşağıdaki şekilde değiştirip denermisiniz.

[D:D,O:O]

 

[isafidan]

Eline sağlık. Ne kadar teşekkür etsem azdır. Allah razı olsun kardeş.