Mantenere dimensione righe/colonne
Cristian
se io ho una tabella e vorrei copiarla su un nuovo foglio, come
faccio a mantenere le stesse dimensioni delle righe e delle colonne?
Grazie
eliano
Assegnando alle righe e colonne del foglio di destinazione le stesse
dimensioni dell'originale; una cosa tipo:
Public Sub prova()
Dim AltRig As Double, LarCol As Double
AltRig = Worksheets("Foglio2").Range("A1").RowHeight
LarCol = Worksheets("Foglio2").Range("A1").ColumnWidth
Worksheets("Foglio3").Range("A1").RowHeight = AltRig
Worksheets("Foglio3").Range("A1").ColumnWidth = LarCol
End Sub
Nel foglio 2 assegna delle dimensioni un po' esagerate alla riga e
colonna 1 e poi lancia la macro.
Eliano
Nunzio
"eliano" <falini...@virgilio.it> ha scritto nel messaggio
news:fe883e5c-a32a-45da...@j8g2000yqd.googlegroups.com...
Ciao Eliano.
Sono interessato al codice che ai postato.
Ho provato su una cartella nuova ma non mi funziona
(non da errore e non modifica rigne e colonne)
allora ho provato cosě:
Ho impostato:
Colonna a, colonna H e colonna K = 3
Riga 10= 33 e,Riga 20 = 50 e Riga 30 = 40
Private Sub CommandButton1_Click()
Dim AltRig As Double
Dim LarCol As Double
Dim d al Long
For d = 1 To 50
AltRig = Worksheets("Foglio1").Range("A" & d).RowHeight
LarCol = Worksheets("Foglio1").Range("A" & d).ColumnWidth
Worksheets("Foglio3").Range("A" & d).RowHeight = AltRig
Worksheets("Foglio3").Range("A" & d).ColumnWidth = LarCol
Next
End Sub
Funziona per le righe e per solo per colonna A mentre,
colonna H e K rimangono invariate.( cioč 8,43 e non 3 come da me impostato)
Per favore puoi dirmi dove sbaglio.
Grazie.
Ciao.
Nunzio
eliano
> "eliano" <falinieli...@virgilio.it> ha scritto nel messaggionews:fe883e5c-a32a-45da...@j8g2000yqd.googlegroups.com...
> On 7 Giu, 14:14, Cristian <cristian.clerici...@gmail.com> wrote:
>
> > Ciao a tutti,
> > se io ho una tabella e vorrei copiarla su un nuovo foglio, come
> > faccio a mantenere le stesse dimensioni delle righe e delle colonne?
> > Grazie
>
> Assegnando alle righe e colonne del foglio di destinazione le stesse
> dimensioni dell'originale; una cosa tipo:
>
> Public Sub prova()
> Dim AltRig As Double, LarCol As Double
> AltRig = Worksheets("Foglio2").Range("A1").RowHeight
> LarCol = Worksheets("Foglio2").Range("A1").ColumnWidth
> Worksheets("Foglio3").Range("A1").RowHeight = AltRig
> Worksheets("Foglio3").Range("A1").ColumnWidth = LarCol
> End Sub
>
> Nel foglio 2 assegna delle dimensioni un po' esagerate alla riga e
> colonna 1 e poi lancia la macro.
> Eliano
>
> Ciao Eliano.
> Sono interessato al codice che ai postato.
> Ho provato su una cartella nuova ma non mi funziona
> (non da errore e non modifica rigne e colonne)
> Ho impostato:
> Colonna a, colonna H e colonna K = 3
> Riga 10= 33 e,Riga 20 = 50 e Riga 30 = 40
>
> Private Sub CommandButton1_Click()
>
> Dim AltRig As Double
> Dim LarCol As Double
> Dim d al Long
>
> For d = 1 To 50
> AltRig = Worksheets("Foglio1").Range("A" & d).RowHeight
> LarCol = Worksheets("Foglio1").Range("A" & d).ColumnWidth
> Worksheets("Foglio3").Range("A" & d).RowHeight = AltRig
> Worksheets("Foglio3").Range("A" & d).ColumnWidth = LarCol
> Next
> End Sub
> Funziona per le righe e per solo per colonna A mentre,
> Per favore puoi dirmi dove sbaglio.
> Grazie.
> Ciao.
> Nunzio
Ciao Nunzio.
Quando dico di leggere le varie istruzioni delle macro, di
interpretarle e di modificarle secondo le proprie esigenze, qualcuno
se l'ha a male.:-))
Non ti inquietare e leggi bene la macro che con queste istruzioni:
> AltRig = Worksheets("Foglio1").Range("A" & d).RowHeight
> LarCol = Worksheets("Foglio1").Range("A" & d).ColumnWidth
> Worksheets("Foglio3").Range("A" & d).RowHeight = AltRig
> Worksheets("Foglio3").Range("A" & d).ColumnWidth = LarCol
tu gli hai detto di modificare "solo" la colonna A aggiungendo solo la
variabile "d" cioè la riga.
Quindi, armati di pazienza ed aggiungi tutte le istruzioni necessarie
per la colonna "H" e per la colonna "K", cioè quattro istruzioni per
ogni colonna.
Cordialmente
Eliano
Scossa
Selezioni le celle, poi Copia (ctrl-c), poi
Menu' Modifica ->
Incolla Speciale ->
Incolla Larghezza colonne ->
OK
Poi Invio
Bye!
Scossa
Scossa
> Selezioni le celle, poi Copia (ctrl-c), poi
> Menu' Modifica ->
> Incolla Speciale ->
> Incolla Larghezza colonne ->
> OK
Oppps, non avevo letto che vuoi anche mantenere l'altezza delle righe,
sorry.
Bye!
Scossa
Nunzio
On 8 Giu, 16:15, "Nunzio" <nunziosalv...@libero.it> wrote:
> "eliano" <falinieli...@virgilio.it> ha scritto nel
> messaggionews:fe883e5c-a32a-45da...@j8g2000yqd.googlegroups.com...
> On 7 Giu, 14:14, Cristian <cristian.clerici...@gmail.com> wrote:
>
> > Ciao a tutti,
> > se io ho una tabella e vorrei copiarla su un nuovo foglio, come
> > faccio a mantenere le stesse dimensioni delle righe e delle colonne?
> > Grazie
>
> Assegnando alle righe e colonne del foglio di destinazione le stesse
> dimensioni dell'originale; una cosa tipo:
>
> Public Sub prova()
> Dim AltRig As Double, LarCol As Double
> AltRig = Worksheets("Foglio2").Range("A1").RowHeight
> LarCol = Worksheets("Foglio2").Range("A1").ColumnWidth
> Worksheets("Foglio3").Range("A1").RowHeight = AltRig
> Worksheets("Foglio3").Range("A1").ColumnWidth = LarCol
> End Sub
>
> Nel foglio 2 assegna delle dimensioni un po' esagerate alla riga e
> colonna 1 e poi lancia la macro.
> Eliano
>
> Ciao Eliano.
> Sono interessato al codice che ai postato.
> Ho provato su una cartella nuova ma non mi funziona
> (non da errore e non modifica rigne e colonne)
> Ho impostato:
> Colonna a, colonna H e colonna K = 3
> Riga 10= 33 e,Riga 20 = 50 e Riga 30 = 40
>
> Private Sub CommandButton1_Click()
>
> Dim AltRig As Double
> Dim LarCol As Double
> Dim d al Long
>
> For d = 1 To 50
> AltRig = Worksheets("Foglio1").Range("A" & d).RowHeight
> LarCol = Worksheets("Foglio1").Range("A" & d).ColumnWidth
> Worksheets("Foglio3").Range("A" & d).RowHeight = AltRig
> Worksheets("Foglio3").Range("A" & d).ColumnWidth = LarCol
> Next
> End Sub
> Funziona per le righe e per solo per colonna A mentre,
> Per favore puoi dirmi dove sbaglio.
> Grazie.
> Ciao.
> Nunzio
Ciao Nunzio.
Quando dico di leggere le varie istruzioni delle macro, di
interpretarle e di modificarle secondo le proprie esigenze, qualcuno
se l'ha a male.:-))
Non ti inquietare e leggi bene la macro che con queste istruzioni:
> AltRig = Worksheets("Foglio1").Range("A" & d).RowHeight
> LarCol = Worksheets("Foglio1").Range("A" & d).ColumnWidth
> Worksheets("Foglio3").Range("A" & d).RowHeight = AltRig
> Worksheets("Foglio3").Range("A" & d).ColumnWidth = LarCol
tu gli hai detto di modificare "solo" la colonna A aggiungendo solo la
variabile "d" cio� la riga.
Quindi, armati di pazienza ed aggiungi tutte le istruzioni necessarie
per la colonna "H" e per la colonna "K", cio� quattro istruzioni per
ogni colonna.
Cordialmente
Eliano
Ciao Eliano.
"Quindi, armati di pazienza . . . . "
Credo tu abbia proprio raggione, sar� il caldo improvviso?
o la fretta?
Ho riletto il codice con pi� attenzione ed ho risolto"credo bene" cos�:
Dim AltRig As Double
Dim LarCol As Double
Dim d As Long
For d = 1 To 50
AltRig = Worksheets("Foglio1").Cells(d, 1).RowHeight
LarCol = Worksheets("Foglio1").Cells(1, d).ColumnWidth
Worksheets("Foglio3").Cells(d, 1).RowHeight = AltRig
Worksheets("Foglio3").Cells(1, d).ColumnWidth = LarCol
Next
Un grosso grazie a te e a Scossa
Se non esiste di meglio pu� bastare.
Grazie a tutti.
Ciao.
Nunzio.
Nunzio
Ciao Eliano.
(Lo riinvio perchè io non lovedo.)
"Quindi, armati di pazienza . . . . "
Credo tu abbia proprio raggione, sarà il caldo improvviso?
o la fretta?
Ho riletto il codice con più attenzione ed ho risolto"credo bene" così:
Dim AltRig As Double
Dim LarCol As Double
Dim d As Long
For d = 1 To 50
AltRig = Worksheets("Foglio1").Cells(d, 1).RowHeight
LarCol = Worksheets("Foglio1").Cells(1, d).ColumnWidth
Worksheets("Foglio3").Cells(d, 1).RowHeight = AltRig
Worksheets("Foglio3").Cells(1, d).ColumnWidth = LarCol
Next
Un grosso grazie a te e a Scossa
Se non esiste di meglio può bastare.
eliano
> "eliano" <falinieli...@virgilio.it> ha scritto nel messaggionews:ffa2a752-18dc-4b4b...@u7g2000yqm.googlegroups.com...
>
> - Mostra testo citato -
Mah, se ti funziona così nel tuo contesto, va bene; contento te
contenti tutti. :-))
Grazie per il riscontro.
Ciao
Eliano
Nunzio
> > Ho impostato:
> > Colonna a, colonna H e colonna K = 3
> > Riga 10= 33 e,Riga 20 = 50 e Riga 30 = 40
>
> > Private Sub CommandButton1_Click()
>
> > Dim AltRig As Double
> > Dim LarCol As Double
> > Dim d al Long
>
> > For d = 1 To 50
> > AltRig = Worksheets("Foglio1").Range("A" & d).RowHeight
> > LarCol = Worksheets("Foglio1").Range("A" & d).ColumnWidth
> > Worksheets("Foglio3").Range("A" & d).RowHeight = AltRig
> > Worksheets("Foglio3").Range("A" & d).ColumnWidth = LarCol
> > Next
> > End Sub
> > Funziona per le righe e per solo per colonna A mentre,
> > impostato)
> > Per favore puoi dirmi dove sbaglio.
> > Grazie.
> > Ciao.
> > Nunzio
>
> Ciao Nunzio.
> Quando dico di leggere le varie istruzioni delle macro, di
> interpretarle e di modificarle secondo le proprie esigenze, qualcuno
> se l'ha a male.:-))
> Non ti inquietare e leggi bene la macro che con queste istruzioni:
>
> > AltRig = Worksheets("Foglio1").Range("A" & d).RowHeight
> > LarCol = Worksheets("Foglio1").Range("A" & d).ColumnWidth
> > Worksheets("Foglio3").Range("A" & d).RowHeight = AltRig
> > Worksheets("Foglio3").Range("A" & d).ColumnWidth = LarCol
>
> tu gli hai detto di modificare "solo" la colonna A aggiungendo solo la
>
> Quindi, armati di pazienza ed aggiungi tutte le istruzioni necessarie
> ogni colonna.
> Cordialmente
> Eliano
>
> Ciao Eliano.
> "Quindi, armati di pazienza . . . . "
> o la fretta?
> Ho riletto il codice con piů attenzione ed ho risolto"credo bene" cosě:
>
> Dim AltRig As Double
> Dim LarCol As Double
> Dim d As Long
>
> For d = 1 To 50
> AltRig = Worksheets("Foglio1").Cells(d, 1).RowHeight
> LarCol = Worksheets("Foglio1").Cells(1, d).ColumnWidth
> Worksheets("Foglio3").Cells(d, 1).RowHeight = AltRig
> Worksheets("Foglio3").Cells(1, d).ColumnWidth = LarCol
> Next
>
> Un grosso grazie a te e a Scossa
> Grazie a tutti.
> Ciao.
> Nunzio.- Nascondi testo citato
>
> - Mostra testo citato -
Mah, se ti funziona cosě nel tuo contesto, va bene; contento te
contenti tutti. :-))
Grazie per il riscontro.
Ciao
Eliano
Ciao Eliano.-
Diciamo che per la mia poca esperienra mi posso accontentare perň,
"Mah, se ti funziona cosě nel tuo contesto.." mi piacerebbe migliorare.
E' possibile ? Mi semra di capire di si.
Hai qualche suggerimento ?
Tante grazie.
Ciao.
Nunzio.
eliano
> "eliano" <falinieli...@virgilio.it> ha scritto nel messaggionews:e7fd5500-3148-4a23...@k39g2000yqb.googlegroups.com...
> > > Ho impostato:
> > > Colonna a, colonna H e colonna K = 3
> > > Riga 10= 33 e,Riga 20 = 50 e Riga 30 = 40
>
> > > Private Sub CommandButton1_Click()
>
> > > Dim AltRig As Double
> > > Dim LarCol As Double
> > > Dim d al Long
>
> > > For d = 1 To 50
> > > AltRig = Worksheets("Foglio1").Range("A" & d).RowHeight
> > > LarCol = Worksheets("Foglio1").Range("A" & d).ColumnWidth
> > > Worksheets("Foglio3").Range("A" & d).RowHeight = AltRig
> > > Worksheets("Foglio3").Range("A" & d).ColumnWidth = LarCol
> > > Next
> > > End Sub
> > > Funziona per le righe e per solo per colonna A mentre,
> > > impostato)
> > > Per favore puoi dirmi dove sbaglio.
> > > Grazie.
> > > Ciao.
> > > Nunzio
>
> > Ciao Nunzio.
> > Quando dico di leggere le varie istruzioni delle macro, di
> > interpretarle e di modificarle secondo le proprie esigenze, qualcuno
> > se l'ha a male.:-))
> > Non ti inquietare e leggi bene la macro che con queste istruzioni:
>
> > > AltRig = Worksheets("Foglio1").Range("A" & d).RowHeight
> > > LarCol = Worksheets("Foglio1").Range("A" & d).ColumnWidth
> > > Worksheets("Foglio3").Range("A" & d).RowHeight = AltRig
> > > Worksheets("Foglio3").Range("A" & d).ColumnWidth = LarCol
>
> > tu gli hai detto di modificare "solo" la colonna A aggiungendo solo la
>
> > Quindi, armati di pazienza ed aggiungi tutte le istruzioni necessarie
> > ogni colonna.
> > Cordialmente
> > Eliano
>
> > Ciao Eliano.
> > "Quindi, armati di pazienza . . . . "
> > o la fretta?
> > Ho riletto il codice con più attenzione ed ho risolto"credo bene" così:
>
> > Dim AltRig As Double
> > Dim LarCol As Double
> > Dim d As Long
>
> > For d = 1 To 50
> > AltRig = Worksheets("Foglio1").Cells(d, 1).RowHeight
> > LarCol = Worksheets("Foglio1").Cells(1, d).ColumnWidth
> > Worksheets("Foglio3").Cells(d, 1).RowHeight = AltRig
> > Worksheets("Foglio3").Cells(1, d).ColumnWidth = LarCol
> > Next
>
> > Un grosso grazie a te e a Scossa
> > Grazie a tutti.
> > Ciao.
> > Nunzio.- Nascondi testo citato
>
> > - Mostra testo citato -
>
> contenti tutti. :-))
> Grazie per il riscontro.
> Ciao
> Eliano
>
> Ciao Eliano.-
> "Mah, se ti funziona così nel tuo contesto.." mi piacerebbe migliorare.
> E' possibile ? Mi semra di capire di si.
> Hai qualche suggerimento ?
> Tante grazie.
> Ciao.
>
> - Mostra testo citato -
Ciao Nunzio.
Non conosco il tuo contesto, ma credo che quello che desideri tu lo
possa ottenere facendo semplicemente la copia del foglio.
Prova: clicca di destro sulla linguetta del foglio, poi scegli "Copia
o Sposta", quindi "Crea una copia" e relativo OK; dovresti ottenere un
nuovo foglio identico all'originale, anche per le formattazioni.
Ovviamente rinomina il nuovo foglio come desideri.
Per quanto riguarda la tua macro, ti faccio notare che se modifichi le
dimensioni in larghezza di una cella, XL assume quella larghezza per
tutte le celle successive, cioè per tutta la colonna; diversamente
dall'altezza della riga che può assumere valori diversi per ogni riga;
la mia risposta si riferiva a questo.
Facci sapere e saluti cordiali
Eliano
eliano
> "eliano" <falinieli...@virgilio.it> ha scritto nel messaggionews:e7fd5500-3148-4a23...@k39g2000yqb.googlegroups.com...
> > > Ho impostato:
> > > Colonna a, colonna H e colonna K = 3
> > > Riga 10= 33 e,Riga 20 = 50 e Riga 30 = 40
>
> > > Private Sub CommandButton1_Click()
>
> > > Dim AltRig As Double
> > > Dim LarCol As Double
> > > Dim d al Long
>
> > > For d = 1 To 50
> > > AltRig = Worksheets("Foglio1").Range("A" & d).RowHeight
> > > LarCol = Worksheets("Foglio1").Range("A" & d).ColumnWidth
> > > Worksheets("Foglio3").Range("A" & d).RowHeight = AltRig
> > > Worksheets("Foglio3").Range("A" & d).ColumnWidth = LarCol
> > > Next
> > > End Sub
> > > Funziona per le righe e per solo per colonna A mentre,
> > > impostato)
> > > Per favore puoi dirmi dove sbaglio.
> > > Grazie.
> > > Ciao.
> > > Nunzio
>
> > Ciao Nunzio.
> > Quando dico di leggere le varie istruzioni delle macro, di
> > interpretarle e di modificarle secondo le proprie esigenze, qualcuno
> > se l'ha a male.:-))
> > Non ti inquietare e leggi bene la macro che con queste istruzioni:
>
> > > AltRig = Worksheets("Foglio1").Range("A" & d).RowHeight
> > > LarCol = Worksheets("Foglio1").Range("A" & d).ColumnWidth
> > > Worksheets("Foglio3").Range("A" & d).RowHeight = AltRig
> > > Worksheets("Foglio3").Range("A" & d).ColumnWidth = LarCol
>
> > tu gli hai detto di modificare "solo" la colonna A aggiungendo solo la
>
> > Quindi, armati di pazienza ed aggiungi tutte le istruzioni necessarie
> > ogni colonna.
> > Cordialmente
> > Eliano
>
> > Ciao Eliano.
> > "Quindi, armati di pazienza . . . . "
> > o la fretta?
> > Ho riletto il codice con più attenzione ed ho risolto"credo bene" così:
>
> > Dim AltRig As Double
> > Dim LarCol As Double
> > Dim d As Long
>
> > For d = 1 To 50
> > AltRig = Worksheets("Foglio1").Cells(d, 1).RowHeight
> > LarCol = Worksheets("Foglio1").Cells(1, d).ColumnWidth
> > Worksheets("Foglio3").Cells(d, 1).RowHeight = AltRig
> > Worksheets("Foglio3").Cells(1, d).ColumnWidth = LarCol
> > Next
>
> > Un grosso grazie a te e a Scossa
> > Grazie a tutti.
> > Ciao.
> > Nunzio.- Nascondi testo citato
>
> > - Mostra testo citato -
>
> contenti tutti. :-))
> Grazie per il riscontro.
> Ciao
> Eliano
>
> Ciao Eliano.-
> "Mah, se ti funziona così nel tuo contesto.." mi piacerebbe migliorare.
> E' possibile ? Mi semra di capire di si.
> Hai qualche suggerimento ?
> Tante grazie.
> Ciao.
>
> - Mostra testo citato -
Mah Nunzio, questo è il terzo post che ti invio; speriamo che
arrivi.:-))
Ti dicevo che puoi ottenere quello che desideri con:
Clicca di destro sulla linguetta del foglio "originale"
Clicca su Copia o sposta
Metti il flag nella casellina: Crea una copia
Conferma con OK
La copia ottenuta dovrebbe essere identica all'originale anche per le
formattazioni; ovviamente rinomina il foglio.
Per quanto riguarda la mia precedente risposta, considera che se cambi
le dimensioni in larghezza di una cella, la colonna assume quelle
dimensioni e quindi le assume per tutte le celle di quella colonna;
diversamente dall' altezza della cella che può essere diversa da tutte
le altre celle, addirittura cella per cella..
Non conoscendo il tuo contesto ti avevo inviato quella risposta forse
un po' sibillina.
Saluti
Eliano
eliano
>
> - Mostra testo citato -
Allegria, ne vedo due.:-)) Abbi pazienza, Nunzio ma il primo si deve
essere fermato a chiacchierare da qualche parte.:-))
Nunzio
On 10 Giu, 14:39, "Nunzio" <nunziosalv...@libero.it> wrote:
> "eliano" <falinieli...@virgilio.it> ha scritto nel
> messaggionews:e7fd5500-3148-4a23...@k39g2000yqb.googlegroups.com...
> On 9 Giu, 15:29, "Nunzio" <nunziosalv...@libero.it> wrote:
>
>
> Ciao Eliano.-
> Diciamo che per la mia poca esperienra mi posso accontentare perň,
> "Mah, se ti funziona cosě nel tuo contesto.." mi piacerebbe migliorare.
> E' possibile ? Mi semra di capire di si.
> Hai qualche suggerimento ?
> Tante grazie.
> Ciao.
> Nunzio.- Nascondi testo citato
>
> - Mostra testo citato -
Mah Nunzio, questo č il terzo post che ti invio; speriamo che
arrivi.:-))
Ti dicevo che puoi ottenere quello che desideri con:
Clicca di destro sulla linguetta del foglio "originale"
Clicca su Copia o sposta
Metti il flag nella casellina: Crea una copia
Conferma con OK
La copia ottenuta dovrebbe essere identica all'originale anche per le
formattazioni; ovviamente rinomina il foglio.
Per quanto riguarda la mia precedente risposta, considera che se cambi
le dimensioni in larghezza di una cella, la colonna assume quelle
dimensioni e quindi le assume per tutte le celle di quella colonna;
diversamente dall' altezza della cella che puň essere diversa da tutte
le altre celle, addirittura cella per cella..
Non conoscendo il tuo contesto ti avevo inviato quella risposta forse
un po' sibillina.
Saluti
Eliano
Ciao Eliano.
Di solito uso il metodo copia ma, visto che il Vb mi appassiona
cerco sempre di scrivere del codice anche se qualche volta non
velocizza le operazzioni. Quello che mi ha incuriosito č stata la
"risposta forse un po' sibillina." l'ho vista come un invito a ricercare
del codice piů "sofisticato".
Ti ringrazzio tantissimo per il tempo, la pazienza che mi hai
dedicato.
Un grosso grazie.
Ciao.
Nunzio.
Scossa
> diversamente dall' altezza della cella che può essere diversa da tutte
> le altre celle, addirittura cella per cella..
Scusa, ma in quale versione di Excel: nella 2010 o in quella "Scotch
15 Years Old" :-)
Seriamente: fino a Excel 2003 non mi pare proprio esista questa
possibilità.
Bye!
Scossa
Scossa
> Allegria, ne vedo due.:-))
Ecco Eliano, questo conferma la mia ipotesi sullo Scotch :-)))
>Abbi pazienza, Nunzio ma il primo si deve
> essere fermato a chiacchierare da qualche parte.:-))
Aggiungiamo anche questa scusa al pentalogo di Plinius?
Bye!
Scossa
eliano
LOL
Per il manifesto di Plinius senti lui; non vorrei interferire sulla
sua analisi con considerazioni personali forse inadeguate.:-D
Uso Google Groups e normalmente i post accettati vengono visualizzati
entro 30-35 secondi; trascordi 30 minuti senza che nulla si
evidenziasse ho inviato il secondo post ma, non vedendo niente, dopo
15 minuti ho inviato il terzo. Trascorsi ulteriori 30 secondi mi sono
apparsi sia il secondo che il terzo, mentre il primo continua tuttora
a latitare. Sinceramente avevo cominciato a pensare che anche Google
Group fosse stato eliminato, ma fortunatamente quello continua ancora
ad esistere.
Vedi,caro H.E. (homo electricus) :-)) in questo 3D non ho risposto
all'OP di fare "semplicemente" una copia, ma ho ritenuto più opportuno
segnalare che quando esiste la possibilità di quantificare una
caratteristica qualsiasi ,ad esempio la larghezza della colonna o
l'altezza della riga, usata in un foglio di XL (uso il 2003 e NON ho
assolutamente intenzione nè di passare al 2007 nè al 2010), la
medesima caratteristica può essere trasferita in maniera assolutamente
identica in un altro foglio qualsiasi di qualsiasi altro file XL.
Per quanto riguarda il 15 years old, comincerò ad usarlo quando avrò
terminato una bottiglia di Rum (h + h-) di pari età che sto seccando
in questo periodo; ti terrò informato onde verificare insieme gli
effetti collaterali. :-))
Un cordialissimo saluto
Eliano
eliano
> "eliano" <falinieli...@virgilio.it> ha scritto nel messaggionews:2626f1ba-26dc-4a31...@g19g2000yqc.googlegroups.com...
> On 10 Giu, 14:39, "Nunzio" <nunziosalv...@libero.it> wrote:
>
> > "eliano" <falinieli...@virgilio.it> ha scritto nel
> > messaggionews:e7fd5500-3148-4a23...@k39g2000yqb.googlegroups.com...
> > On 9 Giu, 15:29, "Nunzio" <nunziosalv...@libero.it> wrote:
>
> > Ciao Eliano.-
> > E' possibile ? Mi semra di capire di si.
> > Hai qualche suggerimento ?
> > Tante grazie.
> > Ciao.
> > Nunzio.- Nascondi testo citato
>
> > - Mostra testo citato -
>
> arrivi.:-))
>
> Ti dicevo che puoi ottenere quello che desideri con:
> Clicca di destro sulla linguetta del foglio "originale"
> Clicca su Copia o sposta
> Metti il flag nella casellina: Crea una copia
> Conferma con OK
>
> La copia ottenuta dovrebbe essere identica all'originale anche per le
> formattazioni; ovviamente rinomina il foglio.
>
> Per quanto riguarda la mia precedente risposta, considera che se cambi
> le dimensioni in larghezza di una cella, la colonna assume quelle
> dimensioni e quindi le assume per tutte le celle di quella colonna;
> le altre celle, addirittura cella per cella..
> Non conoscendo il tuo contesto ti avevo inviato quella risposta forse
> un po' sibillina.
>
> Saluti
> Eliano
>
> Ciao Eliano.
> Di solito uso il metodo copia ma, visto che il Vb mi appassiona
> cerco sempre di scrivere del codice anche se qualche volta non
> "risposta forse un po' sibillina." l'ho vista come un invito a ricercare
> Ti ringrazzio tantissimo per il tempo, la pazienza che mi hai
> dedicato.
> Un grosso grazie.
> Ciao.
> Nunzio.
Ciao Nunzio.
Cercherò di eliminare ogni parvenza di "sibillinità" dalla mia
risposta.
Correvano gli anni 2003-2004 e sul NG appena nato imperversavano due
padri (Maurizio Borrelli & Tiziano Marmiroli) ed un fratello (Mauro
Gamberini), oltre ad altri notevolmente meritevoli.
I padri richiedevano espressamente agli OP del momento di
"sperimentare, sperimentare, sperimentare, etc ma sempre
sperimentare", mentre fratello Mauro sparava macro e ce l'aveva con la
pappa pronta.
Maurizio si è scocciato da tempo abbandonando il NG, Tiziano è sempre
presente e continua con le sue interessanti segnalazioni a mantenere
l'invito a sperimentare, Mauro fornisce soluzioni egregie
sottintendendo comunque la sperimentazione.
So bene che tu sei interessato al Vba e proprio per questo ti faccio
presente che potevi ottenere una risposta in Vba a questo argomento di
tuo interesse facendo semplicemente una sperimentazione che ti avrebbe
tolto ogni dubbio.
Fra le funzioni native di XL esiste il "Copia", L' "incolla" e L'
"Incolla Speciale"; quest'ultimo almeno nel 2003 ha la bellezza di 17
opzioni diverse.
Una potenzialità notevole di XL è il "Registratore di Macro" e, come
sai bene, se lanci il Registratore ed esegui un Copia/IncollaSpeciale
per ognuna delle 17 opzioni puoi ottenere 17 macro diverse che puoi
usare adattandole al tuo problema specifico del momento.
In altre parole, se, con il registratore attivato, avessi effettuato
il Copia - IncollaSpeciale - Formati, dovresti aver ottenuto una
risposta corretta e funzionante da usare per l'automazione del tuo
progetto.
Ovviamente se invece vuoi modificare "solo" le caratteristiche di
formattazione di una/due colonne o una/due righe di un foglio allora
puoi usare la mia prima risposta, sempre dopo opportuna
sperimentazione.:-))
Certo che la sibillinità della risposta sia stata risolta, un cordiale
saluto
Eliano
eliano
Ciao Scossa.
Con doppio LOL, rileggendo ho capito.
Non dipende dal Rum (h+h-), ma:
> diversamente dall' altezza della cella che può essere diversa da tutte
> le altre celle, addirittura cella per cella
sarebbe da leggere come:
diversamente dall' altezza della cella che può essere diversa da tutte
le altre celle, OVVIAMENTE riga per riga..
Con un ulteriore LOL, saluti
Eliano
paoloard
> On 11 Giu, 08:28, Scossa <scossa...@gmail.com> wrote:
>> On 11 Giu, 00:21, eliano <falinieli...@virgilio.it> wrote:
>
> Per quanto riguarda il 15 years old, comincer� ad usarlo quando avr�
> terminato una bottiglia di Rum (h + h-) di pari et� che sto seccando
> in questo periodo; ti terr� informato onde verificare insieme gli
> effetti collaterali. :-))
>
> Un cordialissimo saluto
> Eliano
ciao Eliano (alias Aquila della Notte), attento al pieno che poi perdi
l'orientamento e ti ritrovi in mezzo ai Talibani. Quelli mica scherzano!
Noi, per fortuna ancora s� ;-)
sempre pi� cordialmente
--
ciao paoloard
http://riolab.org
Nunzio
Ciao Eliano.
Concordo con te sulla "sperimentazione".
Spesso, presi dalla voglia di risolvere il problema, non si pensa
alle soluzioni "facili e pronti " forniti dal "Registratore di Macro".
Ti confesso che la "sibillinità" fa riflettere e stimola lmolto a ricerca
di nuove soluzioni.
Accetto volentieri e con piacere la tua spiegazione-suggerimento e
come al solito un grossissimo grazie e un cordiale saluto.
Nunzio.
Scossa
@e5g2000yqn.googlegroups.com>, falini...@virgilio.it says...
>
>
> Uso Google Groups e normalmente i post accettati vengono visualizzati
> entro 30-35 secondi; trascordi 30 minuti senza che nulla si
> evidenziasse ho inviato il secondo post ma, non vedendo niente, dopo
> 15 minuti ho inviato il terzo. Trascorsi ulteriori 30 secondi mi sono
> apparsi sia il secondo che il terzo, mentre il primo continua tuttora
> a latitare. Sinceramente avevo cominciato a pensare che anche Google
> Group fosse stato eliminato, ma fortunatamente quello continua ancora
> ad esistere.
Si uso spesso anch'io g.g. per leggere e postare ed in effetti ogni tanto
fa qualche scherzo.
>
> Per quanto riguarda il 15 years old, comincerò ad usarlo quando avrò
> terminato una bottiglia di Rum (h + h-) di pari età che sto seccando
> in questo periodo; ti terrò informato onde verificare insieme gli
> effetti collaterali. :-))
Mi hai incuriosito, ho cercato su internet ma non ho trovato niente: che
marca di Rum è h + h- ?.
Rhum di 15 anni mi pare ci sia il Pampero e forse l'Havana Club.
Opps, siamo leggermente O.T., bhe un bicchierino a chi ce lo farà notare
non lo negeherAI di certo :-))
--
Bye!
Scossa
eliano
> "eliano" <falinieli...@virgilio.it> ha scritto nel messaggionews:955150aa-5220-44cc...@e5g2000yqn.googlegroups.com...
Ciao Paolo.
In vita mia ho preso una sola sbornia degna di quel nome, complice una
bevuta alla salute del capitano Paf., in zona Altoatesina, con il
defunto Klotz alle porte e i tralicci che saltavano.
Come vedi dopo che sono sorpavvissuto a cinque bottiglie del "buon
vino Ferrari", cosa vuoi che mi facciano quattro Talebani ed un po' di
Rum?
Sorridiamo gente,sorridiamo finchè ne siamo capaci e con la massima
cordialità ti saluto
Eliano
eliano
> In article <955150aa-5220-44cc-b04f-5c6c93ef8208
Ciao Scossa.
[h+h-] Per il Rum, qualcuno lo chiama Ron, altri Rhum; altri (un
grande amico dipendente Enel) in un sms scrisse letteralmente: "porta
il Rohm" e quando gli chiesi se gli andava bene una bottiglia di
Leyda rispose che non conosceva quella marca ma che portassi anche
quello.:-))
Quello che sto seccando adesso è un Matusalem 15 anni 40° coming from
Cuba, anche se lo dovrebbero avere "blendato" nella Repubblica
Dominicana; discreto, potabile ma niente a che vedere con il "rumme"
Livornese con il quale viene tuttora prodotta nella zona dell'Ardenza
la "Torpedine" vecchia maniera.
O.T. ? Certo che siamo OT ma, data la situazione, non pensiamoci piu'
e beviamoci sopra.:-))
Saluti
Eliano
Scossa
>
> [h+h-] Per il Rum, qualcuno lo chiama Ron, altri Rhum;
> grande amico dipendente Enel) in un sms scrisse letteralmente: "porta
> il Rohm" e quando gli chiesi se gli andava bene una bottiglia di
> Leyda rispose che non conosceva quella marca ma che portassi anche
> quello.:-))
Ecco, avessi detto a me di portare il *Rohm* avrei portato un mandrino
autoserrante per trapano :-))
> Quello che sto seccando adesso è un Matusalem 15 anni 40° coming from
> Cuba, anche se lo dovrebbero avere "blendato" nella Repubblica
> Dominicana; discreto, potabile ma niente a che vedere con il "rumme"
> Livornese con il quale viene tuttora prodotta nella zona dell'Ardenza
> la "Torpedine" vecchia maniera.
Hmmm.... immagino un *torcibudella*, spero niente a che vedere con il
Bug-Juice di TEXiana memoria :-))
> O.T. ? Certo che siamo OT ma, data la situazione, non pensiamoci piu'
> e beviamoci sopra.:-))
>
Cin-cin :-)
Bye!
Scossa
eliano
Mandrino per trapano ? Che valore di impedenza ? :-))
Della serie: Teatro popolare Toscano.
:" O in do' tu vai ??? "
" Eh, le son cipollee !! "
" O icche' tu ciai sul biroccio ??? "
" E vo' a Firenzeee !! "
'Notteee
Eliano