Descricao: |
Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funcoes
 Esse macro do aplicativo Microsoft excel VBA, chamado por um Evento_Change da folha de planilha, isto é, ao escrever 'digitar', na folha de planilha em coluna determinada pelo procedimento, acumula os valores em variavel e retorna para célula (C3) somando automaticamente ao digitar.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([c4:c500], Target) Is Nothing And Target.Count = 1 Then somar_questao_1 End If End Sub
Sub sbx_somar_questao_1() Dim i As Long Dim tSoma As Double 'se houver decimais
For i = 4 To Plan1.Cells(Rows.Count, "c").End(xlUp).Row tSoma = tSoma + Cells(i, "c").Value Next i
Cells(3, 3).Value = tSoma End Sub
'//============= SEGUNDA QUESTÃO ===============' Esse macro responde a sua segunda questão que Deleta a linha da célula ativa, e insere um contador, mantendo-o na forma original.
Sub sbx_deletar_linhas_questao_2() Dim i As Long 'deletar linhas da célula ativa 'msgbox pergunta x = MsgBox("Deseja deletar a linha celula da ativa " & ActiveCell.Address & " ?", vbYesNo, "titulo qualquer") If x = 6 Then ' 6 = sim ActiveCell.EntireRow.Delete End If 'contador para repor o contador For i = 5 To 50 Cells(i, "c").Value = (i - 4) Next i
End Sub
 Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Baixe o exemplo de planilha contendo os macros e procedimento acima:
|