[VBA Excel] Macro Seleziona e cancella

[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

[icecube_HT]

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...

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 !

[yaryz]

Ti ringrazio per la soluzione.. ma purtroppo per completare questo processo la macro impiega qualcosa come 3 minuti ... un po troppo... manualmente lo faccio in una minuto..

qualcosa del tipo selziona PN e cancella ...un po più veloce esiste??...

COMUNQUE GRAZIE 1000

[gibra]

Puoi crearti la macro da solo:

1. avvia la registrazione di una macro
2. ripeti gli stessi passi che fai normalmente 'a mano'
3. salva la macro.
4. fai qualche test e verifica se il codice ha bisogno di qualche aggiustamento
(ad esempio, se la colonna cambia di volta in volta, allora la selezione della colonna la devi fare prima utilizzare la macro, ed evitare che la macro selezioni da sé la colonna.)
5. adesso creati un nuovo pulsante su una barra dei pulsanti
6. Assegnagli la macro salvata
7. quando ti serve la macro, fai clic sul pulsante.

Fine dei problemi

[yaryz]

Ciao sarebbe bello ma quella cosa li non la registra.. fai una prova e vedrai
grazie

[gibra]

Originariamente inviato da yaryz
Ciao sarebbe bello ma quella cosa li non la registra.. fai una prova e vedrai
grazie

Hai ragione.
Allora non ti resta che farlo come ti ha già indicato icecube_HT .