Yeni Kayıt
Konudaki Resimler
|
Bildirim
Excel sayfalarını ayrı doslayar olarak tek tuşla kaydetmek?
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir (1 Mobil) - 1 Masaüstü, 
1 Mobil
1 Mobil
Giriş
Mesaj
-
-
Ben de müsadenle araya girerek bunun tam tersini yapmak istiyorum. Eğer mümkünatı varsa ikimize de kolaylık olacak. _____________________________ Bilgisayarsız okul kalmasın !
harun.dll not found, missed or bad. -
Sub sayfaayir()
Application.ScreenUpdating = False
Dim sayfa As Worksheet
Dim dosyayolu As String, dtimestamp As String
dosyayolu = "c:\dosyalar\"
For Each sayfa In ThisWorkbook.Worksheets
sayfa.Copy
ActiveWorkbook.SaveAs Filename:=dosyayolu & sayfa.Name
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
Next sayfa
Application.ScreenUpdating = True
End Sub
Merhaba , Yukarıdaki kod ile macro oluşturarak bunu yapabilirsin. dosyayolu = "c:\dosyalar\" gösterildiği için "C" altında "dosyalar" isimli bir klasör oluşturman lazım,Sen farklı biryere çıksın istiyorsan burayı ona göre değiştirebilirsin.
_____________________________
-
quote:
Orijinalden alıntı: osmanbilir
Sub sayfaayir()
Application.ScreenUpdating = False
Dim sayfa As Worksheet
Dim dosyayolu As String, dtimestamp As String
dosyayolu = "c:\dosyalar\"
For Each sayfa In ThisWorkbook.Worksheets
sayfa.Copy
ActiveWorkbook.SaveAs Filename:=dosyayolu & sayfa.Name
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
Next sayfa
Application.ScreenUpdating = True
End Sub
Merhaba , Yukarıdaki kod ile macro oluşturarak bunu yapabilirsin. dosyayolu = "c:\dosyalar\" gösterildiği için "C" altında "dosyalar" isimli bir klasör oluşturman lazım,Sen farklı biryere çıksın istiyorsan burayı ona göre değiştirebilirsin.
Merhaba,
Acaba yazdığınız macro, sayfaları metin(sekmeyle ayrılmış) (.txt) formatı ile ayrı ayrı kaydedecek şekilde düzenlenebilir mi? Bununla birlikte sayfaları kaydetme konumu "c:\dosyalar\" şeklinde değilde ana excel dosyasının mevcut bulunduğu aktif klasör olabilir mi?
Örneğin c:\tez\data\1. periyod klasöründe bulunan 50 sayfalı bir excel dosyasını baz alarak, belirttiğiniz macronun düzenlenmesi ile 50 sayfayı ayrı ayrı metin(sekmeyle ayrılmış) (.txt) formatında c:\tez\data\1. periyod klasörüne kaydedebilir miyim?
Teşekkür ederim._____________________________
-
osmanbilir
O
kullanıcısına yanıt
Konuyu tekrar hortlatıyorum, Makro güzel çalışıyor ama sayfa içindeki formülleri almıyor. Ne yapabiliriz?
< Bu ileti mobil sürüm kullanılarak atıldı >_____________________________
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
