Verificar antes de copiar

2024 - VBA & Macros

Post Recente por babdallas 7 anos atrás

3 Posts

3 Usuários

0 Reactions

1,110 Visualizações

RSS

gvilioni

(@gvilioni)

Posts: 8

Active Member

Topic starter

Boa tarde,

Preciso de uma macro que possa verificar a informação antes de executar uma colagem:

Ex: Exemplo antes de colar o conteúdo da célula A1 na célula B10 verificar se dentro do campo de B1:B9 não existe nenhuma célula com valor igual a célula A1.
Se existir, exibir mensagem "repetição"

Postado : 20/12/2017 10:54 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Na falta de maiores detalhes de como será feita tal operação, se atraves de digitação antes em A1 ou se é um valor que ja consta procedente de alguma formula ou importação, segue as instruções bem básicas para verificar se o valor de A1 já consta no Range B1:B9.

Sub Verifica_Valor()

    Dim sRg_A1
    Dim sRG_B1_B9 As Range
    
    sRg_A1 = Range("A1").Value
    
    Set sRG_B1_B9 = Range("B1:B9")
    
    For Each x In sRG_B1_B9
        
        If x = sRg_A1 Then
            MsgBox "Valor : " & sRg_A1 & " repetido em " & x.Address(0, 0)
            Exit Sub
        End If
        
    Next

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 20/12/2017 12:34 pm