Skip to next row after data is entered

pollofeliz32 · #1 04-26-2019, 04:48 AM

Hello all,

Currently I have two Excel Sheets, one named "CHECKSHEET" and the other "WorkRequestInfo". In the CHECKSHEET, the user enters some information that is copied onto WorkRequestInfo after a button is pressed. My only issue now is i cannot seem to be able to have the code skip to the next row after the data is entered. I want the code to skip to the next row for when the next user enters information for the next data entry and not overwritte the previous entry

Code:

Sub SubmitWRData()
Dim refTable As Variant, trans As Variant
refTable = Array("B = D1", "C = D2", "D=D3", "E=D4", "F=D5", "K=B6", "L=D6")
Dim Row As Long
Row = Worksheets("WorkRequestInfo").UsedRange.Rows.Count + 1
For Each trans In refTable
    Dim Dest As String, Field As String
    Dest = Trim(Left(trans, InStr(1, trans, "=") - 1)) & Row
    Field = Trim(Right(trans, Len(trans) - InStr(1, trans, "=")))
    Worksheets("WorkRequestInfo").Range(Dest).Value = Worksheets("CHECKSHEET").Range(Field).Value
Next

End Sub

Any help will be highly appreciated

Pecoflyer · #2 04-26-2019, 05:49 AM

Duplicate -Thread closed

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Update main table when data entered in other sheet	MILADREZAEE	Excel	1	05-23-2018 07:43 AM
Move cursor up several lines after form data entered in document	zanestein	Word VBA	6	05-23-2018 04:01 AM
Calculate the most recently entered data in columns?	mreynolds1775	Excel	10	09-19-2017 11:28 PM
Conditional Formatting- Only format cells once data is entered	chart3	Excel Programming	1	12-15-2015 11:26 AM
Using data entered in prompt to search database table	BluRay	Word	1	03-25-2011 01:47 AM