Kopier indeholdet af en liste

Du kan lave en knap på arket mærkat og ligger denn kode under:
Private Sub CommandButton1_Click()
If ListBox1.Value = "Delta" And Lstbox2.Value = "Beta" Then
'her vælger du hvilke linie der skal kopires fra arket input
Worksheets("input").Range("4:4").Copy
  ' Her vælger du hvor den kopirede linie skal placeres på arket mærkat
    With Worksheets("Mærkat").Range("24:24")
        .PasteSpecial xlPasteValues
     
    End With
    End If
End Sub

ups det var en stavefejl.
Private Sub CommandButton1_Click()
If ListBox1.Value = "Delta" And Listbox2.Value = "Beta" Then

'her vælger du hvilke linie der skal kopires fra arket input

Worksheets("Input").Range("4:4").Copy

  ' Her vælger du hvor den kopirede linie skal placeres på arket mærkat
   
With Worksheets("Mærkat").Range("24:24")
        .PasteSpecial xlPasteValues
     
    End With
    End If
End Sub

Hej alen32

Jeg er ikke en haj til det der VBA/makro haløj, har du mulighed for at forklare mig hvordan jeg giver en knappe funktionen.
Delta er det = med det input der bliver valgt i listen KVALITET og Beta er det FARVENR, så koden ser sådan ud.

Private Sub CommandButton1_Click()
If ListBox1.Value = KVALITET And Listbox2.Value = FARVENR Then

Kan du give mig et mere uddybende eksempel, jeg er desværre lidt "tung" når det gælder det her kode halløj.

rebakr

Hej!

Jeg har fået kigget lidt mere på din kode, og mangler lidt hjælp.
Knappen er oprettet og koden er tilføjet, MEN linien
If ListBox1.Value = "Delta" And Listbox2.Value = "Beta" Then
har jeg omskrevet til dette, da mine lister hedder dette.
If RulleMenuMærkat1.Value = "Delta" And RulleMenuMærkat2.Value = "Beta" Then
men hvad med "Delta" og "Beta", skal de hedde sådan eller hvad peger de på?

Worksheets("Input").Range("4:4").Copy
Denne linie kan jeg godt se hvad skal gøre, men jeg forstår ikke ("4:4") hvad gør det, peger det på en celle i INPUT eller skal jeg ændre det til noget andet?

Igen i denne linie
With Worksheets("Mærkat").Range("24:24")
Hvad skal jeg med ("24:24"), peger det på en celle i MÆRKAT eller skal det ændres til noget andet?

Mvh
rebakr

ok-jeg har lidt misforstået. jeg håber at det her kan hjælpe.
Jeg har to rulle menuer på ark 1 i cellerne c2 og d2. Når brugeren vælger i rulle menu1 og 2 og klikker på knappen kopires cellerne c2 og d2 fra ark1 til cellerne c12 og d12 på ark1.
Du skal bare lave oprette en knap og ligger kode under den.

Private Sub CommandButton1_Click()
Worksheets("Ark1").Range("c2:d2").Copy
With Worksheets("Ark1").Range("c12:d12")
        .PasteSpecial xlPasteValues
     
    End With
Application.CutCopyMode = False
End Sub

Hej igen!

Når jeg trykker på knappen så markerer den fint de celler jeg har valgt at den skal indsætte det der skal kopieres i, men den sætte ikke noget ind i cellerne, og når jeg vil vælge nyt input i de to lister så kommer den med denne fejl.

"Makroen 'Input_Med_Makro.xlsm!Rullemenu2_Ændring' kan ikke køres. Makroen er måske ikke tilgængelig i denne projektmappe, eller alle makroer er deaktiveret"

Er det mig der gør det forkert, eller kan det ikke laves som jeg har tænkt det?

Mvh
René

Tjek om makroer må kører-gå ind i funktioner,makro,sikkerhed og den skal sættes til
lav eller evt.mellem.
Makroen kopirer indhold af celler c2 til c12 og d2 til d12.

Du kan evt.sende fil til mig: bingo190@yahoo.com

Hej!

Jeg har sendt en mail til dig.

Hej!
Jeg har sendt fil tilbage!