Boa noite!!
Mande seu arquivo COMPACTADO!!!

Boa noite , alexandre ; prestativo como sempre
antecipadamente grato

Boa noite!!

Como já dito pelo Mauro, em algumas postagem, seria melhor anexar um arquivo com as informações disposta de forma direta!!

Em outras palavras, indicar qual planilha do arquivo,mandar somente a dúvida e não um arquivo cheio de Form's e Rotinas, com as planilhas ocultas por códigos ou com proteção.

Ao menos me permita saber que planilha (o nome da Guia)....

Att

desculpe-me não acontecerá de novo , guia Faixa , form frmAdic

Fiz uma gambiarra aqui e dá pra tapear, porem fiquei limitado a voltar 5 linhas para encontrar um valor numérico, ou continuar digitando um imenso código;como seria pra tornar "ciclico" pegando na ultima linha preenchida , se não for numero ir voltando até encontrar um numero , sem necessidade de escrever um código gigante , usando acho que For , Next ou Loop.
Private Sub userform_initialize()
y = Range("BJ65536").End(xlUp).Row
'Cells(y, 62).Select
'Me.LblUltPto.Caption = Cells(y, 62)
If IsNumeric(Cells(y, 62)) Then
Me.txtNovPto.Text = Cells(y, 62).Value + 1
Me.LblUltPto.Caption = Cells(y, 62)
Exit Sub
Else
If Not IsNumeric(Cells(y, 62)) Then
x = Range("BJ65536").End(xlUp).Row - 1
If IsNumeric(Cells(x, 62)) Then
Me.txtNovPto.Text = Cells(x, 62).Value + 1
Me.LblUltPto.Caption = Cells(x, 62)
Exit Sub
Else
If Not IsNumeric(Cells(x, 62)) Then
w = Range("BJ65536").End(xlUp).Row - 2
If IsNumeric(Cells(w, 62)) Then
Me.txtNovPto.Text = Cells(w, 62).Value + 1
Me.LblUltPto.Caption = Cells(w, 62)
Exit Sub
Else
If Not IsNumeric(Cells(w, 62)) Then
q = Range("BJ65536").End(xlUp).Row - 3
If IsNumeric(Cells(q, 62)) Then
Me.txtNovPto.Text = Cells(q, 62).Value + 1
Me.LblUltPto.Caption = Cells(q, 62)
Exit Sub
Else
If Not IsNumeric(Cells(q, 62)) Then
Z = Range("BJ65536").End(xlUp).Row - 4
If IsNumeric(Cells(Z, 62)) Then
Me.txtNovPto.Text = Cells(Z, 62).Value + 1
Me.LblUltPto.Caption = Cells(Z, 62)
Exit Sub
Else
If Not IsNumeric(Cells(Z, 62)) Then
k = Range("BJ65536").End(xlUp).Row - 5
If IsNumeric(Cells(k, 62)) Then
Me.txtNovPto.Text = Cells(k, 62).Value + 1
Me.LblUltPto.Caption = Cells(k, 62)
Exit Sub
'Me.txtNovPto.Text = Cells(y, 62).Value + 1
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

tem de deletar mesmo o que não for numérico puro , por exemplo se o 493 fosse 493a ou abc4 deletar BJ e BK pois quando fosse usar o form ou o procv daria erro
493 384646 576898
493a 384646 576898 'deletar
494 384632 576908
495 384231 576956
abc4 384646 576898 ' deletar
496 384160 576793
497 384160 576803
GARMIN 15 S 344111 4302350 'deletar
GRMTWN 51 R 362761 2772700 ' deletar

Boa noite!!
Me perdoe mas ainda não olhei seu anexo.

veja se isso pode te ajudar...

É uma Função Definida pelo Usuário

Function GetNum(strIn As String) As Integer
'Separa número de texto
    Dim objRegex
    Dim i As Integer
    Dim j As Integer
    
    Set objRegex = CreateObject("vbscript.regexp")
    
    With objRegex
     .Global = True
     .Pattern = "[^d]+"
    GetNum = .Replace(strIn, vbNullString)
    End With
    
End Function

ai alexandre , colei esse cod na minha plan , coloquei pra rodar mas não aconteceu nada , deu a impressão que nem rodou, o que fiz de errado? onde tenho de colar?

boa noite!!

Como eu disse é uma função definida pelo usuário.

coloque o código em um módulo volte ao excel e digite =GetNum (considerando que seu dado 493a 384646 576898 'deletar esteja em uma célula).

Como eu disse é uma função definida pelo usuário.

coloque o código em um módulo volte ao excel e digite =GetNum (considerando que seu dado 493a 384646 576898 'deletar esteja em uma célula).

coloquei em um módulo, mas não entendi onde devo colocar o =GetNum ;

Qual a diferença de Funcion para Sub?

Bom dia!!

A function, tem retorno ao contrario da Sub.

Depois de colocar o código no modulo, vá para o excel e na célula digite =GetNum (neste caso, você criou uma função no excel)

Para ler mais sobre isso...

http://www.expresstraining.com.br/index ... cle&id=636

O VBA possui dois tipos de estruturas para construção de algoritmos: Sub e Function.

A questão que surge é a de quando usar uma ou outra na construção de nossos algoritmos em VBA no Excel? Na prática, Sub e Function trabalham da mesma forma com uma única diferença.Sub são funções de processamento autônomo enquanto as Functions podem (e devem) retornar valores no final de sua execução.

O link irá me ensinar muito msm. Agora entendi o funcionamento da GetNum ,mas neste meu caso acho que não seria usada, pois; se o "ponto" contiver uma letra ou for somente letras então não é um ponto valido tipo ;se for 493a eu tirar o a e usar o 493 . devo desconsiderar o ponto totalmente deletando tanto o "ponto" como a coordenada que estiver na coluna à direita desse ponto, mas vou "fuçando" pra ver o que consigo.

Muito,muito obrigado msm alexandre