Boa tarde!!

Seria copiar os dados diferente de vazio da guia ("Prof - Efetivos Aux."), para....("RELATORIO PROF EFETIVO") ou ("RELATORIO PROF TEMP")?.seria isso??????

Você pode gravar uma macro.

Att

Seria isso mesmo!

Boa tarde!!
Por favor ao postar a mesma dúvida em mais de um fórum indique a postagem-cruzada!!
http://profwillianexcel.forumeiros.com/ ... -sem-dados

Você disse sim, mas é para as duas ou uma guia só?....("RELATORIO PROF EFETIVO") ou ("RELATORIO PROF TEMP")
Quais as colunas das guias .("RELATORIO PROF EFETIVO") ou ("RELATORIO PROF TEMP"), receberão os dados?.... pois tem formulas em ambas.

se poder explicar...

Att

Cada relatório possui uma planilha auxiliar,

"RELATORIO PROF EFETIVO" só receberá os dados da planilha auxiliar (Prof - Efetivos Aux.")
"RELATORIO PROF TEMP" só receberá os dados da planilha auxiliar (Prof - Temp Aux.")

Quero copiar os dados das planilhas auxiliares para seus respectivos relatórios

Cada ralatório terá um botão de comando que ao clicar nele o relatório receba os dados contidos na sua Planilha auxiliar

só que organizados, sem linhas sem dados.

Percebí que você sabe como fazer, mais não está me entendendo bem. Peço que não desista de me ajudar, se precisar de mais informações é só solicitar. desde já agradeço.

Boa noite!!

Veja se algo próximo disso..
http://www.sendspace.com/file/z1uyqw

faça os testes..

Att

Boa Noite, fiz os testes,
É quase isto. Se puder fazer só algumas alterações eu agradeço:

* Gostaria que toda vez que eu executasse a macro, ela substitua os dados que já estão no RELATÓRIO.

Do Jeito que tá, toda vez que executo o comando ela continua colando logo abaixo da ultima célula com dados.

* Não precisa copiar nem colar os números que sempre estarão na Coluna A Pois vou colocar manualmente

*Gostaria que quando os dados fossem colados no RELATÓRIO, Não fosse adicionados-(células,linhas das bordas) apenas os valores.

Pra não ficar tão trabalhoso pra você Modifique só no RELATÓRIO PROF EFETIVO.

Desde já agradeço por sua Colaboração. Pedro

Bom dia!

Eu acho que o ultimo quesito eu vou ficar te devendo.

Sub AleVBA_I()
   Dim LastRow As Long
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With
    
    With Sheets("Prof - Efetivos Aux.").Cells
        .AutoFilter
        .AutoFilter Field:=2, Criteria1:="<>" & ""
        LastRow = .Range("B" & Rows.Count).End(xlUp).Row
        .Range("B2:N" & LastRow).Copy _
         Worksheets("RELATORIO PROF EFETIVO").Range("B" & Rows.Count).End(xlUp).Offset(1)
         .Value = .Range("B10").Value
    End With
    
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
       If Sheets("Prof - Efetivos Aux.").AutoFilterMode Then
       If Sheets("Prof - Efetivos Aux.").FilterMode Then
        Sheets("Prof - Efetivos Aux.").ShowAllData
       End If
        ElseIf Sheets("Prof - Efetivos Aux.").FilterMode Then
            Sheets("Prof - Efetivos Aux.").ShowAllData
       End If
End Sub

Att

Boa Noite, como você indicou antes, eu consegui o que queria gravando uma macro e depois fiz umas modificações, ficou perfeito!

Ficou assim:

Sub Botão2_Clique()
Application.ScreenUpdating = False
Range("B10:N1498").Select
Selection.ClearContents
Sheets("Professores Efetivos 60%").Visible = True
Sheets("Professores Efetivos 60%").Select 'copia daqui para o RELATÓRIO'
Range("B2:N1498").Select
ActiveSheet.Range("A1:N1498").AutoFilter Field:=2, Criteria1:="<>"
Selection.Copy
Sheets("RELATORIO PROF EFETIVO 60%").Select
Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A8").Select
Sheets("Professores Efetivos 60%").Select
Sheets("Professores Efetivos 60%").Visible = False
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Relatório Atualizado com Sucesso!"
End Sub

Falta mais uma Coisa, na planilha mestra eu tenho uma célula que soma o total de horas dos servidores, pois eles recebem horas em várias células. Tem como uma macro me dar um aviso ou mesmo restringir esta célula se o resultado das somas das horas ultrapassarem 280? este aviso tem que ser automático sem precisar clicar em um botão.

Por favor quem souber fazer me ajudem.

Bom dia!!

Veja se é isso.
http://www.sendspace.com/file/tbrmxv

Obs: Eu não considerei seu ultimo post.

Att