When I click the open form button I want the current data to display automatically. It used to work correctly but just stopped. Not sure what happened or where I went wrong.
””””’opens the userform”
Sub Button8_Click()
UserForm1.Show
End Sub
””””’should display data as soon as opened”
Option Explicit
<code>Private Sub UserForm1_Initialize()
TBITEMNUMBER.Value = Sheets("Sheet4").Range("A3").Value
COLORS.Value = Sheets("Sheet4").Range("B3").Value
ITEMDESCRIPTION.Value = Sheets("Sheet4").Range("C3").Value
DESCRIPTION2.Value = Sheets("Sheet4").Range("C3").Value
SEARCHWORDS.Value = Sheets("Sheet4").Range("D3").Value
</code>
<code>Private Sub UserForm1_Initialize()
TBITEMNUMBER.Value = Sheets("Sheet4").Range("A3").Value
COLORS.Value = Sheets("Sheet4").Range("B3").Value
ITEMDESCRIPTION.Value = Sheets("Sheet4").Range("C3").Value
DESCRIPTION2.Value = Sheets("Sheet4").Range("C3").Value
SEARCHWORDS.Value = Sheets("Sheet4").Range("D3").Value
</code>
Private Sub UserForm1_Initialize()
TBITEMNUMBER.Value = Sheets("Sheet4").Range("A3").Value
COLORS.Value = Sheets("Sheet4").Range("B3").Value
ITEMDESCRIPTION.Value = Sheets("Sheet4").Range("C3").Value
DESCRIPTION2.Value = Sheets("Sheet4").Range("C3").Value
SEARCHWORDS.Value = Sheets("Sheet4").Range("D3").Value
Everything I found on-line says to set it up exactly how I already have it. So not sure what caused it to quit working.