copiare valori da un foglio ad altro excel

[tigre2209]

ho un foglio excel cosi:
cella A1 cognome cella B1 nome
cella A 4 cognome cella B4 nome
ecc.....

dal foglio 2 come posso copiare in automatico (trascinamento) i dati cosi:
foglio 2 cella A1 cognome(della cella A1)
foglio 2 cella B1 nome della cella B1
foglio 2 cella A2 cognome(della cella A4)
foglio 2 cella B2 nome della cella B4
ecc....

in pratica devo incrementare la cella di 3 (in automatico)

[Gas75]

Da Foglio 1 clicchi nel rettangolo in alto a sinistra, all'incrocio tra le intestazioni di righe e colonne, fai Copia, vai in Foglio 2, ti metti in A1 e fai Incolla.
Poi selezioni le righe 2 e 3 (che saranno vuote, stando al tuo esempio), clic destro, Elimina.

[nicola75ss]

Originariamente inviato da tigre2209
ho un foglio excel cosi:
cella A1 cognome cella B1 nome
cella A 4 cognome cella B4 nome
ecc.....

dal foglio 2 come posso copiare in automatico (trascinamento) i dati cosi:
foglio 2 cella A1 cognome(della cella A1)
foglio 2 cella B1 nome della cella B1
foglio 2 cella A2 cognome(della cella A4)
foglio 2 cella B2 nome della cella B4
ecc....

in pratica devo incrementare la cella di 3 (in automatico)

In soldoni vuoi semplicemente eliminare le righe vuote tra un nominativo e l'altro?

[tigre2209]

in pratica vorrei copiare del foglio 1 alcune celle.
foglio2 A1=foglio1!A1
A2=foglio1!A4
A3=foglio1!A7
quindi dovrei saltare ogni volta 2 celle.
posso fare cosi:

A2=foglio1!A(4+2??

[Gas75]

La soluzione più veloce è quella che ti ho suggerito io.
Non puoi effettuare operazioni matematiche con le coordinate delle celle!

[nicola75ss]

Sub copia()
Dim ultima As Long, i As Long, j As Long
ultima = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row  'trovo l'ultima riga del foglio 1
j = 1
For i = 1 To ultima Step 3 'ciclo il contenuto a salti di 3 righe
    Sheets(1).Cells(i, 1).EntireRow.Copy Destination:=Sheets(2).Cells(j, 1) 'copio dal foglio 1 al foglio 2 senza lasciare righe vuote
j = j + 1
Next i
End Sub

[tigre2209]

ho capito, ma volendo farlo direttamente da excel?

[nicola75ss]

non puoi

[Gas75]

Originariamente inviato da tigre2209
ho capito, ma volendo farlo direttamente da excel?

Ribadisco...

[tigre2209]

ho privato cosi :

Sub copia()
Dim ultima As Long, i As Long, j As Long
ultima = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row 'trovo l'ultima riga del foglio 1
j = 1
For i = 1 To ultima Step 3 'ciclo il contenuto a salti di 3 righe
Sheets(1).Cells(i, 1).EntireRow.Copy Destination:=Sheets(2).Cells(j, 1) 'copio dal foglio 1 al foglio 2 senza lasciare righe vuote
j = j + 1
Next i
End Sub

e mi copia tutta la riga completa.
Io dovrei copiare in fila alcuni campi. Il foglio1 è cosi composto:

F1 cognome B4 nome D4 giorni D5 citta
F8 cognome B10 nome D10 giorni D12 citta
ECC...
l'incremento sulle righe successive è lo stesso
come posso copiare solo quelle celle???