DESCOBRIR SE INPUT E IGUAL A ALGUMA CELULA

LUCASMENDES 17/08/2011 21:32:35
#381935
Pessoal gostaria de saber se tem como eu colocar um inputbox com a seguuinte caixa de mensagem: Digite um número.
e se o numero que eu digitei estiver digitado em uma determinada célula de uma planilha. Então aparecer um Msgbox dizendo que o numero já é existente naquela célula.

Desde de agora eu agradeço!!!

PS
LUCASMENDES 18/08/2011 10:08:18
#381956
Legal, mais como eu faço para checar se este numero já esta em alguma planilha, e aparecer um Msgbox informando que o numero
já é existe.

Desde de agora agradeço a resposta!!!!!!!!!!
FILMAN 18/08/2011 12:42:12
#381967
Você programando dentro do EXCEL então vê se te ajuda


Private Sub CmdBusca_Click()

Dim FimPlan As String
Dim Consulta
Dim SCodPlan As String
Dim SCod As String
Dim WSCod As Worksheet
Dim Localizou As Boolean

[ô]SCod recebe o valor do InputBOX
SCod = InputBox [Ô]Digite um número![Ô], [Ô]Buscar Numero[Ô]

If CmdBusca.Caption = [Ô]Buscar[Ô] Then

    If SCod <> [Ô][Ô] Then

         [ô]Aqui você indica o nome da ABA que vai ser realizada a pesquisa
        Set WSCod = Sheets([Ô]Figura[Ô])

        [ô]Consulta Dados
        WSCod.Activate

         [ô]Aqui você indica até qual linha você quer que a busca seja feita
        FimPlan = Range([Ô]D20000[Ô]).End(xlUp).Row
        
        [ô]O for começa na linha que deseja até o limite que foi dado a variável FimPlan no meu caso na linha 3
        For Consulta = 3 To FimPlan
            With WSCod
                SCodPlan = .Cells(Consulta, 4).Value
            
                If SCod = SCodPlan Then
                    Msgbox [Ô]O numero que você indicou ja existe! E foi encontrado na linha: [Ô] & Consulta & [Ô]. Indique outro numero[Ô]
                    Exit Sub
                Else
                    MsgBox [Ô]Não existe figura[Ô]
                    Exit Sub
                End If

            End With
        Next
           
    Else
        MsgBox [Ô]Favor informar um valor para ser localizado[Ô]
        SCod = InputBox [Ô]Digite um número![Ô], [Ô]Buscar Numero[Ô]
    End If
End If

End Sub
LUCASMENDES 27/08/2011 20:18:47
#382650
Como transpostar uma linha inteira se alguma célula da mesma, estiver colorida ou tiver algum numero.

Desde de já agradeço a resposta
FILMAN 27/08/2011 20:47:59
#382652
Caro colega seja mais claro sobre o que você quer
Verificar se existe cor na celula

Public Function CountColors(rng As Range, color As Integer) As Integer 
Dim rg As Range 
Dim x As Integer
[ô] Valor inicial 
CountColors = 0
    [ô] Ciclo que irá percorrer todas as células definidas 
    For Each rg In rng   
      [ô] Caso a cor interior (background) seja a escolhida 
      If rg.Interior.ColorIndex = color Then
           [ô] Incrementa o contador 
           x = x + 1          
      End If
    Next
    [ô] Define que a função (valor a retornar) tem o valor de x 
    CountColors = x 
End Function


Fonte: http://www.jorgepaulino.com/2008/04/excel-contar-cores-das-clula.html


Ve se é mais ou menos isso que você quer
Tópico encerrado , respostas não são mais permitidas
Voltar