• 0
Sign in to follow this  
vanfer

Função DezenasRepetidas()

Question

Desculpem-me se estou postando no tópico errado. Mas esta é a primeira vez que participo do forum.

Abaixo está a Função que eu fiz e que funciona perfeitamente. Mas eu gostaria que vocês me ajudassem para que ela me retorne da seguinte forma:

Como ela funciona:

Range(A1:O1)="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15" - linha anterior

Range(A2:Q2)="1 2 3 4 5 6 7 8 9 16 17 18 19 20 21" linha atual

Repeidas = 1 2 3 4 5 6 7 8 9"

E eu gostaria que ela prenchesse um intervalo Range(AA:AJ")

Public Function Repetidas(oCel As Range)

' ////// Dezenas repetidas da Lotofácil /////

' Compara o resultado da linha atual com o resultado da linha anterior
' e retorna os valores iguais em uma string

Dim data As Variant
Dim cAtual As Variant
Dim cAnterior As Variant
Dim oLin, oCol As Integer
Dim nCel As Integer

    ' Linha e coluna atual
    oLin = oCel.Row
    oCol = oCel.Column
    
    ' Calcula quantas colunas tem o intervalo
    nCel = oCel.Cells.Count
    
    ' Captura a linha anterior
    cAnterior = Range(Cells(oLin - 1, oCol), Cells(oLin - 1, oCol + (nCel - 1)))
    
    d = ""
    
    ' Compara as duas linhas e seleciona as repetidas
    For Each x In oCel
        For Each y In cAnterior
            If x = y Then
                If x < 10 Then c = "0" + CStr(x) Else c = CStr(x)
                d = d + " " + c
                m = m + 1
            End If
        Next
    Next
    
    ' Exibe a seleção desejada como uma string
    Repetidas = Trim(d)

End Function
 

Agradeço a colaboração de todos

Edited by vanfer

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this