makrom end sub da takılıyor

[oziyilmaz]

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

 

[zafer]

Merhaba

Next k dan sonra

next eksik


next k
next
...
...

 

[oziyilmaz]

ama bu sefer de bıcım macrosu bulunamadı diye uyarı veriyor

 

[oziyilmaz]

özür dilerim "If Sheets(t) Then" de hata veriyor

biçim macrosu ile ilgili hata benim hatam kusura bakmayın

 

[zafer]

Merhaba

Herhalde kendiniz düzenlediniz.
Tamam değilmi.

 

[oziyilmaz]

zafer bey

özür dilerim "If Sheets(t) Then" de hata veriyor

hatası devam ediyor

 

[zafer]

Merhaba

For t = 1 To 7
If ActiveSheet(t) Then GoTo atla
ActiveSheet.Select


burada siz t değişkenini sayfa ismi olarak alamazsınız.

Açıklama yazarsanız beraber çözmeye çalışalım.

Kodları

a = Worksheets.Count
For t = 1 To a
Worksheets(t).Select
If ActiveSheet.Name = "aaa" Then GoTo atla

makronuzun başına yapıştırın

For t = 1 To 7
If ActiveSheet(t) Then GoTo atla

Burayı silin

Çalıştırın

edit : koyu satırı değiştirdim
"aaa " sayfa ismi sizinki ne ise onu yazın o sayfaya geldiğinde atlaya gider

 

[zafer]

Merhaba

Yanlış anlamış olabilirim

siz 1 sayfa ile 7 . sayfa arasını biçimlendirmek istiyorsunuz. sonrakilere geldiğinde makrodan çıkılmasını istiyorsunuz herhalde

öyleyse bu kodları yapıştırın

For t = 1 To 7
Worksheets(t).Select
If t > 7 Then GoTo atla

veya dosyaya bakın

 

[oziyilmaz]

Zafer bey teşekkürler son yazdığınız kodda ufak bir değişiklikle sorun halledildi.

Elinize sağlık