Domanda:

Ho 2 fogli : 1) prenotazioni; 2) pagato
Sul foglio prenotazioni i dati sono inseriti da B a AC e ci sono delle celle vuote, dove si andranno a mettere dei dati,  ed altre celle con formule. La mia necessità è che quando nella colonna AC, su qualsiasi riga, inserisco la “p”, mi deve copia la riga di competenza (es. B12:AC12) ed incollare i valori sul foglio pagato, nella prima riga libera.
Ho provato con il filtro ma le righe sono tante e ci mette moltissimo a lavorare…non ne sto venendo a capo.

Risposta:

Per risolvere il problema ho prima aggiunto una colonna dopo la colonna “AC” che ho chiamato “Archiviato”
Con un ciclo For-Next analizzo riga per riga la colonna “AC”,
se è presente il valore “p” controllo che nella colonna “Archiviato” non sia presente “SI”

If Prenotazioni.Cells(i, Last_Col_P - 1) = "p" Then
   If Prenotazioni.Cells(i, Last_Col_P) <> "SI" Then

ed in caso affermativo copio i dati del foglio “prenotazioni”

Prenotazioni.Range(Cells(i, 1), Cells(i, Last_Col_P)).Copy

individuo l’ultima riga non vuota del foglio “pagato”

Pagato.Select
Last_Row_Pagato = Pagato.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

e nella riga successiva incollo i dati e metto “SI” nel foglio “prenotazioni”

Pagato.Cells(Last_Row_Pagato + 1, 1).Select
ActiveSheet.Paste
Prenotazioni.Cells(i, Last_Col_P) = "SI"

A voi il file:
APRI

Riccardo Vincenti

The following two tabs change content below.

• Bio
• Ultimi Post

Riccardo Vincenti

Ultimi post di Riccardo Vincenti (vedi tutti)

• 073. Duplicare righe excel modificando il contenuto - 6 Ottobre 2017
• 072. Estrazione numeri casuali - 6 Ottobre 2017
• 071. Estrazione casuale valori da un elenco - 5 Ottobre 2017
• 070. Contare dati univoci senza Pivot - 21 Settembre 2017
• 069. Aggiungere intervalli ad una data: Date Add in Excel - 21 Settembre 2017

This work by Riccardo Vincenti is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International