A1 İLE Z150 arası işlem yapmak

[hüseyin551]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 0 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 33 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 2 ' Hücre Rengi
End Sub

bunun a1 ile z150 aralığında işlemesini istiyorum
teşekkür ederim.

 

[muygun]

Merhaba;
Mevcut kodları silin ve sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Satır As Range, Sütun As Range
If Target.Row >= 1 And Target.Row <= 150 And Target.Column <= 26 Then
Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 26))
Cells.FormatConditions.Delete
With Satır
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 8
End With
With ActiveCell
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 6
End With
End If
End Sub

Kodlarını ekleyip deneyin.
İyi çalışmalar.

 

[hüseyin551]

a3 ile z150 arası olaçaktı yanlış yazmışım emeğinize sağlık

 

[hüseyin551]

düzelttim yardımlarınız için çok teşekkür ederim.
emeğinize sağlık