Kopier en række til ark2 hvis beløn i kolonne J <> 0

I ark to skriver du formlen:
=hvis(ark1!$J0<>0;ark1!A1;"")

Engelsk udgave af excel
=if(ark1!$J0<>0;ark1!A1;"")

Når du så trækker denne ud over hele linjen, så vil den kopierer alle felterne og vil den kun kopiere den som er lig 0 i tilsvarende række i ark1 kolonne J.

Håber det giver mening :-)

hej Kovboyjder

Det er ikke det jeg er ude efter.
Jeg er ude efter en macro, som kun flytter de rækker over som indeholder en difference altså er forskellig fra 0 :o)

/Ida

nårrr jo og den skal past special - values

Kan dette anvendes?:

Dim antalRæk As Long, ræk As Long, ræk2 As Long
Public Sub testOmKolonne_J_ErNul()
Rem beregn antal rækker
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    ræk2 = 2
   
    Application.ScreenUpdating = False
   
    For ræk = 2 To antalRæk
        If Range("J" & ræk) <> 0 Then
            overførTilArk2
        End If
    Next ræk
    Application.ScreenUpdating = True
End Sub
Private Sub overførTilArk2()
    Rows(ræk & ":" & ræk).Select
    Selection.Copy
   
    ActiveWorkbook.Sheets("ark2").Activate
    ActiveSheet.Rows(ræk2 & ":" & ræk2).Select
   
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ræk2 = ræk2 + 1
   
    Application.CutCopyMode = False
    ActiveWorkbook.Sheets("ark1").Activate
End Sub

Arrhhhh  Supertekst

Det er jo intet mindre end smukt.

Jeg takker og bukker

Smider du et svar

/Ida

... & et svar