Sub BICIM()
For t = 1 To 7
If ActiveSheet(t) Then GoTo atla
ActiveSheet.Select
Dim k As Range
Range("m6:ar250").Font.Bold = 10
Range("m6:ar250").Font.Size = 10
Range("a1:aw250").Interior.ColorIndex = 2
Range("a1:d1").Interior.ColorIndex = 33
For Each k In Range("m6:ar250")
If k = Range("e4") Then
k.Font.ColorIndex = 3
k.Interior.ColorIndex = 6
ElseIf k = Range("I4") Then
k.Font.ColorIndex = 1
k.Interior.ColorIndex = 4
ElseIf k = Range("H4") Then
k.Font.ColorIndex = 1
k.Interior.ColorIndex = 8
ElseIf k = Range("D4") Then
k.Font.ColorIndex = 1
k.Interior.ColorIndex = 2
ElseIf k = Range("f4") Then
k.Font.ColorIndex = 11
k.Interior.ColorIndex = 7
ElseIf k = "Ç" Then
k.Font.ColorIndex = 1
k.Interior.ColorIndex = 3
ElseIf k = Range("k4") Then
k.Font.ColorIndex = 3
k.Interior.ColorIndex = 2
ElseIf k = Range("g4") Then
k.Font.ColorIndex = 2
k.Interior.ColorIndex = 5
End If
Next k
atla:
End Sub
makroda aktif sayfam 1 ila 7 arasında ise biçimleme uygulamasın istedin ve
For t = 1 To 7
If ActiveSheet(t) Then GoTo atla
.
.
atla:
end sub
yaptım ama makro end sub da hata veriyor. içinden çıkamadım.
çok basit bir hata yapıyorum biliyorum ama ne olduğunu anlayamadım.
yardımlarınızı bekliyorum
For t = 1 To 7
If ActiveSheet(t) Then GoTo atla
ActiveSheet.Select
Dim k As Range
Range("m6:ar250").Font.Bold = 10
Range("m6:ar250").Font.Size = 10
Range("a1:aw250").Interior.ColorIndex = 2
Range("a1:d1").Interior.ColorIndex = 33
For Each k In Range("m6:ar250")
If k = Range("e4") Then
k.Font.ColorIndex = 3
k.Interior.ColorIndex = 6
ElseIf k = Range("I4") Then
k.Font.ColorIndex = 1
k.Interior.ColorIndex = 4
ElseIf k = Range("H4") Then
k.Font.ColorIndex = 1
k.Interior.ColorIndex = 8
ElseIf k = Range("D4") Then
k.Font.ColorIndex = 1
k.Interior.ColorIndex = 2
ElseIf k = Range("f4") Then
k.Font.ColorIndex = 11
k.Interior.ColorIndex = 7
ElseIf k = "Ç" Then
k.Font.ColorIndex = 1
k.Interior.ColorIndex = 3
ElseIf k = Range("k4") Then
k.Font.ColorIndex = 3
k.Interior.ColorIndex = 2
ElseIf k = Range("g4") Then
k.Font.ColorIndex = 2
k.Interior.ColorIndex = 5
End If
Next k
atla:
End Sub
makroda aktif sayfam 1 ila 7 arasında ise biçimleme uygulamasın istedin ve
For t = 1 To 7
If ActiveSheet(t) Then GoTo atla
.
.
atla:
end sub
yaptım ama makro end sub da hata veriyor. içinden çıkamadım.
çok basit bir hata yapıyorum biliyorum ama ne olduğunu anlayamadım.
yardımlarınızı bekliyorum