Ir ao conteúdo
  • Cadastre-se

Alguém pode me ajudar nessa questão em MACRO?


Trafix

Posts recomendados

Bom dia !

Gostaria da ajuda de vocês novamente para uma questão em MACRO.

Tenho uma plan que dei o nome de INSALUBRIDADE, nessa plan tenho duas shets a primeira com o nome de CALCULO, e a outra com o nome de A1 .

Essa plan CALCULO tenho o nome do funcionário logo na célula A1, EXEMPLO : "TRAFIX".

Gostaria que ao colocar o nome na shets CALCULO na coluna A1, verificasse na SHETS A1 e ao encontrar o mesmo nome colocasse o numero "1" e se encontrasse vários com esse nome colocasse em ordem crescente tipo : 1 - 2 - 3 - 4 a baixo.

OBS.: Conseguir fazer isso com formulas, inclusive com uma formula que conheci do nosso amigo PATROPI, que é : SE(MÁXIMO()+1;"")

Mais como tem muito funcionário mais de 200.000 não dá para fazer com formulas porque/ fica muito pesada a planilha.

Se alguém puder me ajudar agradeço ,

Obrigado !:)

Link para o comentário
Compartilhar em outros sites

Boa tarde!!

Como não postou o arquivo, uma outra forma seria por a formula via macro e depois colar especial valores...

Essa é uma opção próxima tente adaptar.

Sub FormualaZinhoVBA()
Dim zinhoVBA As Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
zinhoVBA = Range("A" & Rows.Count).End(xlUp).Row
Range("B2").Formula = "=if(a2<>"""",max(row(a1))+1,"""")"
Range("B2").AutoFill Destination:=Range("B2:B" & zinhoVBA)
Columns(2).Copy
Columns(2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Foi testado com 30 mil linhas.

Link para o comentário
Compartilhar em outros sites

Olá zinho,

Boa tarde !

Testei aqui e não funcionou , não sei se fiz alguma coisa errado mais não funcionou.

Onde estou não dá para anexar a plan mas assim que possível farei isso.

É bem simples, como você e mestre em VBA vai ser mais um brinquedo para você brincar .rsrs

Abrs

Link para o comentário
Compartilhar em outros sites

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