Help with VBA/ Macros- Having trouble with the offsets into a second sheet

**steveruston** · 06-30-2020, 12:36 PM

Hey everyone, I have 2 sheets and I'm trying to transfer info from the first sheet to the second. The first sheet is a contact form so that people can fill it in, this then populates the second sheet into a 'list' format. ie- the second persons info populates the next empty fields .
At the minute the info is transferring to the second sheet but isnt moving to the next empty cells, it just writes over the previous info inputted. Can anyone see where i'm going wrong?

Please Login or Register  to view this content.

**AliGW** · 06-30-2020, 12:37 PM

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. As you are new, I have done it for you today.)

**LJMetzger** · 07-08-2020, 10:16 AM

Hi steveruston and welcome to ExcelForum,

I updated your code to show you how I would solve the problem. In addition I replaced your 'ActiveX' submit CommandButton, with a 'Forms' CommandButton. 'ActiveX' controls do not play well with others (can cause corruption) and Forms Controls are easier to work with.

You did a nice job for a first attempt. Try to modify the code to:
a. Add a Header to Sheet2
b. Do not allow update if an item is missing. Hint test using code like:

Please Login or Register  to view this content.

c. Test for items with invalid format (e.g. bad phone number)

See the following code in Module1 of your modified Workbook (attached):

Please Login or Register  to view this content.

To prevent typos from ruining days and weeks of work 'Option Explicit' is NEEDED at the top of each code module. This prevents errors caused by missspellings and FORCES every variable to be DECLARED (e.g. Dim i as Integer). http://www.cpearson.com/excel/DeclaringVariables.aspx

Debugger Secrets:
a. Press 'F8' to single step (goes into subroutines and functions).
b. Press SHIFT 'F8' to single step OVER subroutines and functions.
c. Press CTRL 'F8' to stop at the line where the cursor is.
d. 'Left Click' the margin to the left of a line to set (or clear) a BREAKPOINT.
e. Press CTRL 'G' to open the IMMEDIATE WINDOW. 'debug.print' statements send their
output to the IMMEDIATE WINDOW.
f. Select View > Locals to see all variables while debugging.
g. To automatically set a BREAKPOINT at a certain location put in the line:
'Debug.Assert False'
h. To conditionally set a BREAKPOINT at a certain location put in lines similar to:
if i >= 20 and xTV20 > 99.56 then
Debug.Assert False
endif
i. A variable value will be displayed by putting the cursor over the variable name.

To manually set a breakpoint, see http://www.wiseowl.co.uk/blog/s196/breakpoints.htm

If you need additional help with this, upload your file and add to this thread.

Lewis