I think you're pretty close.
consider:
the syntax for Cells() is Cells(row,column)
and for "column" you can use the letter (rather than the number)
So, your set should look like:
.Cells(NextRw + 0, "A").Value = Me.txtAssignmentName.Value
.Cells(NextRw + 1, "A").Value = Me.txtDate
.Cells(NextRw + 2, "A").Value = Me.txtAssignmentType.Value
.Cells(NextRw + 0, "D").Value = Me.txtPointsReceived.Value
.Cells(NextRw + 1, "D").Value = Me.txtPointsPossible.Value
(I only added the "+ 0" so everything lines up nicely. Rather OCD of me, I know)
Now, if for the "Points Recived" value, if you want to set a default value,
you could either set a default in the userform, or do something like:
If (Me.txtPointsReceived.Value & "X" = "X") Then
.Cells(NextRw + 0, "D").Value = "-"
Else
.Cells(NextRw + 0, "D").Value = Me.txtPointsReceived.Value
End If
Paul
-----------------------------------------
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
-----------------------------------------
From: Mr_Bill <egge...@gmail.com>
>To: excel-macros@googlegroups.com
>Sent: Friday, September 5, 2014 1:34 AM
>Subject: $$Excel-Macros$$ Need some help with VBA and Userform Please
>
>
>
>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.
>
>
>
--
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.
