Kopyala yapıştır

[esolen]

ARKADAŞLAR MERHABA
Bir konunun içinde yazmıştım sanırım dikkat çekmedi ondan cevap alamadım bundan dolayı yeni konu başlığı açtım.
Bir dosyada birden fazla sayfam var her sayfanın içinde onlarca satır ve bu satırlar birbirlerinden formülalıyor.
ben dosyayı birine göndermek istediğimde her defasında sayfalara girip kopyala değeryapıştır yapıp frklıkaydederek gönderiyorum bu benimçk vaktimi alıyor. Bu şekilde olan dosyalarımı toplu olark nasıl yapyalayıp değer yapıştırabilirim

 

[N.Ziya Hiçdurmaz]

yanıt

Kodu bir deneyiniz.

Sub test()
For i = 1 To Sheets.Count
Sheets(i).Cells.Copy
Sheets(i).Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next
kaydet = InputBox("Dosya ismi giriniz")
ActiveWorkbook.SaveAs Filename:=kaydet
Application.CutCopyMode = False
End Sub

 

[esolen]

Dostum bu yazdıkların güzelde nereye yazacağız
nasıl kullanacağız. Kodlamayı çok iyi bilmiyorum

 

[N.Ziya Hiçdurmaz]

Hangi kitapta ugulamak istiyorsan.ALT F11 Tuşlarına basıp vba bölümüne geçeceksin oradan sol üstte bir modul oluşturup içirisine kopyalayacaksın bulunduğu kitabın tüm sayfalarında işlem görür.

 

[enteresan]

Hangi kitapta ugulamak istiyorsan.ALT F11 Tuşlarına basıp vba bölümüne geçeceksin oradan sol üstte bir modul oluşturup içirisine kopyalayacaksın bulunduğu kitabın tüm sayfalarında işlem görür.

Hocam, sanırım Belgelerim klasörüne kopyalıyor. Kopyalanacak yeri bizim belirlememiz mümkün mü? Saygılar...

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyayı C sürücüsüne kaydeder.

Sub test()
For i = 1 To Sheets.Count
Sheets(i).Cells.Copy
Sheets(i).Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next
kaydet = InputBox("Dosya ismi giriniz")
ActiveWorkbook.SaveAs "C:\" & kaydet
Application.CutCopyMode = False
End Sub

 

[enteresan]

Dosyayı C sürücüsüne kaydeder.

Sub test()
For i = 1 To Sheets.Count
Sheets(i).Cells.Copy
Sheets(i).Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next
kaydet = InputBox("Dosya ismi giriniz")
ActiveWorkbook.SaveAs "C:\" & kaydet
Application.CutCopyMode = False
End Sub

Hocam, benim demek istediğim, dosyanın ismini belirlediğimiz gibi dosyayı farklı kaydetteki gözat tuşu gibi bir uygulama ile dosyanın kaydedileceği yeri belirleyebilir miyiz demek istemiştim. İlginize teşekkür ederim...