vanfer

Clique com o botão direito do mouse na aba da planilha que você deseja executar o MSG Cole o codigo abaixo na pagina em branco que irá aparecer para executar a rotina basta clicar em qualquer celula da coluna "O" Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim z As Integer Dim v As Integer z = 0: v = 0 If Target.Column = 15 Then For i = 5 To 130 If Cells(i, 15) = 0 Then z = z + 1 If Cells(i, 17) = "" Then v = v + 1 Next i If z > 0 And v > 0 Then sTxt = "Encontrados (" + CStr(z) + ") zeros na coluna 'O' e (" + CStr(v) + ") células vazias na coluna 'Q')" MsgBox (sTxt) End If End If End Sub

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