- Katılım
- 22 Temmuz 2019
- Mesajlar
- 32
- Excel Vers. ve Dili
- Ofis7
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