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?

1 hora atrás, Muca Costa disse:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Guia As String
    Guia = ActiveSheet.Name
    If Target.Column <> 3 Then Exit Sub
    If Target.Offset(, 0).Value >= 1 Then
    Atualiza
    End If
    Sheets(Guia).Select
End Sub

Tente assim...

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

Em 14/07/2020 às 16:15, Midori disse:

@KaKaBeCuDo Teste desta forma, veja se assim a inserção é feita,

 

Sub InserirLinhaSemana_Teste()
    Dim L   As Long
    
    L = [X:X].Find("REFERÊNCIA").Row
    
    ActiveSheet.Unprotect
    
    Rows(L + 2 & ":" & L + 3).Copy
    Rows(L + 2 & ":" & L + 3).Insert Shift:=xlDown
    Cells(L + 4, 19) = "2ª Parte"
    
    Application.CutCopyMode = xlCut
    ActiveSheet.Protect
End Sub

 

@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...

1 hora atrás, Midori disse:

Inseri um valor na célula T71 da planilha NVMC1, cliquei no botão e não apresentou nenhum erro.

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

43 minutos atrás, Midori disse:

@KaKaBeCuDo O erro acontece em ExcluirLinhaSemana1 quando a célula/linha que tem a REFERÊNCIA X é excluída.

 

Nessa sub o correto não seria "Cells([Z:Z].Find " em vez de "Cells([X:X].Find"?

 

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

3 minutos atrás, Midori disse:

@KaKaBeCuDo É só mudar a atribuição de R para,

 

Set R = Range(Target.Offset(3), Target.Offset(42))

 

PERFEITO!! Muito obrigado

22 minutos atrás, Midori disse:

@KaKaBeCuDo  Cole o código no módulo da planilha,

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim R   As Range
    
    If Target.Row = 1 And Target.Offset(1) <> "" Then
     Set R = Range(Target.Offset(1), Target.End(xlDown))
        R.Sort R, xlAscending
    End If
End Sub

 

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

1 hora atrás, osvaldomp disse:

 

Yes, sir.

 

Sub DuplicaLinhaV2()
 Cells([D:D].Find("REFERÊNCIA").Row + 2, 1).Resize(, 12).Copy
 Cells([D:D].Find("REFERÊNCIA").Row + 3, 1).Insert shift:=xlDown
End Sub

 

Valeu.. Show de Bola!!

8 minutos atrás, osvaldomp disse:

 

Sub DuplicaLinha()
 Cells([D:D].Find("REFERÊNCIA").Row + 2, 1).Resize(, 12).Copy Cells([D:D].Find("REFERÊNCIA").Row + 3, 1)
End Sub

Ótimo, muito obrigado. Mas a ideia era ao copiar a linha, a MACRO "inserir uma nova linha" copiada. É possível?

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