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
 |