Otomatik Tarih'e 2. Degişken Giremiyorum..

[Yavuzdan]

Merhaba,

Excel sayfamda P sütununa bir değer girdiğimde Q sütununa otomatik tarih atan bir makro kullanıyorum.
Aynı sayfada ek olarak, R sütununa bir değer girdiğimde de S sütununa otomatik tarih atmasını sağlamaya çalışıyorum fakat 2 değişkeni aynı anda birtürlü çalıştıramadım.

Aşağıda kullandığım makroyu değerli görüşlerinize sunuyorum. ikisini aynı anda çalıştırmak için nasıl bir düzenleme yapmam gerekli, bu konuda yardım rica ediyorum.

Saygılarımla,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [P:P]) Is Nothing Then Exit Sub
Cells(Target.Row, "Q") = Now
son:
End Sub

 

[Ayhan Ercan]

Merhaba
Aşağıdaki gibi deneyebilirsiniz..:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [P:P,R:R]) Is Nothing Then Exit Sub
If Target.Column = 16 Then
Cells(Target.Row, "Q") = Now
ElseIf Target.Column = 18 Then
Cells(Target.Row, "S") = Now
End If
son:
End Sub

 

[Yavuzdan]

Merhaba
Aşağıdaki gibi deneyebilirsiniz..:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [P:P,R:R]) Is Nothing Then Exit Sub
If Target.Column = 16 Then
Cells(Target.Row, "Q") = Now
ElseIf Target.Column = 18 Then
Cells(Target.Row, "S") = Now
End If
son:
End Sub

Hocam Süpersin...

Yardımınız için çok teşekkür ederim, elinize sağlık...

Saygılarımla,

 

[Ayhan Ercan]

Hocam Süpersin...

Yardımınız için çok teşekkür ederim, elinize sağlık...

Saygılarımla,

Rica ederim. İyi Çalışmalar..