LucasExcel

@Midori Acredito que o problema de linha não terei porque a planilha será verificada diariamente e com poucos valores de erros. Mas o código na hora que está sendo gerado, caso não tenha nenhuma célula com "Verificar Nfe" aparece uma caixa de mensagem, como faço para não aparecer caixa de mensagem caso não tenha nenhuma célula com "Verificar Nfe" ?

Boa tarde Preciso fazer o seguinte, tenho uma tabela que será preenchida diariamente, mas queria fazer com que se uma destas células estiverem escrita "Verificar Nfe" apareça uma mensagem informando. O problema é que eu não consigo fazer com que a macro leia a tabela, por exemplo no código abaixo mostra que se a célula M247 estiver o valor "Verificar Nfe" aparecerá a MsgBox "Verificar preenchimento", mas eu preciso que ao invés de ler só a célula M247 leia todas as células (da coluna) de M2 até M247 e que como eu preencho a planilha diariamente, ao rodar o código, o código leia automaticamente caso a célula M260 e assim sucessivamente esteja o o valor "Verificar Nfe" Se alguém puder me auxiliar agradeço. Sub Teste() ' ' Teste Macro ' ' If Worksheets("Dados").Range("M247").Value = "Verificar Nfe" Then MsgBox "Verificar preenchimento" End If End Sub adicionado 18 minutos depois Esqueci de algo, não sei se é possível. Informar na mensagem (MsgBox "Verificar preenchimento da célula M5"...por exemplo), ou seja, qual ou quais células estão com o valor "Verificar Nfe".

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

Bom dia Gostaria que na célula D2 tivesse um quadro que ao clicar a tabela da linha 4 para baixo só aparecessem os dados do produto que eu pus na célula D2. Gostaria que fosse seguido esse padrão com as células que marquei de amarelo, por e xemplo gostaria que tivesse um quadro na célula G2 que quando eu pusesse o tamanho "M" só aparecessem os dados dos produtos de tamanho M, a mesma coisa para cor e preço. Obrigado Estoque.xlsx

Bom dia, Gostaria de ajuda por favor, eu preciso na planilha que enviei em anexo, na aba entrada,a coluna G, marcada de amarelo com o subtitulo "Status" preencha automaticamente a palavra "indisponível" quando o produto, na coluna D for preenchido na aba saída na Estoque.xlsxcoluna D, produto e "disponível" quando não estiver o produto na aba saída. ><