Alteracao de valor de celulas macros

Português do Brasil
#1

Ola bom dia!
Preciso executar uma macro que seja acionada caso eu altere qualquer linha da coluna X ele modifique executara uma macro na mesma linha, mas em outra coluna.
Eh continuacao de um topico existente, pois tive alguns problemas durante uma das execucoes.

Sub ConteudoAlterado( oCelula )
' Macro acionada por Eventos de planilha... , Conteúdo alterado
    ' Testar se o objeto selecionado é uma célula individual '
    If oCelula.ImplementationName <> "ScCellObj" Then Exit Sub
' Endereço da Célula '
oEnd = oCelula.CellAddress    

' Celula no intervalo B7:B27 '
' Coluna 1 e linha entre 6 e 26 '
If oEnd.Column = 0 Then   '0 (zero) é coluna A
  If oEnd.Row >= 6 And oEnd.Row <= 26 Then ' Linha Inicial 7 e linha Final 27 /// 0 (zero) é linha 1
    ' exceutar tarefas '
Execute "GoRight", 9 ' 9 ir para a coluna J
Execute "InsertCurrentDate" ' Inserir data corrente
Execute "GoLeft", 9  ' 9 voltar para a coluna A
    ' finalizar tarefas '       
  End If
End If

End Sub

'=========== SubMacro =============================
Sub Execute ( oQue$, Optional nQtd% )
dim Exec(1) as new com.sun.star.beans.PropertyValue
Exec(0).Name = "By" : Exec(0).Value = nQtd
Exec(1).Name = "Sel" : Exec(1).Value = false
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController _
.Frame, ".uno:" & oQue & "", "", 0, Exec())
End Sub

O que acontece eh que no inicio do teste ele verifica se eh uma celula individual, mas se eu por exemplo quiser alterar varios valores de uma vez na coluna 6 por exemplo com o Control V alterando as linhas 11, 12 e 13 a macro nao eh acionada por causa do teste inicialarquivo teste.ods

#2

Ola @Budasamsara, a macro foi feita para a cada alteração (célula) ser acionada, linha a linha.

Mesmo que desabilite o IF da conferencia se célula individual, não vai funcionar.

Será necessário reescrever a Macro para que funcione com mais de uma linha.

#3

tem alguma ideia de como fazer :
pq na realidade essa macro esta funcionando sobre o objeto selecionado e eu preciso startar a macro caso o valor da coluna seja alterado (a macro vai escrever na mesma linha tal como essa, mas devera alterar todo e qualquer valor que for alterado independentemente de onde o cursor estiver). pensei em fazer um comparativo onde eu atribuiria o valor antigo da célula e depois compararia com o novo se fosse diferente eu chamaria a macro, mas seria muito extenso porque seriam várias linhas, a outra alternativa seria copiar a coluna em questão para outra coluna e toda vez que a copia nao fosse igual a original a macro se acionaria nas linhas que o valor estivesse diferente, mas tbm não sei se tem como fazer.

#4

Poste um arquivo modelo, com informação de qual coluna vai ser alterada manual e onde deve ser preenchido e com o que (formula) ?

#5

como anexo um arquivo:

#6

Use Editar sua pergunta e com o ícone clipe use para anexar.

#7

eu vi ele agora ele so aparece na resposta ou no topico original e nao nos comentarios por isso nao estava encontrando, ele esta la em cima no topico original no fim.

#8

Entendi que, quer colar a informação na coluna H em varias linhas sucessivas e quer a data da coluna J alterada para a data atual, nestas mesmas linhas, é isso ?

#9

isso quando eu for colar eu vou colar varias linhas com nomes, RGs, Cpf e etc, mas só quero que ele atualize a data caso a celula da coluna J da mesma linha for alterada se não não (caso eu cole algum valor igual ao existente não tem problema ele atualizar a data, na verdade isso seria o mais ideal), pq na verdade a minha entrada nessa planilha sera com essas linhas que possuem varias colunas, mas a atualização da data so ira acontecer se eu alterar a J.

#10

A coisa ficou complexa, saiu do meu nível de conhecimento.

