SuperBond

Olá, tenho um note Lenovo Z460 há vários anos. Sempre foi um bom note, mas ha algum tempo a imagem passou a ficar embaralhada, o cursor do mouse fica duplicado, aliás fica todos icones ficam duplicados na tela de modo que eu nem sei onde estou clicando. Anexei uma foto e abaixo um link de um video que fiz que mostra a situação. Tirando o problema da tela, ele está normal. https://www.4shared.com/video/oP3eWnZSei/monitor.html

O objetivo dessa macro seria com um clique, separar na coluna G as letras ou numeros, contidos nas colunas D(letras) e E(numeros). Se eu clicar em B9, a macro coloca em G as letras contida em D: A C D E G H Y Se eu clicar em B10, a macro coloca em G os numeros contos em E: 2 1 987 55 67 435 32. Pesquisando achei aplicaçoes, tentei adaptar mas não acontece nada. O codigo que fiz esta abaixo e a planilha: SEQALFANUM.xlsx Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim m As Integer Dim n As Integer For m = 1 To 7 If Target.Address = "$B$9" Then 'CELULA DAS LETRAS Cells(i + 1, 7) = Cells(m, 4): i = i + 1 End If Next m For n = 1 To 7 If Target.Address = "$B$10" Then 'CELULA DOS NUMEROS Cells(i + 1, 7) = Cells(n, 5): i = i + 1 End If Next n End Sub

Sim, claro que atendeu. Desculpe se te fiz perder tempo, apenas esqueci de considerar o detalhe. De qualquer forma, obrigado. Tentarei fazer adaptações aqui.

Obrigado. Usei sua formula, mas ela copia inclusive celulas vazias e não é essa a intenção. Estou tentando pôr uma condição para não copiar celulas vazias. Veja que na figura na coluna U estão celulas intercaladas por vazias. O ideal seria como está na coluna X. Aproveitando, como identifico a outra planilha na formula?

OK Já tenho o Excel 2010. Então vou adquirir o Power Query.

Gostaria de saber como criar uma macro que copie dados de uma planilha para outra, mas una esses dados numa só coluna. Desta forma: Em uma planilha chamada Plan2 estariam os itens de 3 colunas, separados. A quantidade de itens eu controlo digitando a quantidade em uma celula e a macro trabalharia com esse numero de itens. Em uma planilha chamada Plan3, resulta os mesmos itens, só que unidos em uma mesma coluna, conforme a segunda figura.

Ok, obrigado. Eu estava tentando com procv, mas vou usar essa formula.

O objetivo da macro é encontrar indices da coluna PROD RECEB que sejam iguais aos da coluna PROD ALMOX. Encontrando, ele deve marcar 1, na coluna B, na linha correspondente ao indice encontrado. Por exemplo na figura digamos que o 81 e o 240 estejam na PROD RECEB e na PROD ALMOX, então ele marca 1 nas linhas correspondentes. Os errros que acontecem: - na depuração apontava "erro de definição de aplicativo ou de definição de objeto" em cells(m, 1) e em cells(n, 3); - indicava indices que não estão na coluna PROD ALMOX; - só funcionava certo quando a coluna PROD ALMOX tinha menos indices, até uns 20; - agora ele apresenta um erro de compilação que não consigo identificar; Estou mandando a planilha em que a macro é aplicada. ALMOXARIFADO.xlsx Sub indices_almox() Dim m As Long Dim n As Long [T:T].ClearContents Sheets("almox").Activate For m = 2 To 29463 For n = 2 To cells(2, 5) If Cells(m, 1) = Cells(n, 3) Then Cells(m + 1, 2) = "1": m = m + 1 End If Next n Next m End Sub

Boa noite, preciso que os dados na coluna Q apareçam na coluna R, sem duplicatas. Existe o botão remover duplicatas, mas o processo irá se repetir muitas vezes e toma tempo. Preciso de uma fórmula na coluna R que automatize a remoção.

Bom dia, gostaria de evitar o risco de executar uma macro na planilha errada e alterar dados importantes dessa planilha. Por exemplo, a macro a seguir deve ser somente executada na planilha 1, de nome "começo", pois essa planilha já contem os dados certos nas células certas. Essa macro é só um exemplo, não é para funcionar. Se por engano ela for executada na planilha 2 ou 3, irá apagar dados das coluna A, B e C e retornar o resultado tambem na coluna indevida. Gostaria de garantir que a macro seja executada somente na planilha 1. 'ESTA MACRO FORNCE O COMEÇO '****** USAR NA PLANILHA "começo" ****** Sub produto_começo() Dim u As Long, m As Long, j As Long, n As Long, r As Long, t As Long [A:A].ClearContents [B:B].ClearContents [C:C].ClearContents For m = 1 To Cells(1, 2) 'qt M For j = 1 To Cells(2, 2) 'qt N For n = 1 To Cells(3, 2) 'qt H If Cells(m, 13) = Cells(j, 14) Then Cells(u + 2, 16) = FIN: u = u + 1 'coluna J End If Next n Next j Next m End Sub

Já estou resolvendo o problema em VBA, com a ajuda de outro forista. De qualquer forma, obrigado.

Estou usando writeln( d[3], d[4]) e está funcionando sem o Ord. Agora apenas preciso descobrir uma forma correta de aninhar os While not eof, porque são 3 arquivos a trabalhar.

O código deixou de fazer, por exemplo, M8M8R4SX, M8M8R4S0, M84W4W4W, W3M8R4H9, entre outras que são válidas. E fez combinações invalidas, como já vimos. Outra coisa é que, sempre que executa a macro, ele não apaga os resultados anteriores, ele escreve a partir dos anteriores, dando a impressão de que há mais resultados do que deveria, mas isso eu resolvi colocando um ClearContents no início, logo depois do cabeçalho. [L:L].ClearContents

Na verdade o código formou combinações inválidas e me parece que deixou de formar combinações válidas, mas por hoje estou encerrando o trabalho. Vou deixar um print onde tracei a formação da combinação M8M8R4H9, que sim, é válida. A lógica é sempre a mesma.

@Alpheratz Me parece que o código está fazendo combinações inválidas. Conforme mostro em amarelo no print, nas colunas correspondentes do COD3 não tem o par 0UQA e nem R48I, então ele não poderia fazer 4W0UQA e 22R48I. Testei apenas com numeros e também ocorrem combinações inválidas.