Worksheet SelectionChange yardımı

[kadir78]

İyi günler. Aşağıdaki makro kodları çalışıyor fakat benim aradığım U5 ve U29 arasındaki bütün hücrelere uygulandığımda çalışmıyor. Yardımcı olur musunuz.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

with Target

if .Address = Range("U5").address Then
Select case .value
Case ""
.Value = "1"
Case "1"
.Value = ""
End Select
End if

End With

End Sub

U5 yerine U5:U29 yazınca çalışmıyor. Bu şekilde 150 farklı hücreye uyguladığımda 1000 satırı geçiyor. Bu kodların daha pratik olanı varsa yazabilir misiniz. Fare ile seçme ile değilde fare click ile yapamadım.

U5:U29 - V5:V29 - W5:W29 - X5:X29 - Y5:Y29 - Z5:Z29 bu aralıklara uygulama yapamadım.

 

[EmrExcel16]

Merhaba , aşağıdaki gibi deneyiniz..

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Intersect(Target, Range("U5:U29")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Target = IIf(Target = "", "1", "")
End Sub

 

[EmrExcel16]

Çift tıklama ile

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("T5:T29")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Target = IIf(Target = "", "1", "")
End Sub

 

[EmrExcel16]

Farklı aralıklara uygulama.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Intersect(Target, Range("U5:U29", "V5:V29")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Target = IIf(Target = "", "1", "")
End Sub

 

[kadir78]

Sağolun teşekkür ederim.

 

[EmrExcel16]

Sağolun teşekkür ederim.

Rica ederim , iyi çalışmalar..