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 VBA Estudos - o site das macros
Essas Funções do Aplicativo Microsoft Excel VBA, calculam descontos de acordo com o valor de compra, aqui fiz dois exemplos com as mesmas instruções, porém, usando duas estruturas de decisão (Instruções condicionais) diferentes. Estrutruras de decisão de instrução IF...THEN... ELSE.. END IF e SELECT CASE , que executam condicionalmente um grupo de instruções, dependendo do valor de uma expressão.

Function CalcPreço(quantidade As Integer)
If quantidade < 101 Then
CalcPreço = 10
ElseIf quantidade < 301 Then
CalcPreço = 9
ElseIf quantidade < 701 Then
CalcPreço = 8
Else: CalcPreço = 7
End If
End Function

Function CalcPreço(quantidade As Integer)
Select Case quantidade
Case 0 To 100: CalcPreço = 10
Case 100 To 300: CalcPreço = 9
Case 300 To 700: CalcPreço = 8
Case Is >= 701: CalcPreço = 7
End Select
End Function



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel




Publicidade
Compre com segurança, garantia e ótimos preços

Saberexcel - o site das macros
Esse exemplo de fórmulas do Aplicativo Microsoft Excel VBA, insere em determinada célula uma fórmula matricial Soma(se()) e Somase(), que somará valores de determinadas ocorrencias de ítens na coluna(A)

Fórmulas usadas

'=SOMA(SE(($A$2:$A$12="Laranja");($B$2:$B$12)))
ou
=SOMASE($A$2:$A$12;$F$1;$B$2:$B$12)


Aprenda Microsoft Excel VBA com SaberExcel