Come trasferire i dati specifici da un foglio all’altro attraverso VBA in Microsoft Excel
In questo articolo, utilizzeremo l’evento di modifica del foglio di lavoro per trasferire i dati da un foglio all’altro, a seconda di una determinata condizione.
I dati grezzi sono i dettagli del cliente, che includono nome, indirizzo, città, regione, paese e numero di telefono.
In questo articolo, vogliamo trasferire i dati di quei clienti che non sono idonei per una particolare offerta. L’ultima colonna contiene “Non” come valore, se un cliente non è idoneo per una particolare offerta. Vogliamo copiare quei clienti “non idonei” nel foglio “NotEligibleData”.
Spiegazione del codice
Se Target.Column = 7 Then Il codice precedente viene utilizzato per limitare l’esecuzione dell’evento di modifica del foglio di lavoro solo quando viene modificato il valore nella 7 ^ colonna.
Fogli (“NotEligibleData”). Intervallo (“A2: I600”). ClearContents Il codice sopra viene utilizzato per eliminare il valore dall’intervallo A2: I600 Fogli (“Principale”). Celle (i, “G”). Intera riga.Copia Destination: = Sheets (“NotEligibleData”). Range (“A” & Rows.Count) .End (xlUp) .Offset (1)
Il codice sopra viene utilizzato per copiare i clienti non idonei nel foglio “NotEligibleData”.
Segui sotto per il codice
Private Sub Worksheet_Change(ByVal Target As Range)
'Declaring variables
Dim i, Lastrow As Long
'Execute code if value in seventh column is changed
If Target.Column = 7 Then
'Getting the row number of last cell
Lastrow = Sheets("Main").Range("A" & Rows.Count).End(xlUp).Row
'Deleting any previous data from "NotEligibleData" sheet
Sheets("NotEligibleData").Range("A2:I600").ClearContents
'Looping from tenth row to last row
For i = 10 To Lastrow
'If value in G column of the row is "Not" then copy the row to destination sheet
If Sheets("Main").Cells(i, "G").Value = "Not" Then
Sheets("Main").Cells(i, "G").EntireRow.Copy Destination:=Sheets("NotEligibleData").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
End If
Range("A1").Select
End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.
Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]