Este fórum está sendo desativado

[klifgdf]

":gostaria de saber qual o erro que ocorreu no cadastro,o erro ocorre já na primeira linha erro em tempo de execução "9":
subscrito fora do intervalo.

[gfranco]

Boa tarde.
Segue minha cotribuição

[alexandrevba]

Boa tarde!!

Eu sugiro que você substituia seu arquivo por um novo, refazendo seu projeto.
Não vi nada de errado com sua rotina, entre tanto gerava o erro, só resolvi usando outro arquivo.

Att

[klifgdf]

Bom dia!
Após pesquisar na internet consegui criar a Userform em anexo só estou com um problema.

nas colunas A, B, C, D, E , F tem algumas formulas que ficam ocultas.
ao iniciar o Userform e fazer o cadastro a planilha o Vba reconhece a ultima linha sem nenhum dado para adicionar o cadastro sendo que estou adicionando os dados do cadastro na coluna G o que quero é que o Userform reconheça a ultima linha da coluna G e não da A.

outro problema também é que na coluna I, J, K e O tem formulas e ao registrar a Ocorrência o Vba meio q apaga a formula.
como faço para continua com a formula nessas colunas sem que ao registrar o Vba apague as formulas.

[gfranco]

Boa tarde
Para resolver o problema de reconhecimento da coluna G
substitua a parte do código...
ultcelula = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

por esta:
ultcelula = .Cells(.Rows.Count, 7).End(xlUp).Row + 1

No que se refere à apagar fórmula esta parte do código registra informações na coluna "O"

.Cells(ultcelula, 15).Value = frmCadastro.cbomotorista.Value

Sugiro revê-la.
At
gfranco

[klifgdf]

Bom dia!
gfranco.
segui sua dica de alterar a .Row.Count, para 7 mas ainda assim a planilha está indo para a ultima linha.
ou seja ela ainda está reconhecendo as formulas que estão nas colunas A, B, C, D, E , F e cadastrando os meu dados na ultima linha sem dados.

quanto ao problema nas colunas I, J, K e O que tem formulas o que quero é q ao cadastrar a ocorrência a planilha prencha automatico com os procvs que tem nas colunas e ainda estão apagando as formulas que tem nessas colunas.

[gfranco]

Acabei de testar aqui e gravou na linha 33 normal e as fórmulas não foram alteradas

[gfranco]

dê uma verificada na ultima linha que tem fórmulas e avalie se não tem nenhum dado digitado que esteja obrigando a macro a identificar essa linha como sendo a última na coluna "G"

[klifgdf]

gfranco,
muito obrigado realizei um teste com você falou e deu certo.
só mais uma coisa tem como manter as colunas A,B,C,D,E e F ocultas?
pois quando realizo o cadastro elas reaparecem.

[gfranco]

Faça assim:
logo abaixo da instrução:
.Columns.EntireColumn.AutoFit

cole essa:
.wrksheet.Columns("a:f").EntireColumn.Hidden = True

obs: antes do end with