- Katılım
- 3 Haziran 2020
- Mesajlar
- 34
- Excel Vers. ve Dili
- Türkçe 2016
kolay gelsin
benim ihtiyacım olan (D5 te başlayıp D16 da) bitmesi Bu konuda yardımcı olabilirmisiniz
kullandığım kod
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Column = 5 Then
Cells(Rows.Count, "D").End(3).Offset(1).Select
End If
End Sub
benim ihtiyacım olan (D5 te başlayıp D16 da) bitmesi Bu konuda yardımcı olabilirmisiniz
kullandığım kod
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Column = 5 Then
Cells(Rows.Count, "D").End(3).Offset(1).Select
End If
End Sub