problema codice

[Statix]

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)

[Anthony47]

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

[Statix]

Grazie Anthony47,
tutto ok,
ho capito dove sbagliavo,non riuscivo a inserire al posto giusto
il codice incolla speciale.
grazie di nuovo.

[Statix]

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.

[Flash30005]

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

[Anthony47]

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