G
Guest
can anybody see the problem with this code - iv highlighted where i get an
error message
Private Sub CommandButton1_Click()
Dim pronumber As String
Message1 = "Please enter Project Number."
Title1 = "INPUT BOX"
Default1 = Range("A2")
Message2 = "Do you wish to add KPI2 Data"
Style1 = vbYesNo
pronumber = InputBox(Message1, Title1, Default1)
With Worksheets("KPI1").Range("a:a")
Set c = .Find(pronumber, LookIn:=xlValues)
If Not c Is Nothing Then
c.Select
Range(ActiveCell, ActiveCell.Offset(0, 12)).Copy
ActiveSheet.Paste Destination:=Worksheets("GraphData").Range("A2")
Set c = Nothing
Range("A1").Select
Else
MsgBox ("This project number does not exist")
End If
End With
Reply1 = MsgBox(Message2, Style1)
If Reply1 = vbYes Then
Sheets("KPI2").Select
With Worksheets("KPI2").Range("a:a")
Set c = .Find(pronumber, LookIn:=xlValues)
If Not c Is Nothing Then
c.Select
Range(ActiveCell, ActiveCell.Offset(0, 12)).Copy 'errorr*****
ActiveSheet.Paste Destination:=Worksheets("GraphData").Range("A3")
Else
MsgBox ("This project number does not exist")
End If
End With
Else
End If
changechart
End Sub
error message
Private Sub CommandButton1_Click()
Dim pronumber As String
Message1 = "Please enter Project Number."
Title1 = "INPUT BOX"
Default1 = Range("A2")
Message2 = "Do you wish to add KPI2 Data"
Style1 = vbYesNo
pronumber = InputBox(Message1, Title1, Default1)
With Worksheets("KPI1").Range("a:a")
Set c = .Find(pronumber, LookIn:=xlValues)
If Not c Is Nothing Then
c.Select
Range(ActiveCell, ActiveCell.Offset(0, 12)).Copy
ActiveSheet.Paste Destination:=Worksheets("GraphData").Range("A2")
Set c = Nothing
Range("A1").Select
Else
MsgBox ("This project number does not exist")
End If
End With
Reply1 = MsgBox(Message2, Style1)
If Reply1 = vbYes Then
Sheets("KPI2").Select
With Worksheets("KPI2").Range("a:a")
Set c = .Find(pronumber, LookIn:=xlValues)
If Not c Is Nothing Then
c.Select
Range(ActiveCell, ActiveCell.Offset(0, 12)).Copy 'errorr*****
ActiveSheet.Paste Destination:=Worksheets("GraphData").Range("A3")
Else
MsgBox ("This project number does not exist")
End If
End With
Else
End If
changechart
End Sub