Excel programmering - kopier, lim inn + tid

[Nighthawk_1989]

Hei folkens:)

 

Tror jeg har et ganske enkelt spørsmål, men det kan jo være jeg tar feil.

 

Case:

La oss si at jeg har Sheet1 med fullt av informasjon. Slik som under:

 

---------------

-------------------

---------------

 

---------------

-------------------

---------------

 

Legger til en knapp, som dette:

 

---------------

-------------------

--------------- |knapp|

 

Så kopieres de tre radene automatisk, samt at de limes inn i Sheet2. I tillegg, hvis det hadde vært mulig, legge til en tid og dato i en celle i sheet2.

 

 

 

Har trøblet en stund her, men finner ikke ut. Noen glupe hoder som kan hjelpe meg? På forhånd takk...

[brgr]

Denne koden vil overføre data fra Ark1 til Ark2 i den gitte rangen

Cells(Rad, Kolonne)

Hvis du har de 3 linjene dine i Cellene (3,1) til (6,1) Så bruker du koden

Overfor 3, 6

 

Vet dessverre ikke om noen måte å gjør det på ett enklere vis ettersom du ikke kan få kordinatene til en knapp osv. Men du legger inn knappen etterhvert og lar den kjøre Overfor prosedyren.

 

Sub Overfor(cStart As Long, cEnd As Long)
Dim x As Long
For x = cStart To cEnd Step 1
	Ark2.Cells(x, 1) = Ark1.Cells(x, 1)
Next x
End Sub

 

Håper dette gav deg noen pekepinn. :-)

[Gjest Slettet+89234341]

Makro?