Pessoal, gostaria de algumas dicas e sugestões quanto a formula abaixo.
Eu fiz uma formula para puxar os valores de uma célula e colocar em outra célula, no entanto, ao puxar valores arredondados o VBA informa um valor como formato errado.
Exemplo:
o valor de uma célula é 15,46666 e o VBA informa na outra célula 154.666,60.
Segue a formula utilizada:
Código: Selecionar todos
Dim Prazo As String
Dim Preço As String
Dim Minimo As String
Sub Dados()
ActiveSheet.Unprotect "123"
Worksheets("Consulta").Range("B13").ClearContents
Worksheets("Consulta").Range("C13").ClearContents
Worksheets("Consulta").Range("D13").ClearContents
Prazo = Planilha2.Cells(21, 11).Value
Range("Consulta!B13").Value = Prazo
On Error GoTo error
Preço = Planilha2.Cells(21, 10).Value
Range("Consulta!C13").Value = Preço
Preço = Format("#,##0.00")
Minimo = Planilha2.Cells(21, 12).Value
Range("Consulta!D13").Value = Minimo
Sheets("Consulta").Protect "123"
Exit Sub
error:
MsgBox "Erro! Por gentileza, preencher os dados corretamente!"
End Sub
