MarcosCFS,
Boa Tarde!
Vamos ver se entendi o que você quer...
Você quer que no valor que já existe na coluna A seja adicionada o valor que se encontra na coluna D. É isso mesmo?
Porque não utiliza a função CONCATENAR?
Obrigado pela atenção, Wagner, mas o valor na coluna A é o código do item, e o da coluna D é a quantidade disponível. Minha ideia é adicionar uma determinada quantidade (variável), à coluna D, alterando a quantidade disponível.
De qualquer forma, vai o joinha pela pelo interesse!
Se entendi, veja se este código lhe atende:
Sub Atualizar_Quantidade()
Dim sISBN As String
Dim iQtd As Variant
Dim sAddress As String
sAddress = Selection.address
sISBN = Application.InputBox("Digite o ISBN desejado:")
If CStr(sISBN) = "Falso" Or CStr(sISBN) = "False" Then
Exit Sub
End If
On Error GoTo erro
Columns("A:A").Select
Selection.Find(What:=sISBN, After:=Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 3).Activate
iQtd = Application.InputBox("Digite a quantidade a ser adicionada:")
Do Until IsNumeric(iQtd) = True
MsgBox "Valor inválido!", vbCritical
iQtd = Application.InputBox("Digite a quantidade a ser adicionada:")
If CStr(iQtd) = "Falso" Or CStr(iQtd) = "False" Then
Exit Sub
End If
Loop
ActiveCell.Value = ActiveCell.Value + iQtd
Exit Sub
erro:
MsgBox "ISBN não localizado!", vbCritical
Range(sAddress).Activate
Exit Sub
End Sub
Cara, faz uns 2 meses que to agarrado nisso. Me salvou demais! Muitíssimo obrigado!
Postado : 23/06/2015 2:22 pm