Bom dia!!

Então porque você simplesmente não deleta as linhas vazias?

Att

O layout da planilha estará protegido com senha (com exceção do range da coluna) pois será uma ferramenta a ser utilizado por outros usuários bastante leigos no excel e em informática como um todo. Por isso a necessidade de automatização..

para juntar "valores" de Coluna sem mexer em formatações e formulas...

Sub juntar()
Dim coluno() As Variant
Dim coli As Range

l = 0
For Each vi In coli
If vi.Value <> "" Then
coluno(l, 0) = vi.Value2
l = l + 1
End If
Next vi
coli = coluno
End Sub

só vai funcionar para uma coluna de cada vez, e apenas move os valores

Att.

Edcronos,

Colei o código e por alguma razão não funcionou. Aparece na planilha como se não ocorresse nada.
Há a possibilidade de enviar em anexo o arquivo em que está funcionando aí para ver se fica OK aqui também?
Valeuu!

Mauro

O código que o Edcronos postou, deve sr colocado num módulo comum e necessita de um botão de comando para funcionar.

[]s

Perdoem a ignorância, valeu pelo toque Patropi agora pude ver que funcionou muito bem!

Mas para ficar EXATAMENTE como estou buscando precisaria só acrescentar a funcionalidade de quando alguma célula na range (ex: A2:A10) for alterada ( <>0 --> escrever algum valor ou apagá-la) de imediato acionar o código do Edcronos. Isto é, ativá-lo sem botão de comando. Será que é possível?

Obrigado!

creio que usando um evento para chamar a macro

Private Sub Worksheet_Change(ByVal Target As Range)
rando = "A2:A10"
If Not Application.Intersect(Target, Range(rando)) Is Nothing Then
juntar
End If
End Sub

cole na plan que tem que ser verificada

caso vc queira simplificar
pode deixar apenas uma celula de entrada de dados Ex. A2
e conforme for digitando ali e apertando Enter os valores vão descendo, sem o cursor sair de A2

Private Sub Worksheet_Change(ByVal Target As Range)
rando = "A2"
If Not Application.Intersect(Target, Range(rando)) Is Nothing Then
Application.EnableEvents = False
Range("A3:A100").Value2 = Range("A2:A99").Value2
Range("A2").ClearContents 'Select
Range("A2").Activate
Application.EnableEvents = True
End If
End Sub

esse tem que ser na pasta de trabalho e não em um modulo

ve se assim te atende, acho que está do jeito que vc queria de inicio:

Olá pessoal,
Primeiramente gostaria de agradecer a colaboração de todos!
A "união" dos dois códigos serviu direitinho!

Sub juntar()
Dim coluno() As Variant
Dim coli As Range

Set coli = Range("A2:A10")'<<<---é só trocar a Range aqui (Apenas 1 coluna)
l = coli.Rows.Count - 1
ReDim coluno(l, 0)

l = 0
For Each vi In coli
If vi.Value <> "" Then
coluno(l, 0) = vi.Value2
l = l + 1
End If
Next vi
coli = coluno
End Sub

'---> E o que chama a macro:
Private Sub Worksheet_Change(ByVal Target As Range)
rando = "A2:A10"
If Not Application.Intersect(Target, Range(rando)) Is Nothing Then
juntar
End If
End Sub

Contudo, gostaria de aplicá-los em mais de um range na mesma planilha, por exemplo: A2:A10 ; A12:A20 ; e/ou B4:B14 ...
Tentei colar junto o mesmo código mas com outro range e apareceu: Nome Repetido Encontrado: Worksheet_Change

Como faço para resolver isso, sem talvez precisar inserir um novo Módulo para cada novo intervalo?

De antemão,
Obrigado!

!

Muito Obrigado Edcronos!!!
Exatamente isso e mais didático impossível!