Incollare dati di una cella in piu celle con macro

Ciao a tutti ho un quesito da proporvi essendo ignorante sulle macro e non riuscendo a trovare soluzione con le formule, volevo sapere cosa ne pensate.
io ho una tab. dove inserisco delle misure e quante volte devono essere ripetute le stesse.
nella tab. seguente vengono incollate le misure piu volte in base al numero inserito nella cella quantita. tutto questo per poi restituire una somma delle varie celle selezionate e incollarle in un'altra tab.
vi allego esempio k e molto piu facile da comprendere.

non so se c'è l'allegato lo rimando

Quando rispondi, sopra il tasto VERDE c'è il Bottone sfoglia per allegare...Non troppo pesante max 1_2 MB oppure usa https://www.filedropper.com/

ABCDEF@Excel ciao... trovo il pulsante caricafile/foto ma non lo carica... il fil e legero

Perchè non hai allegato pure il codice?

Inoltre spiega meglio il problema (fai un esempio...)
Ex Inserisco le quantità e premo ???, dopo cosa si deve fare...
Cosa desideri che succeda?

ciao il codice non ce l'ho perche non ho dimestichezza con il vba..
sull'esempio ho scritto le funzione che dovrebbero avere i vari pulsanti...
lo ricarico cercando di spiegarmi meglio

>>>ricopiate in base al numero di "PZ PER QUANTITA" e "QUANTITA "
Cosa significa??? 2x1 =2 (mà a quale "misura" si riferisce?

Va bene aiutare mà farlo da zero è troppo. Suggerimento, usa il registratore, prova a fare "qualcosa" e casomai richiedi specificando bene il passaggio che non riesci fare.

1) Ex per Bottone CANCELLA, cancella Tab1. Ferma il registratore e assegnagli la macro
2) Ex per Bottone Trasferisci, cancella Tab2, poi fai copia/incolla delle celle che desideri da Tab1 in Tab2. Assegnagli la macro
3) ecc ecc

correggo l'esempio lasciando solo la macro piu importante... col registratore riesco a copiare una cella ed incollarla ma non riesco a stabilire quante volte incollarla in base al numero di pezzi inseriti nella colonna PEZZI. allego l'esempio

Di norma basta premere ALT+F11 ed incollare sulla destra, io preferisco ALT+F11 in alto (inserisci Modulo) incolli e chiudi. Dopo col mouse destro sui bottoni Assegna macro e scegli

e perfetto grazie... devo solo non far cancellare i pezzi alla fine della cromo e l'adatto al mio foglio.. grazie 👍

ho modificato la formula x adattarla al mio faglio facendo delle modifiche per copiare solo i valori ma non funziona... mi dareste una mano? sul foglio di prova k vi ho mandato funzionava ma sul mio no... mi da un debug al quarto for - "For w = 1 To Cells(x, 8) 'per tot volte"...


Sub Trasferisci()

Range("B47:AAA72").Clear
Dim x As Long, y As Long, c As Long, r As Long, w As Long
'If Cells(5, 2) = "" Then MsgBox "Inserisci valori in B5:B8"
r = 27 'incollo sotto tot righe
For x = 21 To 45 'intendo da riga 5 a riga 8
c = 2 ''qual'è la prima colonna?
For y = 1 To 1 'intendo quante volte
For w = 1 To Cells(x, 2) 'per tot volte
Cells(x, y + 2).Copy
Cells(x + r, c).PasteSpecial
c = c + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next w
For w = 1 To Cells(x, 4) 'per tot volte
Cells(x, y + 4).Copy
Cells(x + r, c).PasteSpecial
c = c + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next w
For w = 1 To Cells(x, 6) 'per tot volte
Cells(x, y + 6).Copy
Cells(x + r, c).PasteSpecial
c = c + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next w
For w = 1 To Cells(x, 8) 'per tot volte
Cells(x, y + 8).Copy
Cells(x + r, c).PasteSpecial
c = c + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next w
Next y
Next x

Application.CutCopyMode = False

End Sub


sul foglio k allego va bene anche se li non ho provato ad incollare solo valori.. lo allego

ciao la macro funziona sul foglio di prova ma sul mio mi da poi ad un certo punto "errore di run-time 13 tipo non corrispondente"...
in pratica mi copia bene quando non trova una cella vuota e si blocca. questo è il codice quale puo essere il problema? o cmq come risolverlo piu che altro... sull'altro foglio di prova funziona benissimo anche con celle vuote.

Sub Trasferisci()

Range("B47:AAA72").Clear
Dim x As Long, y As Long, c As Long, r As Long, w As Long
'If Cells(5, 2) = "" Then MsgBox "Inserisci valori in B5:B8"
r = 27 'incollo sotto tot righe
For x = 21 To 45 'intendo da riga 5 a riga 8
c = 2 ''qual'è la prima colonna?
For y = 2 To 8 Step 2
For w = 1 To Cells(x, y)
Cells(x, y + 1).Copy
Cells(x + r, c).PasteSpecial
c = c + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next w
Next y
Next x

Application.CutCopyMode = False

End Sub

Perchè non alleghi il files originale (sensa dati sensibili)

>>>Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ???

ecco il file..
forse mi da l'errore perche nelle celle ci sono delle formule?

questo e per darmi solo i valori senza formula... e quello che ho trovato facendo delle ricerche non so se va bene ma funziona.

>>>Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ???

L'errore del codice è dovuto allo ZERO, pertanto la formula sarà =SE.ERRORE(SE(O($C21=0;$C21="");"";............
Si è giusto (per copiare il valore senza formula)

ciao, purtroppo mi da ancora l'errore di run-time 13 tipo non corrispondente. sembra come se legge la formula come cella piena invece che vuota dove e vuota.sul foglio di esempio dove la macro funziona, ho provato a mettere una lettera piuttosto che un numero e cosi mi da l'errore anche li dove funzionava...

Modifica il codice (celle vuote)

ok funziona problema risolto 👍👍 grazie mille abcdef@excel