Daniel R Beneton
Membros-
Total de itens
5 -
Registro em
-
Última visita
Sobre Daniel R Beneton
Daniel R Beneton's Achievements
0
Reputação
-
Adicionar nova linha em um intervalo
pergunta respondeu ao arthur.andrade96 de Daniel R Beneton em VBA
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 -
erro de definição de aplicativo ou de definição de objeto
pergunta respondeu ao davidc de Daniel R Beneton em VBA
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 -
Junior, teoricamente esse problema é simples resolver... poderia enviar o arquivo para facilitar o entendimento?
-
MACRO PARA GERAR IMPRESSÃO DINAMICAMENTE!
pergunta respondeu ao flaviosea de Daniel R Beneton em VBA
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? -
Declarar uma matriz bidimensional como tamanho indefinido
pergunta respondeu ao Paulo Vinícius de Daniel R Beneton em VBA
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