programma schrijven

**Sille** · 2 August 2007, 16:23

hoi iedereen

ik zou voor onze visclub een multifunctioneel programma moette schrijven. Dit zou ons helpen om typ werk te besparen.

Wat moet het programma kunnen in excel ?

- het door elkaar schudden van ingevoegde namen,
- Nadat alle gewichten zijn ingetypt achter de namen de namen volgens gewicht sorteren en hier dan ook een eind uitslag van te maken.

**Mattehh** · 2 August 2007, 18:22

Kan je toch gewoon in acces maken? dmv een formulier.

Jule · 2 August 2007, 22:50

Vroeg u dit hier niet reeds? Dit is geleden van april. U heeft toch reeds een basis? Of u nu werkt voor zoiets in excel of acces, uw basis moet toch één of meerdere tabellen zijn. Of wat lukt er u niet?

**Sille** · 2 August 2007, 23:42

Oorspronkelijk geplaatst door Jule

Vroeg u dit hier niet reeds? Dit is geleden van april. U heeft toch reeds een basis? Of u nu werkt voor zoiets in excel of acces, uw basis moet toch één of meerdere tabellen zijn. Of wat lukt er u niet?

ik heb mij gebasseerd op een bestaand programma dat gebruikt werd in een visclub maar twijfel over is of het wel allemaal eerlijk verloopt. Dit doet dit ook allemaal en trekt daarbij nog is eigen nummers. Ik ben der reeds weer helemaal alleen uit gekomen. dus deze topic is overbodig weeral

Jule · 3 August 2007, 10:11

Ik begreep het toen niet en nu terug niet. Dertiger wezen en reeds last van een falende intelligentie.

**Sille** · 6 August 2007, 22:16

deze mag gesloten worden. Het programma is gemaakt door mij. En het werkt perfect. dus deze topic mag dicht

**Nostradamus** · 18 August 2007, 22:49

Terug heropend op vraag van Sille

**Sille** · 18 August 2007, 23:02

ja nostra nu had ik een nieuwe topic geopend. Sluit de nieuwe dan maar. En desnoods mag je die verwijderen.

hoi ik heb een programma geschreven waarvoor ik ook een topic heb geopend.

nu heel het programma werkt in 2003 en thuis op de laptop perfect. Nu in de visclub zitten we nog met een windows 98 pc met office 97 op. Nu het programma werkt volledig tot ik bij de laaste stap kom. En daar moet de computer zelf na het ophalen van de treklijst en het invullen van de gewichten. De namen automatisch sorteren volgens gewicht. Hierbij gaat het dus fout. Ik heb de volgende code hiervoor gebruikt ? Deze geeft hij in office 97 aan als een fout en in 2003 niet? Zou dit komen door de versie of door de printer. Het is ook al een oude HP deskjet 660 C.

sub einduitslag()
Range("B1:K58").Select
Selection.Sort Key1:=Range("E2"), Order1:=xlDescending, Key2:=Range("D2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("B2").Select
Sheets("eindUitslag").Range("A1:E61").Select
Selection.PrintOut Copies:=1, Preview:=False, Collate:=True
Range("A2").Select

End Sub

hier vind je ook het programma

http://download.yousendit.com/886A4E5940D30E08

**J.W.** · 1 September 2007, 20:19

Oorspronkelijk geplaatst door Sille

ja nostra nu had ik een nieuwe topic geopend. Sluit de nieuwe dan maar. En desnoods mag je die verwijderen.

hoi ik heb een programma geschreven waarvoor ik ook een topic heb geopend.

nu heel het programma werkt in 2003 en thuis op de laptop perfect. Nu in de visclub zitten we nog met een windows 98 pc met office 97 op. Nu het programma werkt volledig tot ik bij de laaste stap kom. En daar moet de computer zelf na het ophalen van de treklijst en het invullen van de gewichten. De namen automatisch sorteren volgens gewicht. Hierbij gaat het dus fout. Ik heb de volgende code hiervoor gebruikt ? Deze geeft hij in office 97 aan als een fout en in 2003 niet? Zou dit komen door de versie of door de printer. Het is ook al een oude HP deskjet 660 C.

sub einduitslag()
Range("B1:K58").Select
Selection.Sort Key1:=Range("E2"), Order1:=xlDescending, Key2:=Range("D2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("B2").Select
Sheets("eindUitslag").Range("A1:E61").Select
Selection.PrintOut Copies:=1, Preview:=False, Collate:=True
Range("A2").Select

End Sub

hier vind je ook het programma

http://download.yousendit.com/886A4E5940D30E08

Ik veronderstel dat u dit maakt in VBA (ADO)
In Office 97 is enkel DAO aanwezig.
In Office 2000 is DAO en ADO aanwezig
In Office 2002 en hoger is enkel ADO aanwezig.
Dus iets gemaakt in VBA (ADO) zal niet werken in Office 97.

**Sille** · 2 September 2007, 11:41

Oorspronkelijk geplaatst door J.W.

Ik veronderstel dat u dit maakt in VBA (ADO)
In Office 97 is enkel DAO aanwezig.
In Office 2000 is DAO en ADO aanwezig
In Office 2002 en hoger is enkel ADO aanwezig.
Dus iets gemaakt in VBA (ADO) zal niet werken in Office 97.

pff dat wil dus zeggen dat ik dit programma voor niets heb gemaakt en dus een nieuwe Pc moet kopen want ik krijg geen andere versie dan 97 op die computer geinstaleerd wss. Want het is een windows 98.