Makronun tüm sayfalar için çalışması

[kan-nas]

Selamlar,
Excelimde 30 tane sayfa var. Her sayfa için makro kodlarını tek tek yazmak zorunda kalıyorum. Tüm sayfalar için tek bir kod yazılabilir mi.?

Sheets("ali").SelectRange("E31").Select

Range("E31").End(3).Rows.Select
Range("e33").Value = ActiveCell.Offset(-1, 0).Value
Range("e39").Value = ActiveCell
Range("e43").Value = ActiveCell

Sheets("veli").SelectRange("E31").Select
Range("E31").End(3).Rows.Select
Range("e33").Value = ActiveCell.Offset(-1, 0).Value
Range("e39").Value = ActiveCell
Range("e43").Value = ActiveCell

Bu şekilde 30 tane sayfayı tek tek seçip kod çalıştırma yerine tek bir kod yazılabilir mi.?

 

[mustafaine1]

For Each sayfa In Application.Worksheets
sayfa.Activate

ActiveSheet..........kodlariniz...........

Next sayfa

seklinde bir kod ile deneyebilirsiniz..