Jahezer Franciz Capelari

@Israel Rocha Boa noite! Poderia compartilhar mais informações sobre sua dificuldade? Se a dúvida for puramente o comando em VBA para incluir novas linhas em uma planilha, segue: ' Neste caso o sistema selecionará a linha 6 e criará UMA nova (a linha 6 passará a ser a linha 7). Rows("6:6").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' Neste caso o sistema selecionará as linhas 8 à 17 e criará DEZ novas (as linhas 8 à 17 passarão a ser as linhas 18 à 27). Rows("8:17").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

@Luana Jennifer As informações são lançadas na guia Contas a Receber e em alguns casos não entra números (letras, caracteres especiais, ..) ou se entra números, o formato não é reconhecido é isso? Peço por gentileza, que se for possível, adicione uma imagem com essa situação de erro.

@Fabiano Santini Marques Boa noite! Fiz uma adequação no código criando uma variável auxiliar denominada cont que vai de 1 à 4, o sistema verifica se essa variavel é 1 ou 2 e executa cálculo utilizando --, se for 3 ou 4, executa o calculo com ++. Quando o contador chega à 4, inicia novamente e assim vai. Var // Seção de Declarações das variáveis num, x, cont: inteiro y, h: real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... h <- 0 cont <- 1 escreval("Insira um número para calcular sua série: ") leia(x) para num de 2 ate x faca se cont <= 2 entao y <- ((1*num)*(-1)) h <- (h + y) senao y <- ((1*num)*(1)) h <- (h + y) fimse // Valida se chegou a 4 o contador, se sim, reinicia. se cont = 4 entao cont <- 1 senao cont <- cont + 1 fimse escreval(y) fimpara escreval("H = ", h) Fimalgoritmo Demonstração:

@Luana Jennifer Boa noite! Veja se entendi corretamente sua dúvida, ao copiar as informações de uma guia para a outra, alguns dados são perdidos correto? Veja se esse código te ajuda e atende o que precisa Sub teste() Dim linhaatual As Long Dim Ultimalinha As Long Dim W As Worksheet ' vUltimaLinhaHistorico = Guarda a ultima linha da Sheet histórico. Dim vUltimaLinhaHistorico As Long Set W = Sheets("Contas a Receber") Ultimalinha = W.UsedRange.Rows.Count vUltimaLinhaHistorico = Sheets("Historico de Contas recebidas").Range("B" & Rows.Count).End(xlUp).Row + 1 With W .Activate ' Como é removido a linha no final do copia/cola, a estrutura FOR deve ser da ultima linha para a primeira. For linhaatual = Ultimalinha To 1 Step -1 If .Cells(linhaatual, "I") = "pago" Then Sheets("Historico de Contas recebidas").Cells(vUltimaLinhaHistorico, 2) = Format(.Cells(linhaatual, 2), "DD/MM/YYYY") Sheets("Historico de Contas recebidas").Cells(vUltimaLinhaHistorico, 3) = .Cells(linhaatual, 3) Sheets("Historico de Contas recebidas").Cells(vUltimaLinhaHistorico, 4) = .Cells(linhaatual, 4) Sheets("Historico de Contas recebidas").Cells(vUltimaLinhaHistorico, 5) = .Cells(linhaatual, 5) Sheets("Historico de Contas recebidas").Cells(vUltimaLinhaHistorico, 6) = Format(.Cells(linhaatual, 6), "currency") ' Adiciona +1 no contador. vUltimaLinhaHistorico = vUltimaLinhaHistorico + 1 .Rows(linhaatual).Delete Else End If Next linhaatual End With End Sub

@magnosalmeida Bom dia! Tente dessa forma, veja se da certo: Sub GRAFICO() If Sheets("G1").Range("E1").Value = 1 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = True Sheets("P1").Shapes("GRAFMES").Visible = False Sheets("P1").Shapes("GRAFANO").Visible = False Sheets("P1").Shapes("GRAFACUMULADO").Visible = False ElseIf Sheets("G1").Range("E1").Value = 2 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = False Sheets("P1").Shapes("GRAFMES").Visible = True Sheets("P1").Shapes("GRAFANO").Visible = False Sheets("P1").Shapes("GRAFACUMULADO").Visible = False ElseIf Sheets("G1").Range("E1").Value = 3 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = False Sheets("P1").Shapes("GRAFMES").Visible = False Sheets("P1").Shapes("GRAFANO").Visible = True Sheets("P1").Shapes("GRAFACUMULADO").Visible = False ElseIf Sheets("G1").Range("E1").Value = 4 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = False Sheets("P1").Shapes("GRAFMES").Visible = False Sheets("P1").Shapes("GRAFANO").Visible = False Sheets("P1").Shapes("GRAFACUMULADO").Visible = True End If End Sub