Aynı Sayfaya İki Adet takvim Eklemek yardım

[dreamymost]

merhaba arkadaşlar Sayfa 1 de E3 ve L3 hücrelerine takvim eklemek istiyorum



Private Sub Calendar1_Click()
Range("E3").Value = Calendar1.Value
Range("E3").NumberFormat = "dd.mm.yyyy"
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$3" Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub


bu kodla E3 e ekledim çalışıyor ama L3 ede takvim eklemem gerekiyor nasıl yapıcam yardımcı olurmusunuz kod kısmında aynı kodu sayfa 1 e iki defa yazamıyorum ?

 

[Orion1]

Onları silin.
Bunları yapıştırın.
Yani at çaputi,Al buni.

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
ActiveCell.NumberFormat = "dd.mm.yyyy"
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Visible = False
If Intersect(Target, [E3,L3]) Is Nothing Then Exit Sub
Calendar1.Top = Target.Top + Target.Height
Calendar1.Left = Target.Left
Calendar1.Visible = True
End Sub

 

[dreamymost]

teşekkürler hocam