Quantcast
Channel: VBForums
Viewing all articles
Browse latest Browse all 15050

MsOf13 Copy the Data one by one till the cell is empty

$
0
0
Hello Everyone,

I have an Workbook with some data. in that i need to copy some data by manually to another sheet to run another VBA. now i'm looking for if i get the data from sheet 2 by automatically, i can reduce more time on manual process.

I have a list of data on sheet 2, from that sheet i need to copy the data (by row) into sheet 1 based on Head.(Scenario 1)

I have to copy the data from sheet 1 to sheet 2, then run my VBA, again goto next line-->this will loop till the cell is empty.

I have 2 scenarios that i mentioned in attached workbook.if any one is possible that would be perfect for me.
I'm trying to edit the VBA but not working (for Scenario 2).

Code:

Sub Update2()
Dim p As String, targrange As Range, wbb As Workbook, fnd As Range, sht2 As Worksheet
Set wbb = ThisWorkbook
Set targrange = wbb.Sheets("Sheet1").Cells(Rows.COUNT, 1).End(xlUp).Offset(1)
targrange.Offset(, 5).Resize(, 13).Value = Application.Transpose(ThisWorkbook.Sheets(2).Range("b4:j4").Value)

End Sub

Someone help me on this.

Thanks in Advance.

Sample_2020.zip
Attached Files

Viewing all articles
Browse latest Browse all 15050

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>