[Excel] - problemi con Taglia incolla

[il_perozzi]

Ciao a tutti,
ho questo problema con un file excel:

questa è la tabella

"A" "B" "C" "D" "E"
16/07/2015 Ns.fattura 2345/10 2345/10 1.387,00
DURSO

vorrei che la cella in "B" della seconda riga (DURSO) vada nella cella "E" della prima riga (vuota)
considerando che il file contiene molte righe simili a queste con il medesimo problema faccia questo taglia-incolla anche sulle successive.

Spero che, con il vostro aiuto, possa riuscire nell'impresa.
Grazie

[Marius44]

Un modo potrebbe essere la seguente macro da inserire in un modulo standard e associare ad un pulsante

Codice: Seleziona tutto

Option Explicit

Sub taglia_incolla()
Dim riga As Long, i As Long
    riga = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    For i = 1 To riga
        If Cells(i, 1) = "" And Cells(i, 2) <> "" Then
            Cells(i, 2).Cut Destination:=Cells(i - 1, 5)
        End If
    Next i
End Sub



Tieni, però, presente che così facendo ti rimangono delle righe vuote. Se vuoi eliminare le righe vuote aggiungi fra If ... End If dopo la riga Cells(i, 2).Cut Destination:=Cells(i - 1, 5) questa riga

Codice: Seleziona tutto

Rows(i).Delete xlShiftUp

Prova e fai sapere. Ciao,
Mario

[il_perozzi]

Ciao Mario,
ho spostato la copia nella cella "F" modificando il valore da 5 a 6 e funziona alla grande.
Grazie infinite.

il_perozzi