Visual Basic Worksheet Change modificando o valor digitado VBA Excel

AgnaldoMR · 28 de setembro de 2020

Olá caros colaboradores.

Vocês têm me ajudado muito. Obrigado.

Tenho um problema que não consigo solucionar.

Preciso pegar o valor digitado na célula e modificá-lo automaticamente com base em uma condição, acrescentando à ele o valor de outra célula.

Tentei assim:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    
    'Dim index As Integer
    
    celula = Range("A" & Target.Row)
        
    'For index = 1 To 1
    If Target.Column = 1 Then
        ThisRow = Target.Row
        If Target.Value > 0 Then
            
            'Range("C" & ThisRow).Value = Range("A" & ThisRow).Value
            
            Range("A" & ThisRow).Value = celula & (Range("B" & ThisRow).Value)



            'Range("A" & ThisRow).Value = (Range("C" & ThisRow).Value) & (Range("B" & ThisRow).Value)
            'Range("B" & ThisRow).ClearContents
            'Range("C" & ThisRow).ClearContents
        Else
            Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone
        End If
        'Application.EnableEvents = False
    End If
    'Next
    'Exit sub
End Sub


'As partes comentadas foram tentativas que fiz sem sucesso.

Quando digito 400 na colunaA em uma linha qualquer é acrescentado a unidade KG (da colunaB ) ao valor 400.

O resultado é sempre assim. Um loop:

400KGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKGKG

Preciso muito de uma solução. Muito obrigado.

Midori · 28 de setembro de 2020

@Agnaldo Marlon Rodrigues Se entendi o que está tentando fazer, veja se é isto,

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Texto   As String
    
    If Target.Column = 1 And Target.Value > 0 Then
        Texto = Target & Target.Offset(0, 1)
        Application.EnableEvents = False
        Target = Texto
        Application.EnableEvents = True
    Else
        Target.Offset(0, 1).Interior.ColorIndex = xlColorIndexNone
    End If
End Sub