Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Mescando Várias Cél...
 
Notifications
Clear all

Mescando Várias Células

 
2024 - VBA & Macros
Post Recente por MPrudencio 8 anos atrás
2 Posts
2 Usuários
0 Reactions
1,110 Visualizações
RSS
 Nmis159
(@nmis159)
Posts: 13
Active Member
Topic starter
 

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.

 
Postado : 29/09/2016 11:05 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

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
Microsoft Excel Brasil no Facebook

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

 
Postado : 29/09/2016 3:22 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico