Tentativo di utilizzare una formula IF per copiare dinamicamente il contenuto della cella data la presenza di un valore specifico

L'utilizzo di una formula IF per ottenere questo risultato sarà problematico per una serie di motivi. Ma supponendo che tu abbia funzionato, avrai sempre il problema che una formula deve essere collocata all'interno di una cella e quindi la tua cartella di lavoro non è scalabile (cioè cosa succede nel tempo se / quando aggiungi / cancella le righe)? Certo, puoi aggirare anche questo (ad esempio formattando i tuoi dati come una tabella / lista appropriata), ma dalla mia esperienza sarebbe meglio usare una macro per farlo.

Passaggio 1: aggiungi la scheda Sviluppo per Excel

Prima di tutto è necessario assicurarsi di avere la scheda Sviluppatore visibile nella barra multifunzione di Excel. Se è già lì (in genere è l'ultimo dopo la scheda Visualizza, quindi vai al Passaggio 2: creazione della tua macro. Altrimenti, procedi nel seguente modo:

1. Avvia MS Excel
2. Vai a Excel > Preferenze (o semplicemente premi il comando , chiavi)
3. Seleziona la barra multifunzione e amp; Icona della barra degli strumenti
4. Verifica che la scheda della barra multifunzione sia selezionata in alto
5. Sul lato destro vedrai un elenco di schede - seleziona la casella di controllo accanto alla scheda Sviluppatore (probabilmente è elencata in fondo)
6. Fai clic sul pulsante Salva
7. Esci dalle preferenze
8. Ora vedrai la scheda Sviluppatore (vedi immagine sotto):

Passaggio2:creazionedellatuamacro

Oradobbiamocrearelatuamacro.Seguiquestipassaggi:

1. InExcel,assicuratidiaverelacartelladilavoroaperta
2. SelezionalaschedaSviluppatore
3. Faiclicsull'opzionediVisualBasic(all'estremitàsinistradellabarramultifunzione)
4. SiapriràlafinestradiMicrosoftVisualBasic

5. Laparteinaltoasinistradellafinestradovrebbeavereunaspettosimilea:

6. Ora fai clic con il tasto destro su ThisWorkbook e seleziona Insert > Modulo (vedi sotto)

7. In pochi istanti dovresti vedere una finestra bianca aperta sul lato destro dell'editor di Visual Basic

8. Ora copia il codice qui sotto e incollalo nello spazio bianco:

   Sub CopyRowsBasedOnCellValue()
   'This macro copies rows from one worksheet to another within the same workbook if that row contains a specific value in Column A
       Dim xRg As Range
       Dim xCell As Range
       Dim X As Long
       Dim Y As Long
       Dim Z As Long
       X = Worksheets("Sheet1").UsedRange.Rows.Count
       Y = Worksheets("Sheet2").UsedRange.Rows.Count
       If Y = 1 Then
           If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then Y = 0
       End If
       Set xRg = Worksheets("Sheet1").Range("A1:A" & X)
       On Error Resume Next
       Application.ScreenUpdating = False
       For Z = 1 To xRg.Count
           If CStr(xRg(Z).Value) = "foo" Then
               xRg(Z).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & Y + 1)
               Y = Y + 1
           End If
       Next
       Application.ScreenUpdating = True
   End Sub
   

9. Ora dovresti vedere qualcosa di simile al seguente: