Ir para conteúdo
Fórum Script Brasil

Daniel R Beneton

Membros
  • Total de itens

    5
  • Registro em

  • Última visita

Sobre Daniel R Beneton

Daniel R Beneton's Achievements

0

Reputação

  1. Segue solução; Não consegui enviar o anexo por aqui... me passa seu email que te encaminho. Option Compare Text Sub adiciona_mes() lin = 6 fim = Range("C" & Rows.Count).End(xlUp).Row mes = Range("H2") Do While lin <= fim If Cells(lin, 3) = "Total" Then Rows(lin).Insert Cells(lin, 3) = mes lin = lin + 1 End If lin = lin + 1 Loop End Sub
  2. David, Tenta atualizar a TD com o código abaixo... se não der certo envia novamente a planilha, esse link está dando erro. ActiveWorkbook.ActiveSheet.PivotTables("nome da tabela dinâmica").PivotCache.Refresh
  3. Junior, teoricamente esse problema é simples resolver... poderia enviar o arquivo para facilitar o entendimento?
  4. só para entender melhor! Quando o valor de algum item ficar zerado, não deverá imprimir esse item? Ex do caso acima da padaria Suspiro... deverá imprimir toda aquela informação (Globo, Dia, Extra, Lance, Expresso) que contem valor e as que estão zeradas não deve aparece. A macro deverá enviar o arquivo para impressão?
  5. Verifica se te ajuda! Qualquer coisa tenta detalhar melhor o problema. Abs Sub matrizbi() 'declarar a matriz e colocar o tamanho da dimensão 'no caso abaixo a matriz tem 3 dimensões Dim matriz(3, 3) As String 'atrelar valor a matriz 'normalmente utilizamos estrutura de loop para inserir os valores 'abaixo sem loop matriz(1, 1) = "Sapato 1" matriz(1, 2) = "Sapato 2" matriz(1, 3) = "Sapato 3" 'segunda dimensão matriz(2, 1) = "Tenis 1" matriz(2, 2) = "Tenis 2" matriz(2, 3) = "Tenis 3" 'terceira dimensão matriz(3, 1) = "Chinelo 1" matriz(3, 2) = "Chinelo 2" matriz(3, 3) = "Chinelo 3" 'inserir o restante do código e referenciar a matriz End Sub
×
×
  • Criar Novo...