VBA CHALLENGE FOR EXPERTS

[NeoSez]

I am still a beginner with VBA.
I have been playing with the same spreadsheet trying to learn.
New Challenge: copying from another sheet and another Workbook
See Conditions below.
Can it be done? If so, how? Thank you.

WB1 Sheet2 Column F --> Sheet1 Column A (Any new data based on these 2 columns data should be adding entire row to Sheet1 after last used row)
WB1 Sheet2 Column X --> Sheet1 Column C
WB1 Sheet2 Column L --> Sheet1 Column F
WB1 Sheet2 Column T --> Sheet1 Column I (overwrite Sh1 Col.I contents)
EXTRACT Date ONLY (MM/DD/YYYY) from Sheet2 Column T-->Sheet1 Column G
WB1 Sheet2 Column F --> Sheet1 Column A
Workbook2 Sheet1 Column AR--> Sheet1 Column K (must copy hyperlink to photo)

 

[offthelip]

see this thread:
VBA: Copy from one range to another without ClipBoard

 

[NeoSez]

see this thread:
VBA: Copy from one range to another without ClipBoard

offthelip, thank you for the suggestion. However, it didn't quite meet all my requirements. I am still trying to figure it out but I keep hitting walls and errors.?

 

[mikerickson]

i don't understand what your arrows mean in the OP.
In words, what do you want copied from where to where? Is this controled by calling a macro or pressing a button or what?
You said that you had some code. What is that code and what is is not doing right?

 

[NeoSez]

i don't understand what your arrows mean in the OP.
In words, what do you want copied from where to where? Is this controled by calling a macro or pressing a button or what?
You said that you had some code. What is that code and what is is not doing right?

Hello mikerickson. Thank you replying to my post.
Yes, it would be controlled by clicking on a button assigned to a macro.
The arrows mean copy to.
Workbook1 Sheet2 Column F copy to Sheet1 Column A (Any new data based on these 2 columns data should be adding entire row to Sheet1 after last used row)
WB1 Sheet2 Column X copy to Sheet1 Column C
WB1 Sheet2 Column L copy to Sheet1 Column F
WB1 Sheet2 Column T copy to Sheet1 Column I (overwrite Sh1 Col.I contents)
EXTRACT Date ONLY (MM/DD/YYYY) from Sheet2 Column T copy to Sheet1 Column G
WB1 Sheet2 Column F copy to Sheet1 Column A
Workbook2 Sheet1 Column AR copy to Sheet1 Column K (must copy hyperlink to photo)

Yes, I have some code that would not paste the hyperlinks properly. I found a few codes on the internet but none worked, so I got rid of them.
I don't know how to write the code for most of it.
I think I have these two figured out.
WB1 Sheet2 Column X copy to Sheet1 Column C
WB1 Sheet2 Column L copy to Sheet1 Column F

So I found this code on the internet and tried to modify it to work for me, but not sure how to modify it to suit my needs.
Is it possible to put multiple macros under one button?

Sub copycolumns()

Dim lastrow As Long, erow As Long
lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastrow
If Sheet1.Cells(i, 6) = “Maharashtra” Then
Sheet1.Cells(i, 1).Copy
erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Sheet1.Paste Destination:=Worksheets(“Sheet2”).Cells(erow, 1)

Sheet1.Cells(i, 3).Copy
Sheet1.Paste Destination:=Worksheets(“Sheet2”).Cells(erow, 2)

Sheet1.Cells(i, 6).Copy
Sheet1.Paste Destination:=Worksheets(“Sheet2”).Cells(erow, 3)
End If

Next i
Application.CutCopyMode = False
Sheet2.Columns().AutoFit
Range(“A1”).Select

End Sub