| | Post: 215 | Registrato il: 13/12/2015
| Città: MILANO | Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
28/01/2018 10:13 | |
Ciao,
mi vergogno come non mai ma mi sono piantato in maniera assurda.
Vorrei semplicemente copiare le celle C5, C7 etc dal foglio Start alla prima riga non vuota del foglio storico.
Sub copiaCelle()
Sheets("Start").Select
Range("C5, C7").Select Selection.Copy
Sheets("storico").Select Range("B65000").End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub
Grazie [Modificato da BG66 28/01/2018 10:58] BG66
Excel 2010 |
|
| | Post: 512 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Senior | Excel2019 | | OFFLINE |
|
28/01/2018 10:32 | |
Ciao Gene
in un intervallo dall' "altro problema",
prova cambiando la tua macro così
Sub copiaCelle()
Sheets("Start").Select
ur = Sheets("storico").Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("C5, C7,C9, C11,C13").Copy
Sheets("storico").Cells(ur, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
End Sub
Fai sapere. Ciao,
Mario |
| | Post: 215 | Registrato il: 13/12/2015
| Città: MILANO | Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
28/01/2018 10:54 | |
Ciao Mario,
grazie per l'aiuto risolutivo.
Spero a presto sull'altro problema.
Gene BG66
Excel 2010 |
|
|