Este fórum está sendo desativado

[MarceloAdriano]

Olá
Desenvolvi um código, porém, de forma incompleta, pois não consegui devenvolver as mesclagens das células especificas e automáticas.
Se no Range ("V14:V100") nas linhas que conter texto; então; as respectivas linhas das celulas pertecentes ao Range ("C14:F14") em diante ficarão mescladas.

Segue ao código e a planilha de exemplo:
Desde já agradeço

Código VBA:

Sub CélulasParaMatriz()
Dim MatrizX(), i As Long, VV As String, AcharUltimaLinha As Long, Resp As VbMsgBoxResult

MatrizX = Range("V:V").Value 'carrega na matriz os valores do intervalo
AcharUltimaLinha = Cells(Rows.Count, 22).End(xlUp).Row
Resp = MsgBox("Tem certeza que deseja prosseguir com esta ação?", vbYesNo, "Tomando uma decisão")

If Resp = vbYes Then

[C1].Resize(AcharUltimaLinha).Value = MatrizX 'insere em outro intervalo os elementos da matriz
'Propriedade Range.Resize(Excel)Redimensiona o intervalo especificado. Retorna um objeto Range que representa o intervalo redimensionado.
For i = 1 To AcharUltimaLinha
VV = VV & MatrizX(i, 1) & vbLf 'carrega na variável "VV" todos os elementos da matriz
'vbLf = Chr (10) = Caractere de alimentação de linha
Next i
'MsgBox "Você Inseriu os seguinte registros: " & vv 'exibe a variável "VV"
MsgBox "Processo Executado!", , "Entusiasta_Excel"
Else
MsgBox "Você acaba de recusar a ação"

End If


End Sub

[MarceloAdriano]

Para uma melhor compreensão, favor desconsiderar o anexo anterior e considerar este.

Grato,

[gfranco]

Boa noite MarceloAdriano.
Veja se o anexo se aproxima de seu objetivo.
At
gfranco

[MarceloAdriano]

Olá
Primeiramente obrigado! Só esta faltando duas coisas: copiar o texto que estiver informado na Coluna ("V") para as celulas mescladas ("C : F"), e a MsgBox YesNo antes da execução da tarefa. Ai sim, concluíra a finalidade desse código e do meu objetivo.

Se puder acrentar, lhe agradeço

Grato,
Marcelo Adriano

[gfranco]

Veja esse

[MarceloAdriano]

Obrigado GFranco
Um dia chego lá! Estou iniciando meus primeiros códigos em VBA fico maravilhado! Irei estudar o código feito por você para ssimilar a lógica. Era exatamente isso que necessitava, só não vou fechar (Resolvido) essa discussão no fórum, pois irei passar esse código para o Diário de Notas Ofcial e tendo alguma dificuldade posto aqui, só para precaver mesmo. Mas acho que vai dar tudo certo e amanha mesmo posto como resolvido. ok?!

Obrigado e bom inico de semana

Marcelo Adriano

[gfranco]

Bom dia Marcelo Adriano.
Ok, teste o código,adapte-o a sua necessidade e qqr coisa posta ai que eu ou outro membro tentaremos ajudar. Tem muita gente boa aqui no fórum.

[MarceloAdriano]

Olá GfrancoOcorreu tudo bem, Obrigado. Assunto Resolvido!