Erik Wesley

@Luan Valle Eu apenas lhe dei a base, não a solução definitiva, por isso parou... Upe uma copia da sua planilha para eu lhe ajudar. Pode ser uma planilha sem dados, desde que tenha os códigos que necessitam de ajustes e uma pagina capaz de simular sua situação.

A 1º data e a última data? Ou a 1º data e a 2º? Prefere uma formula ou um código em VBA?

Talvez o problema seja apenas de referencia, anexe sua planilha para podermos lhe ajudar.

Se a intenção for não visualizar a planilha quando o form estiver presente você pode utilizar o "Application.Visible = False/True"

Anexe um exemplo de sua planilha, será mais fácil lhe ajudar.

Já que você tem conhecimento suficiente será mais simples. Você pode utilizar um simples "Do Loop" Do If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell.Value Utilize uma referencia de linha (De sua preferência) para marcar o inicio e o fim da impressão, então utilize o: ActiveSheet.PageSetup.PrintArea = Referencia (Range de impressão) para marcar a impressão. Depois é só usar um macro de impressão de sua preferência também.

Use o seguinte para buscar as células vazias: I Do If ActiveCell.Value <> "" Then ActiveCell.Offset(1,0).Select End If Loop Until ActiveCell.Value = "" Você pode fazer um sistema de variáveis com contador para abrir e fechar as planilhas desejadas, sempre colando o valor desejado e depois fechando.

Você pode usar a função: SOMARPRODUTO Não é necessário abrir a planilha vinculada para atualizar os valores quando se usa esta função. PS: Não sei como usa-la corretamente, então terá que pesquisar, mais é bem parecido com o SOMASE.

Talvez isso resolva: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A1")) Is Nothing Then Call macro1 End If Application.EnableEvents = True End Sub Insira esse código na WorkSheet que desejar. Depois mude o Range (Range("A1")) para a última célula que você ira preencher. E então mude o "Call macro1" para o nome da macro de preenchimento que você aplicou no botão. Assim, sempre que você terminar de digitar ou alterar o valor da célula selecionada ele ira acionar o botão com um simples "Enter"

Me perdi... tem como upar um exemplo simplificado?

Só trocar o nome dela para "Auto_Open". Como você tem 3 Sub's, decida qual quer abrir ao iniciar o excel e troque o nome por "Sub Auto_Open()"

Sub OcultarLinha() Dim Linha, LinhaFinal As Integer LinhaFinal = Range("A65000").End(xlUp).Row For Linha = 2 To LinhaFinal If Range("A" & Linha).Value = 0 Then Range("A" & Linha).EntireRow.Hidden = True Else End If Next Linha End Sub Ele vai começar no range A2 em diante. Você só precisa ajustar na sua planilha.

Você pode usar uma UserForm para e colocar um evento "Enter" no último preenchimento para ele ativar o "Salvar". Assim na planilha, dando "Enter" em uma célula para acionar o "Enter" eu considero improvável.

Em qual parte?

Você quer copiar os valores atualizados um em cada linha?

Achei muito vago... pode compartilhar a planilha?

Se puder upar sua planilha seria mais fácil.

Hm... Curioso, pode upar uma exemplo ?

A resposta está no erro: Célula mesclada tem que ser colada em outra célula mesclada.

No primeiro caso, use a função: StrReverse Ex: Variavel = StrReverse("Amor") O resultado será: "romA"

Fiquei meio perdido, pode compartilhar um modelo resumido da sua planilha?

Na hora de salvar, selecione a opção "Pasta de trabalho habilitada para macro do Excel", do contrario ele ira deletar todas as suas macros.

Nossa, seu problema parece bem complicado, se puder dar uma filtrada no que precisa seria mais fácil. Mais no que eu consegui entender (colar na primeira linha vazia), aqui está uma comando em loop que você pode adaptar: Sheets("Planilha_Destino").Select Do If ActiveCell.Value <> "" Then ActiveCell.Offset(1,0).Select End if Loop Until ActiveCell.Value = ""

Você tem um código para apagar certas linhas de acordo com critérios certo? Então você quer unifica-las, certo? Só quero confirmar pois não entendi se você quer deletar o conteúdo das células, linhas ou colunas, ou tudo junto, ou apenas apagar seu conteúdo.