Butun Sayfaların A1 Hücresine git ve Kaydet

[Eser Gökay]

Arkadaşlar merhabalar

aşağıdaki kodla kitabın tüm sayfalarını %90'a zoom edip kaydediyoruz peki buna aynı zamanda tüm sayfaların a1 hücresine gelip kaydetmesini nasıl sağlarız.

Sub Kaydet()
Application.ScreenUpdating = False
Dim arr() As String, i%

ReDim arr(Sheets.Count - 1) As String

For i = 0 To Sheets.Count - 1
arr(i) = Sheets(i + 1).Name
Next

Sheets(arr).Select
Windows(ThisWorkbook.Name).Zoom = 90
Sheets("Giris").Select
ThisWorkbook.Save

Erase arr
Application.ScreenUpdating = True

End Sub

 

[zafer]

Merhaba

Hangi sayfanızdaki hangi hücre diğer sayfaların A1 hücrelerine kopyalanacaktır.

 

[Eser Gökay]

Merhaba

Hangi sayfanızdaki hangi hücre diğer sayfaların A1 hücrelerine kopyalanacaktır.

Merhabalar sanırım yanlış anlama var ustam. Sorumu tekrar okudum. Kopyalama değil kaydetme diye yazmışım. yazdığım kod tüm sayfaların zoom ayarını %90 getirip kaydediyor. bunu tüm sayfaların a1 hücresine git ve tüm sayfaların zoom ayarını %90 'a getir ve kaydet şeklinde düzenlemek istiyorum.

 

[Orion1]

A1 hücresine gidebilmek için

range("A1").select

Kodun en sonundada dosyayı kaydediniz.

Thisworkbook.save

 

[leumruk]

Sub Kaydet()
Application.ScreenUpdating = False
Dim arr() As String, i%

ReDim arr(Sheets.Count - 1) As String

For i = 0 To Sheets.Count - 1
arr(i) = Sheets(i + 1).Name
Next

Sheets(arr).Select
Windows(ThisWorkbook.Name).Zoom = 90
Sheets("Giris").Select

For x = 1 To Sheets.Count
Sheets(x).Select
ActiveSheet.[A1].Select
Sheets("Giris").Select
Next x

ThisWorkbook.Save

Erase arr
Application.ScreenUpdating = True

End Sub

Kodu bu şekilde deneyip, bilgi verir misiniz?

 

[Eser Gökay]

Sub Kaydet()
Application.ScreenUpdating = False
Dim arr() As String, i%

ReDim arr(Sheets.Count - 1) As String

For i = 0 To Sheets.Count - 1
arr(i) = Sheets(i + 1).Name
Next

Sheets(arr).Select
Range("A1").Select
Windows(ThisWorkbook.Name).Zoom = 90
Sheets("Giris").Select
ThisWorkbook.Save

Erase arr
Application.ScreenUpdating = True

End Sub


KIRMIZI SATIR'LA OLAY BİTİYORMUŞ. Teşekkür Ediyorum Evren Hocam

 

[Orion1]

Rica ederim.
İyi çalışmalar.