Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 04-26-2019, 04:48 AM
pollofeliz32 pollofeliz32 is offline Skip to next row after data is entered Windows 7 32bit Skip to next row after data is entered Office 2010
Novice
Skip to next row after data is entered
 
Join Date: Apr 2019
Posts: 3
pollofeliz32 is on a distinguished road
Default Skip to next row after data is entered

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
 



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
Skip to next row after data is entered 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

Other Forums: Access Forums

All times are GMT -7. The time now is 11:42 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft