Saberexcel o site das macros
Essa macro do Aplicativo microsoft Excel VBA, copia a folha de planilha ativa sem fórmulas e sem os objetos(botoes) para última folha de planilha do Livro.

Option Explicit

Sub Copiar_Planilhas()
Dim SbCelNome As String, SbObjetos As Object
Dim wshPlan As Worksheet
Dim rnCell As Range
Dim i As Integer

Application.ScreenUpdating = False
i = Worksheets.Count
ActiveSheet.Copy after:=Worksheets(i)

i = i + 1
Set wshPlan = Worksheets(i)

'Se houver célula com fórmulas na celula
On Error Resume Next

'Converte fórmulas para valores constantes
For Each rnCell In wshPlan.Cells.SpecialCells(xlFormulas)
rnCell.Value = rnCell.Value
Next rnCell

'É uma colecção compreensiva na fórmula planilha pode
'ser mais rápido com o Colar Especial.

'With wshPlan.UsedRange
' .Copy
' .PasteSpecial Paste:=xlValues
'End With

'Application.CutCopyMode = False

'Recuperando nome da folha
SbCelNome = CStr(wshPlan.Range("A2").Value)

'Remove o Formulário objeto, valores, e para compartilhar ficha
'seu nome

With wshPlan
For Each SbObjetos In .Shapes
SbObjetos.Delete
Next SbObjetos
.Name = SbCelNome
.Range("B4:B6").Value = ""
.Range("A1").Select
End With

On Error GoTo 0

Application.ScreenUpdating = True
End Sub

Aprenda tudo sobre o Aplicativo microsoft Excel VBA com Saberexcel

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, verifica todos os valores digitados,
localiza a última célula e insere o valor Máximo, desloca mais uma linha e insere
o valor mínimo da coluna(A)

Sub Valor_Maximo_Minimo()
Dim i As Single

i = 1

Do While Cells(i, 1) <> "" 'Retorna a posição da linha da primeira célula
i = i + 1 ' na coluna "A" vazia
Loop

Cells(i, 1).Select
ActiveCell.FormulaR1C1 = "=MAX(R[-" & i - 1 & "]C:R[-1]C)" 'Inseri a fórmula
Cells(i, 1).Select

Cells(i + 1, 1).Select
ActiveCell.FormulaR1C1 = "=MIN(R[-" & i - 1 & "]C:R[-1]C)"

End Sub


Aprenda Microsoft Excel VBA --(SaberExcel))--


:

Saberexcel - o site das macros

Estas macros do Aplicativo MicrosoftExcel VBA(Visual Basic Application), visualiza a fórmula inserida na célula C7, e outra apaga deixando somente o valor gerado por essa fórmula, também uma macro insere uma fórmula para realização do teste que insere a fórmula quando for apagada

'Esta macro mostra a fórmula inserida na célula (C5), antecida de um 'apostofre
Sub Visualizar_Formula_Cel_C7()
Range("C7") = "'" & Range("C7").FormulaLocal
End Sub

'Esta outra macro apaga a formula deixando o valor gerado
Sub Retorna_ou_apaga_formula_celula_C7()
Range("C7").FormulaLocal = Mid(Range("C7"), 1)
End Sub

'Esta macro insere a formula para realização do teste
Sub inserir_formula_teste()
Range("C7").FormulaR1C1 = "=SUM(RC[-2]:R[18]C[-2])"
End Sub


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

SaberExcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, impede a formatação em células que contém fórmulas, aqui fiz um pequeno exemplo de como fazer um simples formatação em células que contém e ou não contém formulas. Poderá ser útil. Fique com Deus, E_Marcondes.

Sub Testar_Formulas()
Inserir_formato_branco
[C7].Font.ColorIndex = 5 'formata cor fonte azul
Range("C7").FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
For Each cell In Range("C1:C8")
If cell.HasFormula = False Then
cell.Interior.Color = vbRed
End If
Next
[E7].Value = "Observe que EXITE FÓRMULA, portanto, macro impediu a formatação do interior da célula"
End Sub

Sub Inserir_formato_branco()
Range("C1:C8").Select
Selection.Interior.ColorIndex = 2
[C7].Font.ColorIndex = 1 'formata cor fonte preto
Range("L6").Select
[E7].Value = "Limpamos toda a formatação existente no range[C1:C8]"
End Sub

Sub Formatacao_sem_fórmulas()
[C7].Value = "12345" 'aqui quando voce executa a macro, automaticamente já apaga as formulas e insere o número para o teste
[C7].Font.ColorIndex = 2 'formata cor fonte branco
For Each cell In Range("C1:C8")
If cell.HasFormula = False Then
cell.Interior.Color = vbRed 'poderá ser a cor que desejar.
End If
Next
[E7].Value = "Veja: NAO EXISTE fórmula, macro INSERIU formatação no interior da célula"
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Saberexcel - o Site das Macros
Essa planilha do Aplicativo Microsoft Excel VBA, procura aleatóriamente a palavra do Senhor para você na planilha e retorna com auxílio de macros e e Fórmulas

Fórmula usada ......: =ÍNDICE(Plan1!$A$2:$B$300;CORRESP($G$1;Plan1!$A$2:$A$300;0);2)

Sub ALE()
Application.SendKeys ("{DEL}")
End Sub

Sub cont()
For i = 1 To Range("G1")
ALE
Next i

If Range("g1") = 0 Then
ALE
End If

End Sub

Sub começo()
[c2] = "estou fazendo a busca do que servirá para você"
End Sub

Sub fim()
[c2] = "Eis a palavra de Deus para você!"
End Sub



Aprenda Aplicativo Microsoft Excel VBA