tarih girince başka hücreye (x) yazsın...

[pisagor26]

a1 hücresine tarih girince b1 hücresine (x) sembolu yazılmasını istiyorum... yardımlarınızı bekliyorum...

 

[Erdem Akdemir]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
           [b1].Value = "x"
    End If
End Sub

 

[pisagor26]

teşekkür ediyorum...Bu formülü devam eden üç hücre için devam etmek istesem aşağıdaki kodu mu kullanmalıyım...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
[b1].Value = "x"
End If
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then
[b2].Value = "x"
End If
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A3" Then
[b3].Value = "x"
End If
End Sub

 

[ASLAN7410]

Bu örneği değiştirerek uyguladım oldu, birde siz deneyin.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
[b1].Value = "x"
End If
If Target.Address(0, 0) = "A2" Then
[b2].Value = "x"
End If
If Target.Address(0, 0) = "A3" Then
[b3].Value = "x"
End If

End Sub

 

[Baggwell]

Bence bunun daha kolay bir yolu olmalı next target value gibi bir kod var ama bilmiyorum

 

[bzace]

Merhabalar,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A3")) Is Nothing Then Exit Sub
satır = Target.Row
    If IsDate(Target) Then
        Range("B" & satır) = "x"
    Else
        Range("B" & satır) = ""
    End If
End Sub

şeklinde deneyiniz.

Daxe Syán