Hjælp til løsningsforslag

Vil du flytte dem alle på en gang ?

du kan oprette en makro med følgende kode

Sheets("ark2").Range("D18").Value = Sheets("ark1").Range("C6").Value
Sheets("ark2").Range("F18").Value = Sheets("ark1").Range("D6").Value
osv.

herefter kan du oprette en knap
vælg:
view,toolsbar,form du får mulighed for trække en knap ud på arket, herefter kan du vælge hvilken makro den skal afspille

Ja det skal forståes således.Først udfylder man i skemaet Ark1 de relevante data. Samme begivenhed i samme række.Man kan godt eks have 10 begivenheder altså 10 rækker.
Hvis man så vil udfylde et ansønings skema (for at få refunderet udgifter)for eks den begivenhed i række 8, så skal man kunne udfylde den og kun den.Man skal så kunne rense formularen i ark 2 for data så man kan udfylde en anden ansøning.
/petert

Jeg har prøvet at lave
Sheets("ark2").Range("D18").Value = Sheets("ark1").Range("C6").Value
Sheets("ark2").Range("F18").Value = Sheets("ark1").Range("D6").Value
osv.det virker fint men selvfølgelig kun fra række 6 Hvordan kan man styre
en specifik række
/petert

Det vil sige at der kan være flere rækker?
hvis ja: kunne du have en celle i ark1, som fortalte hvilken række der skal bruges (her A1)

i ark kan du så skrive denne formular, så vil ark2 altid være opdateret:
=INDIRECT("C"&ark1!A1)

spørg efter rækker, løsning uden makro, er nok den mest simple

rk = InputBox("Indtast rækker nr")
Sheets("ark2").Range("D18").Value = Sheets("ark1").Range("C" & rk).Value
Sheets("ark2").Range("F18").Value = Sheets("ark1").Range("D" & rk).Value

Ja der kan være flere rækker. Jeg er ikke helt med hvad du mener jeg skal gøre. Jeg har hele kolonne A tom i ark 1
/petert

Det vil nok være smart det med at spørge efter Række nr. Skal jeg så slette makroen jeg har lavet eller er der tale om 2 makroer.
/petert

vælg den gl. makro, edit, overskriv den den gl. kode med den sidste nye

og så glemmer du indirect() formularen

Min gl kode ser sådan ud
Sub Ansøgning()
Sheets("ark2").Range("D18").Value = Sheets("ark1").Range("C6").Value
Sheets("ark2").Range("F18").Value = Sheets("ark1").Range("D6").Value
Sheets("ark2").Range("F22").Value = Sheets("ark1").Range("D6").Value
Sheets("ark2").Range("H22").Value = Sheets("ark1").Range("E6").Value
Sheets("ark2").Range("I22").Value = Sheets("ark1").Range("F6").Value
Sheets("ark2").Range("D24").Value = Sheets("ark1").Range("G6").Value
Sheets("ark2").Range("H24").Value = Sheets("ark1").Range("H6").Value
Sheets("ark2").Range("D25").Value = Sheets("ark1").Range("I6").Value
Sheets("ark2").Range("H25").Value = Sheets("ark1").Range("J6").Value
Sheets("ark2").Range("J26").Value = Sheets("ark1").Range("N6").Value

End Sub

kan du ikke rette indledning og første linje jeg er ikke god til dette så kan jeg selv rette de resterende linjer
/petert

Sub Ansøgning()
Dim rk As Byte

rk = InputBox("Indtast rækker nr")
Sheets("ark2").Range("D18").Value = Sheets("ark1").Range("C" & rk).Value
Sheets("ark2").Range("F18").Value = Sheets("ark1").Range("D" & rk).Value
Sheets("ark2").Range("F22").Value = Sheets("ark1").Range("D" & rk).Value
Sheets("ark2").Range("H22").Value = Sheets("ark1").Range("E" & rk).Value
Sheets("ark2").Range("I22").Value = Sheets("ark1").Range("F" & rk).Value
Sheets("ark2").Range("D24").Value = Sheets("ark1").Range("G" & rk).Value
Sheets("ark2").Range("H24").Value = Sheets("ark1").Range("H" & rk).Value
Sheets("ark2").Range("D25").Value = Sheets("ark1").Range("I" & rk).Value
Sheets("ark2").Range("H25").Value = Sheets("ark1").Range("J" & rk).Value
Sheets("ark2").Range("J26").Value = Sheets("ark1").Range("N" & rk).Value

End Sub

Super det virker Perfekt.Nu skal jeg kun smukserer formularen.
Tusind tak for god hjælp. send et svar så vi kan lukke
MVH
Petert

Velbekomme :o)