Ho scaricato il file pero' non sono certo delle cose che devi fare...
Usando una macro come questa ottieni:
-viene cercata nel foglio Carico una sola volta la sigla impostata in A1, cercando sulle colonne A e H, righe 6-600
-se viene trovato una corrispondenza, vengono eliminate la cella con la sigla piu' le due celle adiacenti a destra; quindi sempre sulla stessa riga si eliminano le colonne M:X (se il dato e' stato trovato in col A) oppure le colonne AA:AB (se dato trovato in col H; vedi nota* successiva)
-indipendentemente se il dato e' presente o meno in Carico, si fa 1 (1 sola) ricerca su foglio Scarico, e se trovata una corrispondenza vengono eliminate le colonne A:G oppure I:O
"Eliminare le celle" comporta che tutte le celle sottostanti salgono su di una riga.
Nota*: le colonne da cancellare in quest' area (vedi l' istruzione marcata <<<) sono approssimate perche' non ne hai parlato; correggi l' istruzione se devi eliminare piu' o meno colonne, o eliminala se non devi eliminare niente in questo caso.
Il codice macro:
- Codice: Seleziona tutto
Sub geppo()
With Sheets("Carico").Range("A5:A600, H6:H600")
Set C = .Find(Sheets("Carico").Range("A1"), LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
CCol = C.Column: CRow = C.Row
Cells(CRow, CCol).Range("A1:C1").Delete Shift:=xlUp
If CCol = 1 Then Cells(CRow, CCol).Offset(0, 12).Range("A1:L1").Delete Shift:=xlUp
If CCol = 8 Then Cells(CRow, CCol).Offset(0, 19).Range("A1:B1").Delete Shift:=xlUp '<<< Vedi Testo
End If
End With
With Sheets("Scarico").Range("A6:A600, I6:I600")
Set C = .Find(Sheets("Carico").Range("A1"), LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then C.Range("A1:G1").Delete Shift:=xlUp
End With
End Sub
Da excel: Alt-F11 per aprire l' editor delle macro; Menu /Inserisci /Modulo; copia il codice e incollalo nel frame di dx.
Eventualmente crea un pulsante su foglio Carico (trovi questa forma nella barra degli strumenti Moduli) e assegnagli la macro "geppo" (ti verra' fatta una domanda specifica nel ciclo di creazione del pulsante).
In questo modo potrai eseguire la macro al semplice premere del pulsante.
Rigorosamente da provare e collaudare SU UNA COPIA dei tuoi dati, comunque dopo aver fatto due copie di backup.
Ciao, fai sapere.