D5 İle D16 Arası Kod kullanmak

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
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,784
Excel Vers. ve Dili
Microsoft 365 Tr-64
C++:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Column <> 5 Or Selection.Row < 5 Or Selection.Row > 16 Then Exit Sub
    Cells(Rows.Count, "D").End(3).Offset(1).Select
End Sub
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,489
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,
Genel ve pratik yöntemi

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, [D5:D16]) Is Nothing Then Exit Sub
    'kodlarınız
    
End Sub
 
Üst