koşula göre renklendirme

[Erdem Akdemir]

ekteki tabloya göre yaptığım makro hata veriyor

yardımlarınızı bekliyorum

alternatif çözümler değilde, yaptığım hatayı öğrenmek istiyorum.

Sub boya()
Dim boya, sutun As Long
For boya = 1 To [b65536].End(xlUp).Row
For sutun = 1 To [IV1].End(xlToLeft).Column
If Weekday(Cells(boya, sutun)) = 2 Then
Cells(boya, sutun).Interior.ColorIndex = 4
Else
Cells(boya, sutun) = ""
End If
Next boya
Next sutun
End Sub

 

[janveljan]

Makronun ismiyle, döngünün değişken isimleri aynı "boya"

 

[janveljan]

Ayrıca 1.satırdaki ay isimleri hata verdirecektir, satır döngüsünü 2.satırdan başlatabilirsiniz.

 

[Erdem Akdemir]

"invalid next control varaible reference" hatasını hala veriyor

koduda söylediğiniz gibi değiştirdim

Sub boyama()
Dim boya, sutun As Long
For boya = 2 To [b65536].End(xlUp).Row
For sutun = 1 To [IV1].End(xlToLeft).Column
If Weekday(Cells(boya, sutun)) = 2 Then
Cells(boya, sutun).Interior.ColorIndex = 4
Else
Cells(boya, sutun) = ""
End If
Next boya
Next sutun
End Sub

 

[Erdem Akdemir]

Sub hucre()
Dim boya, sutun As Long
For boya = 2 To [b65536].End(xlUp).Row
For sutun = 1 To [IV1].End(xlToLeft).Column
If Weekday(Cells(boya, sutun)) = 2 Then
Cells(boya, sutun).Interior.ColorIndex = 4
Else
Cells(boya, sutun) = ""
End If
Next sutun, boya
End Sub

bu şekilde yapınca düzeldi