Hello Team,
I'm counting for your support & experiance again. I'm going to prepare autoamted excel file for one of the my process which use two different userform but both will use the worksheet with the same data. First one from the top will be using for registration, button from the buttom just to update the status.
When I'm going to register something, the screen looks like below & it works properly:
Above screen is using below code:
I have a problem when I'm trying to update after clicking of bottom button. I'd like to have similar screen like above but list isn;t up to date:
It is related to below code:
When I'm starting with code, I have below issue & don't have idea how to fix it
Hope everything is clear enough. If you need me to share the file, just please let me know.
Thank you for all answers & support
I'm counting for your support & experiance again. I'm going to prepare autoamted excel file for one of the my process which use two different userform but both will use the worksheet with the same data. First one from the top will be using for registration, button from the buttom just to update the status.
When I'm going to register something, the screen looks like below & it works properly:
Above screen is using below code:
VBA Code:
Sub Reset()
Dim iRow As Long
iRow = [Counta(Database!A:A)] ' indentifying the last row
With mapFORM
'.cbParameter.Value = ""
.cmbType.Clear
.txtRollNo.Value = ""
.cmbType.AddItem "Seria"
.cmbType.AddItem "TSR"
.cmbType.AddItem "Capability"
'.cmbType.AddItem "Lam D"
.txtSSM.Value = ""
.txtSFM.Value = ""
.txtRFS.Value = ""
.txtWIni.Value = ""
.lstDatabase.ColumnCount = 11
.lstDatabase.ColumnHeads = True
.lstDatabase.ColumnWidths = "60,60,80,60,60,120,300,60,60,120,60"
If iRow > 1 Then
.lstDatabase.RowSource = "Database!A2:K" & iRow
Else
.lstDatabase.RowSource = "Database!A2:K2"
End If
End With
'mapFORM.Hide
End Sub
I have a problem when I'm trying to update after clicking of bottom button. I'd like to have similar screen like above but list isn;t up to date:
It is related to below code:
VBA Code:
Sub Reset_2()
Dim iRow As Long
iRow = [Counta(Database!A:A)] ' indentifying the last row
With updateFORM
.txtMFG.Value = ""
.cmbStatus.AddItem "Otwarte"
.cmbStatus.AddItem "Zwolnione"
.cmbStatus.AddItem "Odrzucone"
.cmbType.AddItem "TAK"
.cmbType.AddItem "NIE"
.txtComment.Value = ""
.txtApprover.Value = ""
.lstDatabase.ColumnCount = 11
.lstDatabase.ColumnHeads = True
.lstDatabase.ColumnWidths = "60,60,80,60,60,120,300,60,60,120,60"
If iRow > 1 Then
.lstDatabase.RowSource = "Database!A2:K" & iRow
Else
.lstDatabase.RowSource = "Database!A2:K2"
End If
End With
End Sub
When I'm starting with code, I have below issue & don't have idea how to fix it
Hope everything is clear enough. If you need me to share the file, just please let me know.
Thank you for all answers & support