Ir para conteúdo

BABOO e KTS 2018 no YouTube Loja online do BABOO

Mensagem Recomendada

Estou tentando combinar linhas do excel com código VBA, mas não estou conseguindo.
Algum expert em excel e Visual Basic poderia me dar uma grandiosa ajuda?
Já possuo um código, porém, agora preciso de ajustá-lo para outra combinação.
Como sou muito leigo em códigos VBA, não estou conseguindo ajustá-lo,
Anexei aqui uma planilha com as orientações e o modelo código.
Ficaria muitíssimo agradecido a presteza de algum expert.

COMBINA.xlsm

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

Experimente:

Sub CombinaGrupos()
 Dim k As Long, m As Long, a As Long, x As Long
 [AA:AO] = ""
 k = [J1].End(4).Row: m = [S1].End(4).Row
 Range("S1:X" & m).Copy
 Range("AJ1:AO" & k * m).PasteSpecial xlPasteValues
  For a = 1 To k
   Cells(x + 1, 27).Resize(m, 9).Value = _
   Cells(a, "J").Resize(, 9).Value: x = x + m
  Next a
End Sub

 


Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite Osvaldo. Ficou perfeito o codigo que você criou. Agradeço muito pela sua atençao e empenho. Pessoas assim contribuem para que o mundo evolua. Parabens pelo se inestimavel trabalho.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário


×