Nomear itens no cadastro via vba

diego_janjao · 30 de dezembro de 2015

Pessoal, boa tarde.

estou fazendo uma planilha de cadastro de fornecedores e me deparei com um problema, eu preciso dar um nome no conjunto de produtos do fornecedor que será cadastrado

e eu inclui um campo no cadastro chamado de codenome

queria que o nome desses produtos fosse esse codenome para fazer um indireto depois:

Sub Macro2()
'
' Macro2 Macro
'

    Range("I2:K2").Select
    ActiveWorkbook.Names.Add Name:=Range("H2"), RefersToR1C1:="=Plan2!R2C9:R2C11"
    
End Sub

Mas não deu certo, poderiam me ajudar?

cadastro 1.xlsm

CasaDoHardware · 30 de dezembro de 2015

Tenta isso range("H2").value

diego_janjao · 30 de dezembro de 2015

@CasaDoHardware continua retornando erro

CasaDoHardware · 31 de dezembro de 2015

Ajuste esse

Sub Nome()

    ActiveWorkbook.Names.Add Name:=Range("H2").Value, RefersToR1C1:="=Plan1!R6C4:R10C4"
    
End Sub

diego_janjao · 3 de janeiro de 2016

Continua retornando erro:

3 de janeiro de 2016

ActiveWorkbook.Names.Add Name:=Sheets("Plan2").[H1], RefersTo:="=Plan2!$I$2:$K$2" '

diego_janjao · 3 de janeiro de 2016

@osvaldomp Aparentemente funciona (não retornou nenhum erro), mas não nomeou as células...

3 de janeiro de 2016

É estranho. Na janela que você postou nem aparece o nome 'pura', já existente antes de rodar o código.

Parece que você está mostrando a janela de outro arquivo.

Clicando na setinha da "Caixa de nome" (logo acima da letra que identifica a coluna 'A') deve aparecer o nome 'pura' e depois de rodar o código deverá aparecer também o nome 'codinome', tanto na "Caixa de nome" como na janela "Gerenciador de nomes".

diego_janjao · 4 de janeiro de 2016

@osvaldomp o pura eu realmente apaguei porque tinha feito manualmente

4 de janeiro de 2016

13 minutos atrás, diego_janjao disse:

@osvaldomp o pura eu realmente apaguei porque tinha feito manualmente

E ???

diego_janjao · 4 de janeiro de 2016

@osvaldomp e quando testei nao deu certo, com ou sem o nome "pura".

4 de janeiro de 2016

Eu testei no seu arquivo (link no primeiro post) o comando que eu sugeri e o intervalo foi nomeado.

Há algo diferente aí com você por isso não dá certo.

diego_janjao · 4 de janeiro de 2016

@osvaldomp vou tentar novamente.

poderia disponibilizar o arquivo?

4 de janeiro de 2016

4 horas atrás, diego_janjao disse:

@osvaldomp

poderia disponibilizar o arquivo?

Não entendi. A sua pergunta é se eu posso disponibilizar ou se você pode?

Fiz o teste no seu arquivo cujo link está no primeiro post. Não é nesse arquivo que você está testando o comando? Se não for, disponibilize o outro.

diego_janjao · 4 de janeiro de 2016

@osvaldomp é se você pode disponibilizar o arquivo que você fez o teste (já alterado).

Continua não acontecendo nada aqui.

4 de janeiro de 2016

Segue cópia do seu arquivo com o comando que sugeri.

Cópia de cadastro 1.xlsm

diego_janjao · 4 de janeiro de 2016

@osvaldomp Funcionou perfeitamente.

E entendi o que ocorreu.

No seu arquivo, você adicionou a linha que você tinha me enviado, no meu caso, eu troquei por tudo.

Muito obrigado, novamente, Osvaldo.

4 de janeiro de 2016

40 minutos atrás, diego_janjao disse:

@osvaldomp Funcionou perfeitamente.

E entendi o que ocorreu.

No seu arquivo, você adicionou a linha que você tinha me enviado, no meu caso, eu troquei por tudo.

Não foi exatamente isso. Eu coloquei no seu código o comando que eu havia sugerido e mantive os que já existiam. Porém, observe que os comandos que já existiam estão transformados em "comentários", com apóstrofo no início da linha e fonte na cor verde, o que significa que esses comandos não são executados. Então na prática eu substituí os comandos originais que não funcionavam pelo novo comando, isto quer dizer que eu não adicionei como você avaliou aí acima.

Quanto ao seu último código que também não funcionou não sei que salada você fez.

Resumindo:

O seu código original que travava durante a execução é este abaixo:

Sub Macro2()
'
' Macro2 Macro
'

    Range("I2:K2").Select
    ActiveWorkbook.Names.Add Name:=Range("H2"), RefersToR1C1:="=Plan2!R2C9:R2C11"
    
End Sub

O código que funciona é este abaixo:

Sub Macro2()
 ActiveWorkbook.Names.Add Name:=Sheets("Plan2").[H1], RefersTo:="=Plan2!$I$2:$K$2"
End Sub

Sugestão: não utilize o comando 'Select' ao escrever os seus códigos. Esse comando raramente é necessário, provoca lentidão na execução (mesmo utilizando o ScreenUpdating=False) e ainda faz movimentação da tela.

diego_janjao · 5 de janeiro de 2016

Obrigado pela explicação.

Eu não entendo nada de macros na verdade, utilizo o botão gravar macro, vou fazendo o que quero que ela faça e modifico coisas básicas como células, false, true e por aí.

Por isso aparece select nas minhas macros

Enival · 9 de março de 2016

Sub Macro2()

'Olá bom dia

Eu dei uma olha nos códigos, observei que tanto um como o outro, se o campo [h2] não for preenchido vai da erro

' Macro2 Macro

'

If Plan1.Range("H2").Value = "" Then
        MsgBox "Por favor informe o nome para o campo!", vbExclamation, "Cancelado"
        Plan1.Range("H2").Activate
        Exit Sub
    Else

        ActiveWorkbook.Names.Add Name:=Sheets("Plan1").[H1], RefersTo:="=Plan2!$I$2:$K$2"
        '    Range("I2:K2").Select
        '    ActiveWorkbook.Names.Add Name:=Range("H2"), RefersToR1C1:="=Plan2!R2C9:R2C11"
    End If

End Sub

diego_janjao · 9 de março de 2016

@Enival Bento as palavras em azul são o que devo acrescentar?

Enival · 10 de março de 2016

Olá bom dia

Substitua a Macro inteira por esta.

If Plan1.Range("H2").Value = "" Then 'Verifica se o campo esta vazio
        'se o campo esta vazio, envia uma mensagen
        MsgBox "Por favor informe o nome para o campo!", vbExclamation, "Cancelado"
        Plan1.Range("H2").Activate 'Ativa a Célula H2 para que você informe o nome do campo 
        Exit Sub
    Else
        'Pega o nome informado em H2 da Plan1, e Nomeia o Intervalo ("I2 a K2 da Plan2")
         ActiveWorkbook.Names.Add Name:=Sheets("Plan1").[H1], RefersTo:="=Plan2!$I$2:$K$2"
    End If
End Sub