Escola Saberexcel VBA Estudos - Treinamento com Macros, Fórmulas e Funções

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), inserem uma fórmula (aqui fiz uma fórmula simples), na coluna(K),
na linha referencial correspondente à digitação na coluna(D). Para um aprendizado VBA com qualidade é necessário que voce aprenda bem sobre as instruções Loops e também sobre como deslocar, localizar, células, linhas e colunas em qualquer célula para outra folha de planilha qualquer no livro.

Sub extender_formulas_ultima_linha_digitada()
For J = 2 To Range("D65000").End(xlUp).Row
Range("K" & J).FormulaR1C1 = "=IF(RC[-7]="""","""",RC[-7])"
Next J
'- - - - - - - - - - - '
'esse tipo de código também fará a mesma coisa.
'veja como é importante aprender sobre o deslocamento, localização, intervalos de células linhas colunas.
'Range([K2].End(xlDown), [K2]).Select
'Selection.FormulaR1C1 = "=IF(RC[-7]="""","""",RC[-7])"
'- - - - - - - - - - - '
End Sub

Sub extender_formulas_ultima_linha_digitada_I()
For Each c In Range("K2:k" & [d65536].End(3).Row)
c.FormulaR1C1 = "=IF(RC[-7]="""","""",RC[-7])"
Next
End Sub

'observe que fiz um loop com o intuíto didático para mostrar como poderá fazer um macro usando
' a instrução For...Next e indicar linhas e colunas a serem deletadas, ou outra coisa qualquer.
Sub limpar_teste()
For i = 2 To Range("K65000").End(xlUp).Row
Range("K" & i).ClearContents
Next i
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

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

Essa função personalizada do Aplicativo Microsoft Excel VBA, retorna a quantidade de ocorrências de determinada palavra em intervalo de célula.

Function Contar_ocorrencias(vArea As Range, Palavra As String) As Long
'Declarando as variaveis
Dim vCelula As Range
Dim i As Integer 'para o loop (contador)
'Variável Contar_ocorrencia igual a zero
Contar_ocorrencias = 0
'Loop para percorrer todas as 'vCelulas' do argumento (vArea)
For Each vCelula In vArea
'Percorrer todos os caracteres da célula
For i = 1 To Len(vCelula)
'esta linha de código faz a comparação nao diferenciando letras maiusculas de minusculas
If UCase(Mid(vCelula, i, Len(Palavra))) = UCase(Palavra) Then Contar_ocorrencias = Contar_ocorrencias + 1
Next i
Next vCelula

End Function

Fórmulas usadas...:
'="Há [ "&E5 & " ] ocorrencias da palavra [ "&B1 & " ] na range(B1:B16)"
="Há [ "&Contar_ocorrencias(B1:B16;B1) & " ] ocorrencias da palavra [ "&B1 & " ] na range(B1:B16)"



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel