André Oak

Criei um código pelo gravador de macros para pesquisar um dado e que me retorne o calor da coluna a direita do dado, mas retornou o código de erro em tempo de execução 91, conforme os anexos podem me ajudar? O código criado é o abaixo: Sub code_search() Dim Pesquisa As Integer Planilha5.Range("A1").Select Pesquisa = Cells.Find(What:="TextBox1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate If Pesquisa <> "0" Then MsgBox "Não encontrado!", vbInformation, "PESQUISA" Else ActiveCell.Offset(0, 1).Select End If End Sub Teste Codes.rar

@f_neto Boa noite, entendi, irei fazer, excluir essas partições do Disco 0, não afeta ou coloca em risco posteriormente o Disco 1 depois de clonado? O software usei o EaseUS porque já tinha ele baixado mesmo, um detalhe que esqueci de mencionar é que os 2 SSDs são NVME M2 - MKey, isso não interfere nessa clonagem convertendo para disco em dinâmico não né? Vou usar o software que você indica. Também pensei em fazer um recovery do windows e ISO, num pendrive .

@f_neto os SSD são GPT, como deixar partição do windows no final, não entendi, os dois SSD'd, não tem outras partições além das inicialização, a de instalação com os arquivos e as de recuperação. Se eu excluir as de recuperação, dai consigo estender para o SSD todo de 1TB? Essas de recuperação podem fazer falta depois, como fazer para ter uma salvaguarda em caso de haver problemas nele, pois irei depois colocar um SSD SATA 3 apenas para armazenamento e este ficará para instalação de programas que preciso para trabalhar. @f_neto faltou citar que usei o programa de clonagem EaseUS ToDo Backup 13.0 Free.

Estou clonando meu SSD de 256GB para um SSD de 1TB, mas quando fui estender a parte clonada do SSD de 1TB para o espaço não alocado, ele informou que iria converter para disco dinâmico, cancelei. Pois a ideia é trocar um SSD pelo outro, vi que é recomendado excluir as Partições de Recuperação, fazendo isso eu consigo estender a partição básica clonada sem que o SSD novo se converta em Dinâmico. E se sim, posso trocar um SSD pelo outro sem problemas que o Windows carregará normalmente, como era no SSD de 256GB. Detalhe o de 256GB está com BitLocker ativiado, preciso ativar depois que trocar pelo de 1TB também?

@Mega Blaster Se só desmarcar a formatação rápida, mesmo assim consegue recuperar os dados depis?

@Aldionor Souza Primeiro, se os dados que tem no HD quiser tê-los salvos, faça um back up em outro hd ou dvd ou cartão de memória ou pendrive, depois coloque o que vai formatar como slave em outro PC, vá pelo gerenciador de arquivos e faça como na imagem anexa para formatar.

@GabrielLV Na realidade, já resolvi, a opção remover o Kaspersky é uma opção não aconselhável, visto que é licença paga, então a solução deve ser outra, mas como citei era incompatibilidade com atualização do windows em interface com driver de impressora. Já resolvido a princípio, até nova atualização do windows, de qualquer forma, obrigado pela dica. André

Boa tarde, preciso de um código, para uma tabela onde várias colunas, mas delas 3 colunas para verificar na tabela de origem, mas tenho 30 ou 31 colunas para retornar os dados ao longo de um intervalo de datas (mensal), tipo o exemplo abaixo: data TAG Motivo 24/03/2021 171 VG 1 24/03/2021 171 VG 2 24/03/2021 171 VG 0 24/03/2021 171 VG 2 24/03/2021 139 VG 1 24/03/2021 139 VG 4 24/03/2021 139 VG 3 24/03/2021 139 VG 2 24/03/2021 139 VG 0 24/03/2021 139 VG 4 24/03/2021 139 VG 3 24/03/2021 139 VG 2 24/03/2021 139 VG 0 24/03/2021 139 VG 1 24/03/2021 364 V 0 25/03/2021 754 E 2 25/03/2021 754 E 3 25/03/2021 754 E 2 25/03/2021 754 E 4 25/03/2021 754 E 2 25/03/2021 754 E 4 25/03/2021 754 E 3 25/03/2021 754 E 4 25/03/2021 114 VM 3 25/03/2021 114 VM 1 25/03/2021 114 VM 2 25/03/2021 114 VM 1 25/03/2021 114 VM 2 25/03/2021 232 EG 1 25/03/2021 232 EG 0 25/03/2021 232 EG 1 25/03/2021 232 EG 0 25/03/2021 232 EG 3 No caso, eu preciso que retorne na planilha de destino onde datas estarão na linha A1 e abaixo da origem e o TAG destino estarão na coluna A:A segunda planilha. Assim preciso de um código que no intervalo de datas da planilha origem de lançamento ao longo do ano, eu filtre os TAG utilizados apenas quando ocorrerem os Motivos 0 e 1 (indica que o equipamento trabalhou num dia), mas informe quantos equipamentos por tipo (Apoio, Máquina ou Caminhão) foram utilizados naquela data tipo abaixo: TAG Data 01/03 02/03 ..... 24/03 25/03 03/03 04/03 05/03 06/03 ..... 30 ou 31 171VG 1 0 139VG 1 0 364V 1 0 754E 0 1 114VM 0 1 232EG 0 1 Tipo Apoio 3 2 Máquina 2 2 Caminhão 1 1 Não se se consegui fazer entender, pode me ajudar, nas tabelas anexas, acredito que dê para entender melhor? Busca.rar

@gabrielzinhobr41 Desculpe a demora, na realidade descobri que tinha a ver com a atualização do Windows e incompatibilidade com impressora quando conectada via cabo para imprimir, resolvi provisório até atualizar de novo o windows e imprimir via wi-fi aí não aparecia mais a tela azul. Grato pela ajuda.

Galera, me ajuda aí, como resolver esse problema da imagem anexa?

Boa tarde, estou tentando criar um autofiltro com VBA numa tabela de banco de dados, mas por data, já tenho outros que estão funcionando corretamente, mas o da Data pela coluna data na tabela da planilha, não executa o filtro. Tentei esses dois códigos abaixo, mas da erro, podem me ajudar? Private Sub txt_filtroData_Change() 'ActiveSheet.Range("Tabela2").AutoFilter Field:=1, Criteria1:=">=" & Format(DataDe.Text, "dd/mm/yyyy") & "*" ActiveSheet.Range("Tabela2" & dblLastRowFiltro).AutoFilter Field:=1, Criteria1:= _ ">=" & Format(txt_filtroData, "dd/mm/yyyy") & "*" End Sub Como a combinação dos autofiltros, chegará na informação que preciso rastrear, a coluna Data, é um dos critérios, o que posso estar colocando de errado, por favor? André

@Patropi Bom dia, grato, mas percebi que isso não seria o problema, o Excel reconhece o Sheets corretamente, mesmo estando nas guias escrito em português, obrigado pela dica. @Edson Luiz Branco Ontem macro com a lista de alterações Sheets po Sheets alterou o nome corretamente até a célula que não tinha dados de cadastro inserido, hoje já pediu para depurar na primeira Sheets. Usei sei comando, copiei da sua mensagem criei nova macro no módulo2, e executei, mas pediu para depurar o erro. Qual seria a solução mais prática digamos assim, na primeira ou segunda, visto que a lista de cadastro de pode crescer ao longo do ano? Hoje nenhum dos dois comandos funcionou.

Após criar esse código, deu depurar o erro 1004

@Edson Luiz Branco Boa dia, tenho essa mesma necessidade do David, porém preciso de um código ou códigos que altere os nomes de planilhas a partir células endereçadas numa lista de uma planilha, onde terei uma lista cadastrada de equipamentos. Conforme a imagem exemplo: Planilha1, será a planilha de cadastro em linhas Planilha2 será renomeada pela célula B3 Planilha3 será renomeada pela célula B4 Planilha4 será renomeada pela célula B5 e assim sucessivamente quantas planilhas foram necessárias ao arquivo ao longo do ano, a princípio terá 35 pode aumentar no ano seguinte. A Planilha1, será uma guia de Menu Principal do aplicativo, se puder ajudar, estou reiniciando em VBA depois de uns anos rsrs.