Tarih Değişiminde Alta Satır ve Bilgi Eklenmesi

[CAFERCİFTCİ]

Arkadaşlar,ekli örnekte gösterdiğim şekilde,Gidiş-Dönüş tarih farklılığında alta satır ve bilgi eklenmesi konusunda yardımlarınızı rica ediyorum.Saygılarımla...

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B4,E4]) Is Nothing Then Exit Sub
If [B4] = [E4] Then
[A11] = [B4]
[B11] = [C1] & "-" & [C2] & "-" & [C1]
Else
[A11] = [B4]
[B11] = [C1] & "-" & [C2]
[E11] = "İKAMET"
[A12] = [E4]
[B12] = [C2] & "-" & [C1]

End If
End Sub

 

[CAFERCİFTCİ]

Merhaba

sayın Hamitcan,
Güzel olmuş,elinize emeğinize sağlık.Yalnız KALKIŞ ve GİDİLEN YER diye belirtmek zorunlumu?Biz gidilecek yeri yazıyoruz.Hareket ve dönüş yeri aydın.Gidilecek yeri araya yazı olarak yazdırıyoruz.Başka formdan çağrılıyor.İyi geceler...

 

[hamitcan]

Bence bu haliyle gayet güzel oldu. Ben bu hali bozmayalım derim, ama ille de öbür türlü olsun derseniz biraz daha net açıklama yapmanız gerekiyor.