Mahmut1976
Altın Üye
- Katılım
- 22 Temmuz 2019
- Mesajlar
- 32
- Excel Vers. ve Dili
- Ofis7
- Altın Üyelik Bitiş Tarihi
- 11-03-2025
Merhaba,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hucr As Range
If Intersect(Target, [k2:k800]) Is Nothing Then Exit Sub
Range("B4:I240").Interior.ColorIndex = 0
For Each hucr In Range("B4:I240")
If hucr.Value = Target.Value Then hucr.Interior.ColorIndex = 6
Next
End Sub
Yukarıdaki kodu Google E tablo koduna cevirebilirmiyiz
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hucr As Range
If Intersect(Target, [k2:k800]) Is Nothing Then Exit Sub
Range("B4:I240").Interior.ColorIndex = 0
For Each hucr In Range("B4:I240")
If hucr.Value = Target.Value Then hucr.Interior.ColorIndex = 6
Next
End Sub
Yukarıdaki kodu Google E tablo koduna cevirebilirmiyiz