Notifikationer

Markér alle som læst Log ud

cazstar Nybegynder

31. marts 2004 - 16:40 Der er 7 kommentarer

kopiering fra et ark til et andet.

Bruger der skal kunne tilføje en effekt i et regneark, hvorefter informationer om denne effekt, ved tryk på en knap, bliver kopieret over i et andet ark som indeholder samtlige effekter...

Jeg skal lave et VBA-script, som når man trykker på en given knap skriver alle oplysningerne (navn, adresse, løbenummer. osv.) fra ark1 til ark2.

Oplysningerne der bliver sat ind i ark 2 skal samtidigt sættes ind under den rigtige kategori -i mit tilfælde er det løbenummeret der er "nøglen"., og der skal samtidigt oprettes en ny linie til de intastede informationer.
Den første nye effekt der indtastes skal så automatisk tildeles et løbenummer, som er én karakter højere end de allerede eksisterende i den pågældende kategori

Hvis du ikke fatter en bønne af hvad det er jeg snakker om, så se spørgsmål 3 i denne opgave ---> http://www.sam.sdu.dk/undervis/85435.F04/obli1_2004/Obligatorisk_opgave_2004.pdf

dataen til selve opgaven finder du her --> http://www.sam.sdu.dk/undervis/85435.F04/obli1_2004/Danmarks_Museum_for_Lystsejlads.xls

Synes godt om

bak Forsker

01. april 2004 - 15:17 #1

Hvis du samler dine data op i den rigtige rækkefølge (kolonneordren i "databasen"), skal du bare modificere CellsToCopy til at passe med de celler du har dine data fra arket opret

Sub KopierSpredteCeller()
Dim CellsToCopy
Dim x As Long
Dim start As Range
CellsToCopy = Array("A1", "B2", "C3", "D4", "E5")
Set start = Worksheets("database").Range("A65536").End(xlUp).Offset(1, 0)
For x = LBound(CellsToCopy) To UBound(CellsToCopy)
start.Offset(0, x) = Worksheets("Opret").Range(CellsToCopy(x))
Next
End Sub

Synes godt om

orlogskaptajnen Nybegynder

01. april 2004 - 16:20 #2

Hej Bak
Kan se det er nøjagtig samme problem jeg sidder med. Men jeg kan ikke gennemskue hvad det er du mener at vi skal gøre med ovenstående. Der er selvfølgelig point at hente hvis du kan hjælpe???

Synes godt om

orlogskaptajnen Nybegynder

01. april 2004 - 16:32 #3

Okay jeg har fundet ud af hvordan man overfører dem. Men ikke hvordan den automatisk tildeler et løbenummer som beskrevet i det første spørgsmål

Synes godt om

bak Forsker

01. april 2004 - 16:33 #4

Arket database indeholder i øjeblikket overskrifterne:
Reg.nr, underkategori, placering, sprog, ejer, overskrift/navn, beskrivelse, skænket/deponeret af navn, add, postnr, by, tlf.

Det, du skal gøre, er at lave variablen CellsToCopy om således at rækkefølgen af de data du henter passer til ovennævnte rækkefølge.
Dvs. at hvis du har Reg.nr i celle F4, underkategori i celle C3, placering i G6 osv.
skal CellsToCopy ændres til
CellsToCopy = Array("F4","C3","G6", osv.)
så der rækkefølge der står i Array er lig der rækkefølge data skal indsættes i. (databasen bestemmer rækkefølgen)

Synes godt om

orlogskaptajnen Nybegynder

01. april 2004 - 16:43 #5

Tak for hjælpen men problemet er ikke helt løst. Den kopiere fint nok men den tildeler ikke et nyt regnr. og den placere den nederst i databasen.

Synes godt om

bak Forsker

01. april 2004 - 16:44 #6

Hvilken celle på arket opret står koden for katagorien i (hvis du har fundet den)?

hvis koden for Kategori eks. står i F3
så skriv i F4
=MAX((database!A1:A5000)*(database!A1:A5000<(F3+1000)))+1
afslut indtastning med ctrl-shift-enter, så formlen automatisk får tuborgklammer omkring.

Synes godt om

orlogskaptajnen Nybegynder

01. april 2004 - 16:58 #7

Min står i a10 men kan ikke få det til at virke skal jeg skrive:
={MAX((database!A1:A5000)*(database!A1:A5000<(a10+1000)))+1}

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Gemme største værdi Af Lemming@privat.dk i Excel	0	I går 22:13	-
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel	13	24/07/202611:08	03/08/202618:42
Opdatering af celler i excel ark Af lurup i Excel	2	09/06/202619:40	10/06/202614:34
data fra et excel til google kalender Af lurup i Excel	3	02/06/202613:23	03/06/202615:06
Inverse formler Af tdktman i Excel	5	26/05/202616:16	28/05/202606:50

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS