Ir ao conteúdo
  • Cadastre-se
Narthan

Excel VBA - Inserir texto em células

Recommended Posts

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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

...

...

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×