bu arada kendi kodumda da düzeltme yaptım ilk satırda değişiklik olmaması için satır kontrolünü ekledim
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K:K")) Is Nothing Then 'sadece K sütununa bakar
Dim cll As Range
AdrX = Target.Address
If InStr(AdrX, ":") > 0 Then ilk = Split(AdrX, "$")(2): Son = Split(AdrX, "$")(4) Else ilk = Split(AdrX, "$")(2) & ":": Son = Split(AdrX, "$")(2)
Set Trgt = Range("K" & ilk & "K" & Son)
For Each cll In Trgt
If cll.Row > 1 Then 'satır kontrolü
Set Rng = cll
AdresIlIlce (Rng)
End If
Next cll
End If
End Sub
yada
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K:K")) Is Nothing Then 'sadece K sütununa bakar
Dim cll As Range
AdrX = Target.Address
If InStr(AdrX, ":") > 0 Then ilk = Split(AdrX, "$")(2): Son = Split(AdrX, "$")(4) Else ilk = Split(AdrX, "$")(2) & ":": Son = Split(AdrX, "$")(2)
If ilk = "1:" Then ilk = "2:"
If Son < 2 Then Son = 2
Set Trgt = Range("K" & ilk & "K" & Son)
For Each cll In Trgt
Set Rng = cll
AdresIlIlce (Rng)
Next cll
End If
End Sub