I am basically trying to copy a range of data from one workbook to about 3
other. I have already written code that allows me to find the data according
to the date I entered and then paste it into another worksheet, my code can
be seen below:


Option Explicit

Private Sub CommandButton1_Click()
Dim rng1 As Range
Dim rngFound As Range


With Worksheets("Index")
Set rng1 = .Range("A1:A" & .Range("A65536").End(xlDown).Row)
End With
Set rngFound = rng1.Find(what:=DateValue(Me.TextBox1.Value))
Range(rngFound, rngFound.Offset(1, 8)).Copy
Worksheets("Sheet2").Range("A1")
Set rngFound = Nothing
Unload Me
End
End Sub

But instead of copying from one worksheet to another, I want it to copy from
one workbook to multiple workbooks according to the date I entered within the
UserForm, any help will be appreciated thank you.

You could use multiple lines:

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book1.xls").Worksheets("Sheet2").Range( "A1")

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book2.xls").Worksheets("Sheet2").Range( "A1")

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book3.xls").Worksheets("Sheet2").Range( "A1")

Each of those files need to be open.

drinese18 wrote:

I am basically trying to copy a range of data from one workbook to about 3
other. I have already written code that allows me to find the data according
to the date I entered and then paste it into another worksheet, my code can
be seen below:

Option Explicit

Private Sub CommandButton1_Click()
Dim rng1 As Range
Dim rngFound As Range


With Worksheets("Index")
Set rng1 = .Range("A1:A" & .Range("A65536").End(xlDown).Row)
End With
Set rngFound = rng1.Find(what:=DateValue(Me.TextBox1.Value))
Range(rngFound, rngFound.Offset(1, 8)).Copy
Worksheets("Sheet2").Range("A1")
Set rngFound = Nothing
Unload Me
End
End Sub

But instead of copying from one worksheet to another, I want it to copy from
one workbook to multiple workbooks according to the date I entered within the
UserForm, any help will be appreciated thank you.

--

Dave Peterson

Yeh I could but in that case I would like it to basically take whatever I
entered in the box, use it to find the data within the source workbook, once
the data is found, it will then copy it to the other 3 workbooks.

"Dave Peterson" wrote:

You could use multiple lines:

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book1.xls").Worksheets("Sheet2").Range( "A1")

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book2.xls").Worksheets("Sheet2").Range( "A1")

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book3.xls").Worksheets("Sheet2").Range( "A1")

Each of those files need to be open.

drinese18 wrote:

I am basically trying to copy a range of data from one workbook to about 3
other. I have already written code that allows me to find the data according
to the date I entered and then paste it into another worksheet, my code can
be seen below:

Option Explicit

Private Sub CommandButton1_Click()
Dim rng1 As Range
Dim rngFound As Range


With Worksheets("Index")
Set rng1 = .Range("A1:A" & .Range("A65536").End(xlDown).Row)
End With
Set rngFound = rng1.Find(what:=DateValue(Me.TextBox1.Value))
Range(rngFound, rngFound.Offset(1, 8)).Copy
Worksheets("Sheet2").Range("A1")
Set rngFound = Nothing
Unload Me
End
End Sub

But instead of copying from one worksheet to another, I want it to copy from
one workbook to multiple workbooks according to the date I entered within the
UserForm, any help will be appreciated thank you.

--

Dave Peterson

I mean if not, i can just make it less complicated, still I don't remember
the simple copy/paste code that enables you to copy a range from one workbook
to the next, thats all I want really, to be able to automatically copy and
paste from one workbook to multiple workbooks at a touch of a button

"drinese18" wrote:

Yeh I could but in that case I would like it to basically take whatever I
entered in the box, use it to find the data within the source workbook, once
the data is found, it will then copy it to the other 3 workbooks.

"Dave Peterson" wrote:

You could use multiple lines:

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book1.xls").Worksheets("Sheet2").Range( "A1")

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book2.xls").Worksheets("Sheet2").Range( "A1")

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book3.xls").Worksheets("Sheet2").Range( "A1")

Each of those files need to be open.

drinese18 wrote:

I am basically trying to copy a range of data from one workbook to about 3
other. I have already written code that allows me to find the data according
to the date I entered and then paste it into another worksheet, my code can
be seen below:

Option Explicit

Private Sub CommandButton1_Click()
Dim rng1 As Range
Dim rngFound As Range


With Worksheets("Index")
Set rng1 = .Range("A1:A" & .Range("A65536").End(xlDown).Row)
End With
Set rngFound = rng1.Find(what:=DateValue(Me.TextBox1.Value))
Range(rngFound, rngFound.Offset(1, 8)).Copy
Worksheets("Sheet2").Range("A1")
Set rngFound = Nothing
Unload Me
End
End Sub

But instead of copying from one worksheet to another, I want it to copy from
one workbook to multiple workbooks according to the date I entered within the
UserForm, any help will be appreciated thank you.

--

Dave Peterson

I don't know of anything less complicated than using those three lines.

drinese18 wrote:

I mean if not, i can just make it less complicated, still I don't remember
the simple copy/paste code that enables you to copy a range from one workbook
to the next, thats all I want really, to be able to automatically copy and
paste from one workbook to multiple workbooks at a touch of a button

"drinese18" wrote:

Yeh I could but in that case I would like it to basically take whatever I
entered in the box, use it to find the data within the source workbook, once
the data is found, it will then copy it to the other 3 workbooks.

"Dave Peterson" wrote:

You could use multiple lines:

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book1.xls").Worksheets("Sheet2").Range( "A1")

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book2.xls").Worksheets("Sheet2").Range( "A1")

Range(rngFound, rngFound.Offset(1, 8)).Copy _
workbooks("book3.xls").Worksheets("Sheet2").Range( "A1")

Each of those files need to be open.

drinese18 wrote:

I am basically trying to copy a range of data from one workbook to about 3
other. I have already written code that allows me to find the data according
to the date I entered and then paste it into another worksheet, my code can
be seen below:

Option Explicit

Private Sub CommandButton1_Click()
Dim rng1 As Range
Dim rngFound As Range


With Worksheets("Index")
Set rng1 = .Range("A1:A" & .Range("A65536").End(xlDown).Row)
End With
Set rngFound = rng1.Find(what:=DateValue(Me.TextBox1.Value))
Range(rngFound, rngFound.Offset(1, 8)).Copy
Worksheets("Sheet2").Range("A1")
Set rngFound = Nothing
Unload Me
End
End Sub

But instead of copying from one worksheet to another, I want it to copy from
one workbook to multiple workbooks according to the date I entered within the
UserForm, any help will be appreciated thank you.

--

Dave Peterson


--

Dave Peterson