Hi,
I'm struggling with the following code. For some reasons I can't attach the Excel Workbook to this email.
I have created a Userform including 3 command buttons: Update Database, Find Next entry, Find Previous entry. I can't get my head around the issue. Find next/ previous entry stumble over this code line "lastrow = Sheets("AWP_UPDATE").Range("A" & Rows.Count).End(xlUp).Row"
While Update database doesn't do anything... Still a bit green in the World of macros... Thanks for your help.
Private Sub cmdNext_Click()
lastrow = Sheets("AWP_UPDATE").Range("A" & Rows.Count).End(xlUp).Row
currentrow = currentrow + 1
If currentrow = lastrow + 1 Then
MsgBox ("You have reached the last row of data!")
currentrow = lastrow
End If
txtSub_Activity.Text = Cells(currentrow, 1).Text
txtLEADName.Text = Cells(currentrow, 2).Text
txtActual_Start.Text = Cells(currentrow, 3).Text
txtActual_Completion.Text = Cells(currentrow, 4).Text
txtComments_on_progress.Text = Cells(currentrow, 6).Text
txtQ1.Text = Cells(currentrow, 7).Text
txtQ2.Text = Cells(currentrow, 8).Text
txtQ3.Text = Cells(currentrow, 9).Text
txtQ4.Text = Cells(currentrow, 10).Text
txtAW2018.Text = Cells(currentrow, 11).Text
cbxStatus1.Value = Cells(currentrow, 12).Value
cbxStatus0.Value = Cells(currentrow, 12).Value
End Sub
Private Sub cmdUpdate_Click()
Dim Sub_Activity As String, LEADName As String, Actual_Start As String, Actual_Completion As String, Comment_on_progress As String, Q1 As String, Q2 As String, Q3 As String, Q4 As String, AW2018 As String, Status As String
txtSub_Activity.Text = Cells(currentrow, 1).Text
txtLEADName.Text = Cells(currentrow, 2).Text
txtActual_Start.Text = Cells(currentrow, 3).Text
txtActual_Completion.Text = Cells(currentrow, 4).Text
txtComments_on_progress.Text = Cells(currentrow, 6).Text
txtQ1.Text = Cells(currentrow, 7).Text
txtQ2.Text = Cells(currentrow, 8).Text
txtQ3.Text = Cells(currentrow, 9).Text
txtQ4.Text = Cells(currentrow, 10).Text
txtAW2018.Text = Cells(currentrow, 11).Text
cbxStatus1.Value = Cells(currentrow, 12).Value
cbxStatus0.Value = Cells(currentrow, 12).Value
End Sub
Private Sub cmdPrevious_Click()
currentrow = currentrow - 1
If currentrow > 1 Then
txtSub_Activity.Text = Cells(currentrow, 1).Text
txtLEADName.Text = Cells(currentrow, 2).Text
txtActual_Start.Text = Cells(currentrow, 3).Text
txtActual_Completion.Text = Cells(currentrow, 4).Text
txtComments_on_progress.Text = Cells(currentrow, 6).Text
txtQ1.Text = Cells(currentrow, 7).Text
txtQ2.Text = Cells(currentrow, 8).Text
txtQ3.Text = Cells(currentrow, 9).Text
txtQ4.Text = Cells(currentrow, 10).Text
txtAW2018.Text = Cells(currentrow, 11).Text
cbxStatus1.Value = Cells(currentrow, 12).Value
cbxStatus0.Value = Cells(currentrow, 12).Value
ElseIf currentrow = 1 Then
MsgBox "Now you are in the header row!"
currentrow = currentrow + 1
End If
End Sub
I'm struggling with the following code. For some reasons I can't attach the Excel Workbook to this email.
I have created a Userform including 3 command buttons: Update Database, Find Next entry, Find Previous entry. I can't get my head around the issue. Find next/ previous entry stumble over this code line "lastrow = Sheets("AWP_UPDATE").Range("A" & Rows.Count).End(xlUp).Row"
While Update database doesn't do anything... Still a bit green in the World of macros... Thanks for your help.
Private Sub cmdNext_Click()
lastrow = Sheets("AWP_UPDATE").Range("A" & Rows.Count).End(xlUp).Row
currentrow = currentrow + 1
If currentrow = lastrow + 1 Then
MsgBox ("You have reached the last row of data!")
currentrow = lastrow
End If
txtSub_Activity.Text = Cells(currentrow, 1).Text
txtLEADName.Text = Cells(currentrow, 2).Text
txtActual_Start.Text = Cells(currentrow, 3).Text
txtActual_Completion.Text = Cells(currentrow, 4).Text
txtComments_on_progress.Text = Cells(currentrow, 6).Text
txtQ1.Text = Cells(currentrow, 7).Text
txtQ2.Text = Cells(currentrow, 8).Text
txtQ3.Text = Cells(currentrow, 9).Text
txtQ4.Text = Cells(currentrow, 10).Text
txtAW2018.Text = Cells(currentrow, 11).Text
cbxStatus1.Value = Cells(currentrow, 12).Value
cbxStatus0.Value = Cells(currentrow, 12).Value
End Sub
Private Sub cmdUpdate_Click()
Dim Sub_Activity As String, LEADName As String, Actual_Start As String, Actual_Completion As String, Comment_on_progress As String, Q1 As String, Q2 As String, Q3 As String, Q4 As String, AW2018 As String, Status As String
txtSub_Activity.Text = Cells(currentrow, 1).Text
txtLEADName.Text = Cells(currentrow, 2).Text
txtActual_Start.Text = Cells(currentrow, 3).Text
txtActual_Completion.Text = Cells(currentrow, 4).Text
txtComments_on_progress.Text = Cells(currentrow, 6).Text
txtQ1.Text = Cells(currentrow, 7).Text
txtQ2.Text = Cells(currentrow, 8).Text
txtQ3.Text = Cells(currentrow, 9).Text
txtQ4.Text = Cells(currentrow, 10).Text
txtAW2018.Text = Cells(currentrow, 11).Text
cbxStatus1.Value = Cells(currentrow, 12).Value
cbxStatus0.Value = Cells(currentrow, 12).Value
End Sub
Private Sub cmdPrevious_Click()
currentrow = currentrow - 1
If currentrow > 1 Then
txtSub_Activity.Text = Cells(currentrow, 1).Text
txtLEADName.Text = Cells(currentrow, 2).Text
txtActual_Start.Text = Cells(currentrow, 3).Text
txtActual_Completion.Text = Cells(currentrow, 4).Text
txtComments_on_progress.Text = Cells(currentrow, 6).Text
txtQ1.Text = Cells(currentrow, 7).Text
txtQ2.Text = Cells(currentrow, 8).Text
txtQ3.Text = Cells(currentrow, 9).Text
txtQ4.Text = Cells(currentrow, 10).Text
txtAW2018.Text = Cells(currentrow, 11).Text
cbxStatus1.Value = Cells(currentrow, 12).Value
cbxStatus0.Value = Cells(currentrow, 12).Value
ElseIf currentrow = 1 Then
MsgBox "Now you are in the header row!"
currentrow = currentrow + 1
End If
End Sub