Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Apagar tudo apos um...
 
Notifications
Clear all

Apagar tudo apos uma determinada condição

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
473 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde ;
Fiz uma pesquisa aqui mas nao encontrei o que precisava.
preciso de um código que faça uma checagem na coluna BJ , apos BJ97 ,(esta coluna contem valores numericos sequenciais) ; fazer uma checagem e se encontrar , uma celula em branco ou um valor que não seja numérico, apagar tubo que estiver de BJbranco até a ultima linha . de BJbranco a BLfim.
exemplo:
BJ97 BK97 BL97
370 22349365130066800 4645675859414040
371 22352898772805900 46456336732953700
372 22353022238239600 46456541754305300
373 22354436432942700 46458317628130300
374 22351875593885700 46464531049132300
<aqui a célula esta em branco , apagar daqui pra baixo
wptID Street Street2 ' se não houvesse a célula de cima em branco o wpdtID seria o primeiro valor não numerico ; portando daqui pra baixo deveria ser deletado

PhoneNumber
wptID Category value

Categories
wptID Category
1 Nova lista
2 Nova lista
3 Nova lista
4 Nova lista
5 Nova lista

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/06/2015 1:04 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja se é isto:

Sub Deleta_Ln_Condicao()
    Dim sTT_Lin As Long, iLin_Inicio As Long

    With Sheets("Plan1")
        sTT_Lin = .Range("BJ" & .Rows.Count).End(xlUp).Row

        For iLin_Inicio = 97 To sTT_Lin
            If Not IsNumeric(.Range("BJ" & iLin_Inicio).Value) Or _
                .Range("BJ" & iLin_Inicio).Value = "" Then
                
                Range("BJ" & iLin_Inicio & ":" & "BJ" & sTT_Lin).Delete
                
                Exit Sub
                
          End If
          
        Next iLin_Inicio

    End With
    
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/06/2015 7:32 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

muito obrigado

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/06/2015 10:11 am
Forum Jump:
  Tópico Anterior
Próximo Tópico