Ir ao conteúdo
  • Cadastre-se

janiosba

Membros Juniores
  • Total de itens

    13
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

0

Sobre janiosba

  • Data de Nascimento 03-01-1960 (59 anos)

Informações gerais

  • Cidade e Estado
    cataguases
  1. 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
  2. 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
  3. 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.
  4. Edson, Não temos como lembrar de tudo. Hehe. Vou olhar amanhã. Com certeza é isto que estava precisando. Muito obrigado. Valeu...... Janiosba
  5. Edson, Agradeço o empenho em ajudar Grato. Janiosba
  6. 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
  7. 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
  8. 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
  9. 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
  10. Até a presente data não resolvi o problema.
  11. 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
  12. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!