Eğer açık olan sayfa "Sayfa1" ise kodla yazabilirmisiniz.

[KONYA42]

Arkadaşlar çalışam kitabında 10 tane sayfa var.Modüle şunu yazdırmak istiyorum:
Sub Auto_Close()

Eğer açık olan sayfa(ya da aktif sayfa) sayfa1 ise ozaman ActiveCell.Interior.ColorIndex = ColorIndexNone
End If

Eğer açık olan sayfa(ya da aktif sayfa) sayfa2 ise ozaman
ActiveCell.Interior.ColorIndex = ColorIndexNone
End If
...............
End Sub

YADA Şu yazılabilirmi???????
Sub Auto_Close
Bütün sayfalardaki en sonki seçili hücreler renksize dönüşsün

 

[Ayhan Ercan]

If ActiveSheet.Name = "Sayfa1" Then
......
......
End If

 

[Orion1]

Bütün sayfalardaki seçili alanın rengini temizler.

Sub auto_close()
Dim syf As Worksheet, sh As String
sh = ActiveSheet.Name
For Each syf In Worksheets
    syf.Select
    Selection.Interior.ColorIndex = xlNone
Next
Sheets(sh).Select
End Sub

 

[KONYA42]

Evren bey teşekür ediyorum.

 

[KONYA42]

Ayhan bey sizin yazınızı farketmemişim.Çok teşekür ediyorum.