- Katılım
- 22 Aralık 2005
- Mesajlar
- 335
- Excel Vers. ve Dili
- Office - 2019 - Türkçe
Merhaba;
Excel hücreleri arasında çalışma yaparken aktifleşen hüçrenin renginin,kırmızı önceki hücrenin yine eski halini almasını istiyorum. Yapmaya çalıştığım kod' un niye hata verdiğini çözemedim.
Yardımlarınıza şimdiden teşekkür ederim.
[vb:1:babd87ab36]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If i = 0 Or j = 0 Then
i = 1
j = 1
End If
With Cells(i, j).Interior
.Colorındex = x1None
End With
Activecel.iteror 'İşaretlenen hücrenin
.ColorIndex = 3
.pattren = xIsolid
End With
i = ActiveCell.Rov
j = ActiveCell.Column
End Sub
[/vb:1:babd87ab36]
Excel hücreleri arasında çalışma yaparken aktifleşen hüçrenin renginin,kırmızı önceki hücrenin yine eski halini almasını istiyorum. Yapmaya çalıştığım kod' un niye hata verdiğini çözemedim.
Yardımlarınıza şimdiden teşekkür ederim.
[vb:1:babd87ab36]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If i = 0 Or j = 0 Then
i = 1
j = 1
End If
With Cells(i, j).Interior
.Colorındex = x1None
End With
Activecel.iteror 'İşaretlenen hücrenin
.ColorIndex = 3
.pattren = xIsolid
End With
i = ActiveCell.Rov
j = ActiveCell.Column
End Sub
[/vb:1:babd87ab36]