MD2 Licao 293 Planilhas Celulas e Range Calcula parcelas Colunas2

MD2 Licao 293 Planilha Celulas e Range Calcula parcelas Colunas4

MD2 Licao 293 Planilhas Celulas e Range Calcula parcelas Colunas1

MD2 Licao 293 Planilhas Celulas e Range Calcula parcelas Colunas3

Principal

Assinatura e Cursos Excel VBA  - Escola SaberExcel VBA Estudos
Preocupação Primeira ("ENSINAR EXCEL VBA")
http://www.saberexcel.com.br

- Aprendendo Programação MS Excel VBA, com facilidade e simplicidade, "Escrevendo Menos e Fazendo Mais

  - Vídeo Aulas MS Excel VBA
      - Até o momento (06-12-2016)  temos 270 Vídeo Aulas Prontas
       - Modulo1 - Eventos
       - Modulo2 - Celulas e Range
       - (pretensão 1.000 Vídeo Aulas Excel VBA)
       - Usamos nestas vídeo Aulas exemplos de todas as dificuldades essenciais em programação.
  
  - 25.000 planilhas prontas MS Excel VBA
        São + 225 Pastas Dividas Simetricamente com as Categorias do Excel VBA


  - 141 Planilhas Instruções Loop MS Excel VBA
        -São exemplos de Planilhas que ensino como usar diversas Instruções Loops
            1 - SBX - SaberExcel Loop Do Loop Until - 15 Arquivo
            2 - SBX - SaberExcel Loop Do Loop While - 12 Arquivos
            3 - SBX - SaberExcel Loop Do Until Loop  - 13 Arquivos
            4 - SBX - SaberExcel Loop Do While Loop - 22 Arquivos
            5 - SBX - SaberExcel Loop For Each Next - 24 Arquivos
            6 - SBX - SaberExcel Loop For Next  - 37 Arquivos
            7 - SBX - SaberExcel Loop While Wend - 12 Arquivos


  - 341 Planilhas WorkSheetFunction - VBA
    - As WorkSheetFunctions são poderosíssimas em programação
    - Fizemos um Exemplo de Planilha de Planilha para cada Função do Excel
 
  -  4 Módulos Como Fazer Programação
      - Fizemos umas 700 Planilhas exemplos de como fazer programação MS Excel VBA

 -  Planilhas Inteligentes Microsoft Excel VBA
    - Nesta Categoria temos planilhas muito interessantes que trabalham com diversas categorias, imagens,     auto filtros, cadastros, e outros


-   Coleção 25.000 Macros MS Excel VBA    
     - Coleção de Macros, em um programa especifico para voce ter como  uma mega biblioteca de
       Macros para guardar, alterar, copiar, colar, pesquisar, estudar .... etc...
      (muito usada em pesquisas por todos os  níveis de programação (Iniciantes, Médio, Avançado, e Pleno)

 e  muito mais.......
                     

Saberexcel  o site das Macros http://www.saberexcel.com.br ( (16) 9.8133-3066 (OP.TIM) * contato@saberexcel.com.br

Excel planilha Funcao personalizada Contar ocorrencia palavras

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)"

Baixe o exemplo de planiha em nosso site.

http://www.saberexcel.com.br

há muitos downloads gratuitos.

Excel VBA Macros - Deleta linhas ou colunas em branco Planilha Excel VBA

Excel VBA Macros - Esta macro deleta linhas ou colunas em branco na planilha
do aplicativo MS Excel
'...........................................'
Sub Deleta_Linhas_Branco()
Sheets(”SuaPlanilha”).Select
Dim r, c, x As Integer
‘r esta é sua primeira linha na planilha excel
For r = 1 To 150
‘c é seu loop da primeira coluna da planilha excel até que c alcance 184 (improváveis)

For c = 1 To 184
’se a celula do excel determinada no loop estiver em branco
If Cells(r, c) = “” Then
‘procura proxima linha não branca - o número de coluna transformar-se-á x
x = Cells(r, c).End(xlToRight).Column
‘if x > 184 (sua ultima coluna) então você pode pular o pause desta lista como espaço em branco

If x > 184 Then GoTo 10
‘encontre o que a coluna antes da lista não-em branco faz o seguinte:
Y = x - 1
‘Teste a diferença entre a coluna que estão sendo processados e o y

Select Case Y - c
’se mais de uma lista atual no meio da lista em branco e não contiver espaço em branco seguinte suprimem então 'da escala dos espaços em branco
Case Is > 0
Range(Cells(r, c), Cells(r, Y)).Delete Shift:=xlToLeft

Case 0
’se diferença entre o & de y; c é 0 então somente uma Lista a Suprimir
Cells(r, c).Delete Shift:=xlToLeft

Case Else
’se it’ negativo de s você tem um erro!!
MsgBox “Error: Macro Will Stop”, vbCritical, “Error”
Exit Sub
End Select
End If
‘move para a proxima coluna
Next c
‘ 10 é usado como um atalho para interromper o loop acima… se 10 entende que estão toda em branco - o trabalho 'de deleção vai apenas para a lista seguinte ao 10
Next r
End Sub
'.....................................'
http://ww.saberexcel.com
o site das macros do Aplicativo MS Excel VBA Visual Basic Application
Coleção de 15.000 Macros, Fórmulas e Funções
'....................................'