Trouble when trying to call a sub
 

People, I'm trying to call a sub from a form, but the message "Sub or
Function not defined" appears when compiled.

That is the following code:

Sub Macro1()




For i = 3 To 100



Set oBk = Workbooks.Open(link)

iefile = ActiveWorkbook.Name
Call HTMLText2_Click
sdr = Cells(10, 1).Value
Range(Cells(10, 2), Cells(10, 3)).Select
Selection.Copy
Range("J9").Select
Selection.PasteSpecial Paste:=xlPasteValues
cmt = Cells(9, 10).Value
sdis = Cells(10, 5).Value
Range(Cells(10, 6), Cells(10, 7)).Select
Selection.Copy
Range("J10").Select
Selection.PasteSpecial Paste:=xlPasteValues
audit = Cells(10, 10).Value
Workbooks(iefile).Close (0)
Cells(i, 12) = sdr
Cells(i, 13) = cmt
Cells(i, 14) = sdis
Cells(i, 15) = audit
End If

Next i

End Sub

--

Sub HTMLText2_Click()
Cells(1, 10) = HTMLText2.Value
End Sub

--

I tried to use the Call Method, and only writing the name of the sub in
the code... But the error still appear.


Somebody help meeeeeeeeeee....

Trouble when trying to call a sub
 

End If without If.

Edmund

wrote in message
oups.com...
People, I'm trying to call a sub from a form, but the message "Sub or
Function not defined" appears when compiled.

That is the following code:

Sub Macro1()




For i = 3 To 100



Set oBk = Workbooks.Open(link)

iefile = ActiveWorkbook.Name
Call HTMLText2_Click
sdr = Cells(10, 1).Value
Range(Cells(10, 2), Cells(10, 3)).Select
Selection.Copy
Range("J9").Select
Selection.PasteSpecial Paste:=xlPasteValues
cmt = Cells(9, 10).Value
sdis = Cells(10, 5).Value
Range(Cells(10, 6), Cells(10, 7)).Select
Selection.Copy
Range("J10").Select
Selection.PasteSpecial Paste:=xlPasteValues
audit = Cells(10, 10).Value
Workbooks(iefile).Close (0)
Cells(i, 12) = sdr
Cells(i, 13) = cmt
Cells(i, 14) = sdis
Cells(i, 15) = audit
End If

Next i

End Sub

--

Sub HTMLText2_Click()
Cells(1, 10) = HTMLText2.Value
End Sub

--

I tried to use the Call Method, and only writing the name of the sub in
the code... But the error still appear.


Somebody help meeeeeeeeeee....

Trouble when trying to call a sub
 

No man, there is an If, but when I was copying the code, I deleted the
if.

The code is running perfect, only when I try to call the form method
the error appears.

Trouble when trying to call a sub
 

Are both macros in the same code module. If the Click code is in a sheet
code module, you need to precede with the sheet codename.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

wrote in message
oups.com...
People, I'm trying to call a sub from a form, but the message "Sub or
Function not defined" appears when compiled.

That is the following code:

Sub Macro1()




For i = 3 To 100



Set oBk = Workbooks.Open(link)

iefile = ActiveWorkbook.Name
Call HTMLText2_Click
sdr = Cells(10, 1).Value
Range(Cells(10, 2), Cells(10, 3)).Select
Selection.Copy
Range("J9").Select
Selection.PasteSpecial Paste:=xlPasteValues
cmt = Cells(9, 10).Value
sdis = Cells(10, 5).Value
Range(Cells(10, 6), Cells(10, 7)).Select
Selection.Copy
Range("J10").Select
Selection.PasteSpecial Paste:=xlPasteValues
audit = Cells(10, 10).Value
Workbooks(iefile).Close (0)
Cells(i, 12) = sdr
Cells(i, 13) = cmt
Cells(i, 14) = sdis
Cells(i, 15) = audit
End If

Next i

End Sub

--

Sub HTMLText2_Click()
Cells(1, 10) = HTMLText2.Value
End Sub

--

I tried to use the Call Method, and only writing the name of the sub in
the code... But the error still appear.


Somebody help meeeeeeeeeee....

Trouble when trying to call a sub
 

Man, sorry... but how do I precede with the sheet codename? I didn't
understand...