Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

vba copia valori celle unite

490 views
Skip to first unread message

gatman

unread,
Sep 14, 2003, 5:21:26 AM9/14/03
to
salve a tutti,
l'area A1:C10 contiene le celle B3:C4 unite.
in vba nel copiare ed incollare i valori, va in errore;

......
Range("A1:C10").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlValues, .........
......

dov'e'..... l'orror?
gatman

@virgilio.it ivano

unread,
Sep 14, 2003, 7:15:44 AM9/14/03
to

"gatman" <gat...@libero.it> ha scritto nel messaggio
news:050001c37aa1$92844090$a401...@phx.gbl...


In Vba non so proprio...nelle macro 4.0 ho ovviato l'errore copiando prima i
formati e poi i valori.
penso che risolvi aggiungendo:
> Selection.PasteSpecial Paste:=xlFormat(se così è la costante), .........
prima di:
> Selection.PasteSpecial Paste:=xlValues, .........


ivano

gatman

unread,
Sep 14, 2003, 7:55:48 AM9/14/03
to

>> l'area A1:C10 contiene le celle B3:C4 unite.
>> in vba nel copiare ed incollare i valori, va in errore;

>> ......
>> Range("A1:C10").Select
>> Selection.Copy
>> Range("F1").Select
>> Selection.PasteSpecial Paste:=xlValues, .........
>> ......

>> dov'e'..... l'orror?

>In Vba non so proprio...nelle macro 4.0 ho ovviato
l'errore copiando prima i
>formati e poi i valori.
>penso che risolvi aggiungendo:
>> Selection.PasteSpecial Paste:=xlFormat(se così è la
costante), .........
>prima di:
>> Selection.PasteSpecial Paste:=xlValues, .........

grazie Ivano, ma non funziona:
Ho aggiunto
Selection.PasteSpecial Paste:=xlFormats (con la s. cosi'
dice il registratore)
ma va sempre in errore sull'istruzione
Selection.PasteSpecial Paste:=xlValues, .........
Vuole le celle separate.
Occorre qualche MergeArea? chi lo sa?

grazie cmq
gatman


fernando cinquegrani

unread,
Sep 14, 2003, 11:35:40 AM9/14/03
to
"gatman" <gat...@libero.it> ha scritto nel messaggio news:050001c37aa1$92844090$a401...@phx.gbl...
| salve a tutti,
| l'area A1:C10 contiene le celle B3:C4 unite.
| in vba nel copiare ed incollare i valori, va in errore;

puoi aggirare l'ostacolo...

Sub copiavalori()
Dim sorgente As Range, destinazione As Range
Set sorgente = Range("a1:c10")
Set destinazione = Range("f1")
sorgente.Copy Destination:=destinazione
For Each c In sorgente
destinazione.Cells(c.Row, c.Column) = c.Value
Next c
End Sub
.f
http://www.prodomosua.it


gatman

unread,
Sep 14, 2003, 12:49:40 PM9/14/03
to

Grazie .f,
funziona, quasi!
avevo dimenticato di dire che in *destinazione* vi sono
alcune celle che si sformattano (convalide) con

>sorgente.Copy Destination:=destinazione

ho provato ad eliminare questa riga e funziona.

grazie
gatman

0 new messages