flytte tal fra kolonne F til E hvis tal er positivt

Skal det være en makro?

Hvorfor ikke bare en passende formel i kolonne E

=HVIS(F1>0;F1;"")
=HVIS(F2>0;F2;"")
=HVIS(F3>0;F3;"")
...

Prøv med

Sub FlytPositive()
    For Each c In Range("e1:e20").Cells
        If c.Value > 0 Then
            c.Offset(0, 1).Value = c.Value
            c.Value = ""
        End If
    Next c
End Sub

Ret selv antallet af celler i E til det nøsdvendige.

Vrøvl. Det skalselvfølgelig være

Sub FlytPositive()
    For Each c In Range("f1:f20").Cells
        If c.Value > 0 Then
            c.Offset(0, -1).Value = c.Value
            c.Value = ""
        End If
    Next c
End Sub

yes ,det var lige det jeg søgte.
Har selv lavet utallige forsøg på at lave en kode, uden held.
Jeg kan sagtens se / forstå koden når jeg ser en der er rigtig, men magter ikke at få sat koden korrekt sammen, når bare der erlidt udfordringer.


Grunden til at jeg ikke kan bruge formler er at inden denne makro køres har jeg lige hentet data over i dette ark med en anden makro og overskrevet alle celler i det aktuelle ark.

Tak for hjælpen.
Hvis du har et svar, kan jeg give dig poits.

Du har også hjulpet mig med en anden kode, som vi ikke har fået lukket endnu :-)

http://www.eksperten.dk/spm/820397

Her er et svar - og jeg har også  svarwet på det andet spørgsmål.