EXCEL

Tecnologia
bikerman  
em 27/05/21 12:09
Este tópico está nas listas:

Comentários

Último comentário 1º comentário do autor Só moderadores Só quem eu sigo Ordenar por gostei
FabioGama  
em 27/05/2021 13:18
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)
; 0; ; 0;
0 '; 0';
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?
; 0; ; 0;
0 '; 0';
EXCEL - #2 de 6
FabioGama  
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
; 0; ; 0;
0 '; 0';
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.
; 2; ; 0;
0 '; 0';
EXCEL - #4 de 6
GiganteGuerreiro  
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.
; 1; ; 0;
0 '; 0';
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.
; 1; ; 0;
0 '; 0';
EXCEL - #6 de 6

Notificar 1º comentário 1º comentário do autor Só moderadores Só quem eu sigo Ordenar por gostei

Você está em Tecnologia > EXCEL
por bikerman em 27/05/2021 12:09

4 usuários comentaram este tópico.
Clique para ir para o primeiro comentário do usuário.

Ações Pesquisa Videos Livros Análise de Carteira Desconto FAQs Orientação Esportiva Ofertas e Serviços Bastter System Boletim IR Podcasts Revista Tecnologia - Ajuda Eu Assinar Ações Pesquisa Videos Livros Análise de Carteira Desconto FAQs Ofertas e Serviços Orientação Esportiva Boletim BS Podcasts IR Tecnologia Ajuda eu Revista Assinar Assinar

BastterZap