Copy Selected range to another sheet with define range within cell

[francozzy]

Hi,

i'm newbie on vba excel

I would like to copy some range on selected sheet to another sheet, and defined the range with value from another sheet

i'll give the illustration below :

SheetA

	A	B	C	D	E
1	100	400	700	1000	1300
2	200	500	800	1100	1400
3	300	600	900	1200	1500

<tbody>
</tbody>

SheetB

	A	B
1	A1
2	D2

<tbody>
</tbody>

I want to copy selected range from SheetA to new Worksheet SheetC,
with specific value of Range that has been define at SheetB

So what i have to do ?

thank you

 

[francozzy]

When you say copy to sheet(3) you have to tell me where to paste on sheet 3

for now, as far as i need, the copy will paste on Sheet(3) and will paste at cell 1,1 (or A1) for exact location

 

[My Aswer Is This]

See my script in post 19

 

[francozzy]

Try this:

Sub Copy_Dates()
'Modified 4-4-18 6:35 AM EDT
ans = Weekday(Date)
Dim LastColumn As Long
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
Dim SearchString As String
Dim SearchRange As Range
SearchString = ans
Dim Lastrow As Long
Set SearchRange = Range(Cells(1, 1), Cells(1, LastColumn)).Find(SearchString, LookIn:=xlValues, lookat:=xlWhole)
If SearchRange Is Nothing Then MsgBox "That day  " & ans & "  Cannot be found" & vbNewLine & " I will Stop the script": Exit Sub
Lastrow = Cells(Rows.Count, SearchRange.Column).End(xlUp).Row
LastColumn = Sheets(3).Cells(1, Columns.Count).End(xlToLeft).Column + 1
SearchRange.Offset(, -1).Resize(Lastrow, 3).Copy Sheets(3).Cells(1, LastColumn)
End Sub

Could you added some comment to explain the process, so if i need to change little bit, i can start from your explanation in comments

Thank you

 

[My Aswer Is This]

First you need to tell me if this does what you want.

 

[My Aswer Is This]

I made a mistake:
Try this:

Sub Copy_Dates()
'Modified 4-4-18 7:05 AM EDT
ans = Day(Date)
Dim LastColumn As Long
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
Dim SearchString As String
Dim SearchRange As Range
SearchString = ans
Dim Lastrow As Long
Set SearchRange = Range(Cells(1, 1), Cells(1, LastColumn)).Find(SearchString, LookIn:=xlValues, lookat:=xlWhole)
If SearchRange Is Nothing Then MsgBox "That day  " & ans & "  Cannot be found" & vbNewLine & " I will Stop the script": Exit Sub
Lastrow = Cells(Rows.Count, SearchRange.Column).End(xlUp).Row
LastColumn = Sheets(3).Cells(1, Columns.Count).End(xlToLeft).Column + 1
SearchRange.Offset(, -1).Resize(Lastrow, 3).Copy Sheets(3).Cells(1, LastColumn)
End Sub

 

[francozzy]

first, my Sheet1 like below

and after running your code
i got this message

So what i have to do ?

 

[My Aswer Is This]

You need to be running the script from the sheet with all this data

The script looks in row(1) for a 4 that is todays day
Your sheet looks like a 4 is in row(1)

It must be 4 and nothing else.

Do you have a button on this sheet where you are running the script from
Or are you running the script from a button on sheet 3

 

[My Aswer Is This]

You need to use my script in post 25
And run the script from sheet(1)

If you have to run the script from some other sheet you will have to let me know.
I will be offline for several hours.
But you need to make sure the script is doing what you want before I modify it so you can run it from another sheet if needed.

 

[francozzy]

You need to use my script in post 25
And run the script from sheet(1)

If you have to run the script from some other sheet you will have to let me know.
I will be offline for several hours.
But you need to make sure the script is doing what you want before I modify it so you can run it from another sheet if needed.

sorry for my late response too.

i'll already try to change your code little bit like below

    ThisWorkbook.Sheets(1).Activate
    
    ans = Day(Date)
    
    Dim LastColumn As Long
    Dim SearchString As String
    Dim SearchRange As Range
    Dim Lastrow As Long
    
    LastColumn = ThisWorkbook.Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
    
    MsgBox LastColumn
    
    SearchString = ans
    
    Set SearchRange = ThisWorkbook.Sheets(1).Range(ThisWorkbook.Sheets(1).Cells(1, 1), _
    ThisWorkbook.Sheets(1).Cells(1, LastColumn)).Find(SearchString, _
    LookIn:=xlValues, lookat:=xlWhole)
    
    If SearchRange Is Nothing Then MsgBox "That day  " & ans & "  Cannot be found" & _
    vbNewLine & " I will Stop the script": Exit Sub
    
    Lastrow = ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Rows.Count, SearchRange.Column).End(xlUp).Row
    LastColumn = Sheets(3).Cells(1, Columns.Count).End(xlToLeft).Column
    SearchRange.Offset(, -1).Resize(Lastrow, 5).Copy Sheets(3).Cells(1, LastColumn)

trying to put 4 next day as the variable
and running like the way i expected

let me try for various variable,
Is that ok, if i back to this thread when i meet any issue with this code ?

Thank you for your help.

 

[My Aswer Is This]

Glad to see you like modifying code to your needs. The script ran perfectly for me when run from the master sheet. It would have only taken a line or two of code change if you wanted to run it from another sheet. Have fun.

You never said if it did what you want when you ran it from the Master Sheet.