Okay so I tried to do this on my own. Which in someways was good learned somethings. On the flip side I have aged 30 years and have pulled half my hair out. I have tried to get the information to input on the form put I can not get it in how I would like it. It is all going in the same row and It should be like the example below starting at row 6 and using 3 rows 5 columns input the data, then the next one that gets input would skip a row and fill in 3 rows and 5 columns. This pattern will continue down the page. Hopefully someone can edit my current code to work in this fashion.
A6 = txtAssignmentName A7 = txtDate A8 = txtAssignmentType D6 = txtPointsReceived E6 = txtPointsPossible SKIP Row 9 A10 = txtAssignmentName A11 = txtDate A12 = txtAssignmentType D10 = txtPointsReceived E10 = txtPointsPossible And repeat this down the page for every new entry Here is what I have which inputs everything in 1 row and poorly done as I am guessing at how to do this Private Sub cmdSubmit_Click() > Application.ScreenUpdating = False > > Dim rNextCl As Range > Dim NextRw As Long > > With Sheet1 'find next empty row using Column A > NextRw = .Cells(Rows.Count, 2) _ > .End(xlUp).Offset(1, 0).Row > > 'This information starts at row 6 and goes down in groups of 3 rows and skips > a row, so there is a > 'blank row between the groups of 3 rows. > > .Cells(NextRw, 1).Value = Me.txtAssignmentName.Value 'this would go > in A6 > .Cells(NextRw, 2).Value = Me.txtDate 'this would go > in A7 > .Cells(NextRw, 3).Value = Me.txtAssignmentType.Value 'this would go > in A8 > .Cells(NextRw, 4).Value = Me.txtPointsReceived.Value 'this would go > in D6 would be nice if the default if left blank would input a "-" in the > sheet > .Cells(NextRw, 5).Value = Me.txtPointsPossible.Value 'this would go > in E6 > > 'So this information would be Row 6:8 Then when I want to input another > assignment it would > 'skip a row and input the data. Not sure if it pushes the previous data down. > > > End With > 'confirm data transferred > > Unload Me > End Sub > > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
