Copia formato in Excel

[gimart]

Ciao a tutti.
Vorrei sapere se, in qualche modo, quando si deve copiare solo il formato di una zona di un foglio di Excel in un'altra zona o in un altro foglio, è possibile includere anche l'altezza delle righe. Ho provato in tutti i modi, ma non mi riesce. Grazie.

[wallace&gromit]

stavo per risponderti che esiste il componente aggiuntivo copia.xla ma poi ho visto che eri stato tu a segnalarlo! da allora, io che sono rimasto a excel 2003, ne faccio un uso spropositato (è geniale!), sostengo la tua causa, qualcuno dovrà pur riuscire ad attualizzarlo no?

[gimart]

Anche io, quando usavo il 2003, lo utilizzavo continuamente. Poi, passato al 2010, su cui il copia.xla non funziona, i magnifici guru del Forum, a mia richiesta, mi hanno sviluppato una macro che lo sostituisce egregiamente. Non è semplicissima da usare, ma va alla grande.

[Anthony47]

Non so se ce lo meritiamo, un piccolo aiutino: quale codice stai ora usando?

Ciao!

[gimart]

Ve lo meritate, ve lo meritate .
Sto usando il codice suggerito da Scossa, cioè:

Codice: Seleziona tutto

   
    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]

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

[gimart]

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

Il problema è che voglio copiare solo i formati (compreso altezza righe) e non i contenuti. Quindi non posso usare la macro.
Circa l'errore di cui parli, non si verifica.
I casi possibili sono tre:

1° caso: Zona diversa dello stesso foglio;
2° caso: File diversi;
3° caso: Fogli diversi dello stesso file.

1° caso: selezionare la zona da copiare e lanciare la macro. Nell'Inputbox che si apre, digitare il nome della prima cella della zona di destinazione e la copia sarà effettuata.

2° caso: visualizzare sul monitor entrambi i file (del file destinazione basta che si veda solo la prima cella della zona di destinazione). Effettuata la selezione, lanciare la macro. Quindi doppio clic sulla prima cella del file destinazione (il primo clic serve ad attivare il foglio) e la copia sarà effettuata.Nell'Inputbox dovrà comparire: [Foglio destinazione]Foglio1!$A$1.

3° caso: selezionare la zona da copiare e lanciare la macro. Doppio clic sul nome del foglio destinazione nella barra in basso a sinistra di Excel. Nell'Inputbox dovrebbe comparire =Nome foglio! (se non compare così, correggere). Aggiungere il nome della cella e nell'Inputbox si leggerà: =Nome foglio!$A$1. Clic su ok e la copia sarà effettuata.

Controlla.

[Anthony47]

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]

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

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?

[gimart]

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?

Al tempo, l'ho provata e funziona alla perfezione .
Vedi che ho ragione quando dico che siete magnifici?
Grazie mille!

[gimart]

Parlando con un amico, ho scoperto che esiste un sistema molto più semplice per effettuare la copia dei formati, compresa l’altezza delle righe, senza ricorrere a macro. Però, poiché l’operazione interessa tutto il foglio, la si può utilizzare solo su fogli diversi o su file diversi.
La procedura è questa
• nel foglio origine non selezionare nulla, ma cliccare con il tasto destro sul tastino con il triangolino che si trova in alto a sinistra, tra le fasce che indicano la denominazione delle righe e quella delle colonne;
• verrà selezionato l’intero foglio e si aprirà una finestra nella quale si selezionerà Copia;
• fatto questo, ci si porti nel foglio o nel file destinazione, nuovo clic con il destro sul tastino di cui sopra;
• verrà selezionato, anche in questo caso, l’intero foglio e si aprirà una finestra nella quale apparirà Opzioni incolla;
• sarà possibile scegliere tra varie opzioni quali: Tutto, oppure Solo valori, oppure Formati, ecc.; qualsiasi opzione si scelga, sarà copiata anche l’altezza delle righe.

[ricky53]

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.

[gimart]

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.

Beh, io, nel post iniziale della discussione, non ho detto che stavo utilizzando la macro suggeritami in un'altro thread, ma che avevo provato in tutti i modi (salvo il copia/incolla con la selezione di tutto il foglio). Poi quella macro è venuta fuori per una domanda di Anthony che, molto gentilmente, mi ha proposto una modifica che consentiva di copiare anche l'altezza delle righe. Comunque, l'importante è che il mio problema sia stato risolto.

[ricky53]

Ciao,
certo la cosa che ha rilevanza è che tu abbia trovato soluzione alla tua problematica.

Buon proseguimento ed alla prossima.

[gimart]

Grazie a tutti, ragazzi.