Belirtilen sayfaların A1 hücresine veri yazmak

[gkhn2]

Merhaba,

Sayfa1,Sayfa2,Sayfa3 isimli bir excel kitabı var. İstediğim; bir makro butonuna basınca 3 sayfanın A1 hücresine 2014-2015 yazsın ve hangi sayfada isem orada kalsın. yani sayfa 1 de butona basınca sayfa 3 e geçmesin ekran

 

[askm]

Sub ASKM_SAYFALARA_YAZ()
For syf = 1 To Sheets.Count
    Sheets(syf).Cells(1, 1).Value = "2014-2015"
Next
MsgBox "İŞLEM TAMAM...", vbInformation, "ASKM"
End Sub

 

[gkhn2]

teşekkür ederim

peki S7 hücresine yazmak istersem ne gibi değişklik yapmamız gerekir?

 

[askm]

Sub ASKM_SAYFALARA_YAZ()
For syf = 1 To Sheets.Count
    Sheets(syf).Cells(7,19).Value = "2014-2015" 
   ' Sheets(syf).Cells(7,"S").Value = "2014-2015" 'ŞEKLİNDE DE BELİRTEBİLİRSİNİZ.
Next
MsgBox "İŞLEM TAMAM...", vbInformation, "ASKM"
End Sub

 

[gkhn2]

bir de tüm sayfalara değilde istediklerimize mesela sayfa 1 ve sayfa 2 ye yazdırmak için ne yazmalıyım

 

[askm]

Sub ASKM_SAYFALARA_YAZ()
For syf = 1 To Sheets.Count
If Sheets(syf).Name = "Sayfa1" Or Sheets(syf).Name = "Sayfa2" Then
    Sheets(syf).Cells(7, 19).Value = "2014-2015"
   ' Sheets(syf).Cells(7,"S").Value = "2014-2015" 'ŞEKLİNDE DE BELİRTEBİLİRSİNİZ.
End If
Next
MsgBox "İŞLEM TAMAM...", vbInformation, "ASKM"
End Sub