FUNCAO RANGE()

[BHREZENDE]

Pessoal não sou expert em VBA, mas estou estudando, recentemente pequei um exemplo na internet para montar um Programa de Cadastro de Instrumentos musicais, até aqui tudo bem.

Consegui conclui todos os formularios e códigos conforme descrito no site http://www.macoratti.net/vba_cum.htm, mas ao executar o formulario de cadastro ele retorna uma mensagem de erro:

"

Erro em tempo de execução '1004':

O método 'Range' do objeto '_Global' falhou

"

Então eu executei o projeto pressionando F8, o resultado foi o seguinte:

Private Sub UserForm_Activate()

Depois chama:

LControle

Cai em:

Private Sub LControle()

E apresenta o erro em:

RA = Range("RA")

O erro está nesse "RA" que teria que substituir pelo Registro Atual.

RA é declarado antes do código como integer.

"

'RA = REGISTRO ATUAL

'NR = NUMERO TOTAL DE REGISTROS

'OP = OPERAÇÃO

Dim RA As Integer, NR As Integer, OP As String

"

Me ajudem por favor!!!

[Mendrot]

Bom dia amigo!

Se "RA" é declarado como uma variável ela não pode estar entre "", se você deixar desta forma ele tenta localicar a célula RA e dá erro porque não tem o número da linha (Ex.: A1)....bom é isso!

Espero ter ajudado.

absssssss :rolleyes:

[João.Neto]

Cara, na verdade isso daí é uma célula nomeada (lembra-se do Inserir -> Nome -> Definir -> Adicionar ?).

Então, o que você tem de fazer é: nomear uma célula que mostre de alguma forma o número da linha do registro atual (que tal um CONT.SE()?).

beleza?! :ninja: