Userform fields not updating when spinbutton activated

[rizzo93]

All fields on my userform reference cells on a worksheet. When the form displays for the first time, the fields show the appropriate values for those cells.

But when the user clicks the spinbutton up or down on the form, the contents of the cells change, but NOT the fields themselves.

The only thing that does update is a ListBox that references a range on the same worksheet as the other fields.

What am I missing, please?

Private Sub SpinButton1_SpinUp()

    Worksheets("GhostData").Range("CK6").Value = Worksheets("GhostData").Range("CK6").Value + 1

End Sub

Private Sub SpinButton1_SpinDown()
    Worksheets("GhostData").Range("CK6").Value = Worksheets("GhostData").Range("CK6").Value - 1
End Sub

Private Sub UserForm_Initialize()
    'Enters the project ID of the active cell on Periscope
    Worksheets("GhostData").Range("CK5") = Worksheets("Periscope").Cells(ActiveCell.Row, 76).Value
    'Enters the row number of where the project ID is located on PivotData
    Worksheets("GhostData").Range("CK6") = Worksheets("Periscope").Cells(ActiveCell.Row, 78).Value
    ProjectIDField.Text = Worksheets("GhostData").Range("CK10")
    ProjectNameField2.Text = Worksheets("GhostData").Range("CK11")
    PortfolioField.Text = Worksheets("GhostData").Range("CK12")
    
End Sub

 

[My Aswer Is This]

When I look at your script I see nothing that tells the spin button to update the field.
The spin button tells the cell to update but not the field
I would think you need to add something like this

Field.value=cell.value

And I always think using active cell is dangerous
If the active cell is always the same why not specify the exact range.

I see nothing in the script that moves the active cell.

 

[rizzo93]

Thanks for the assist, My Answer Is This.

I did have some code for the spin button, but failed to post it. Here it is:

Private Sub SpinButton1_Up()

    Worksheets("Periscope").Cells(ActiveCell.Row, 76).Value = Worksheets("Periscope").Cells(ActiveCell.Row, 76).Value + 1
    
End Sub

Granted it's only to increase the spin count, but I was just trying to keep it simple before I implemented the decreasing portion.


I understand what you are saying with the example you provided, but I thought this code would be its equivalent, yes?

ProjectNameField2.Text = Worksheets("GhostData").Range("CK11")

I sense that I'm missing something within the code I originally posted that causes the fields to actually update with the new content.

Would you agree? And if so, what would that code be please?

 

[My Aswer Is This]

You said:

ProjectNameField2.Text​

If this is the name of your textbox why not try it and see.

 

[rizzo93]

Upon opening the form, the fields show the appropriate content. And the cell contents do change when the spinbutton is clicked. But as I explained previously, the fields do not update. This is the problem I am trying to solve.

 

[My Aswer Is This]

You need to explain what are the names of the fields you want updated.
And in Userforms we normally refer to these as Texbox's not fields.

So show me the entire script your using which you want updating the Textbox's on the userform.

 

[Norie]

The only code you've posted that populates values on the userform is this code in the Initialize event.

    ProjectIDField.Text = Worksheets("GhostData").Range("CK10")
    ProjectNameField2.Text = Worksheets("GhostData").Range("CK11")
    PortfolioField.Text = Worksheets("GhostData").Range("CK12")

If you want to change the values in the textboxes when the spinbutton value is changed then try repeating this code in the SpinUp/Down events of the spin button.

 

[rizzo93]

Here is my code:

Private Sub SpinButton1_SpinUp()

    Worksheets("GhostData").Range("CK6").Value = Worksheets("GhostData").Range("CK6").Value + 1

End Sub

Private Sub SpinButton1_SpinDown()
    Worksheets("GhostData").Range("CK6").Value = Worksheets("GhostData").Range("CK6").Value - 1
End Sub

Private Sub UserForm_Initialize()
    'Enters the project ID of the active cell on Periscope
    Worksheets("GhostData").Range("CK5") = Worksheets("Periscope").Cells(ActiveCell.Row, 76).Value
    'Enters the row number of where the project ID is located on PivotData
    Worksheets("GhostData").Range("CK6") = Worksheets("Periscope").Cells(ActiveCell.Row, 78).Value
    ProjectIDField.Text = Worksheets("GhostData").Range("CK10")
    ProjectNameField2.Text = Worksheets("GhostData").Range("CK11")
    PortfolioField.Text = Worksheets("GhostData").Range("CK12")
    
End Sub

Thank again.

 

[rizzo93]

Thanks, Norie. I'll give that a try.