End(xldown) con 1 sola voce

[Ricky0185]

Buonasera, debbo ricopiare in questo file dati da un foglio ad un altro. Nel primo foglio in colonna A ci sono i Titoli, in colonna B le descrizioni, in C gli importi e per ogni Titolo alla fine della lista c’è il totale degli importi, che trovo accanto in colonna D. Il tutto viene fatto con altre macro. Orbene, debbo riportare questo totale su altro foglio in corrispondenza del Titolo uguale a quello del primo foglio.
Avrei risolto, ma per quei titoli (colonna A) che hanno una sola voce (colonna B) e quindi un solo importo (colonna C) e quindi il relativo importo (colonna D) sul secondo foglio non viene riportato il totale. Cioè l’End(xlDown) se la voce è una sola trascura il valore che si trova in Offset(0,1).
La soluzione è sicuramente dietro l’angolo, ma io non la vedo. Qualcuno che ci vede bene può guidarmi?
Grazie
R

[Anthony47]

Puoi controllare che di aver allegato il file valido? A me sembra vuoto

Comunque per evitare di avere errate indicazioni sull'ultima riga usata e' piu' prudente usare "xlUp".
Quindi NON

Codice: Seleziona tutto

Last = Cells(2,2).End(xlDown).Row                  'Potrebbe rispondere 65mila


ma

Codice: Seleziona tutto

Last = Cells(Rows.Count,2).End(xlup).Row


[Ricky0185]

Riposto il file con nota esplicativa su Foglio1

[Anthony47]

Suggerimento: usa dropbox.com

[Ricky0185]

Ho provato a scaricarlo e non mi da nessun problema. SwissTransfer.com ha il pregio di essere immediato. Invece stranamente Dropbox non carica il file, resta a macinare a lungo finchè non lo chiudo. Comunque nell'immagine si dovrebbe capire il problema.

Un saluto
R

[Anthony47]

Prova con

Codice: Seleziona tutto

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


(invece che l'attuale C.Offset(0, 2).Value = etc etc)

[Anthony47]

Prova con

Codice: Seleziona tutto

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


(invece che l'attuale C.Offset(0, 2).Value = etc etc)

O meglio, sostituisci la riga con

Codice: Seleziona tutto

    If Left(C.Offset(0, 2).Formula, 1) <> "=" Then
        C.Offset(0, 2).Value = cl.Offset(0, 5).End(xlDown).Value
    End If


Questo ti mantiene anche le eventuali formule sulla colonna di destinazione

[Ricky0185]

Già, non ci avevo pensato. L'xldown di farlo sulla colonna F invece che sulla E, soltanto facendo l'offset (0,5) invece che (1,4) + rioffsettando di una colonna.
Ciao e grazie
R