Lopslag måske??

arket "lib" , har du ikke fortalt om før, hvor skal den sætte dataerne ind, er det der du har aktiv celle eller er det stadig i arket ("Daily POB")

Nej noget af den data som jeg satte ind med den markro du fixede til mig, der er en af værdierne enten 1 eller 2, hvis den er 1 skal A,B,C,D,E,F den over i "Lib" og hvis den er 2 skal de i en der hedder "LIb2"

Men hvor aktiverer du makroen, er det fra aktiv celle i arket ("Daily POB"), det er der den sætter data ind nu.

Skal den så derefter kopiere dataerne over i henholdsvis  "Lib" eller "LIb2" om der er 1 eller 2 i kolonne G.

Hvor skal dataerne så sættes ind, på den første ledige linie eller hva. ?

Lige netop markroen "flytter" til active cell i ("Daily POB") fra ("Ref") og ""Skal den så derefter kopiere dataerne over i henholdsvis  "Lib" eller "LIb2" om der er 1 eller 2 i kolonne G."" Og ja det skal i den først ledige linje

Sub Mustername()
' Makro indspillet 2-03-2005 af Jacob Krohn

r = ActiveCell.Row
c = ActiveCell.Column
Cells(r, c) = Sheets("Ref").Range("f3")
Cells(r, c - 1) = Sheets("Ref").Range("e3")
Cells(r, c + 1) = Sheets("Ref").Range("g3")
Cells(r, c + 2) = Sheets("Ref").Range("h3")
Cells(r, c + 3) = Sheets("Ref").Range("i3")

V = Range("g3").Value
Select Case V
    Case 1
        Rw = Sheets("lib").Range("A65536").End(xlUp).Row + 1
        Sheets("lib").Range("A" & Rw & ":F" & Rw).Value = Range("A" & r & ":F" & r).Value
   
    Case 2
        Rw = Sheets("lib").Range("A65536").End(xlUp).Row + 1
        Sheets("lib2").Range("A" & Rw & ":F" & Rw).Value = Range("A" & r & ":R" & r).Value
    Case Else
        MsgBox " Værdien I G3 er " & V & vbLf & " arket er ikke dannet til dette nummer"
    End Select
Application.CutCopyMode = False


End Sub

Ok, men jeg har haft brug for en markro mere: Sub Cabin()
' Makro indspillet 2-03-2005 af Jacob Krohn


r = ActiveCell.Row
c = ActiveCell.Column
Cells(r, c) = Sheets("Ref").Range("j3")
Cells(r, c + 1) = Sheets("Ref").Range("k3")
Application.CutCopyMode = False


End Sub
Og det er den der sætter værdien 1 eller 2 ind på ("Daily POB") Kolonne G række 7:56....
Hvis f.eks ("daily POB")G7 er 1 så skal ("Daily POB") A7:F7 kopieres til ("lib")A:F hvor det starter fra række 6 til række 56.. Hvis den er 2 så skal det fra ("Daily POB") til ("lib2")

Sub Mustername()
' Makro indspillet 2-03-2005 af Jacob Krohn

r = ActiveCell.Row
c = ActiveCell.Column
Cells(r, c) = Sheets("Ref").Range("f3")
Cells(r, c - 1) = Sheets("Ref").Range("e3")
Cells(r, c + 1) = Sheets("Ref").Range("g3")
Cells(r, c + 2) = Sheets("Ref").Range("h3")
Cells(r, c + 3) = Sheets("Ref").Range("i3")

V = Range("G" & r ).Value
Select Case V
    Case 1
        Rw = Sheets("lib").Range("A65536").End(xlUp).Row + 1
        Sheets("lib").Range("A" & Rw & ":F" & Rw).Value = Range("A" & r & ":F" & r).Value
   
    Case 2
        Rw = Sheets("lib").Range("A65536").End(xlUp).Row + 1
        Sheets("lib2").Range("A" & Rw & ":F" & Rw).Value = Range("A" & r & ":R" & r).Value
    Case Else
        MsgBox " Værdien I G3 er " & V & vbLf & " arket er ikke dannet til dette nummer"
    End Select
Application.CutCopyMode = False


End Sub

leg har rettet i denne, men jeg forstår ikke dit sidste spørgsmål om ny makro, kan det ikke tilføjes i den første. ?

Jeg kan sende det til dig hvis det er, smid mig en mail på jacob(at)krohn,nu så kan du se hvad det er du laver, hvis det har interesse

kabbak snabela tiscali dot dk

Sub Cabin()
' Makro indspillet 2-03-2005 af Jacob Krohn
r = ActiveCell.Row
c = ActiveCell.Column
Cells(r, c) = Sheets("Ref").Range("j3")
Cells(r, c + 1) = Sheets("Ref").Range("k3")
Cells(r, c + 2) = Sheets("Ref").Range("l3")
Cells(r, c + 3) = Sheets("Ref").Range("m3")
Cells(r, c + 4) = Sheets("Ref").Range("n3")

V = Range("g" & r).Value
Select Case V
    Case 1
        Rw = Sheets("lib").Range("A65536").End(xlUp).Row + 1
        Sheets("lib").Range("A" & Rw & ":F" & Rw).Value = Range("A" & r & ":F" & r).Value
   
    Case 2
        Rw = Sheets("lib2").Range("A65536").End(xlUp).Row + 1
        Sheets("lib2").Range("A" & Rw & ":F" & Rw).Value = Range("A" & r & ":R" & r).Value
    Case Else
        MsgBox " Værdien I G3 er " & V & vbLf & " arket er ikke dannet til dette nummer"
    End Select

End Sub


Sub Muster()
' Makro indspillet 2-03-2005 af Jacob Krohn
r = ActiveCell.Row
c = ActiveCell.Column
Cells(r, c) = Sheets("Ref").Range("f3")
Cells(r, c - 1) = Sheets("Ref").Range("e3")
Cells(r, c + 1) = Sheets("Ref").Range("g3")
Cells(r, c + 2) = Sheets("Ref").Range("h3")
Cells(r, c + 3) = Sheets("Ref").Range("i3")
End Sub

Ja da, nu har du gjort det igen:) Den virker som den skal. Lægger du et svar?

Vil du ikke have dine point? Læg et svar...

et svar ;-))