Блог

Я знаю, что было несколько вопросов по этому поводу, но я пробовал предложения, и они, похоже, не работают для меня.

Я получаю этот вопрос по оскорбительной линии.

 Private Sub CommandButton1_Click()
Dim Live_Tracker
Set Live_Tracker = Worksheets("Live_Tracker")
Dim WIP
Set WIP = Worksheets("WIP")
Dim WR_FF
Set WR_FF = Worksheets("WR_FF")
Dim Historic
Set Historic = Worksheets("Historic")
Dim Lastrow As Integer
Dim LastrowLive As Integer
Dim x_track, x_wip As Double
Dim xt As Boolean
Dim count As Integer

'---------------------PASSWORD PROTECT----------------------------------
Dim MyPassword As Variant
Dim Password As String
Password = 123

MyPassword = Application.InputBox("Password Required to Run this Macro", "Password Required to Run this Macro")

If MyPassword = Password Then
Range("A1").Value = "This is a VBA Project Password Enabler"
Else
MsgBox "Incorrect Password"
End If

'____MAIN CODE______________________________________________________________


Lastrow = WIP.Cells(WIP.Rows.count, "A").End(xlUp).Row <<<<<<<< THIS LINE>>>>>>>>>>>
LastrowLive = Live_Tracker.Cells(Live_Tracker.Rows.count, "A").End(xlUp).Row

x_track = LastrowLive   1
x_wip = 2