Hjælp til at samle 4 ark på et ark.

jeg forstår ikke helt. du kan ikke navngive flere ark i en projektmappe med samme navn. så kun et kan hedde gul.
eller misforstår jeg?

Hej buffy-sand.
Ja du har misforstået det, men det er fordi, det er sk.. svært at forklare det helt rigtig. Jeg har fire ark med hver sit navn (gul-rød-grøn-og hvid)
Ib

kan du ikke uploade det du har til gratis upload og lægge et link her til mig så kigger jeg på det.

Jeg prøver lige på en anden måde.
Det her er koderne som ligger i Module1. Jeg går ind i arkfane rød og ændrer den næstsidste linie
Sheets("Rød").Activate.
Når jeg så går ind I arkfane grøn og ændrer linien til Sheets("Grøn").Activate skifter begge linier til Grøn, og dermed kan jeg ikke trække røde tal.
Er det her mere forståeligt eller er det helt sort tale?

Sub nyt_tal()
Application.ScreenUpdating = False
Start:
Randomize
If Range("b7") = Range("b4") Then Exit Sub
Mindste = Range("B2")
Storste = Range("B3")
x = Int((Rnd() * (Storste - Mindste + 1) + Mindste))
For Each c In Range("E2:e1000")
    If c = x Then GoTo Start
Next
Range("B6").Value = x
Range("b7").Value = Range("b7").Value + 1
Range("e" & Range("B7").Value + 1) = Range("b6").Value
Call FindMarker
Application.ScreenUpdating = True
End Sub

Sub FindMarker()
Debug.Print x
Sheets("ark2").Activate
Range("a1").Activate
    Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Selection.Font.ColorIndex = 3
    Selection.Font.Bold = True
Sheets("Rød").Activate
End Sub

I Ark2 ligger der tal fra 1-1000 (a1-J100).
Ib

Hej buffy-sand
Undskyld det blev en lang påskeferie. Jeg har fået det til at virke delvis. Jeg kopierede (ikke flyttede) de fire ark ind i et ark, og det fungerer så længe de fire ark stadig ligger i dokumenter.  Jeg vil gerne give dig point for du svarede jo, så send et svar.
Ib

Hej
Jeg lukker dette spøårgsmål.
Ib