Preciso colar uma formula em outra aba com vba, mas ela só vai como texto
Enviado: 26 Abr 2021 às 23:43
Oi,
Tenho um código VBA que cola toda uma série de valores de um determinado intervalo na última linha de outra aba.
Dentro desse intervalo eu tenho um PROCV dentro dela que é pra ser colado exatamente a formula, até porque ela só funciona na aba final.
O código é esse:
Tenho um código VBA que cola toda uma série de valores de um determinado intervalo na última linha de outra aba.
Dentro desse intervalo eu tenho um PROCV dentro dela que é pra ser colado exatamente a formula, até porque ela só funciona na aba final.
O código é esse:
Código: Selecionar todos
E a formula, é essa:Sub Nova_Doacao()
Dim resposta As Integer
'Faz nova doação
If Sheets("Doar").Range("B3") = "" Then
MsgBox "Por favor preecha todos os campos", vbExclamation, "Doação não efetuada"
Exit Sub
End If
If Sheets("Doar").Range("D3") = "" Then
MsgBox "Por favor preecha todos os campos", vbExclamation, "Doação não efetuada"
Exit Sub
End If
If Sheets("Doar").Range("E3") = "" Then
MsgBox "Por favor preecha todos os campos", vbExclamation, "Doação não efetuada"
Exit Sub
End If
If Sheets("Doar").Range("F3") = "" Then
MsgBox "Por favor preecha todos os campos", vbExclamation, "Doação não efetuada"
Exit Sub
End If
resposta = MsgBox("Você tem certeza que todas as informações estão corretas? Lembre que elas não poderão ser alteradas após a doação.", vbYesNo + vbQuestion, "Cuidado!")
If resposta = vbYes Then
Sheets("Doar").Range("A3:F3").Copy
Sheets("Bco_Doacoes").Select
Call LinhaVazia
Selection.PasteSpecial Paste:=xlPasteValues
Selection.End(xlUp).Select
Sheets("Doar").Select
Range("B2,D2:F2").ClearContents
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
MsgBox "Doação realizada com sucesso!", vbInformation, ""
Else
'Não faça nada
End If
End SubCódigo: Selecionar todos
Já tentei a formula TEXTO, mas sem sucesso. Como posso fazer pra contornar essa situação, por favor?=PROCV([@Matrícula];Padrinhos;2;0)