Ir ao conteúdo

Criação de macro no Excell 2003


Jorge Thomaz

Posts recomendados

Postado

Bom dia, gostaria que alguém me ajudasse a elaborar um macro no excell 2003 em que após digitar um dado ou palavra e clicar enter, passa para uma célula pré-determinada por mim..

Postado
..., passa para uma célula pré-determinada por mim..

o que você quer dizer com isso?

por exemplo, se inserir "jacaré" em A1, o que você deseja que o código faça em seguida?

Postado

Como exemplo, eu digito "jacaré" em uma célula (d2) e ao clicar enter, a alça de preenchimento vai para uma célula que eu pré-determinei (f14) e insiro outro dado como "onça" , e assim rsucessivamente, sem enviar ou copiar o dado anteriormente digitado, estando a célula livre para inserir um dado que eu queira, okokokokokokok.

Postado

é preciso estabelecer um critério para o deslocamento da célula ativa, por exemplo, o código abaixo inserido no módulo da planilha, desloca a célula ativa 1 coluna para a direita e 2 linhas para baixo (este foi o critério que adotei), após inserir, editar ou deletar o conteúdo de uma célula qualquer.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(2, 1).Select
End Sub

Postado

1. onde você colocou ocódigo?

2. que operação você fez na planilha para disparar o código?

3. após efetuar a operação que dispara o código o cursor não mudou de célula?

Postado

bom tarde,

eu abri o arquivo novamente e habilitei o macro, foi este o problema eu não havia habilitado. Mas agora, eu não consigo unir este macro com o que eu já criei, ao colocá-los junto dá pane, sendo o macro que fiz era para os dados ao digitar se tornarem maiúscula:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' Loop to cycle through each cell in the specified range.

For Each x In Range("b11,B14,g11")

' Change the text in the range to uppercase letters.

x.Value = UCase(x.Value)

Next

End Sub

Tem alguma ideia para colocá-los junto sem que haja conflito.....

Postado

Sendo que as células ativas seriam por exemplo, C4,G7,I7,B10,B11,G11,B12,H12,B13,I13,B14,G14 - só que este macro que me mandou não dá para fazer isso....

teria alguma ideia de tornar as células acima ativa de modo sucessivo??????

Postado

1. independente de digitar maiúscula ou minúscula o código retorna todas as letras em maiúsculas; funciona para todas as células da planilha

2. se a célula ativa for uma das células da lista postada, após "Enter", o código seleciona a célula seguinte da lista

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As String
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
Select Case Target.Address(False, False)
Case "C4": [G7].Select
Case "G7": [I7].Select
Case "I7": [B10].Select
Case "B10": [B11].Select
Case "B11": [G11].Select
Case "G11": [B12].Select
Case "B12": [H12].Select
Case "H12": [B13].Select
Case "B13": [I13].Select
Case "I13": [B14].Select
Case "B14": [G14].Select
Case "G14": [C4].Select
Case Else: Exit Sub
End Select
End Sub

Postado

Aí osvaldo tudo bem,

este macro está bom, deu certo só que no item 1 ao invés de ser todas maiúsculas para todas as células da planilha seria apenas para as células "b11,B14,g11" e na célula b10 somente a primeira letra das palavras em maiúsculas, pois tentem alterar o item 1 mas não consegui....

há como alterar este item?????

Postado

Aê, Jorge.

Veja se o código abaixo atende.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Address(False, False)
Case "C4": [G7].Select
Case "G7": [I7].Select
Case "I7": [B10].Select
Case "B10": Target.Value = StrConv(Target.Value, vbProperCase)
[B11].Select
Case "B11": Target.Value = UCase(Target.Value)
[G11].Select
Case "G11": Target.Value = UCase(Target.Value)
[B12].Select
Case "B12": [H12].Select
Case "H12": [B13].Select
Case "B13": [I13].Select
Case "I13": [B14].Select
Case "B14": Target.Value = UCase(Target.Value)
[G14].Select
Case "G14": [C4].Select
Case Else: Exit Sub
End Select
Application.EnableEvents = True
End Sub

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!