Excel makro başka excelde işlem

[selis]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Herkese Merhabalar

Başka bir excel sayfası açtırıp o sayfada bazı işlemler yaptırmak istiyorum. Örneğin a sütununu başka bir hücreye yapıştırsın gibi düzenlemeler daha sonra tümünü kopyalayıp ana excel sayfasına yapıştırsın. Nasıl yapabiliriim?

Şimdiden teşekkür ederim , iyi günler.

 

Listeyi bölerek yeni sheet açma

Kapalı Excel Sayfasından Veri Alma

[cakarem]

Örnek dosya hazırlarsanız bir kod hazırlanabilir. Makro kodu bu işlemler için var.
Kodun hazırlanabilmesi için yapılacak işlemleri net belirtmeniz gerek. Nerede hangi işlem nasıl yapacak. Nerede sorusun cevabı hücre detayına kadar olması gerek.

 

[selis]

Çok teşekkür ederim, aşağıda kodu detaylı paylaşıyorum. Dosyayı açıyor ancak kopyala yapıştırı çalışmıyor.

Private Sub CommandButton3_Click()
Workbooks.Open Filename:="C:\Users\selcanusta\Desktop\EXPORT.xlsx"

'Application.WindowState = xlNormal
Windows("STOK.xlsm").Activate
Sheet1.Range("A1:N1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("EXPORT.XLSX").Activate
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Application.CutCopyMode = False
'ActiveWindow.Close

Sheet1.Range("A1:A6000").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3
Columns("N:N").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Columns("E:E").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3
Columns("F:F").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Columns("H:H").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3
Columns("E:E").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Columns("J:J").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3
Columns("H:H").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Columns("G:G").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3
Columns("J:J").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Columns("F:F").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3
Columns("G:G").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Columns("I:I").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3
Columns("F:F").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Columns("K:K").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3
Columns("I:I").Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

 

[cakarem]

Dosya üzerinde görseydik keşke )

 

[selis]

Çok özür dilerim yanlış anlamışım.
Ektedi dosya kod dosyam başka bir dosyada gerçekleştirmek istediğim şeyleri yazdım.
Şimdiden teşekkürler, iyi çalışmalar

 

[ExcelDepo]

Başka bir excel sayfası açtırıp o sayfada bazı işlemler yaptırmak istiyorum.

https://www.exceldepo.com/aktif-sayfayi-kopyala-yeni-bir-kitaba-yapistir-9342

Forumumuzun da çatısı altında hizmet verdiği ExcelDepo Kod Bankasında hazır makro örneklerimiz bulunmaktadır. Verdiğim linkteki kod tarzı bir kod ile işinizi görebilirsiniz.

 

[selis]

Evet buldum çok teşekkür ediyorum.

 

[cakarem]

Sorunuz çözüme ulaştı ise konuyu kapatıp kilitliyorum.

 

[selis]

Evet teşekkür ederiiim.