Copia casella di controllo

Hai un problema con Excel?

Nuova discussione

Copia casella di controllo
di Fabrizio (utente non iscritto) data: 21/04/2015 08:34:07
Buongiorno a tutti, con la presente chiedo un aiuto per potere copiare su altro foglio una casella di controllo ripetuta per tutte le righe che trova occupate su questo foglio(da B22 sino a ultimo)
qui di seguito parte di programma per copiare le celle dal foglio 1 al foglio "Officina", e sin qui tutto bene, il problema mi arriva quando inizio a copiare anche la casella di controllo, dove non riesco a fare questa operazione, aggiungo solo la prima e poi ho fatto tentativi per copiare le successive senza riuscirci.
grazie in anticipo per l'aiuto.
a presto

Private Sub CommandButton4_Click()
Dim ultimo As Integer
Dim i As Integer

ultimo = Range("b22").End(xlDown).Row
For i = 22 To ultimo

Range("b22", Range("b22").End(xlDown).Resize(, 5)).Copy Destination:=Sheets("Officina").Range("b22")
Range("d2:d3").Copy Destination:=Sheets("Officina").Range("d2:d3")
Range("e2:e3").Copy Destination:=Sheets("Officina").Range("e2:e3")
Range("c6").Copy Destination:=Sheets("Officina").Range("c6")
Range("e6").Copy Destination:=Sheets("Officina").Range("e6")
Range("g6").Copy Destination:=Sheets("Officina").Range("g6")
Range("g7").Copy Destination:=Sheets("Officina").Range("g7")
Range("d7:e7").Copy Destination:=Sheets("Officina").Range("d7:e7")
Range("c7").Copy Destination:=Sheets("Officina").Range("c7")
Range("a8:c8").Copy Destination:=Sheets("Officina").Range("a8:c8")
Range("g15").Copy Destination:=Sheets("Officina").Range("g15")
Range("e16:g18").Copy Destination:=Sheets("Officina").Range("e16:g18")
Next i
Sheets("Officina").Select
    ActiveSheet.CheckBoxes.Add(520.75, 312.75, 32.25, 18.75).Select
 
End Sub

di lepat (utente non iscritto) data: 21/04/2015 12:43:09
allega un file di esempio
di Fabrizio (utente non iscritto) data: 21/04/2015 17:07:05
Ciao Lepat, hai ragione con il file è più facile capire quello che si cerca di spiegare, in allegato trovi il tutto.
Vai su foglio "INTERNO comm" e trovi il pulsante "Copia i dati" per eseguire il codice.
grazie ancora
di lepat (utente non iscritto) data: 21/04/2015 18:19:44
Perché non copi e incolli l'intero range a1:g39 ?
di Fabrizio (utente non iscritto) data: 21/04/2015 19:23:32
Perché ho bisogno di copiare solo alcune celle al di sopra della riga 22, mentre dalla 22 in giù devo copiare solo le colonne b:g sino alla riga "ultimo".(la quantità di righe può variare di volta in volta)
inoltre devo aggiungere solo sul foglio "Officina" le caselle di controllo( perché in un secondo tempo devo fare la spunta del materiale già esistente a magazzino rispetto a quello che ancora non c'è.
a presto

Vuoi Approfondire?