Condividi:        

problema codice

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

problema codice

Postdi Statix » 28/07/11 13:00

Ciao a tutti,ho un problema con questa riga di codice,
quando mi va copiare le celle non va bene,
vorrei che quando copia mi fa incolla speciale solo valori

Codice: Seleziona tutto
Range("DX26:EC26").Copy Destination:=Sheets("Ambi").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: problema codice

Postdi Anthony47 » 28/07/11 13:08

Codice: Seleziona tutto
Range("DX26:EC26").Copy
Sheets("Ambi").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: problema codice

Postdi Statix » 28/07/11 13:12

Grazie Anthony47,
tutto ok,
ho capito dove sbagliavo,non riuscivo a inserire al posto giusto
il codice incolla speciale.
grazie di nuovo.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: problema codice

Postdi Statix » 30/07/11 20:26

Ciao Anthony47,
volevo chiederti un altra cosa,la formula postata,
copia i dati nell'ultima riga disponibile della colonna B,
volendo applicare la stessa formula,ma partendo da un riferimento preciso
esempio dalla riga B25.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: problema codice

Postdi Flash30005 » 30/07/11 23:10

Sicuramente c'è una funzione tipo cells(25,2).End(xlDown). etc etc
ma la prima cosa che mi viene in mente anche se empirica è
Codice: Seleziona tutto
Range("DX26:EC26").Copy
If Worksheets("Ambi").Range("B" & Rows.Count).End(xlUp).Row < 25 Then
Sheets("Ambi").Range("B25").PasteSpecial Paste:=xlPasteValues
Else
Sheets("Ambi").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End If


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: problema codice

Postdi Anthony47 » 30/07/11 23:48

in alternativa alla proposta di Flash:
a) metti in B24 una intestazione
b) poi usi il codice come ce l' hai oggi.

Se vuoi fare a) nella macro:
Codice: Seleziona tutto
Sheets("Ambi").Range("B24").Value = "Intestazione referita"  'Nota °
Range("DX26:EC26").Copy     'Esistente
Nota*: a parte la prima volta sara' superflua, ma e' piu' semplice farlo tutte le volte che testare se non e' piu' necessario.

Tutto questo sempre nell' ipotesi che tu voglia incollare i dati copiati accodandoli a quelli preesistenti ma partendo dalla riga B25 (in avanti).
Perche' se invece (secondo un' altra interpretazione della richiesta) vuoi sempre incollare in B25 allora basterebbe usare
Codice: Seleziona tutto
Range("DX26:EC26").Copy
Sheets("Ambi").Range("B25").PasteSpecial etc etc


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "problema codice":

problema blocco note
Autore: carlin
Forum: Software Windows
Risposte: 7

Chi c’è in linea

Visitano il forum: Nessuno e 41 ospiti