Copiare dati e cancellazione

Hai un problema con Excel?

Nuova discussione

Copiare dati e cancellazione
di Alessio (utente non iscritto) data: 20/04/2011
Salve,
avrei bisogno di un aiutino. praticamente ho su foglio1 tutta una serie di dati, vorrei poter trovare la serie di dati che mi serve e dopo di chè copiare sul foglio2 i dati che mi interessano cancellandoli dal foglio1.
i dati da copiare si trovano sparsi tra a3 e as3.
la ricerca funziona, troverete molto codice scritto come descrizione, ma sono prove fatte.

posto il codice che usavo fino ad adesso, ma sono aumentati di molto i dati archiviati su cui fare la ricerca e non riesco a cavarmela.
premetto che funzionava benissimo con solo 8 dati.

Private Sub CommandButton2_Click()
num = Worksheets.Count
att = FOGLIO

If TextBox8.Value = "" Then
MsgBox "INSERIRE N. CARTELLO"
TextBox8.SetFocus
Exit Sub
End If
For Each FOGLIO In Worksheets
If FOGLIO.Name <> "RIEPILOGO" And FOGLIO.Name <> "RIFIN" And FOGLIO.Name <> "SETTIMANA" Then
FOGLIO.Activate

Application.ScreenUpdating = False

FOGLIO.Select
trovacodice = Application.WorksheetFunction.CountIf(Range("AA3:AA65000"), TextBox8.Value)
If trovacodice <> 0 Then

Range("AA2").Select
Do
ActiveCell.Offset(1).Select
Loop Until ActiveCell.Value = UserForm2.TextBox8.Text
ActiveCell.Offset(0, -22).Select

'X = ActiveCell.Address
'cliente = ActiveCell.Value
'ActiveCell.Offset(0, 4).Select
'articolo = ActiveCell.Value
'ActiveCell.Offset(0, 4).Select
'colore = ActiveCell.Value
'ActiveCell.Offset(0, 4).Select
'prezzo = ActiveCell.Value
'ActiveCell.Offset(0, 6).Select
'npezzi = ActiveCell.Value
'ActiveCell.Offset(0, 1).Select
'previsione_arrivo = ActiveCell.Value
'ActiveCell.Offset(0, 4).Select
'codarticolo = ActiveCell.Value
'ActiveCell.Offset(0, 44).Select
'Taglia = ActiveCell.Value
'Y = ActiveCell.Address
'Taglia = ActiveSheet.Name
'Range(X & ":" & Y).Select
Selection.Cut
UserForm2.TextBox1 = cliente
UserForm2.TextBox2 = articolo
UserForm2.TextBox3 = colore
UserForm2.TextBox4 = prezzo
UserForm2.TextBox5 = npezzi
UserForm2.TextBox6 = previsione_arrivo
UserForm2.TextBox7 = codarticolo
UserForm2.TextBox10 = Taglia
Sheets("RIFIN").Select
Range("b8").Select
Do
ActiveCell.Offset(1).Select
Loop Until ActiveCell.Value = ""
ActiveSheet.Paste
'UserForm3.TextBox9.SetFocus
'UserForm3.Show
FOGLIO.Select
Range("A1").Select
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox10.Value = ""

    
Else
att = att + 1  'si incrementa un numeratore di una unità ad ogni foglio scorso
If att = (num - 3) Then 'quando il numero dei fogli coincide con i fogli totali meno quelli esclusi dalla ricerca scrivi
MsgBox "Cartello non trovato o codice errato. Controllare il numero e riprovare"
    
    End If
        End If
            End If
Next FOGLIO

Vuoi Approfondire?