Originariamente inviato da luck
tiè, inserisci un pulsante nel foglio e aggiungi questa macro: è una possibile soluzione:
codice:
Private Sub CommandButton1_Click()
matrice = Array("D4", "E4", "F4", "G4", "H4", "I4", "J4", "K4", "L4", "M4")
valore = ActiveSheet.Cells(3, 4)
Range("O4:O12").Select
Selection.Copy
Range(matrice(valore - 1)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
spero faccia al caso tuo
ciao ciao
Ci stavo provando anch'io ma vedo che mi hai anticipato di un pezzo.
Posto comunque la mia soluzione che è praticamente identica alla tua.
Ciao luck.
codice:
Option Base 1
Sub incollaspec()
indice = Array("d", "e", "f", "g", "h", "i", "l", "m")
ActiveSheet.Range("D4:M12").Select
Selection.ClearContents
ActiveSheet.Range("O4:O12").Select
Selection.Copy
copia = ActiveSheet.Range("b3").Value
ActiveSheet.Range(indice(copia) & "4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub