copia e incolla dalla seconda riga all'ultima riga

Question

Ciao Norman,

scusa se per l'ennesima volta ti chiedo consiglio,

vorrei copiare ed incollare dalla seconda riga all'ultima dal foglio al foglio2 dei dati,

non mi dà nessun errore e comunque mi copia celle vuote potresti

cortesemente dirmi dove faccio l'errore?

Sto cercando di fare falcosa di mio "non proprio".

Naturalmente grazie mille in anticipo per la disponibilità dimostrata.

Sub Copiaeincolla()

'

' Copiaeincolla Macro

'

'

Dim LastRow As Long

Dim AllRow As Long

Dim sh As Worksheet 'variabile usata per setteare il foglio Anagrafica

'Private sh1 As Worksheet 'variabile usata per settare il foglio Dati

Dim sh2 As Worksheet 'variabile usata per settare il foglio dbGeneri_Venduti

Set sh = ThisWorkbook.Worksheets("Anagrafica")

Set sh2 = ThisWorkbook.Worksheets("dbGeneri_Venduti")

With sh 

LastRow = sh.Cells(.Rows.Count, 3).End(xlUp).Row

    For AllRow = 2 To LastRow

Range("C2:C" & AllRow).Select

  Selection.Copy

    With sh2

    .Select

    Range("G1").Select

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=True

       End With

        Next

    With Selection

    .EntireColumn.AutoFit

    End With

    Application.CutCopyMode = False

    End With

End Sub

Answer 1

Ciao Danilo,

scusa se per l'ennesima volta ti chiedo consiglio,

vorrei copiare ed incollare dalla seconda riga all'ultima dal foglio al foglio2 dei dati,

non mi dà nessun errore e comunque mi copia celle vuote potresti

cortesemente dirmi dove faccio l'errore?

Sto cercando di fare falcosa di mio "non proprio".

Naturalmente grazie mille in anticipo per la disponibilità dimostrata.

Credo che tu debba aggiungere un punto ad inzio della riga:

Range("C2:C" & AllRow).Select

Altrimenti, questo intervallo sarà interpretato come un riferimento all'intervallo corrispondente sul foglio attivo, il quale porebbe non essere il foglio desiderato!

Tuttavia, dubito che il codice fornirà i risultati desiderati, anche perché ogni operazione di copia\incolla avviene sulla stessa riga del foglio di destinazione.  Pertanto, ogni operazione di copia\incolla sovrascriverà i dati incollati in precedenza!

Forse sarebbe meglio spiegare, in italiano (o inglese !), esattamente ciò che vuoi ottenere,  in modo che noi possiamo adattare il tuo codice.

===

Regards,

Norman

Answer 2

ok grazie mille.

Scusa.

Answer 3

Ciao Norman,

<cut>

Per favore, non ti rivolgere ad una singola persona. Grazie.

La Community è di tutti. Sarebbe meglio postare i link ad eventuali vecchi threads in modo che chiunque, volendo, possa intervenire.

Grazie.