Makro kodunu nasıl çoğaltabilirim

[brendie]

Arkadaşlar aşağıdaki kod ile, K2:AT2 aralığı C2 aralığına eşitse bu aralıkta hücre renkleri 43 olsun değilse olmasın diyorum ve kod çalışıyor. Burada sıkıntı yok. Peki ben bu kodu nasıl çoğaltabirim. Yani K3:AT3 = C3, K4:AT4 = C4 vs... şeklinde. Yapamadım bir türlü. Yardım edebilir misiniz ?



Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Range
For Each i In Range("K2:AT2")

With Cells(i.Row, i.Column).Resize(1, 1)

Select Case i.Value

Case Is = Range("C2"): .Interior.ColorIndex = 43
Case Else: .Interior.ColorIndex = xlNone


End Select

End With
Next i
Set i = Nothing

End Sub

 

[ynmcan]

syn. brendie;
Aşağıdaki kodu denermisiniz.
[CODE]Private Sub Worksheet_Change(ByVal Target As Range)

For sat = 2 To 10
For sut = 11 To 46
If Cells(sat, sut) <> "" Then
If Cells(sat, sut) = Cells(sat, 3) Then
Cells(sat, sut).Interior.ColorIndex = 43
Else
Cells(sat, sut).Interior.ColorIndex = xlNone
End If
Else
Cells(sat, sut).Interior.ColorIndex = xlNone
End If
Next sut
Next sat


End Sub

[/CODE]

 

[brendie]

Sayın ynmcan evet oldu, gerçi biraz yavaşladı ama olsun, çalışıyor sonuçta. Emeğiniz ve ilginiz için çok teşekkür ederim. Bu arada alternatif olması ve öğrenmek için soruyorum benim yazdığım kod nasıl düzenlenebilirdi merak ettim, bu konuda bilginiz var mı ? Birde bu kodu başka bir düğmeye nasıl ekleyebilirim ?

 

[brendie]

Aslında düğmeye ekliyorum ama c2 de değişiklik yapınca çalışmıyor

Sayın ynmcan evet oldu, gerçi biraz yavaşladı ama olsun, çalışıyor sonuçta. Emeğiniz ve ilginiz için çok teşekkür ederim. Bu arada alternatif olması ve öğrenmek için soruyorum benim yazdığım kod nasıl düzenlenebilirdi merak ettim, bu konuda bilginiz var mı ? Birde bu kodu başka bir düğmeye nasıl ekleyebilirim ?