Trsposizione valori stessa voce tra fogli

[Ricky0185]

Mi arrendo.
Buonasera, nella macro del file allegato, estremamente semplificato, non riesco a modificare/integrare/riscrivere l’istruzione che mi permetta di copiare sul Foglio2 colonna C i valori che stanno sul Foglio1 colonna F stessa Tabella. Il problema mi si presenta solo quando o non ci sono valori nella riga (esempio riga 2, ma questo l’ho risolto con l’istruzione

Codice: Seleziona tutto

If cl.Value = "" Or cl.Offset(1, 1).Value = "" Then GoTo 10)

o c’è una sola riga di dati per cui l’istruzione

Codice: Seleziona tutto

C.Offset(0, 2).Value = cl.Offset(1, 1).End(xlDown).End(xlToRight).Value

mi da come risultato zero (vedi riga 53 Foglio1 che non viene riportata in riga 19 Foglio2).
Saluti
R

[Ricky0185]

Elementare Watson. Bastava aggiungere un altro If. Non dubito ci siano altre soluzioni, ma come dice Anthony....Se funziona va bene così. Ecco la macro aggiornata

Codice: Seleziona tutto

Sub Da_Foglio1_A_Foglio2()
Dim cl As Range '1
Dim C As Range '2
    For Each cl In Sheets("Foglio1").Range("a2:a200")
        If cl.Value = "" Or cl.Offset(1, 1).Value = "" Then GoTo 10
    For Each C In Sheets("Foglio2").Range("a2:a30")
        If C.Value = cl.Value Then
    C.Offset(0, 2).Value = cl.Offset(1, 1).End(xlDown).End(xlToRight).Value     
End If
If C.Value = cl.Value And cl.Offset(2, 1) = "" Then
    C.Offset(0, 2).Value = cl.Offset(1, 1).End(xlToRight).Value
    End If
Next 'C
10:
Next
MsgBox ("Completato..." & vbCrLf & "Te saluto.")
Range("A2").Select
End Sub


Saluti
R