Boa noite!
Iniciando em VBA e pretendo aprofundar bastante.
Problema:
Nao consigo exibir o resultado obtido após os cálculos em uma célula, apenas em uma Msgbox().
CÓDIGO
MsgBox " A cidade " & cidade & " aparece " & contador & " vezes." _
& vbCrLf & "Total foi de: " & Format(soma, "currency"), vbInformation, "INFORMAÇÕES DA CONTAGEM"
Tentei declarar uma variável e fazer essa variável receber o resultado mas da erro ou da 1
Tentei por Range().Value = CODIGO e tambem não deu.
Vou deixar o código abaixo para analisar o que pode ser feito. As linhas acima estão no fim do código.
Poderiam me dar essa dica?
Lembrando que desconheço recursos avançados, caso ensinem por métodos avançados por favor explique o que o comando está fazendo para facilitar a compreensão.
Sub cor()
Dim cidade As String
Dim contador As Integer
Dim soma As Double
Dim resultado As String
Application.ScreenUpdating = False
Range("b3").Select
cidade = InputBox("cidade")
Range(ActiveCell.Offset(0, -1), ActiveCell.End(xlDown).End(xlToRight)).Interior.ColorIndex = 35
Do While ActiveCell <> ""
If UCase(ActiveCell) = UCase(cidade) Then
Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, 1)).Interior.ColorIndex = 10
soma = soma + ActiveCell.Offset(0, 1)
contador = contador + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
If contador > 0 Then
' EXIBIR O CÓDIGO ABAIXO EM UMA CÉLULA E NÃO EM UMA MSGBOX
MsgBox " A cidade " & cidade & " aparece " & contador & " vezes." _
& vbCrLf & "Total foi de: " & Format(soma, "currency"), vbInformation, "INFORMAÇÕES DA CONTAGEM"
Else
MsgBox "Cidade não encontrada", vbCritical, "ATENÇÃO"
End If
End Sub