Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Buongiorno a tutti,
sono una maestra e vorrei creare un file excel per la gestione dei prestiti dei materiali scolastici della biblioteca della mia scuola.
Vorrei che, selezionando la casella RESTITUITO? e scegliendo la risposta Sì, in automatico tutta la riga venisse copiata dal foglio chiamato BIBLIOTECA BES e riportata nel secondo foglio chiamato PRESTITI; in questo modo si avrebbe traccia di tutti i prestiti effettuati durante l'anno.
Qualcuno può aiutarmi a creare il codice? Grazie mille
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(246.4, 38%, 33%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EG%3C/text%3E%3C/svg%3E)
ciao
questo è con la mia macro
https://www.dropbox.com/s/0wzvlz25tlx7f68/Copia%20di%20BIBLIOTECA%20BES.xlsm?dl=0
basta cliccare sul pulsante
ma
quelle di Norman sono più evolute
ciao
circa il codice è questo
Sub CopiaeIncolla()
Application.ScreenUpdating = False
Set zona = ActiveSheet.Range([A2], [A2].End(xlDown))
contarighe = zona.Rows.Count
For N = 1 To contarighe Step 1
If Cells(N, 8).Value = "SI" Then
Cells(N, 8).EntireRow.Copy
Sheets("Prestiti").Select
Dim iRow As Integer
iRow = 2
While Cells(iRow, 1) <> ""
iRow = iRow + 1
Wend
Cells(iRow, 1).Select
ActiveSheet.Paste
Sheets(1).Select
Cells(N, 8).EntireRow.Delete
End If
Next
End Sub
https://www.dropbox.com/s/1ltj1x69wo2nc46/copia%20riga%20e%20elimina.xlsm?dl=0
metti dei si sulla convalida del foglio 1 e clicca il pulsante
se è quello che vuoi vedrai che i cvbaisti lo migliorano
ciao
un dubbio
se metti SI in I8
cosa succede
rimane sul foglio
vuoi copiare la riga in PRESTITI e cancellare la riga dal foglio BIBIOTECA BES
cosa vuoi fare?
perchè se la riga rimane sul foglio
non capisco cosa ti serva riportarla su un'altro visto che i dati li hai
e ti basta filtrare per vedere i dati.
ma è solo curiosità
Bravissimo Gian Franco,
l'idea è che una volta detto sì, le celle corrispondenti al prestito (F-G-H-I-J) si svuotino anche...avevo dimenticato di metterlo! In questo modo la gente potrebbe vedere di nuovo il materiale disponibile, ma rimarrebbe traccia dei plessi in cui è stato il bene.
PS. Ho eliminato la colonna STATO tanto era inutile...
Grazie!
ciao
un dubbio
se metti SI in I8
cosa succede
rimane sul foglio
vuoi copiare la riga in PRESTITI e cancellare la riga dal foglio BIBIOTECA BES
cosa vuoi fare?
perchè se la riga rimane sul foglio
non capisco cosa ti serva riportarla su un'altro visto che i dati li hai
e ti basta filtrare per vedere i dati.
ma è solo curiosità