Adapt codes

[mdorey]

I want to put this code

Rows("2:" & Range([A1], ActiveSheet.UsedRange).Rows.Count - 2).Copy

in workbook1, workbook1 will open several workbooks (six) with vba.

How can i adapt that code to select the range from the other workbooks and past on workbook1.sheet(named with the name of the files open)?

Here is a sample of the code

Sub OpenData()


Dim myValue As Variant
myValue = InputBox("File name?")


    ChDir "L:\..."
    Workbooks.OpenText Filename:= _
        "L:\...\PRO " & myValue & ".txt" _
        , Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True

Thanks

 

[Nine Zero]

Hello,

If im understanding you question correctly you would like to run that same line of code in all 6 newly opened files if so just add this line after opening the files

Windows("File1.xlsx").Activate
Rows("2:" & Range([A1], ActiveSheet.UsedRange).Rows.Count - 2).Copy
Windows("OriginalFile.xlsx").Activate
'Insert your pasting code'
Windows("File2.xlsx").Activate
Rows("2:" & Range([A1], ActiveSheet.UsedRange).Rows.Count - 2).Copy
Windows("OriginalFile.xlsx").Activate
'Insert your pasting code'
.
.
.
.
and so on for all 6 of them

try that see if that works

 

[mdorey]

Hello,

If im understanding you question correctly you would like to run that same line of code in all 6 newly opened files if so just add this line after opening the files

Windows("File1.xlsx").Activate
Rows("2:" & Range([A1], ActiveSheet.UsedRange).Rows.Count - 2).Copy
Windows("OriginalFile.xlsx").Activate
'Insert your pasting code'
Windows("File2.xlsx").Activate
Rows("2:" & Range([A1], ActiveSheet.UsedRange).Rows.Count - 2).Copy
Windows("OriginalFile.xlsx").Activate
'Insert your pasting code'
.
.
.
.
and so on for all 6 of them

try that see if that works

Thank you very much for the reply
For now i cant try the code, unfortunately i'm still looking for the last parte of the code that will detect in which line of the wookbook1 will the data be past...

I have to find a way to search by vba the line column B(in wookbook1.sheet(named the same name has the file opened)) that have the same value of the second line from the column B of the file that the data will be copy... :P

is it possible for you to help me on this as well???

Many thanks