2021 22:36

Tecnologia

bikerman

em 27/05/21 12:09

comentada em 27/05/2021 22:36

Foristas, estou enfrentando um problema a um bom tempo, cujo ainda não consegui resolver.

Vamos lá:

Eu utilizo em código VBA para copiar alguns dados e colar ele no seu local correto. Estando os dados em seus locais corretos eu utilizo a função índice + corresp para buscar alguns dados que preciso. Aqui que começa, a função funciona e está correta, por exemplo:

Eu preciso buscar a NFe X que se refere ao pedido Y. Na primeira vez que usei a formula, foi me retornado o erro #N/D, e fiquei WAT. Testei a mesma função só que agora com dados incluídos numa matriz criada manualmente, e funcionou. WAT (2).

Pensei, se eu colocar o número manual, aonde o código cola, talvez funcione, foi oq eu fiz e funcionou. Ou seja, deve haver algum problema com a função "colar", pois por exemplo: copiei os dados, através do VBA, referente a NFe 1 e que é do pedido 2 e colei no local correto. Ok, não funcionou, vou na celula aonde consta o pedido 2 e dígito 2 e dou ENTER, pronto, agora o índice corresp funciona.

O que faço para não ter que ficar sempre indo e digitando o número e apertando ENTER, basicamente escreve-lo de forma manual?

o código está abaixo:

   With Sheets("ENTRADAS")
      ultlin = 9
      Do While .Cells(ultlin, 5) <> ""
         ultlin = ultlin + 1
      Loop
      .Range("E10:I" & ultlin - 1).Copy
   End With
   Sheets("Entradas").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues '
   Application.CutCopyMode = False?

O mesmo erro apresenta no código abaixo:

    Range("C1:l1").Select
    Selection.Copy
    Windows("Cronograma.xlsm").Activate
    Sheets("Lucro.L").Select
    Range("as100000").Select
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

em ambos os casos o problema é o mesmo, são situações diferentes, mas ambos também usando indice + corresp e só arruma se eu for e colocar o número manual.

Este tópico está nas listas:

Excel - Ferramentas, estudos, cursos

Comentários

Último comentário 1º comentário do autor Só moderadores Só os meus Só quem eu sigo Ordenar por gostei

FabioGama 180º

em 27/05/2021 13:18

Nível no Race: Tá ficando maluco igual o Bastter

ideia 1) Veja se o processo de copiar-colar que vc está usando não traz algum espaço no começo e/ou no final do campo

ideia 2) tenta incorporar na sua macro VBA aquela parte final do comando "texto para colunas" que trata o formato do campo (data MDA, data DMA, texto etc)

Ajuda aí pow!

EXCEL - #1 de 6

bikerman

em 27/05/2021 14:31

@FabioGama não traz nem um espaço. com relação a ideia 2 não consegui fazer
, mas creio que continuaria a mesma coisa. Será que não pode ser algo com o tipo de copiar e colar?

Ajuda aí pow!

EXCEL - #2 de 6

FabioGama 180º

em 27/05/2021 15:13

@bikerman não necessariamente, muitas vezes o Excel importa o campo como sendo "texto" e a partir daí não faz nenhuma conta com o conteúdo, mesmo que sejam só números

Ajuda aí pow!

EXCEL - #3 de 6

bikerman

em 27/05/2021 15:53

@FabioGama consegui resolver o problema utilizando de outras duas funções, fiz uma gambiarra com o somase e cont.se e trouxe o resultado que eu queria. Mas de todo modo, fico intrigado por conta do motivo de índice+corresp ou até mesmo o procv não trazerem esse resultado sendo que não mudei nada, apenas usei outra função.

Parece que o problema está na forma que essas funções de "busca" leem as células, pois como eu disse, não é problema na formula em si, mas na leitura dela.

Agora no segundo código que coloquei tem que ser índice + corresp.

Ajuda aí pow!

EXCEL - #4 de 6

GiganteGuerreiro 180º

em 27/05/2021 17:58

@bikerman o método Copy tem um comportamento meio esquisito mesmo. A melhor opção para copiar valores de uma planilha para outra é fazer isso dentro de loops. No seu primeiro código, tem um loop que conta as linhas - você poderia usar a mesma estrutura para ir passando os valores de uma célula para a outra. Dessa forma, fica mais fácil garantir a tipagem dos valores e evitar esse tipo de erro.

Ajuda aí pow!

EXCEL - #5 de 6

Barto

em 27/05/2021 22:36

Dim ultlin as Long
Dim MyArray as variant
Dim i as long
Dim lastrow as long
dim f as long

With Sheets("ENTRADAS")
      ultlin = .cells(rows.count,1).end(xlup).row
      MyArray = .Range("E10:I" & ultlin)
End With

With Sheets("Entradas")
      lastrow = .cells(rows.count,1).end(xlup).row
      for i = lbound(MyArray) to ubound(MyArray)
         for f = 3 to 7
              .Cells(lastrow,f) = MyArray(i,f)
         next f
         lastrow = lastrow + 1
      next i
End with

Não testei. Veja se output está ok.

Sempre declare variaveis no VBA.

Looping desnecessário nunca é bom. Mesmo estando em Array, dependendo da base toma mto tempo. O melhor para esse tipo de análise seria fazer um SQL.

Aprenda algo sobre conexões ADO no VBA.