Ir ao conteúdo
  • Cadastre-se

Excel MACRO - usar célula como referência


Ir à solução Resolvido por Visitante,

Posts recomendados

Boa Tarde Pessoal!! Vejam se conseguem me ajudar....

 

Gostaria de elaborar uma MACRO para duplicar uma determinada linha baseada na distância dela para uma célula referência.

Estou anexando um modelo de arquivo aqui para ficar um pouco mais fácil o entendimento.

 

Não sei se me expressei corretamente, se ficou dúvidas coloquem nos comentários.

 

Teste.xlsx

Link para o comentário
Compartilhar em outros sites

8 minutos atrás, osvaldomp disse:

 


Sub DuplicaLinha()
 Cells([D:D].Find("REFERÊNCIA").Row + 2, 1).Resize(, 12).Copy Cells([D:D].Find("REFERÊNCIA").Row + 3, 1)
End Sub

Ótimo, muito obrigado. Mas a ideia era ao copiar a linha, a MACRO "inserir uma nova linha" copiada. É possível?

 

Link para o comentário
Compartilhar em outros sites

  • Solução

 

Yes, sir.

 

Sub DuplicaLinhaV2()
 Cells([D:D].Find("REFERÊNCIA").Row + 2, 1).Resize(, 12).Copy
 Cells([D:D].Find("REFERÊNCIA").Row + 3, 1).Insert shift:=xlDown
End Sub

 

Link para o comentário
Compartilhar em outros sites

Bom Dia!! Estou com um problema.... Usando a macro abaixo, ela funciona na primeira vez que abro o arquivo. Mas se apago ou altero qualquer informação (em QUALQUER célula), a macro apresenta erro de automação - o objeto chamado foi desconectado de seus clientes

 

Sub InserirLinhaSemana2()
'
' InserirLinhaSemana2 Macro
'

'
ActiveSheet.Unprotect
Application.ScreenUpdating = False
    Range(Cells([X:X].Find("REFERÊNCIA").Row + 2, 1).Resize(, 150), Cells([X:X].Find("REFERÊNCIA").Row + 3, 1).Resize(, 150)).Copy
    Cells([X:X].Find("REFERÊNCIA").Row + 4, 1).Insert shift:=xlDown
    Cells([X:X].Find("REFERÊNCIA").Row + 4, 19).Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "2ª Parte"
    Cells([X:X].Find("REFERÊNCIA").Row + 4, 20).Select
    Selection.ClearContents
    Cells([X:X].Find("REFERÊNCIA").Row + 4, 13).Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(IF(VLOOKUP(R43C27,Designações!R2C5:R109C19,13,FALSE)="""","""",VLOOKUP(R43C27,Designações!R2C5:R109C19,13,FALSE)),"""")"
    Cells([X:X].Find("REFERÊNCIA").Row + 4, 20).Select
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, _
        AllowInsertingHyperlinks:=True, AllowSorting:=True, AllowFiltering:=True _
        , AllowUsingPivotTables:=True
Application.CutCopyMode = False
End Sub

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

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