UserForm Help!!

[MWhiteDesigns]

Below is a link to download the sheet i am working on.
http://www.generalsingray-logcabins.com/Blank Tracker.xlshttp://www.generalsingray-logcabins.com/Blank Tracker v1.xls


I have created a userform in which i want to be able to click enter data and have each corresponding field transpose to the spreadsheet below, but i have absolutely no clue on how to do it. You'll see that i have tried writing some code but it doesn't work.

Please keep in mind that column H, J and L are automatically filled in once there is a value in their corresponding cell.

I've tried looking up stuff/research for hours and I am getting no where. Someone Please help!!

Thank you so much

 

[MWhiteDesigns]

Anyone???

 

[VoG]

Many here are unwilling or unable to download files.

See if this helps http://www.contextures.com/xlUserForm01.html

 

[MWhiteDesigns]

That's what i used but i am using combo boxes, radio boxes and not sure what to do.

I will take some screen shots and past the code on here for the user form for what I have, maybe that will help.

 

[MWhiteDesigns]

Below is the Form that users will utilize to input data.
http://www.generalsingray-logcabins.com/Untitled-1.jpg

Below is an image on what my spreadsheet layout is. This sheet is labeled Process Tracker.
http://www.generalsingray-logcabins.com/Untitled-2.jpg

There is a data sheet in which i am using for my combo boxes. Which is shown below.
http://www.generalsingray-logcabins.com/Untitled-23.jpg


Below is the code that is attatched to the Enter Data button on the form.
When I run the form, I don't receive any errors. However when i type in information, and click Enter Data, nothing happens.


Hope this helps!!


Private Sub CmdCancel_Click()
Unload Me
End Sub

Private Sub CmdClear_Click()
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
ctl.Value = ""
ElseIf TypeName(ctl) = "CheckBox" Then
ctl.Value = False
End If
Next ctl
End Sub


Private Sub CmdEnterData_Click()
Dim RowCount As Long
RowCount = Worksheets("Process Tracker").Range("A1").CurrentRegion.Rows.Count

With Worksheets("Process Tracker").Range("A1")
.Offset(RowCount, 3).Value = Me.NameTextBox.Value
.Offset(RowCount, 1).Value = Me.RequestComboBox.Value

If Me.ARCheckBox.Value = True Then .Offset(RowCount, 0).Value = "AR# "
If Me.ACCheckBox.Value = True Then .Offset(RowCount, 0).Value = "Non AC# "
If Me.ClassCheckBox.Value = True Then .Offset(RowCount, 0).Value = "Class# "

.Offset(RowCount, 4).Value = Me.DeptComboBox.Value
.Offset(RowCount, 5).Value = Me.SystemComboBox.Value
.Offset(RowCount, 6).Value = Me.DateReceivedTextBox.Value
.Offset(RowCount, 8).Value = Me.DateSubmittedTextBox.Value


.Offset(RowCount, 12).Value = Me.CommentsTextBox.Value

End With
End Sub

 

[rs2k]

Hi There,
try placing this code behind your 'Enter Data' button;

Private Sub CmdEnterData_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Sheets("Process Tracker")

irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

With ws
.Range("D" & irow) = NameTextBox.Value
.Range("B" & irow) = RequestComboBox.Value
.Range("E" & irow) = DeptComboBox.Value
.Range("F" & irow) = SystemComboBox.Value
.Range("G" & irow) = DateReceivedTextBox.Value
.Range("H" & irow) = DateSubmittedTextBox.Value
.Range("M" & irow) = CommentsTextBox.Value

If ARCheckBox.Value = True Then
.Range("A" & irow) = "AR# "
If ACCheckBox.Value = True Then
.Range("A" & irow) = "Non AC# "
If ClassCheckBox.Value = True Then
.Range("A" & irow) = "Class# "
End If
    End If
        End If

End With
End Sub

HTH
Colin

 

[MWhiteDesigns]

That didn't work either.
I enter the information, click Enter data, and nothing.


Also, I don't have a command for the New issue radio buttons. I didn't know how to write that. So if that could be added as well, it would be awesome.

 

[rs2k]

The file you have linked to has data on rows 10002 - 10019, every time you run your macro it only inserts data into column A.

Delete all data from A4 - M4 down, then try the code I supplied.

HTH
Colin

 

[MWhiteDesigns]

Thanks that was it. However the code is still doing something funky. For the CheckBoxes(AR, NON AC, and Class), if i check the ar box by itself, it works transposes fine. If i check the NON AC box or Class box by itself, it doesnt transpose to the cell.

If i want it to show NON AC, I have to click the AR AND NON AC box.
If i want it to show Class, I have to make sure all three are clicked.


And last but not least, How would you make the new issue radio button traspose to column C?


Any thoughts?

Thanks so much for your help.

 

[rs2k]

Erm... yes, it's doing strange things for me as well

I found some more redundant data in col N as well,

Let me have a play and I'll see what I can come up with,

Back soon,

Colin