janiosba - Clube do Hardware
Sobre janiosba
Data de Nascimento 03-01-1960 (59 anos)
Excel Localizar valores e copiar pra outra planilha
janiosba respondeu ao tópico de janiosba em Microsoft Office
Boa noite a todos, Estou terminando este trabalho e realmente preciso melhorar este procedimento. Se alguém tem maior conhecimento e poder me ajudar. Grato Janio
Osvaldo O que faço hoje é repetir este código lá no script do vba. Confesso que acho meio ridiculo. Por isso gostaria de melhorar a sua aplicação. Não uso muito o filtro avançado. Creio que pode ser uma solução. Ainda, se alguém puder melhorar este código, agradeço. Janio
janiosba começou a seguir VBA apresentando erro no excel 2007, Localizar valores e copiar pra outra planilha, Formatação personalizada de valores e e 1 outro 13 de junho
janiosba postou um tópico em Microsoft Office
Prezados, Parte do código que estou usando abaixo é usado para comparar se na coluna "S" da Planilha chamada "Transpor" tem valores iguais a célula "A2" da planilha "Extrair". Logo a seguir copia estes valores para a Planilha "Extrair" Gostaria de incrementar este código para comparar não só com a célula "A2" e sim com os valores que estivessem nas células "A2;B2;C2;D2;E2". Caso encontre valores iguais, fazer a copia para a outra planilha chamada "Extrair" Em tempo. Esta pesquisa pode ser efetuada nas colunas, além da "S", nas colunas "V" e "Z" da planilha chamada "Transpor". With Sheets("transpor") For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row If .Range("S" & i) = Sheets("EXTRAIR").Range("A2") Then Sheets("EXTRAIR").Range("A" & j) = .Range("A" & i) Sheets("EXTRAIR").Range("B" & j) = .Range("B" & i) Sheets("EXTRAIR").Range("c" & j) = .Range("s" & i) Sheets("EXTRAIR").Range("d" & j) = .Range("R" & i) Sheets("EXTRAIR").Range("e" & j) = .Range("T" & i) j = j + 1 End If Next i Agradeço. Obs.: o código acima foi extraído da internet.
Edson, Não temos como lembrar de tudo. Hehe. Vou olhar amanhã. Com certeza é isto que estava precisando. Muito obrigado. Valeu...... Janiosba
Edson, Agradeço o empenho em ajudar Grato. Janiosba
Edson Está planilha é usada o dia todo e enorme digitação de dados. Da forma como expressei na abertura do tópico o ganho será imenso, porque muita desta digitacão são de valores abaixo de 10. Assim, ao digitar 2 ou 3 .....irá assumir 0,20 e 0,30. Agradeço muito a sua disposição em ajudar. Valeu tela dica. Janiosba
Olá a todos, Estou tentando personalizar uma formatação de valores em uma célula do Excel. Dúvida em como fazer: Ao digitar 10 o valor da célula será 0,10 e em caso de digitar 10, o valor será 10,00 A diferença será a digitação da vírgula após o número. Ex: digitar 20 a célula assume 0,20 digitar 50, a célula assume 50,00 Desde já agradeço Janiosba
Excel Desconto em percentual e valor
adicionado 4 minutos depois Ppeterk, Muito obrigado. Sensacional o raciocínio pra solução do problema. Não estava encontrando nada a respeito. Depois de pronto parece até simples. Mas, não conseguiria sem sua ajuda. Parabéns. Janiosba
Tenho um arquivo no qual preciso fazer um desconto sobre um valor. Ora este desconto é em percentual, ora o desconto e em valor. Exemplo: célula A1 = R$ 80,00. Na célula A2 quando colocar 10% ele vai apresentar na (célula A3) o valor da célula A1 menos os 10%. Fórmula (célula A3)=(A2*A1/100)-A1. Resultado R$ 72,00 Agora vem a dúvida : Se colocasse na célula A2 o valor de R$ 30,00, como fazer fórmula ou código vba para que Excel entendesse que agora seria a (célula A3)= A1-A2 e apresentasse o resultado R$ 50,00 A B C 1. 80,00 2. 10% 0u 30,00 3. Resultado Agradeço Janiosba
Excel VBA apresentando erro no excel 2007
Até a presente data não resolvi o problema.
Sub copia_imagem() Sheets("copia").Activate Sheets("copia").DrawingObjects.Delete Sheets("modelo").Range("A1:c4").Copy Sheets("copia").Activate Sheets("copia").Pictures.Paste End Sub Este código funciona em treis computadores diferentes com o excel 2010 e 2016. Abria sempre em um outro computador com o excel 2007. Agora apresenta erro e manda depurar parando no comando: Sheets("copia").Pictures.Paste. Poderiam ajudar a entender o que ocorre e acertar o problema. Obrigado att Janiosba
[Resolvido] Samsung BR-5702 - Entrada de voz não funciona, não me ouvem
janiosba respondeu ao tópico de janiosba em Smartphones e apps
Grato, Janio
janiosba postou um tópico em Smartphones e apps
Prezados, Comprei um aparelho samsung br5702 e todo mundo está reclamando que não ouve o que estou falando. Alguém sabe como resolver este problema. Janiosba