Ir ao conteúdo
  • Cadastre-se

Caio Rodrigues Almeida

Membros Juniores
  • Total de itens

    13
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. @Paulo Guerino Como não achei nada, eu até desisti, mas é uma pena, porque o software ficou melhor, o antigo está ultrapassado
  2. @olliver.soul Muito obrigado novamente, hora que tiver um tempinho vou atualizar, mas só de ter tirado os loops da planilha controle, já melhorou muito a velocidade da macro.
  3. @Paulo Guerino A solução que eu achei para meu problema foi voltar para a versão anterior, já que não achei nada na internet!
  4. @olliver.soul Fala ae pessoal! Consegui pegar a planilha para atualizar, só estou com uma dúvida, como sou meio leigo, estou com dificuldade para mudar o argumento da função na planilha Solicitação, aparece a msg de erro que o objeto é obrigatório.
  5. @olliver.soul vou testar aqui e retorno. Na vdd vou tentar dar uma otimizada, ficou uma macro muito extensa e pesada, vou tentar aplicar o que você me mandou primeiramente, se continuar pesada vou inventar outra maneira de fazer o que eu quero, tem muito copia e cola, talvez dê para copiar uma quantidade maior de linhas. Muito obrigado pela atenção!
  6. @olliver.soul Cara, não sei porque, mas não consegui aplicar, não deu erro, mas não funcionou, você chegou testar na planilha mesmo?
  7. @Eder Neumann Pode deixar, hora que eu tiver um tempinho aqui no trabalho vou editar essa macro
  8. @olliver.soul Muito obrigado, vou tentar aplicar, acredito que essa sequência de loops que eu criei que faz travar, o código ficou muito pesado!
  9. Olá pessoal! Preciso da ajuda de quem manja de VBA, fiz uma planilha para solicitar material do estoque, basicamente ela funciona assim: Eu busco um item, coloco a quantidade no campo e aperto um botão de lançar, o que ele faz! Copia e cola numa tabelinha abaixo e cola também em outra aba denominada de "controle", que copia sequencialmente nas duas, usei para isso basicamente esse código: If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell = "" ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _ :False, Transpose:=False Application.CutCopyMode = False Qual é o problema, toda vez que aperto o botão "Lançar", faz td que a macro é para fazer mesmo, cola um abaixo do outro, só que para isso, demora muito, na hora que vai colar, da impressão que a célula percorre a coluna inteira antes de colar. Abaixo segue o código completo da macro e também o link da planilha que eu uso pra quem quiser ver na prática como funciona, gostaria de saber se tem como melhorar esse código pra ser um pouco mais instantâneo copiar e colar. https://drive.google.com/open?id=17yE4788TZbusJZtp1yMdRh6D_afYlJ-G Sub Lançar() Range("G4").Select Selection.Copy Sheets("CONTROLE").Select Range("B4").Select Do If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell = "" Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("SOLICITAÇÃO").Select Range("B5").Select Application.CutCopyMode = False Selection.Copy Range("B7").Select Do If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell = "" ActiveSheet.Paste Sheets("CONTROLE").Select Range("C4").Select Do If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell = "" Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("SOLICITAÇÃO").Select Range("D5").Select Application.CutCopyMode = False Selection.Copy Range("D7").Select Do If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell = "" ActiveSheet.Paste Sheets("CONTROLE").Select Range("E4").Select Do If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell = "" Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("SOLICITAÇÃO").Select Range("D5").Select Application.CutCopyMode = False Selection.ClearContents Range("B5").Select Selection.ClearContents Desde já agradeço!
  10. Dê uma olhada nesse tópico: https://www.clubedohardware.com.br/forums/topic/931661-resolvido-macro-para-copiar-e-colar-de-forma-sequencial/
  11. E o seguinte galera, eu atualizei o software da impressora de etiquetas Zebra TLP 2844, nessa nova versão, ao colocar a numeração do código de barras, no formato EAN-14 OU DAN-14, aparece um "01" entre parenteses e não achei em configuração nenhuma como retirar e quando passa o leitor esse numero aparece também, já pesquisei em vários lugares mas não acho, o engraçado é que na versão antiga do software não aparece esse "prefixo", porém não acho a versão antiga pra baixar! Se alguém puder ajudar, eu agradeço a atenção!
  12. No máximo mil reais, meu notebook roda no mínimo de boa até, e não tem metade dessas configurações, por isso achei que esse aguentaria pelo menos um pouco mais. Qual configurações você me sugere sem gastar tanto, porque eu teria o investimento do volante também pra deixar a jogabilidade mais interessante. Desde já agradeço!
  13. Fala ae pessoal, gostaria de saber se essas configurações são suficientes para rodar o ETS2 na qualidade alta? Placa de video: Geforce 9800gt Memoria ram: 4gb HD: 320GB placa-mãe: ASUS P8H61-M LX3 R2.0 Processador: Intel Pentium CPU G2030 3GHz Fonte: Duex DX 500w FSE Não manjo de hardware, queria pegar um PC com essas configurações pra rodar o jogo pelo menos na qualidade alta. Obrigado pela atenção!

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