Mas para o arquivo não ficar parado, após a colagem de varias colunas ( e linhas ), para forçar a alteração da data e só redigitar os valores da coluna H.

#11

é então, mas nesse caso da planilha é um exemplo na realidade vai haver muitas linhas pra se colar de uma só vez totalizando mais de 3000 mil entradas, por isso estava vendo se eu conseguiria ativar uma macro a partir do valor de célula alterada.

Uma outra solução que pensei seria disparar a macro a partir de uma célula alterada (cursor) em qualquer linha dentro da Area (Coluna A ate a H) copiar toda a coluna H para um outro lugar e comparar o antigo valor de H (copiado) com o novo e so executar o comando ( inserir data atual) onde os valores divergirem, mas essa seria a solução menos elegante so pro caso de não haver mesmo um ‘‘gatilho’’ de macro para o valor alterado com range.

#12

Como disse, ficou fora do meu conhecimento, mas como mencionou criar coluna extra, é possível criar as formulas e depois de terminada, converter para valores e eliminar as colunas extras inseridas.

#13

@schiavinatto pensei no seguinte pra facilitar e talvez vocë consiga me ajudar com o código, criar um botao que atualizasse (acionamento manual) a coluna J apenas nas linhas que eu estiver selecionado? Poderia fazer uma espécie de laço iniciando iniciando no endereço da primeira linha na área de selecao até a última nao sei se tem como levar esse valor pra dentro do código mas o exemplo seria assim:
colei da celula A7 até J35 logo essa é a área de seleçao A7:J35 (Ignorando as colunas ja que eu tbm poderia estar colando da B7:B35 e o ideal é que isso nao afetasse a macro) logo temos o valor da linha 7 do inicio da seleçao e valor da linha 35 (que acho que vao ficar 6 e 34 respectivamente no código) entao quando eu clicar no botao ATUALIZAR a macro insere a data na Coluna J da linha 7 (o 7 é o valor da primeira linha na seleçao) feito isso ele soma +1 o código retorna e insere a data na linha 8 e soma mais um (ficando 9) e fara isso até chegar na Contagem 35 que finaliza o laço.

#14

eu vi programaçao faz muito tempo, mas acho que se houver algo semelhante no Lib e se tiver como levar os valores da area selecionada para o codigo acredito que com o laço funcione. Essa soluçao nao e muito elegante, mas funcionaria perfeitamente.

#15

A colagem sempre será no final da lista ?

#16

não por isso queria usar as linhas da área de seleção como inicial e final para a execução

#17

Tenho a macro que pega a informação:

Sub AddressPlanCellArea
Dim Var1$
Var1 = ThisComponent.getCurrentSelection().AbsoluteName
MsgBox ThisComponent.getCurrentSelection().AbsoluteName
End Sub

Mas não sei como pegar a linha inicial e a final.

#18

Segue uma sugestão, se colagem for sempre no final da lista.

Após a colagem, deve-se ativar a primeira célula da coluna H, da linha há ser datada, e acionar o Botão [ DATAR ].

A macro percorre a coluna até encontra uma célula em branco para parar.

Arquivo teste.

#19

Schiavinatto tem como eu mover o cursor com limite na área selecionada via macro?
Exemplo seleciono a área A1:B13 e mando a macro executar o movimento do cursor dentro dessa área para o limite superior (topo) e depois o limite inferior da seleção? Vi alguns exemplos no fórum que da pra se mover ao que parece, não sei o cursor move, mas a ideia é trabalhar com as informações do thiscomponet.getcurrentselection()
o cursor vai ate o limite supeiror da seleção coloca o valor da activecell.row em uma variável, vai ate o limite inferior da seleção e coloca novamente o activecell.row em outra variável e com isso faria o laço.

#20

Esse procedimento não sei como fazer.Viu a macro que postei acima, ela reconhece a área ( ex: $Plan1.$D$4:$F$8 ), porem não sei como retirar a informação da numeração da linha superior(4) e inferior(8).

Impressum (Legal Info) | Datenschutzerklärung (Privacy Policy)   Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.