Şartlı çalışan makroya, bir şart daha ilave etmek

[EKREM1661]

Saygıdeğer Arkadaşlar..! Hayırlı sahurlar dileğiyle..

Aşağıda, Sayın Ferhat Pazarçevirdi hocamızdan alınan kod'da
"A" sütunu son hücresi dolu ise,
"T" sütunu da dolu ise,
"X" sütununa nokta atıyor..

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 20 Or .Column = 1 Then
If Len(Cells(.Row, "A")) > 0 And _
Len(Cells(.Row, "T")) > 0 And _
Len(Cells(.Row, "X")) = 0 Then

Application.EnableEvents = False
Cells(.Row, "X") = "."
Application.EnableEvents = True
End If
End If
End With
End Sub

Soru: Yukarıdaki kod'a en son ilave olarak "W" sütunu son hücresine, yön tuşu ile gitme veya çıkma şartı eklenebilirmi.. Yani "T" sütununu doldurduktan sonra "W" sütununa yön tuşu ile uğransın, ondan sonra "X" sütununa noktayı atsın..

 

[hsayar]

'.........................
Application.EnableEvents = False
[COLOR=red]Cells(.Row, "W").SELECT[/COLOR]
Cells(.Row, "X") = "."
Application.EnableEvents = True
'...........................

dener misiniz?

 

[EKREM1661]

Sayın hsayar..! çok teşekkür ediyorum.. istenilen nisbeten gerçekleşti, bu kadarı da yeterli.. (son eylemi "W" sutunundaki ilgili hücreyi seçerek değil de çift tıklayarak veya F2 ile gerçekleştiriyorum)