VBA Code for Repeating An action

[aujan]

Hi everybody i m new to vba plz help me regarding following macro which i want to apply on all excel files in that folder.

Thanks in advance.




Sub Macro1()
'
' Macro1 Macro
'

'
Workbooks.Open Filename:="D:\Aziz\Office Files\Workbook 1.xlsx"
Range("A2:D2").Select
Selection.Copy
ActiveWindow.Close
Range("A2").Select
ActiveSheet.Paste
Range("A3").Select
Workbooks.Open Filename:="D:\Aziz\Office Files\workbook 2.xlsx"
Range("A2:D2").Select
Selection.Copy
ActiveWindow.Close
ActiveSheet.Paste
Range("A4").Select
Workbooks.Open Filename:="D:\Aziz\Office Files\Workbook 3.xlsx"
Range("A2:D2").Select
Selection.Copy
ActiveWindow.Close
ActiveSheet.Paste
Range("A5").Select


End Sub

[HaHoBe]

Hi, aujan,

maybe add code-tags when displaying a procedure here in the forum.

Maybe give this code a try:

Please Login or Register  to view this content.

Please alter the name of the sheet to which to write (I assumed it is called Sheet1).

Ciao,
Holger

[Alf]

A macro like this perhaps?

Please Login or Register  to view this content.

If you are copying formulas from the other workbook change "Paste:=xlPasteAll" to "Paste:=xlValues"

Alf

[aujan]

Thanks buddy, Thanks a lot

[jeffreybrown]

@aujan,

Looks like your query has been solved, but please follow the forum rules and apply code tags.