Saberexcel - o site das macros

Proteger as células com formulas com macro método validação dados
Macro do Aplicativo Microsoft Excel VBA, que proteja minhas fórmulas pela Validação de Dados,

Sub Proteger_Formulas()
Range("A1").Select
On Error Resume Next
Selection.SpecialCells(xlCellTypeFormulas, 23).Select

With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=">1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Existe Fórmula - não digite!"
.InputMessage = ""
.ErrorMessage = "Célula com Fórmula está protegida!!"""
.ShowInput = True 'Mude para FALSE para desproteger a células
.ShowError = True 'Mude para FALSE para desproteger a células

End With
End Sub



Aprenda Aplicativo Microsoft Excel VBA(Visual Basic Application) --((SaberExcel))--

Saberexcel - o site das macros
Essas fórmulas e macros do Aplicativo Microsoft Excel VBA, faz um controle de vendas de veículos, usa a Função Procv, para buscar a faixa de juros cobrados por cidade, são quatro cidades, neste exemplo usei options ligados a Função Procv (Procura na Vertical), que buscará os dados desejados e os retornará na folha de planiha na coluna desejada. Esses recursos com certeza o ajudará a montar seu projeto. baixe o exemplo para ajudá-lo. Obrigado a todos. Fiquem com Deus, E_Marcondes.


usada fórmula para concatenar os valores e retornar uma mensagem do resultado:

="Preço do [ "& C23& " ] para cidade de [ "& PROCV(J1;precos;2;FALSO)& " ]" &" Acrescimo de [ " &TEXTO(PROCV(J1;precos;3;FALSO);"00%")&" ]"& " Custo:[ "&TEXTO(C24;"R$ #.###,00")& "] Venda: [ "&TEXTO(C25;"R$ #.###,00")& " ]"








Aprenda Aplicativo Microsoft Excel VBA - SaberExcel

Macro do Aplicativo Microsoft Excel VBA, faz uma soma através do Visual Basic Application, inserindo a fórmula na célula(A1)
sendo a soma de determinado range (A2:A18), e em A1 adicione a soma o Texto "SOMA TOTAL", texto precedido da soma.

Sub Inserir_Formula()
Range("A1").Select
Range("A1").Formula = "=SUM(A2:A18)"
Selection.Formula = " Soma Total = R$ " & Range("A1").Value
End Sub



Aprenda Microsoft Excel VBA --(SaberExcel)--

Macro do Aplicativo Microsoft Excel VBA, faz uma soma através do Visual Basic Application, inserindo a fórmula na célula(A1)
sendo a soma de determinado range (A2:A18), e em A1 adicione a soma o Texto "SOMA TOTAL", texto precedido da soma.

Sub Inserir_Formula()
Range("A1").Select
Range("A1").Formula = "=SUM(A2:A18)"
Selection.Formula = " Soma Total = R$ " & Range("A1").Value
End Sub



Aprenda Microsoft Excel VBA --(SaberExcel)--

Esta macro do Aplicativo Microsoft Excel VBA, seleciona e ou deleta todas as células
com fórmula, somente as células que contenham fórmulas

Sub Seleciona_todas_Celulas_Com_Formulas()
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
'Selection.ClearContents
'Selection.Delete
End Sub

Aprenda Microsoft Excel VBA(Visual Basic Application) --((SaberExcel))--