Código feito em Visual Macro
Private Sub btn_somar_Click()
Dim soma As Long
'Carregando na mesma proporção
Me.pg_status.Min = 2
Me.pg_staus.Max = 31
For cont = 2 To 31
Me.pg_status.Value = cont 'irá acompanhar o progresso
soma = Plan1.Cells(cont, 1) + Plan1.Cells(cont, 2)
'Lançando os dados na planilha da coluna C
Plan1.Cells(cont, 3).Value = soma
Next
MsgBox "OPERAÇÃO REALIZADA"
End Sub
Nenhum comentário:
Postar um comentário