KaKaBeCuDo

Justamente para colaborar com a comunidade, participo há muitos anos do Insider Preview. Porém, nunca tive problema igual a esse! O SSD M2 do notebook está funcionando, testei no meu desktop. também coloquei o SSD M2 do Desktop no notebook e reconheceu na BIOS. O problema está no reconhecimento do SSD do Notebook no próprio Notebook. também já tentei restaurar a BIOS para padrão de fábrica, mas nadaaaa

Ninguém???

Olá Bom Dia!! Tenho um Notebook Dell G3 3590, que possui um SSD M2 de 120gb + 1Tb HD. Anualmente ele está rodando a versão W10 Insider Preview. Essa noite eu estava utilizando ele - Aplicativo Zoom aberto em duas telas, WhatsApp estavam abertos, e quando fui abrir uma foto pelo Aplicativo Fotos nativo do Win10 apareceu tela verde de erro, dizendo que o Win10 Preview encontrou um erro e o dispositivo seria reiniciado. Até então OK, por que isso já aconteceu anteriormente. Porém, dessa vez ao reiniciar o Notebook já não encontrou o arquivo de Boot. Então reiniciei novamente e entrei na BIOS, e me deparei com o fato de que o SSD não estava reconhecido. Tentei utilzar um pendrive bootavel do Win10 e realmente confirmei que não constava mais o SSD. Abri o notebook, removi o cabo da bateria, removi o SSD. Esperei 5 min. Coloquei SSD, reconectei bateria. Mas nadaaaa.... Fiz os seguintes testes: 1) Coloquei o SSD do notebook no meu desktop e reconheceu normal 2) Coloquei o SSD do meu desktop no notebook e ele reconheceu na BIOS também Resultado: não consigo mais utilizar o Notebook ;( Alguém consegue me ajudar???? Por favor!!

@Midori Nenhuma ideia do que possa causar esse erro de depuração? Muito estranho..... Acontece com você também? Utilizando o arquivo que te mandei no último post?

Perfeito Show de Bola!! Muito obrigado mais uma vez

@Muca Costa MUUUITO BOM.... ficou excelente! Só uma outra coisa, eu percebi que ao final da rotina ele vai para a guia TEMAS e termina lá. Suponhamos que eu faça a inclusão do número na coluna C da planilha 2021 (mas eu tenha outras guias - 2019,2020, 2022). Existe a possibilidade de eu executar a ação em uma dessas guias e a rotina finalizar na mesma guia que estou adicionando o número? Tipo para o usuário nem perceber a rotina, sabe?

Olá Boa Tarde!! No arquivo em anexo, na guia "2021" coluna "C" eu consigo escolher um número. Se eu escolher o número 4 (por exemplo), ele fica indisponível para nova escolha. Essa lista de validação de dados está vinculada à guia "TEMAS" coluna "B". O que eu preciso é : uma rotina que copie o Range B3:B196 da guia "TEMAS" e cole só valores no Range C3:C196 da própria guia "TEMAS". E que essa rotina rode toda vez que eu escolher um novo número na guia "2021" Obs.: A Coluna B de TEMAS se altera automaticamente toda vez que escolho um número na guia 2021. Obrigado..... TESTE.zip

@Muca Costa Muito Obrigado.... Funcionou!!

@Midori Sim. Na verdade, as células estão na planilha sim, porém estavam com cor da fonte branca (para não aparecer). O erro acontece mesmo com as células nos lugares. O que é muito curioso é o fato da Macro funcionar normalmente antes de alterar qualquer célula. Mas depois de qualquer modificação, apresenta o erro!!! kkkkkk SEM INCLUIR / MODIFICAR NADAQuadro Anúncios - SET_2020.zip ALTERANDO QUALQUER CÉLULA (agora alterei a célula T77)

@Midori A inserção manual sem macro deu certo. Vou te explicar o que fiz para ver se é o caminho correto: -Selecionei a coluna X -Procurar "REFERÊNCIA" -Avancei 1 célula para baixo -Selecionei as duas linhas desejadas e copiei -Inseri a linha copiada com Ctrl+Shift+"+"

@Midori Fiz o procedimento aqui manualmente, e apresentou erro na mesma linha da sub: Selection.Insert Shift:=xlDown

@Midori Bom Dia.... Tem alguma ideia de porque ainda apresenta erro ao preencher a célula T71? Veja o print abaixo...

Bom Dia!! Como faço uma Sub para encontrar a última linha preenchida na Coluna A e duplicar essa linha para a linha abaixo, no caso linha 21?

@Midori , Muito Obrigado! Ficou perfeita a sua sugestão.... Porém, infelizmente o erro ainda continua. Bem estranho! Se as células em CINZA estão vazias, a Macro roda liso. Mas se eu adiciono uma informação, ela apresenta o erro...

Estranho, por que para mim continua aparecendo erro. Vou anexar o print para você dar uma analisada...

adicionado 8 minutos depois Olá @Midori boa tarde!! Acredito que seja "Cells([Z:Z]).Find" mesmo. Poderá perceber que na Célula Z30 temos escrito REFERÊNCIA. Essa célula serve de base para as macros InserirLinhaSemana1 e ExcluirLinhaSemana1. A intenção dessas duas Macros é encontrar a palavra "REFERÊNCIA" na Coluna Z e clonar as linhas +2 e +3 a partir dessa referência. Essas duas novas linhas serão incluídas nas linhas + 4 e + 5 a partir da referência. Na célula X69 temos escrito também REFERÊNCIA - servindo para as outras duas macros desta planilha (InserirLinhaSemana2 e ExcluirLinhaSemana2). Mesmo esquema mencionado acima! ------------------------------------------------------------------------------------------------ Insira qualquer valor em uma célula desbloqueada e tente clicar no Botão "Inserir Parte". Vai apresentar erro na macro

Olá amigos, bom dia!! Nesse arquivo em anexo, os "Botões" Inserir Parte e Excluir Parte apresentam erro na macro quando digitamos algo em qualquer célula desbloqueada. Também o botão Excluir Parte que está na linha 30 ele apaga mais linhas do que o necessário - o objetivo é só apagar 2 linhas caso haja uma "2ª Parte" inserida anteriormente. Se alguém puder me ajudar, fico muito grato!! Quadro Anúncios - SET_2020.zip

PERFEITO!! Muito obrigado

Excelente Midori!! E seu eu quiser classificar *apenas* as linhas de 4 a 43 da coluna que der o duplo clique no nome?

Bom Dia Galera!!! Gostaria de ajuda para uma macro que rode a partir de duplo clique... ao clicar duplo roda sub para classificar em ordem crescente as linhas 2 até 50 (por exemplo). No anexo deixei mais ou menos a ideia a ser executada Teste.xlsx

Bom Dia!! Estou com um problema.... Usando a macro abaixo, ela funciona na primeira vez que abro o arquivo. Mas se apago ou altero qualquer informação (em QUALQUER célula), a macro apresenta erro de automação - o objeto chamado foi desconectado de seus clientes Sub InserirLinhaSemana2() ' ' InserirLinhaSemana2 Macro ' ' ActiveSheet.Unprotect Application.ScreenUpdating = False Range(Cells([X:X].Find("REFERÊNCIA").Row + 2, 1).Resize(, 150), Cells([X:X].Find("REFERÊNCIA").Row + 3, 1).Resize(, 150)).Copy Cells([X:X].Find("REFERÊNCIA").Row + 4, 1).Insert shift:=xlDown Cells([X:X].Find("REFERÊNCIA").Row + 4, 19).Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "2ª Parte" Cells([X:X].Find("REFERÊNCIA").Row + 4, 20).Select Selection.ClearContents Cells([X:X].Find("REFERÊNCIA").Row + 4, 13).Select ActiveCell.FormulaR1C1 = _ "=IFERROR(IF(VLOOKUP(R43C27,Designações!R2C5:R109C19,13,FALSE)="""","""",VLOOKUP(R43C27,Designações!R2C5:R109C19,13,FALSE)),"""")" Cells([X:X].Find("REFERÊNCIA").Row + 4, 20).Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowInsertingColumns:=True, _ AllowInsertingHyperlinks:=True, AllowSorting:=True, AllowFiltering:=True _ , AllowUsingPivotTables:=True Application.CutCopyMode = False End Sub

Valeu.. Show de Bola!!

Boa Tarde Pessoal!! Vejam se conseguem me ajudar.... Gostaria de elaborar uma MACRO para duplicar uma determinada linha baseada na distância dela para uma célula referência. Estou anexando um modelo de arquivo aqui para ficar um pouco mais fácil o entendimento. Não sei se me expressei corretamente, se ficou dúvidas coloquem nos comentários. Teste.xlsx

Booooooaaaa mano você é o caraaa!!! Como falei sou Nutella ainda kkkkk Abraços