Criação de macro no Excell 2003

Jorge Thomaz · 16 de maio de 2011

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..

17 de maio de 2011

..., 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?

Jorge Thomaz · 17 de maio de 2011

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.

17 de maio de 2011

é 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

Jorge Thomaz · 18 de maio de 2011

Valeu pela tentativa mas o código não funcionou.....

Tem mais alguma ideia.....

19 de maio de 2011

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?

Jorge Thomaz · 21 de maio de 2011

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)

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

Jorge Thomaz · 21 de maio de 2011

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??????

21 de maio de 2011

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

Jorge Thomaz · 22 de maio de 2011

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?????

23 de maio de 2011

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