Originariamente inviato da yaryz
Ciao ragazzi vorrei chiedervi aiuto su come risolvere un problema..
ho un file excel con 10000 righe e
nella colonna D mi ritrovo dei valori con PN123456 o 123456

avrei bisogno di cancellare l'intera riga dove ci sia presente il valore che inizia per PN

manualmente faccio cosi da excel:
seleziono la collonna D

da Modifica > seleziono Trova -> inserisco valore PN -> trova tutti

nella scermata mi fa vedere tutte le righe contenenti il valore PN

poi seleziono il primo e l'ultimo delle righe tenedo premuto CTRL E SHIFT

mi sposto con il mouse nel foglio excel
su uno dei valori selezionati -> tasto dx del mouse->elimina -> elimima riga intera e mi cancella tutte le righe selezionate..

per automatizzare tutto cio.. potete darmi una mano??
grazie
Normalmente su un forum di programmazione non si dà la "soluzione completa", ma essendo poche righe...

codice:
Private Sub CommandButton1_Click()
   Dim r As Integer, t As String
   r = 1 'prima riga da esaminare
   Application.ScreenUpdating = False
   Do
      t = Cells(r, 4)
      If UCase$(t) Like "PN*" Then
         Rows(r).Select
         Selection.Delete Shift:=xlUp
      Else
         r = r + 1
      End If
   Loop Until Cells(r, 4) = ""
   Cells(r, 4).Select
   Application.ScreenUpdating = True
End Sub
Ciao !