Ir ao conteúdo
  • Cadastre-se

GabrielSilvaLoki

Membro Júnior
  • Total de itens

    10
  • Registro em

  • Última visita

  • Qualificações

    0%
  1. Resolvido. Utilizei o seguinte código: Dim paginatual As String paginatual = "0" ordem = 1 For contador = 5 To final paginatual = wksDest.Range("B" & contador).Value wksDest.Range("A" & contador).Value = ordem If wksDest.Range("B" & contador + 1).Value <> paginatual Then ordem = 1 Else ordem = ordem + 1 End If Next
  2. Oi, não posso definir páginação padrão. É váriável, já que trabalhará com vários documentos neste formato, mas com quantidades diferentes.
  3. Fiz uma pequena alteração: Dim paginatual As String paginatual = "1" ordem = 1 For contador = 5 To final wksDest.Range("A" & contador).Value = ordem paginatual = wksDest.Range("B" & contador).Value If paginatual <> paginatual Then ordem = 1 Else ordem = ordem + 1 End If Next Ou seja, eu gravo o texto da coluna B5 na variável "paginatual" e vou fazendo o For enquanto a variável de valor for igual. Se for diferente, ele reseta o contador de ordem, caso não, ele continua
  4. Oi, A quantidade de produtos por página é variável... não consigo deixar ela fixa assim.
  5. A planilha Leo, que será salva com outro nome quando a macro é finalizada. O arquivo que contém o código é o nomeado "macro" O arquivo com os valores iniciais é "SP" O arquivo que vão ser inseridos os valores é "leo"
  6. Oi, o codigo está na planilha macro, que quando acionada a macro, irá pedir a planilha SP. Os valores serão todos colados na planilha leo A ordenação irá na coluna A, levando em referência a paginação da coluna B. Obs: todos os arquivos devem estar no mesmo diretório. arquivos_macro.zip
  7. Oi, desculpa! Esqueci da original e a padrão que recebe o paste. Segue. Original é a SP. arquivos.zip
  8. Desculpe! Segue arquivo! Macro.zip
  9. Segue abaixo o código completo da macro: Sub fnc() Dim wkbOrigem As Excel.Workbook Dim wkbOrigem2 As Excel.Workbook Dim wksOrigem As Excel.Worksheet Dim wkbDest As Excel.Workbook Dim wksDest As Excel.Worksheet Dim lngLast As Integer Dim Titulo As Variant Dim Arquivo As Variant Dim ArquivoFinal As Variant Dim codigoficha As String Dim nomeficha As String Dim pagina As String Dim unidade As String Dim Filtro1 As String Dim valorparcela As String Dim numeroparcela As String Dim abelinhaqte As String Dim abelinhapreco As String Dim ordem As Integer
  10. Boa tarde, Preciso de ajuda urgente!! Estou criando uma macro que copia os valores de uma planilha para outra e, em determinado momento, ela copia uma coluna que ontem números de páginas. em outra coluna, preciso númerar cada produto nas páginas, ou seja, pagina 1 terá o produto 1,2,3,n... Página 2 produtos 1,2,n... E assim consecutivamente. Preciso de ajuda para fazer essa numeração automática para cada página. Consegui fazer um For que númera, mas ainda não identifica as páginas, ou seja, está trabalhando com todos os produtos como se fossem de

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!