mario2495

Olá a todos,

O desafio que venho tentando solucionar se trata da seguinte situação, eu queria desenvolver uma planilha para realizar consultas de equipamentos, por exemplo:

lista suspensa 1 : eletrônico ( soft, inversor,...);

Caso seleciona 'soft' a lista suspensa 2 mostra os modelos "modelo soft A, modelo soft B,modelo soft C...", caso seleciona 'Inversor' a lista suspensa 2 mostra "modelo inversor A, modelo inversor B, modelo inversor C...";

Ao selecionar o modelo uma outra lista suspensa 3 chamada de potencia vai pedir para eu entrar com uma potencia em kW(essa lista é a de tamanho maior);

Ao selecionar uma potencia, ela irá automaticamente mostrar uma série de equipamentos pré definidos para aquela potencia (2 linhas e 8 colunas).

Essa planilha tem a finalidade de facilitar consultas de equipamentos de proteção de um sistema elétrico, ao invés de sempre estar lendo inúmeros catálogos toda vez que preciso consultar eu vou la e coloco toda informação necessária do catálogo no Excel (vai dar trabalho, pois irei inserir as informações do catálogo manualmente um a um). Ou seja, quero juntar VÁRIOS catálogos de equipamentos dos fabricantes em uma só pasta de trabalho.

por favor, entrem em contato caso exista dúvidas. Desde já agradeço a atenção.

vou anexar a planilha que comecei a fazer, ainda faltam vario dados a serem inseridos.

Recomendações de proteção.xlsx

Bom dia @osvaldomp

Eu coloquei mais uma coluna com o título "Responsável" porém dei uma mexidinha aqui no código e não consigo fazer os dados dessa coluna serem transferido. Pode me ajudar novamente com isso ?

obrigado.

Consegui resolver. Acrescentei uma nova linha e mudei alguns parâmetros.

O código ficou assim

--------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Columns("F:K")) Is Nothing Then
  If Target.Interior.ColorIndex = 43 Then Target.Interior.ColorIndex = xlNone Else Target.Interior.ColorIndex = 43
   Cancel = True
  ElseIf Target.Column < 16 And Target.Value <> "" Then
   Cells(Target.Row, 6).Resize(, 6).Interior.ColorIndex = xlNone
   Cells(Target.Row, 1).Resize(, 5).Cut Sheets("atualizações ja realizadas").Cells(Rows.Count, 1).End(3)(2)
   Cells(Target.Row, 12).Cut Sheets("atualizações ja realizadas").Cells(Rows.Count, 1).End(3)(1, 6)
   Cells(Target.Row, 13).Cut Sheets("atualizações ja realizadas").Cells(Rows.Count, 1).End(3)(1, 7)
   Cancel = True
  End If
End Sub
----------------------------------

Valeu!

@osvaldomp Eu o parabenizo pelo trabalho, é exatamente o que eu precisava. Sem contar que a planilhas esta muito mais leve e dinâmica. Mais uma vez Obrigado. Precisando estou à disposição.

Obrigado Osvaldo, são informações importantes que me tem passado. Aqui vai o arquivo sem os botões.

Não sou muito experiente, então qualquer sugestão que puder me dar ficarei muito feliz.

Inclusive ja estou estudando outras possibilidades. Tambem achei má ideia esses botões 

ALTERAÇÕES de DADOS.rar 

Mandei anexado em arquivo rar. o documento.

ALTERAÇÕES de DADOS.rar

Obrigado pela resposta Osvaldo. O arquivo continua o mesmo mas em planilhas diferentes tipo Usual (Plan1) e a de consultas (Plan2) no messo arquivo chamado "Atualizações.xml", A questão é somente organizacional com intenção de tornar mais prático e menos poluído a planilha é uma atualização que fazemos ao mesmo tempo de algumas outras atividades e por isso deixamos muitas vezes passar batido alguma atualização por falta de atenção, e para contornar isso estou tentando deixa-la mais simples e ágio de atualizar e armazenar algum evento. Vou anexar um exemplo da planilha, o intuito é deixar o mais prático possível fazendo o uso de botões virtuais e amenizando uso de teclas. Quando concluo uma atividade eu pressiono e botão fica verde, quando finalizada eu recorto a linha em "COPIAR" e transfiro em uma lista de eventos "Transferir". O código que busco ajuda faria a tarefa de analisar a ultima linha vazia da lista e inserir os dados recortados nela, fazendo a planilha 2 somente para eventuais consultas.

Depende bem do tipo de jogos ou programas que você ira rodar nele, meu notebook tem uma placa desse tipo e eu acho muito boa, roda com gráficos Médio o jogo FarCry Primal por exemplo. por ser  de notebook o desempenho é um pouco menor por conta do aquecimento, placas com coolers próprios  e potentes tem desempenhos melhores. não se esqueça de verificar se sua placa-mãe é compatível também.

Boa tarde Pessoal do Clube do Hardware.

Então, estou com dificuldades em desenvolver uma planilha que recorta dados de uma linha e é colada automaticamente em outra pasta de trabalho. 

A ideia é a seguinte:

A pasta de trabalho 1 é uma pasta de frequentes atualizações e que n pode passar de 10 linhas então criei um botão para cada linha pra recortar cada linha por vez

clicar em um botão que seleciona e recorta uma linha especifica, aqui usei o seguinte código para linha 4.

---------------------

Private Sub recorta_Click()
Range("A4:E4").Select
Selection.Cut
End Sub 

------------------------

O desafio pra mim esta em criar uma espécie de lista de eventos na segunda pasta de trabalho. 

A pasta de trabalho 1 haveria um botão com o papel  "Transferir"  onde assim que clicasse nesse botão ele copiaria essa seleção da pasta de trabalho 1 para a pasta de trabalho 2. Então eu queria fazer um código que fizesse uma verificação de célula vazia e enfileirasse automaticamente criando uma especie  lista de eventos dos dados que atualizei na planilha 1. eu queria abrir a planilha 2 somente quando eu quisesse consultar uma alteração antiga, sendo a planilha 1 a criação de novas possíveis alterações.

Espero que tenham entendido rsrs.

Desde ja agradeço a oportunidade e mostrar meu desafio.

att,