Excel VBA - Inserir texto em células

[Narthan]

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

 

[Visitante]

Não entendi o que exatamente você quer colocar em uma célula. Seguem alguns exemplos, veja se aproveita.
 

...

...

   MsgBox " A cidade " & cidade & " aparece " & contador & " vezes." _
    & vbCrLf & "Total foi de: " & Format(soma, "currency"), vbInformation, "INFORMAÇÕES DA CONTAGEM"
   

    [A1] = " A cidade " & cidade & " aparece " & contador & " vezes." _
    & vbCrLf & "Total foi de: " & Format(soma, "currency")
    [A2] = cidade
    [A3] = contador
    [A4] = soma


    Else

...

...

 

[Narthan]

 

3 horas atrás, osvaldomp disse:

Não entendi o que exatamente você quer colocar em uma célula. Seguem alguns exemplos, veja se aproveita.
 

...

...

   MsgBox " A cidade " & cidade & " aparece " & contador & " vezes." _
    & vbCrLf & "Total foi de: " & Format(soma, "currency"), vbInformation, "INFORMAÇÕES DA CONTAGEM"
   

    [A1] = " A cidade " & cidade & " aparece " & contador & " vezes." _
    & vbCrLf & "Total foi de: " & Format(soma, "currency")
    [A2] = cidade
    [A3] = contador
    [A4] = soma


    Else

...

...

 

Era exatamente isso amigo. Tão simples e eu desconhecia. Obrigado!