Este fórum está sendo desativado

[kiko]

Bom dia a todos, em uma planilha tenho várias imagens com nomes específicos como Grupo_1, Grupo_2, Grupo_3, Grupo_....... etc, e também Imagem_1, Imagem_2, Imagem_3, Imagem_....... etc, como poderia contar somente as imagens com prefixo Grupo_ nesse universo de imagens. Desde já agradeço e fico no aguardo.

[babdallas]

Código: Selecionar todos

Public Function ContarImagens(strNome As String)
    Dim shpForm As Shape
    Dim lngCont As Long
    
    For Each shpForm In ActiveSheet.Shapes
        If shpForm.Name Like strNome & "*" Then
            lngCont = lngCont + 1
        End If
    Next shpForm
    
    ContarImagens = lngCont
End Function

[kiko]

Babdallas obrigado pela sua pronta atenção, vou fazer alguns teste e depois comunico, mas de qualquer maneira já cliquei no OBRIGADO.