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,
Aşağıdaki Excel Kodunu Google E Tablo Koduna nasıl çevirebilirim.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hucr As Range
If Intersect(Target, [k2:k300]) Is Nothing Then Exit Sub
Range("B4:I149").Interior.ColorIndex = 0
For Each hucr In Range("B4:I149")
If hucr.Value = Target.Value Then hucr.Interior.ColorIndex = 6
Next
End Sub
Şimdiden teşekkür ederim.
Aşağıdaki Excel Kodunu Google E Tablo Koduna nasıl çevirebilirim.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hucr As Range
If Intersect(Target, [k2:k300]) Is Nothing Then Exit Sub
Range("B4:I149").Interior.ColorIndex = 0
For Each hucr In Range("B4:I149")
If hucr.Value = Target.Value Then hucr.Interior.ColorIndex = 6
Next
End Sub
Şimdiden teşekkür ederim.
Son düzenleme: