LucasExcel

Obrigado pela ajuda. Ajustado o código. Acredito que ficou 100%.

Muito obrigado pela ajuda, porém a planilha está gerando erro caso eu tenha apenas 1 linha com valores entre outras linhas com valores de um dia diferente. Por exemplo na planilha em anexo tenho 10 linhas do dia 07/05 e uma linha do dia 08/05 e quero que exclua apenas a linha 08/05.Teste.zip @Muca Costa - Se eu tiver apenas 1 linha com valor divergente (08/05/2020) o código não exclui a linha. Caso eu tenha mais de uma linha com valores divergente o código exclui ambas as linhas divergentes. @osvaldomp - A planilha exclui a linha com valor divergente,porém exclui a primeira linha também. Arquivo preenchido em anexo. Grato

@Midori Deveria ficar assim o código ? A mudança está em negrito On Error Resume Next Sheets("Scopo").Select If Range("A2") <> "" Then Range(Selection, Selection.End(xlDown)).Select Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("Dados").Select Application.Goto Reference:="R1C13" Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Selection.End(xlToLeft).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Dados").Select Range("B2:C2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Selection.NumberFormat = "m/d/yyyy h:mm" Range("Tabela1[[#Headers],[Placa]]").Select Sheets("Dados").Select Application.Goto Reference:="R1C1" Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Sheets("Instruções").Select End Sub

Bom dia, Na planilha em anexo e abaixo tem um código VBA com o objetivo de copiar os valores da aba "Scopo" e colar na aba"Dados". O código seleciona a célula A1 e copiar todos os valores que estão na planilha selecionando os valores através do Ctrl + Shift + seta para baixo. O erro está que quando eu tenho só uma linha na aba "Scopo" ao executar o código onde ele seleciona os valores através do Ctrl + Shift + seta para baixo o excel copia todas as células para baixo (independente se tem valor ou não) e não cola apenas a linha com valores na aba "Dados". Teste.xls Sub Macro4() ' ' Macro4 Macro ' ' On Error Resume Next Sheets("Scopo").Select Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("Dados").Select Application.Goto Reference:="R1C13" Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Selection.End(xlToLeft).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Dados").Select Range("B2:C2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Selection.NumberFormat = "m/d/yyyy h:mm" Range("Tabela1[[#Headers],[Placa]]").Select Sheets("Dados").Select Application.Goto Reference:="R1C1" Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Sheets("Instruções").Select End Sub

Obrigado pela ajuda de ambos. Ficou ótimo.

@Muca Costa Incrível o que você fez, na planilha que me enviou deu certo, porém quando passo para a minha planilha oficial ela da erro nessa parte ( imagem em anexo) Relatório de expedição rodoviário.xls

@Muca Costa infelizmente não deu certo. Eu tentei ainda passar o código passo a passo porém não teve modificação

Bom dia, Em anexo segue uma planilha com as informações. Eu preciso que todas as linhas inteiras que contenham informações na aba "Scopo" (verificando através da coluna "I") que fossem da data inferior ou superior a data que eu informei na aba "Dash", célula "B1" sejam excluídas. Ou seja, se na aba "Dash" eu coloque "05/05/2020", então todas as linhas de informações da aba "Scopo" que na coluna "I" qualquer data seja diferente de 05/05/2020, sejam as datas 03/05/2020,04/05/2020 ou 06/05/2020 as linhas inteiras seriam apagadas. Pasta1.xlsx

@Midori As macros deram certo, porém está ativando o anti vírus com o nome Suspicious.Macro.Ld, sabe como desativar isso pela macro ou inserir uma macro para não gerar essa ativação do Anti vírus, pois precisarei enviar o arquivo via e-maill.

Boa tarde No código abaixo foi gerado uma caixa de mensagem que se eu clicar em Sim, ela reexibe duas abas, nessa parte do código não tem problema, porém se na caixa de mensagem eu clicar em Não a planilha deveria ocultar duas abas (aba Scopo e Instruções) porém se essas abas já estiverem ocultas na minha planilha o código gera erro. Eu gostaria que ao abrir a planilha (arquivo de excel) já aparecesse inicialmente uma caixa de mensagem para responder Sim ou Não e que o erro gerado no código( na caixa de mensagem, se eu clicar em Não a planilha deveria ocultar duas abas, Scopo e Instruções) , seja feito nada, ou seja, se o código der erro ele finaliza sem nenhuma mensagem, se não der erro ele oculta as abas. Segue planilha de exemplo em anexo. Mudei a extensão para conseguir inserir o arquivo Código Sub MacroMsg() ' ' MacroMsg Macro ' Dim resultado As VbMsgBoxResult resultado = MsgBox("Você irá fazer alguma atualização?", vbYesNo, "Tomando uma decisão") If resultado = vbYes Then Sheets("Dash").Select Sheets("Scopo").Visible = True Sheets("Scopo").Select Sheets("Instruções").Visible = True Sheets("dash").Select Range("b1").Select Else Sheets("Dash").Select Range("B1").Select Sheets(Array("Scopo", "Instruções")).Select Sheets("Instruções").Activate ActiveWindow.SelectedSheets.Visible = False Sheets("Dados").Select Range("Tabela1[[#Headers],[Placa]]").Select Selection.End(xlDown).Select Sheets("Dash").Select Range("B1").Select End If End Sub Pasta1.xlsx