0
   Set rgFound = Range("B1:B1000").Find(Sheets("FormAluguer").Range("E10"))
If rgFound Is Nothing Then
    resposta = MsgBox("Não encontrado.", vbYesNo + vbExclamation, "stock incorrecto")
Else
Dim mrange As String
Dim linha As Integer


mrange = rgFound.Address(RowAbsolute:=False, ColumnAbsolute:=False, External:=False)
 resposta = MsgBox("Foi encontrado em :" + rgFound.Row, vbYesNo + vbExclamation, "stock incorrecto")

End If

mrange retorna $b7 e eu queria pegar neste valor e reter o numero da linha neste caso 7 para depois fazer contas na coluna O linha 7 fazer contas

tentei rgFound.Address().row mas não funciona

0

1 Resposta 1

0

O problema estava no operador de concatenar

resposta = MsgBox("Foi encontrado em :" + rgFound.Row, vbYesNo + vbExclamation, "stock incorrecto")

deve ser assim:

resposta = MsgBox("Foi encontrado em :" & rgFound.Row, vbYesNo + vbExclamation, "stock incorrecto")

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .