| | Post: 75 | Registrato il: 03/05/2016
| Città: MILANO | Età: 50 | Utente Junior | Excel 2011 | | OFFLINE |
|
  26/11/2018 20:14 | |
Un saluto a tutti
avrei bisogno di una macro che al click su qualsiasi cella contenente la parola ( INCOLLA ) poste liberamente nelle colonne C;D;E F;G;H
dei fogli 2 e 3 e 4 possa copiare il range B7 : E21 del foglio 1 e incollarlo in colonna una riga sotto alla cella selezionata al click
Grazie per un vostro aiuto
Un saluto
Simone |
|
| | Post: 4.123 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 27/11/2018 08:22 | |
spiegazione poco chiara, allega un file di esempio con dati e spiegazioni
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 75 | Registrato il: 03/05/2016
| Città: MILANO | Età: 50 | Utente Junior | Excel 2011 | | OFFLINE |
|
| 27/11/2018 09:19 | |
Sulla parte grigia dei fogli 2,3,4 è dove dovrebbe incollare il Range del modello foglio 1 al click sulla cella ( INCOLLA )
un saluto
Simone |
| | Post: 2.045 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 27/11/2018 10:28 | |
ciao
in Questa Cartella di Lavoro, e sempre che il range da copiare sia fisso:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim mFrom As Range, mTo As Range
If Target.Value <> "INCOLLA" Then Exit Sub
r1 = Target.Offset(1).Address
r2 = Target.Offset(15, 3).Address
Set mFrom = Worksheets("Foglio1").Range("B7:E21")
Set mTo = Range(r1, r2)
mFrom.Copy Destination:=mTo
Application.CutCopyMode= False
Cancel = True
End Sub saluti
[Modificato da dodo47 27/11/2018 18:37] Domenico
Win 10 - Excel 2016 |
| | Post: 76 | Registrato il: 03/05/2016
| Città: MILANO | Età: 50 | Utente Junior | Excel 2011 | | OFFLINE |
|
| 28/11/2018 10:10 | |
mitico dodo !!!! GRAZIE
solo un accorgimento :
sarebbe possibile fare im modo che copi tutto come ora , però solo il valore senza le formule ?
un saluto
Simone |
| | Post: 2.046 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 28/11/2018 11:14 | |
sono cose che dovresti fare in autonomia...
....
....
mFrom.Copy
mTo.PasteSpecial Paste:=xlValues
....
....
saluti
Domenico
Win 10 - Excel 2016 |
|
|
|
|