Macro VBA Excel - Mesclar, Somar e Centralizar Valores

Question

Tenho uma Tabela Excel com a seguinte configura&ccedil;&atilde;o:
Coluna1     Coluna2   Coluna3   Coluna4
A                  702,00        77,22        1  
B              3.200,00       352,00        1
C              1.083,00       119,13        1
D              3.500,00       385,00        1
D              3.000,00       330,00        1
D              1.000,00       110,00        1
E                 600,00         66,00        1
F              1.500,00       165,00        1
F              2.000,00       220,00        1
G             5.000,00       550,00        1
H           10.000,00       642,34        1
I               4.000,00      440,00         1
I               3.000,00      330,00         1

Quero criar uma macro VBA EXcel que ao identificar dados id&ecirc;nticos (em sequ&ecirc;ncia) da Colun1, some os valores da Coluna3 (limitando o somat&oacute;rio a 642,34), mescle e centralize os valores da Coluna3 ao somat&oacute;rio encontrado; e ainda, mescle e centralize os dados da Coluna4, sem somat&oacute;rio.

Answer

Boa tarde!

Seja bem-vindo ao f&oacute;rum! ;)
Tudo bem com voc&ecirc;? Espero que sim!

Mostre o que j&aacute; fez para que os entendidos no assunto, possam te ajudar.

Answer

Tentei fazer a seguinte macro, mas n&atilde;o deu certo:

Sub Somar_Mesclar()

UltLinha = Cells(Rows.Count, 1).End.(xlUp).Row

For i = 2 To UltLinha
     If Cells(i, 1).Value = Cells(i, 1).Offset(1, 0).Value   Then
           ......
     End If
Next i
End Sub

Answer

Veja se atende.
Sub MesclaSoma()
 Dim i As Long, k As Long
  Application.DisplayAlerts = False
  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   Do Until Cells(i, 1)  Cells(i + k + 1, 1)
    k = k + 1
   Loop
   If k > 0 Then
    Cells(i, 3) = Application.Min(642.34, Application.Sum(Cells(i, 3).Resize(k + 1)))
    Cells(i, 3).Resize(k + 1).Merge: Cells(i, 4).Resize(k + 1).Merge
    i = i + k + 1: k = 0
   End If
  Next i
  Columns(C:D).VerticalAlignment = xlCenter
End Sub

Answer

Ilustr&iacute;ssimo GuimeM,
Voc&ecirc; &eacute; o cara nota 10. Excelente trabalho. Muit&iacute;ssimo agradecido. &Eacute; exatamente aquilo que eu estava buscando.

Agradece, 
Benedito_Almeida

Answer

Caro GuimeM,

Ap&oacute;s fazer um teste mais apurado da macro, detectei o seguinte problema:
Quando o item da Coluna1 apresenta dois valores id&ecirc;nticos seguidos, como por exemplo DD e EE, ela processa as altera&ccedil;&otilde;es nas linhas dos valores DD e salta os dados das linhas EE, sem promover altera&ccedil;&otilde;es. Como solucionar o problema? Voc&ecirc; tem a m&aacute;gica?

Agradece antecipadamente a valorosa colabora&ccedil;&atilde;o,

Benedito_Almeida

Answer

Tens raz&atilde;o. Falha minha. Pe&ccedil;o desculpas.

Para corrigir, por gentileza remova o [COLOR=#ff0080]+ 1[/COLOR]  desta linha do c&oacute;digo >>>[COLOR=#0000ff] i = i + k [COLOR=#ff0080]+ 1[/COLOR]: k = 0[/COLOR]

Dever&aacute; ficar assim >>> [COLOR=#0000ff]i = i + k: k = 0[/COLOR]

Answer

Prezado GuimeM,

Deu tudo certo. Muito obrigado pela, mais uma vez, pela excelente colabora&ccedil;&atilde;o.

Agradece,

Benedito_Almeida

Ferramentas

Mover Tópico