| Descricao: |
 Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), conta a ocorrência de deteminado produto em range renomeada por macro,
neste caso o macro abaixo insere o nome de planiha vRegiao1, vRegiao2,
'Fórmula inserida: =SOMARPRODUTO((vRegiao1=vRegiao2)*1)
'Esse macro adiciona o nome em intervalos de Celulas(Range) vRegiao1 e vRegiao2
Sub Adicionando_nomes_aos_range()
ActiveWorkbook.Names.Add Name:="vRegiao1", RefersToR1C1:="=Somarproduto!R1C2:R10C2"
ActiveWorkbook.Names.Add Name:="vRegiao2", RefersToR1C1:="=Somarproduto!R1C3:R10C3"
Range("E10").Formula = "=SUMPRODUCT((vRegiao1=vRegiao2)*1)"
End Sub
'contando ocorrencia de produtos com macro
Sub Somarproduto_ocorrencia_produtos()
Dim vRegiao1 As Range, vRegiao2 As Range
Dim vCelula1 As Range, vCelula2 As Range
Dim i As Long
Set vRegiao1 = Range("B1:B10")
Set vRegiao2 = Range("C1:C10")
i = 0
For Each vCelula1 In vRegiao1
For Each vCelula2 In vRegiao2
'If vCelula2 = vCelula1 Then i = i + 1
'If Trim(UCase(vCelula2)) = Trim(UCase(vCelula1)) Then i = i + 1
If UCase(vCelula2) = UCase(vCelula1) Then i = i + 1
Next vCelula2
Next vCelula1
MsgBox "Há [" & i & " ] " & "ocorrencias no intervalo de células [B1:C10]", vbInformation, "Saberexcel - site das macros"
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Publicidade
Compre com segurança, garantia e ótimos preços
 |