Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como inicio a macro...
 
Notifications
Clear all

Como inicio a macro da celular atual ?

 
2024 - VBA & Macros
6 Posts
4 Usuários
0 Reactions
1,215 Visualizações
RSS
 Macielvs
(@macielvs)
Posts: 5
Active Member
Topic starter
 

Prezados, gostaria de saber como ajusto a macro abaixo para que ela inicie na célula atual e faça os demais comandos, sempre considerando a célula atual como referência. Antecipadamente obrigado !!!

'
Range("").Select
ActiveCell.FormulaR1C1 = "=RC[-16]+1"
Range("").Select
ActiveCell.FormulaR1C1 = "=R[-2]C+1"
Range("AYT3").Select
Selection.Copy
Range("AYE2:AYS2").Select
Range("AYS2").Activate
Selection.Replace What:="$61", Replacement:="$83", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("AYT1").Select
End Sub

 
Postado : 07/02/2016 6:21 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Nem da pra ajustar ja que vc nao disse o que a macro faz mas respondendo a sua duvida

Activecell.select

Deve fazer o que vc pretende

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 07/02/2016 7:40 pm
 Macielvs
(@macielvs)
Posts: 5
Active Member
Topic starter
 

Obrigado pela resposta.

O que eu preciso é que a macro faça :

1) Célula inicial
2) selecione 15 células, incluindo a célula inicial
3) Substitua o conteúdo das formulas das células selecionadas, que é $61 para conteúdo da célula da posição 16 a partir da celula inicial e uma linha abaixo.
Exemplo: célula inicial A1, vai selecionar A1 a O1, e substituir parte da formula das 15 células que é "$61" pelo conteúdo da célula P2 que, no exemplo é "$83". Ou seja, vai pegar o conteúdo da celula P2 e substituir o $61 na formula das celulas A1:O1
obs.: lembrando que a macro será executada em qualquer célula da planilha e o conteudo das formulas das 15 células sempre terá $61 e terá que ser substituido pelo conteudo da celula da linha de baixo e 16 casas para frente.

A B C D E F G H I J K L M N O P
1 VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO VERDADEIRO FALSO FALSO FALSO FALSO FALSO 10
2 $86

 
Postado : 09/02/2016 10:04 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Olá, Maciel.

Experimente.

Sub SubstituiCifrão61()
 ActiveCell.Resize(, 15).Replace "$61", ActiveCell.Offset(1, 15).Value, xlPart
End Sub

Osvaldo

 
Postado : 10/02/2016 7:41 am
 Macielvs
(@macielvs)
Posts: 5
Active Member
Topic starter
 

Osvaldo, muito obrigado.

Você foi fantástico. Show.

Forte abraço, :) :) :)

 
Postado : 10/02/2016 8:31 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Macielvs

Faltou você clicar na mãozinha para agradecer ao Osvaldo.

Como você é novo no fórum, para facilitar a tua participação, sugiro tomar acessar os links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/02/2016 7:36 am
Forum Jump:
  Tópico Anterior
Próximo Tópico