Moderatori: Anthony47, Flash30005
Public Sub CopiaTutto()
Dim rngFrom As Range
Dim rngTo As Range
Dim rRowCol As Range
Dim j As Long
Set rngFrom = Selection
On Error Resume Next
Set rngTo = Application.InputBox("destinazione:", Type:=8)
On Error GoTo 0
If Not rngTo Is Nothing And Err.Number = 0 And Intersect(rngFrom, rngTo) Is Nothing Then
rngFrom.Copy rngTo(1, 1)
For Each rRowCol In rngFrom.Rows
j = j + 1
rngTo.Rows(j).RowHeight = rRowCol.RowHeight
Next
j = 0
For Each rRowCol In rngFrom.Columns
j = j + 1
rngTo.Columns(j).ColumnWidth = rRowCol.ColumnWidth
Next
Else
MsgBox "operazione abortita", vbCritical, "AVVISO"
End If
Set rngFrom = Nothing
Set rngTo = Nothing
End Sub
Flash30005 ha scritto:La macro copia anche l'altezza righe, dov'è il problema?
Forse la copia da un foglio ad un altro? Perché in questo caso dà errore
ciao
rngFrom.Copy 'rngTo(1, 1) 'Esistnte ma modificata
rngTo.Cells(1, 1).PasteSpecial Paste:=xlPasteFormats '<< Aggiunta
Application.CutCopyMode = False '<< Aggiunta
For Each rRowCol In rngFrom.Rows 'Esistente
'etc etc
Anthony47 ha scritto:Mi pare che dovrebbe bastare modificare la prima istruzione in questa sequenza e aggiungere le successive due, continuando poi come da originale di Scossa:
- Codice: Seleziona tutto
rngFrom.Copy 'rngTo(1, 1) 'Esistnte ma modificata
rngTo.Cells(1, 1).PasteSpecial Paste:=xlPasteFormats '<< Aggiunta
Application.CutCopyMode = False '<< Aggiunta
For Each rRowCol In rngFrom.Rows 'Esistente
'etc etc
Ciao
gimart ha scritto:Anthony, tanto per cambiare, non ho capito: che farebbe la macro di Scossa con questa modifica? Mi copierebbe solo i formati compresa l'altezza righe?
ricky53 ha scritto:Ciao,
se posso vorrei fare alcune mie riflessioni:
quanto hai riportato tu è il "CLASSICO" Copia/Incolla di Excel quando si seleziona "l'intero foglio" che copia tutto, i formati, i valori, ecc. in base alla scelta che tu fai e copia anche altezza righe e larghezza colonne.
Non ti era stato proposto il Copia/Incolla perchè tu avevi scritto che stavi lavorando su una macro (che hai riportato nel forum) e gli altri utenti hanno proseguito su questa linea.
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 11 ospiti