Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Excel > Excel

Closed Thread
 
LinkBack Thread Tools Display Modes
  #1  
Old 04-26-2019, 04:48 AM
pollofeliz32 pollofeliz32 is offline Windows 7 32bit Office 2010
Novice
 
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
  #2  
Old 04-26-2019, 05:49 AM
Pecoflyer's Avatar
Pecoflyer Pecoflyer is offline Windows 7 64bit Office 2010 64bit
Moderator
 
Join Date: Nov 2011
Location: Brussels Belgium
Posts: 2,386
Pecoflyer is a glorious beacon of lightPecoflyer is a glorious beacon of lightPecoflyer is a glorious beacon of lightPecoflyer is a glorious beacon of lightPecoflyer is a glorious beacon of lightPecoflyer is a glorious beacon of light
Default

Duplicate -Thread closed
__________________
Problem solved ? Let others know by clicking " Thread Tools" then " Mark thread as solved".( This can be undone if need be)
Want to thank for the help received ? Click the scales symbol in the upper right corner of a post from the person you want to thank.
Closed Thread

Thread Tools
Display Modes


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


All times are GMT -7. The time now is 10:05 AM.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
MSOfficeForums.com is not affiliated with Microsoft