Bom Dia!
Pessoal estou com uma dificuldade ao tentar mesclar várias células com VBA:
Em um botão (CommandButton1) estou utilizando o seguinte código:
Private Sub CommandButton1_Click()
Dim NUEVO As Object
Dim EXAMPLE As String
Dim CONTAR As Double
Set NUEVO = Workbooks.Add
NUEVO.Activate
EXAMPLE = ActiveWorkbook.Name
CONTAR = 34
Application.Workbooks(EXAMPLE).Worksheets(1).Cells(CONTAR + 1, 2) = "CADASTRO GERAL"
End Sub
O que vai acontecer qdo eu clicar no botão:
vai ser criada uma nova pasta de trabalho e na linha (35) e coluna B será inserido o nome CADASTRO GERAL.
Mas eu quero mesclar as células B(35) até J(35), no entanto o número da linha não será fixo, podendo variar de acordo com as informações
herdadas de outros códigos.
Eu já tentei
Application.Workbooks(EXAMPLE).Worksheets(1).Cells(CONTAR + 1, 2 & ":" & CONTAR +1, 10).Merge
e...
Application.Workbooks(EXAMPLE).Worksheets(1).Cells(CONTAR + 1, 2 & ":" & CONTAR +1, 10).Select
With Selection
.MergeCells = True
End with
Se vcs puderem me ajudar, ficarei agradecido.
Nao entendi qual o problema se é mesclar as celulas ou definir a linha correta para mesclar as celulas.
Se for mesclar as celulas sugiro que vc use o gravador de macros e depois limpe o codigo com o que nao interessar.
Agora se for para definir a linha correta é preciso identificar a ultima linha com dados e a partir dai identificar a linha correta
Definindo a ultima linha vc pode usar esse codigo
Sub Mesclar
Dim Ulitimalinha as long
'Troque o 1 depois de offset para a quantidade de linhas que vc precisa pular a partir da ultima linha com dados
ultimalinha = range("A" & rows.count).end(xlup).offset(1,0).select
activecell.value = "CADASTRO GERAL"
'Codigo para mesclar feito com o gravadr como sugeri
End Sub
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.