abonnement Unibet Coolblue
pi_65249872
Aangezien er vaker losse topics langskomen, leek het ons handig een centraal Excel topic te maken waar men hun vragen / antwoorden kwijt kan.

Dus heb je vragen, kom je ergens niet uit, hoe maak ik nu precies die macro?

Stel dan hier je vraag!!!

Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Tip 3: Zet macrocode even tussen [ code ] tags
Tip 4: Zelf de formules in verschillende talen vertalen:
http://dolf.trieschnigg.nl/excel/excel.html
http://branders.name/files/Excel-Function-Reference.pdf

Voorgaande deeltjes met veel informatie:

[Excel] Het grote Excel vragen topic
[EXCEL] Het grote Excel vragen topic, #2
[EXCEL] Het grote Excel vragen topic, #3
[EXCEL] Het grote Excel vragen topic, #4
[EXCEL] Het grote Excel vragen topic, #5
[Excel] Het grote Excel-vragentopic #6
[EXCEL] Het grote Excel vragen topic, #7
[EXCEL] Het grote Excel vragen topic, #8
[EXCEL] Het grote Excel vragen topic, #9
pi_65249915
quote:
Op dinsdag 20 januari 2009 16:34 schreef sobriquet het volgende:

[..]

Wat snap je precies niet dan? Plaatjes lijken me duidelijk toch?
Waarom ik het wil is simpel, het scheelt me erg veel tijd. Anders moet ik zelf na elke regel zelf een kruisje zetten in het schema.
Maar volgens mij is zoiets gewoon niet mogelijk in excel...
Zeker wel mogelijk hoor maar ik wil gewoon graag jouw bestand even zien om eraan te kloten ipv zelf zon onmeunig schema te bouwen
pi_65249923
Ik heb even een access vraagje. Waar the heck kan ik een normale sql query invoeren.
Zoals select from table where geslacht is man and lengte > 180
pi_65250984
Uit het vorige topic:
quote:
Op dinsdag 20 januari 2009 14:27 schreef sobriquet het volgende:
Hallo,

Ik heb in excel een stuk of 10000 rijen met daarin (even gesimpliceerd) een naam en een voorwerp. Voorbeeld:

Klaas schep
Jannie hark
Klaas hark
Jannie schep
Dirk vork
Hendrie Lepel
Hendrie schep

Er zijn ongeveer 70 namen en 100 voorwerpen (in de toekomst worden dit er meer) die alle 70 uiteindelijk alle voorwerpen bij langs gaan.
Nu wil ik in een andere sheet of tabblad een matrix maken die automatisch een kruisje zet als ik achter een naam een voorwerp zet. Zo kan ik makkelijk zien welke namen welke voorwerpen nog moeten.
VB
[ code verwijderd ]

Weet iemand hoe ik dit voor elkaar kan krijgen?
Volgens mij is de oplossing voor de zoekformule als volgt:
In het blad een extra kolom toevoegen waarin je de twee tekststrings (naam en item) combineerd (bijv. kolom C)
1=A2&"#@$"&B2

Ik voeg bewust de combinatie #@$ om de string scheiding uniek te houden, ivm dubbele namen, typfouten etc etc

Het vullen van de kolom met namen en de rij met items moet iemand anders maar uitzoeken (tevens tvp). De kolom met namen begint bij A2 en verder naar beneden, de rij met items begint op B1 en verder naar rechts

Vervolgens gebruik de formule van frollo ietsje aangepast:
1=ALS(ISFOUT(VERT.ZOEKEN($A2&"#@#"&B$1,Blad1!$C:$C,1,ONWAAR))=ONWAAR,"X","")


Deze formule zoekt dus naar de string combinatie in kolom C op het andere blad op basis van de waarden van de matrix in de eerste kolom en bovenste rij. Als hij deze niet exact kan vinden (ONWAAR in VERT.ZOEKEN formule dwingt daar toe) krijg je uit de VERT.ZOEKEN een foutmelding wat in combinatie met de IF en ISFOUT functie een lege cel oplevert.
Als VERT.ZOEKEN wel een exacte match vind zet hij een X neer
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65251208
Ah thnx hier kan ik denk ik wel wat mee.
pi_65251302
Sobriquet heeft mail, de macro is klaar.
pi_65251366
quote:
Op dinsdag 20 januari 2009 17:06 schreef DaFan het volgende:
Sobriquet heeft mail, de macro is klaar.
mag ik hem ook? daar kan ik ook wel iets mee in mijn werk. Mail staat wel in me profiel.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65251440
oh en deeltje 10 alweer
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65251459
quote:
Op dinsdag 20 januari 2009 17:07 schreef Deetch het volgende:

[..]

mag ik hem ook? daar kan ik ook wel iets mee in mijn werk. Mail staat wel in me profiel.
Natuurlijk, sent
pi_65251608
Wauw nice gedaan, Mag ik vragen hoe je dit hebt gedaan? En als ik een nieuwe naam en een nieuw voorwerp heb, Hoe krijg ik die toegevoegd aan dat schema?
  dinsdag 20 januari 2009 @ 17:20:48 #11
62215 qu63
..de tijd drinkt..
pi_65251858
tvp
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_65255468
quote:
Op dinsdag 20 januari 2009 17:13 schreef sobriquet het volgende:
Wauw nice gedaan, Mag ik vragen hoe je dit hebt gedaan? En als ik een nieuwe naam en een nieuw voorwerp heb, Hoe krijg ik die toegevoegd aan dat schema?
Tools, macro, visual basic editor, lezen
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65257244
tvp
pi_65263541
quote:
Op dinsdag 20 januari 2009 17:13 schreef sobriquet het volgende:
Wauw nice gedaan, Mag ik vragen hoe je dit hebt gedaan? En als ik een nieuwe naam en een nieuw voorwerp heb, Hoe krijg ik die toegevoegd aan dat schema?
Doet ie vanzelf. Als jij een voorwerp of naam gewoon rechts of onder toevoegt, zal de macro er ook voor checken in Blad1.
pi_65267896
quote:
Op dinsdag 20 januari 2009 22:07 schreef DaFan het volgende:

[..]

Doet ie vanzelf. Als jij een voorwerp of naam gewoon rechts of onder toevoegt, zal de macro er ook voor checken in Blad1.
Maar als je alleen blad 1 hebt is er nog geen code om de matrix te maken waar de namen en items nog in moeten komen.
maw, als er een nieuwe naam bijkomt op blad1 zal de matrix niet automatisch aangevuld worden.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65279165
quote:
Op dinsdag 20 januari 2009 23:41 schreef Deetch het volgende:

[..]

Maar als je alleen blad 1 hebt is er nog geen code om de matrix te maken waar de namen en items nog in moeten komen.
maw, als er een nieuwe naam bijkomt op blad1 zal de matrix niet automatisch aangevuld worden.
Moet dat dan?
Ik kan natuurlijk maken dat blad2 gebouwd wordt op basis van wat er op blad1 staan, maar dan is de informatie dus niet volledig. Stel dat naam 'Deetch' met voorwerp 'Koelkast' nooit voorkomt in de lijst in Blad1, dat wil hij ws ook wel graag weten.
pi_65279349
=LEFT(A1,2) & ":" & RIGHT(A1,2) & ":00"

Doet het niet. Engels versie heb ik.
  woensdag 21 januari 2009 @ 12:45:09 #18
62215 qu63
..de tijd drinkt..
pi_65279457
quote:
Op woensdag 21 januari 2009 12:41 schreef Flaccid het volgende:
=LEFT(A1,2) & ":" & RIGHT(A1,2) & ":00"

Doet het niet. Engels versie heb ik.
Dat komt omdat de opmaak nog steeds Tekst of Standaard is. De opmaak moet veranderd worden naar Datum/Tijd

En je komt ook in de knoop als er tijden staan als 645, want dan maakt ie er 64:45:00 van
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_65280423
quote:
Op woensdag 21 januari 2009 12:45 schreef qu63 het volgende:

[..]

Dat komt omdat de opmaak nog steeds Tekst of Standaard is. De opmaak moet veranderd worden naar Datum/Tijd

En je komt ook in de knoop als er tijden staan als 645, want dan maakt ie er 64:45:00 van
Heb 2 apparte dingetjes gemaakt, per kolom.

Ik heb nu in een apparte sheet een mooie kolom, gemaakt uit formules. nu wil ik de werkelijk data die er ook in staat kopieren, dus niet de formules erachter. Knip plak werkt niet.

[ Bericht 12% gewijzigd door Flaccid op 21-01-2009 13:31:02 ]
pi_65281454
quote:
Op woensdag 21 januari 2009 12:37 schreef DaFan het volgende:

[..]

Moet dat dan?
Ik kan natuurlijk maken dat blad2 gebouwd wordt op basis van wat er op blad1 staan, maar dan is de informatie dus niet volledig. Stel dat naam 'Deetch' met voorwerp 'Koelkast' nooit voorkomt in de lijst in Blad1, dat wil hij ws ook wel graag weten.
Ach zo ja ik snap hem.
Ik mag trouwens aannemen dat bij een database van 10.000 regels in ieder geval elke naam en elk voorwerp wel voorkomt?
Hoe gaat dat dan eigenlijk in zijn werk?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65281537
quote:
Op woensdag 21 januari 2009 13:10 schreef Flaccid het volgende:

[..]

Heb 2 apparte dingetjes gemaakt, per kolom.

Ik heb nu in een apparte sheet een mooie kolom, gemaakt uit formules. nu wil ik de werkelijk data die er ook in staat kopieren, dus niet de formules erachter. Knip plak werkt niet.
knippen en dan plakken speciaal, waarden in het menu bewerken
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  woensdag 21 januari 2009 @ 14:14:22 #22
62215 qu63
..de tijd drinkt..
pi_65282787
quote:
Op woensdag 21 januari 2009 13:38 schreef Deetch het volgende:

[..]

knippen en dan plakken speciaal, waarden in het menu bewerken
of rechtermuisknop -> plakken speciaal -> waarden
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_65283810
quote:
Op woensdag 21 januari 2009 13:38 schreef Deetch het volgende:

[..]

knippen en dan plakken speciaal, waarden in het menu bewerken
Hij had het over 70 namen met 100 voorwerpen, dat zijn dus 7000 regels? Misschien dubbel ofzo, maar an sich maakt het mij niet uit waar de oplossing voor gebruikt wordt, als het maar werkt.

Btw als je geld gaat verdienen met de macro die ik je gestuurd heb hoor ik het wel
pi_65285285
Iksnaphetniet.

Excel 2003 NL versie.

In kolom A heb ik schermnamen staan en in kolom B de veldnamen van de betreffende schermen. Omdat sommige schermen hoerenveel velden hebben, wil ik deze lijsten in- en uit kunnen klappen met zo'n plusteken, maar ik weet niet hoe. (Ik wil er dus geen dropdownlijst in een cel van maken, ik wil gewoon dat gedeelte van het werkblad (dus ook de kolommen er achter) in en uit kunnen klappen.)

Help me alsjeblieft. . Oh en ik weet niets van excel, dus praat alsjeblieft tegen me alsof ik een kleuter ben.
Echte liefde!
En ik zag dat het goed was.
pi_65285307
Voor sobriquet

Onderstaande code maakt van een geselecteerde ongesorteerde kolom op de geselecteerde sheet een nieuwe lijst (in een kolom of rij) van unieke items.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub CreateUniqueList()
   
'rListSource is column of unsorted duplicate entries which is transformed
'into a new list in either column or row starting from rListPaste range
'of sorted unique entries
   
Dim rListSource, rListPaste, AllCells, Cell As Range
Dim NoDupes As New Collection
Dim i As Integer, j As Integer
Dim colm As String

    
Set rListSource = Application.InputBox _
(Prompt:="Please select the source column", Type:=8)

colm = Mid(rListSource.Address, 2, 1)
    
Set rListPaste = Application.InputBox _
(Prompt:="Please select the destination cell", Type:=8)
    
    If rListPaste Is Nothing Then
       iReply = MsgBox("No range nominated," _
          & " terminate", vbYesNo + vbQuestion)
      If iReply = vbYes Then Exit Sub
    End If
    
'   Define range of items, assuming first row is headertext
    Set AllCells = Range(colm & "2", Range(colm & "65536").End(xlUp))
    
'   The next statement ignores the error caused
'   by attempting to add a duplicate key to the collection.
'   The duplicate is not added - which is just what we want!
    On Error Resume Next
    For Each Cell In AllCells
        NoDupes.Add Cell.Value, CStr(Cell.Value)
'       Note: the 2nd argument (key) for the Add method must be a string
    Next Cell

'   Resume normal error handling
    On Error GoTo 0

'   Sort the collection
    For i = 1 To NoDupes.Count - 1
        For j = i + 1 To NoDupes.Count
            If NoDupesi > NoDupes(j) Then
                Swap1 = NoDupesi
                Swap2 = NoDupes(j)
                NoDupes.Add Swap1, before:=j
                NoDupes.Add Swap2, before:=i
                NoDupes.Remove i + 1
                NoDupes.Remove j + 1
            End If
        Next j
    Next i

'placing unique dataset in either a column or a row starting at first cel of selected range
Application.Worksheets(rListPaste.Worksheet.Name).Activate
rListPaste.Activate
rListPaste.Select

row_or_col = MsgBox("Put unique list in column (YES) or row (NO)?", vbYesNoCancel + vbDefaultButton1)

If row_or_col = vbYes Then
    For i = 1 To NoDupes.Count
        ActiveCell.Offset(i - 1, 0) = NoDupesi
    Next i
ElseIf row_or_col = vbNo Then
    For i = 1 To NoDupes.Count
        ActiveCell.Offset(0, i - 1) = NoDupesi
    Next i
ElseIf row_or_col = vbCancel Then Exit Sub
End If
    
    
End Sub

let op dat blauwe informatie icoontje is gewoon ( i ) (zonder spaties)

[ Bericht 6% gewijzigd door Deetch op 21-01-2009 15:51:24 ]
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65285403
Hoe kan ik cellen deselecteren?
pi_65285474
quote:
Op woensdag 21 januari 2009 15:21 schreef Flaccid het volgende:
Hoe kan ik cellen deselecteren?
Met wat? Macro of gewoon?
Ctrl ingedrukt houden en dan klikken?
pi_65285778
quote:
Op woensdag 21 januari 2009 15:19 schreef Deetch het volgende:
Onderstaande code maakt op sheet 2 een unieke lijst (in een kolom of rij) van kolom A van de active sheet.
[ code verwijderd ]

let op dat blauwe informatie icoontje is gewoon ( i ) (zonder spaties
Euh? Is dat voor mij? .
Echte liefde!
En ik zag dat het goed was.
  woensdag 21 januari 2009 @ 15:37:21 #29
15967 Frollo
You know I am a righteous man
pi_65285993
quote:
Op woensdag 21 januari 2009 15:18 schreef Insomaniac het volgende:
Iksnaphetniet.

Excel 2003 NL versie.

In kolom A heb ik schermnamen staan en in kolom B de veldnamen van de betreffende schermen. Omdat sommige schermen hoerenveel velden hebben, wil ik deze lijsten in- en uit kunnen klappen met zo'n plusteken, maar ik weet niet hoe. (Ik wil er dus geen dropdownlijst in een cel van maken, ik wil gewoon dat gedeelte van het werkblad (dus ook de kolommen er achter) in en uit kunnen klappen.)

Help me alsjeblieft. . Oh en ik weet niets van excel, dus praat alsjeblieft tegen me alsof ik een kleuter ben.
Selecteer alle cellen die je wilt kunnen inklappen en kies dan Data > Overzicht > Groeperen.
pi_65286107
quote:
Op woensdag 21 januari 2009 15:37 schreef Frollo het volgende:

[..]

Selecteer alle cellen die je wilt kunnen inklappen en kies dan Data > Overzicht > Groeperen.
Yesh! Dat was wat ik zocht!
Bedankt Frollo .
Echte liefde!
En ik zag dat het goed was.
pi_65286591
quote:
Op woensdag 21 januari 2009 15:31 schreef Insomaniac het volgende:

[..]

Euh? Is dat voor mij? .
Neuh was voor sobriquet
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65287766
quote:
Op woensdag 21 januari 2009 15:23 schreef DaFan het volgende:

[..]

Met wat? Macro of gewoon?
Ctrl ingedrukt houden en dan klikken?
Control inhouden werkt niet. Ik selecteer een kolom, maar ik wil mijn header (titel voor kolom) er niet bij houden.
pi_65287815
quote:
Op woensdag 21 januari 2009 16:26 schreef Flaccid het volgende:

[..]

Control inhouden werkt niet. Ik selecteer een kolom, maar ik wil mijn header (titel voor kolom) er niet bij houden.
Vanaf 2e rij Ctrl+Shift+Pijltje naar beneden.
pi_65288446
quote:
Op woensdag 21 januari 2009 16:27 schreef DaFan het volgende:

[..]

Vanaf 2e rij Ctrl+Shift+Pijltje naar beneden.
pi_65289024
quote:
Op woensdag 21 januari 2009 15:19 schreef Deetch het volgende:
Voor sobriquet

Onderstaande code maakt van een geselecteerde ongesorteerde kolom op de geselecteerde sheet een nieuwe lijst (in een kolom of rij) van unieke items.
[ code verwijderd ]

let op dat blauwe informatie icoontje is gewoon ( i ) (zonder spaties)
Ok thnx, alleen ik heb geen id hoe ik zoiets nou moet gebruiken. Ik krijg het bij dat andere script ook niet voor elkaar, als ik wat nieuws intyp naam en voorwerp komt er geen kruisje in sheet 2. Of moet ik em erst activeren ofzo.
pi_65289159
quote:
Op woensdag 21 januari 2009 17:07 schreef sobriquet het volgende:

[..]

Ok thnx, alleen ik heb geen id hoe ik zoiets nou moet gebruiken. Ik krijg het bij dat andere script ook niet voor elkaar, als ik wat nieuws intyp naam en voorwerp komt er geen kruisje in sheet 2. Of moet ik em erst activeren ofzo.
Ehm gewoon nog een keer op de knop drukken zou moeten werken?
pi_65289785
Ok wauwie, ik ga nu proberen het BMI relateren aan het aantal uur slaap. Wat is een goede manier om iets te doen denken jullie? Ik heb namelijk soms dubbele tijden (want sommige mensen hebben toevalig zelfde slaaptijd) en sommige BMI's zijn hetzelfde. Wat voor mooie grafiek kan ik hier van maken. Ik wil mannen en vrouwen in dezelfde hebben.

Iemand een tip?

En hoe the fuck krijg ik mijn x-as kleiner. Stukje van mijn grafiek zit helemaal rechts, linker helft van plot area is helemaal leeg.

AAAH SHIT

ik kom er net achter dat ik niet alle waardes mee heb laten sorteren. kan ik weer helemaal opnieuw beginnen. KANKER.

Is er geen tool die dit makkelijk kan analyseren?

[ Bericht 16% gewijzigd door Flaccid op 21-01-2009 17:43:45 ]
pi_65289854
quote:
Op woensdag 21 januari 2009 17:11 schreef DaFan het volgende:

[..]

Ehm gewoon nog een keer op de knop drukken zou moeten werken?
Ah ik zie het al in de onderste regel en meeste rechtse kolom van het schema pakt die em niet.
Is er ook een manier om dat testknopje meer naar rechts te verplaatsen? En dat die meebeweegt als je naar beneden scrollt?

[ Bericht 0% gewijzigd door sobriquet op 21-01-2009 17:52:19 ]
pi_65290143
Zijn er tools om dit makkelijk te doen? PHP tool is ook goed, ik heb er al een sql database van gemaakt. Ik ben nu FUCKING pissig. T lukt niet. Ik wil gewoon makkelijk kunnen klikken: Van alle mannen wil ik de BMI's zien in een grafiekje. Zonder moeilijk te doen.
pi_65290274
edit
pi_65290287
edit
pi_65291586
ik heb een lijst met veel waardes.
SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
Hoe kan ik makkelijk een diagram hiervan maken? Die de aantallen telt.
pi_65297277
Owja pivottable doet het wel, maar ik kan dan niet filteren.
pi_65302778
test
pi_65302845
quote:
Op woensdag 21 januari 2009 23:40 schreef wakeuppp het volgende:
test
?
pi_65303005
Beste allemaal,

Ik gebruik excel 2003 (office pakket)

Graag wil ik dat de cellen in mijn overzichtsschema opgevult worden met een kleurtje indien de waarden in tabblad 2 voor komt.

Probleem het zijn waardes met nummers en letters
En daarnaast komt alleen het begin stuk van de waarden voor in het tabblad 2 en niet in het overzichtsschema.

Laatste gedeelte wat niet overeenkomt zou ik weg kunnen halen maar das wel erg veel werk.
Daarnaast heb ik al voorwaardelijke opmaak geprobeerd maar dit werkt niet.
Ook niet in combinatie mnet vert.zoeken or pivottabel.

Iemand een goeie suggestie, hoor het graag.

Thanks

ps: Flaccid vorige test was ivm inloggen, ging niet helemaal lkkr
  woensdag 21 januari 2009 @ 23:59:47 #47
62215 qu63
..de tijd drinkt..
pi_65303492
Kijk eens bij voorwaardelijke opmaak
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_65303936
qu63: Zoals ik als zie heb ik dat al geprobeerd
en dan kan ik alleen Celwaarde is .... en Formule is .... instellen en het vervolgens een kleur geven.

Dan krijg je niet (direct) het gewenste resultaat.
Moet iets worden van als 123ABC (overzicht) is gelijk aan 123ABC (tabblad 2) dan is 123ABC (overzicht) groen.

Oja misschien zo =ALS(L2=N2;L2)
En dan voorwaardelijke opmaak formulen =ALS(L2=N2;waar) en dan groen.

Mrgn nog is kijken of het nu in het schema klopt want kan nu mijn uren niet meer op gisteren schrijven hahaha, lang leven de eigen onderneming
pi_65310421
Flaccid; Maak een frequentietabel met COUNTIF (AANTAL.ALS) dan kan je daar een grafiek van bouwen.
Ik snap niet precies waarom je zo pissig bent trouwens Wil je graag helpen maar dan heb ik wel wat hulp/uitleg nodig.
pi_65311343
quote:
Op woensdag 21 januari 2009 17:35 schreef sobriquet het volgende:

[..]

Ah ik zie het al in de onderste regel en meeste rechtse kolom van het schema pakt die em niet.
Is er ook een manier om dat testknopje meer naar rechts te verplaatsen? En dat die meebeweegt als je naar beneden scrollt?
window, freeze panes en dan het knopje in de bevroren cellen plakken.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65311425
quote:
Op woensdag 21 januari 2009 17:07 schreef sobriquet het volgende:

[..]

Ok thnx, alleen ik heb geen id hoe ik zoiets nou moet gebruiken. Ik krijg het bij dat andere script ook niet voor elkaar, als ik wat nieuws intyp naam en voorwerp komt er geen kruisje in sheet 2. Of moet ik em erst activeren ofzo.
met die code maak je van je eerste sheet een lijst met uniek namen of items die je dan kunt gebruiken om die matrix op te bouwen. Vervolgens vul je met de macro van DaFan deze matrix.
Op deze manier kun je ook nieuwe namen/items die nog niet in de lijst stonden automatisch aan je matrix toevoegen.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  donderdag 22 januari 2009 @ 13:10:09 #52
27454 InTrePidIvity
Looks like it's broken...
pi_65314652
Is er een mogelijkheid om condtional formatting i.c.m. een IF-functie door meerdere cellen te laten zoeken?
Stel dat ik in A1 iets invul en als dat correspondeert met een waarde uit B1:B10, dat het dan een groene fill krijgt, maar als het niet overenekomt, dat het dan een rode fill krijgt...

DaFan, nog bedankt voor je hulp bij m'n vorige vraag
...it's rielie broken... It's rielie, rielie broken... Let's go wecycle!
[Tournament] Beste Remake
pi_65315540
Ga naar Conditional formatting en gebruik als formule om te checken:
=MATCH(<cel>,B1:B10,0)
En die maak je groen. Je kan dan om het rood te kleuren de achtergrond standaard rood maken.
  donderdag 22 januari 2009 @ 13:54:38 #54
27454 InTrePidIvity
Looks like it's broken...
pi_65316258
quote:
Op donderdag 22 januari 2009 13:35 schreef DaFan het volgende:
Ga naar Conditional formatting en gebruik als formule om te checken:
=MATCH(<cel>,B1:B10,0)
En die maak je groen. Je kan dan om het rood te kleuren de achtergrond standaard rood maken.
Goed idee. Al kan je geen reference maken naar andere worksheets met conditional formatting
Het gaat altijd net niet zoals ik wil
...it's rielie broken... It's rielie, rielie broken... Let's go wecycle!
[Tournament] Beste Remake
pi_65317394
Ik heb nu een mooie pivottable. Bijna precies wat ik wil. Ik heb nu man en vrouw in een mooie zelfde grafiek. Die met paren naast elkaar staan. Nu wil ik de vrouw een andere kleur geven dan de man (de staaf zegmaar). (het is een staafgrafiek). Hoe krijg ik dat voor elkaar?
Kan ik bij die Sigma values ook filteren? Dat ik Want ik heb dus mannen en vrouwen in dezelfde kolom, maar die krijg ik niet appart.

[ Bericht 20% gewijzigd door Flaccid op 22-01-2009 15:27:15 ]
pi_65384976
Hallo,

Ik ben bezig met een autofill macro die de formule in kolom B door moet trekken ter hoogte van de laatst gevulde rij in kolom A.

Als testbestand heb ik nu gewoon de volgende inhoud:
A1=1 B1=A1 C1=A1 D1=A1
A2=1
A3=1
etc..

Nu wordt met de macro alleen kolom B gevuld. Ik wil ook kolom C en D nog vullen. De macro ziet er nu zo uit:
quote:
Sub lastrow1()

Dim lastrow As Long

lastrow = Worksheets("Blad1").Range("A1").End(xlDown).Row

Range("B1").Select

ActiveCell.AutoFill Destination:=Range("B1:B" & lastrow&)

End Sub
Ik denk dat ik Range("B1:D1") moet gebruiken en Selection.AutoFill, maar het is nog niet gelukt.

Wie kan de macro aanpassen, zodat ook de formule in kolom C en D naar beneden wordt gevuld?

Alvast bedankt.
pi_65385636
quote:
Op donderdag 22 januari 2009 14:27 schreef Flaccid het volgende:
Ik heb nu een mooie pivottable. Bijna precies wat ik wil. Ik heb nu man en vrouw in een mooie zelfde grafiek. Die met paren naast elkaar staan. Nu wil ik de vrouw een andere kleur geven dan de man (de staaf zegmaar). (het is een staafgrafiek). Hoe krijg ik dat voor elkaar?
Kan ik bij die Sigma values ook filteren? Dat ik Want ik heb dus mannen en vrouwen in dezelfde kolom, maar die krijg ik niet appart.
Volgens mij kan je gewoon met rechtermuisknop op de staaf zelf de kleur aanpassen.

Tweede vraag heb ik geen idee.
pi_65385697
Ten eerste zou ik niet gebruiken End(xlDown) omdat dan A1 per se gevuld moet zijn. Makkelijker (vind ik, als dit werkt moet je het gewoon laten staan) is denk ik Range("65536").End(xlUp).Row.

En klinkt misschien stom maar als je gewoon hetzelfde trucje bij C1 en D1 doet?
1
2
3
Range("C1").Select

ActiveCell.AutoFill Destination:=Range("C1:C" & lastrow&)

En dat ook voor D?
pi_65386380
Ik ben met een werkschema bezig in excel, hierop laat ik de gewerkte uren optellen.
Nu kan ik als celeigenschap aangeven dat ik hem wil in tijd: 37:30:55
deze moet ik nemen omdat hij anders iedere 12 uur opnieuw gaat tellen.
Maar ik wil graag die seconden niet erop weergeven.
Ik kan geen optie 37:30 vinden...

Iemand enig idee hoe ik de tijden kan laten optellen en alleen een weergave krijg in uren en minuten...???
  zondag 25 januari 2009 @ 15:28:34 #60
62215 qu63
..de tijd drinkt..
pi_65386476
Aangepast: [uu]:mm
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_65386712
quote:
Op zondag 25 januari 2009 15:28 schreef qu63 het volgende:
Aangepast: [uu]:mm
Moet ik die dan zelf maken of zou hij ertussen moeten staan...???
Want ertussen staat ie niet iig...
En als ik hem zelf probeer te maken begint excel te protesteren...
  zondag 25 januari 2009 @ 15:39:15 #62
62215 qu63
..de tijd drinkt..
pi_65386809
quote:
Op zondag 25 januari 2009 15:36 schreef FFnog het volgende:

[..]

Moet ik die dan zelf maken of zou hij ertussen moeten staan...???
Want ertussen staat ie niet iig...
En als ik hem zelf probeer te maken begint excel te protesteren...
rechtermuisknop, celeigenschappen, tabblad getal, kies voor aangepast, en dan onder "type:" in dat invulvakje [uu]:mm invullen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_65386857
En als ik bij aangepast h:mm doe dan telt hij maar weer tot 24:00 uur op...
pi_65386984
quote:
Op zondag 25 januari 2009 15:39 schreef qu63 het volgende:

[..]

rechtermuisknop, celeigenschappen, tabblad getal, kies voor aangepast, en dan onder "type:" in dat invulvakje [uu]:mm invullen
De getalnotatie die u intypt is ongeldig...
Gebruik een van de ingebouwde getalnotaties...
  zondag 25 januari 2009 @ 15:49:08 #65
62215 qu63
..de tijd drinkt..
pi_65387170
quote:
Op zondag 25 januari 2009 15:40 schreef FFnog het volgende:
En als ik bij aangepast h:mm doe dan telt hij maar weer tot 24:00 uur op...
quote:
Op zondag 25 januari 2009 15:44 schreef FFnog het volgende:

[..]

De getalnotatie die u intypt is ongeldig...
Gebruik een van de ingebouwde getalnotaties...
dan moet je kiezen voor [hh]:mm
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_65387918
quote:
Op zondag 25 januari 2009 15:03 schreef DaFan het volgende:
Ten eerste zou ik niet gebruiken End(xlDown) omdat dan A1 per se gevuld moet zijn. Makkelijker (vind ik, als dit werkt moet je het gewoon laten staan) is denk ik Range("65536").End(xlUp).Row.

En klinkt misschien stom maar als je gewoon hetzelfde trucje bij C1 en D1 doet?
[ code verwijderd ]

En dat ook voor D?
Ja, dat werkt inderdaad. Dat was ik nog vergeten te vermelden.
Maar ik houd de macro graag zo efficiënt mogelijk en ik denk dat het met de 3 kolommen in één keer moet lukken. In ieder geval bedankt.

Oh, ik heb al wat beters gevonden:
quote:
Sub Macro1()
Dim Rng As Long
Rng = Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Blad1")
.Range("B1:B" & Rng).FillDown
.Range("C1:C" & Rng).FillDown
End With
End Sub


[ Bericht 19% gewijzigd door hendrik2009 op 25-01-2009 17:56:38 ]
pi_65390742
quote:
Op zondag 25 januari 2009 15:49 schreef qu63 het volgende:

[..]


[..]

dan moet je kiezen voor [hh]:mm
Die staat er dus niet tussen,,,
  zondag 25 januari 2009 @ 17:21:59 #68
62215 qu63
..de tijd drinkt..
pi_65390983
quote:
Op zondag 25 januari 2009 17:15 schreef FFnog het volgende:

[..]

Die staat er dus niet tussen,,,
Zelf intikken dus :
quote:
Op zondag 25 januari 2009 15:39 schreef qu63 het volgende:

[..]

rechtermuisknop, celeigenschappen, tabblad getal, kies voor aangepast, en dan onder "type:" in dat invulvakje [uuhh]:mm invullen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_65391152
Ow...

Tnx, hh werkt wel...
pi_65417710
Is het mogelijk om in Excel de percentages te laten zien in een grafiek, maar als data label de eigenlijke waarde?
pi_65417924
quote:
Op maandag 26 januari 2009 13:36 schreef Flaccid het volgende:
Is het mogelijk om in Excel de percentages te laten zien in een grafiek, maar als data label de eigenlijke waarde?
Denk dat het makkelijker is om de data 2x te plotten, 1x als percentage, en dan een tweede keer op een 2e Y-as, die je later verbergt én waarbij je de staven onzichtbaar maakt.

Maar ik zal het wel even proberen of het kan zonder zo'n omweg.
pi_65418045
Ik heb gewoon mijn methode gebruikt, heel simpel. Zie voorbeeld hieronder:


Gewoon 3 waardes als percentage van 200.
pi_65418193
Even kijken of dat gaat lukken met pivottable.
pi_65418407
quote:
Op maandag 26 januari 2009 13:42 schreef DaFan het volgende:

[..]

Denk dat het makkelijker is om de data 2x te plotten, 1x als percentage, en dan een tweede keer op een 2e Y-as, die je later verbergt én waarbij je de staven onzichtbaar maakt.

Maar ik zal het wel even proberen of het kan zonder zo'n omweg.
Lukt me niet iig.
pi_65418435
Wat lukt niet, het maken van de grafiek zelf uit de pivottable of iets anders? En welke versie heb je ook alweer? Beetje meer informatie zou wel handig zijn
pi_65418785
quote:
Op maandag 26 januari 2009 13:58 schreef DaFan het volgende:
Wat lukt niet, het maken van de grafiek zelf uit de pivottable of iets anders? En welke versie heb je ook alweer? Beetje meer informatie zou wel handig zijn
Owja sorry. Ik heb 2 rijen maar ik weet niet hoe ik 2 dataseries moet plotten. En hoe verberg ik een dataserie?

Verder nog een vraag: Hoe kan ik bij een pivottable een grafiek maken van alleen de grand total lijn?
pi_65419087
Gewoon een extra rij toevoegen als Data Series, daar rechtermuisknop op een van de staven, dan kan je hem naar de 2e as verplaatsen. Daarna voeg je labels toe en maak je de staven + as onzichtbaar. Probeer het anders gewoon eens in een dummy-bestand, dan kan er ook niks mis gaan. Ik heb dit nog nooit gedaan en had het binnen 3 minuten voor elkaar namelijk, dus moeilijk is het niet.
  maandag 26 januari 2009 @ 14:43:49 #78
241000 BuupWerk
hAsTaLaPaStA
pi_65420043
Ik heb straat en huisnummer in 1 cel staan hoe kan ik dit splitsen over 2 cellen...toch niet met de hand toch ??
pi_65420143
quote:
Op maandag 26 januari 2009 14:43 schreef BuupWerk het volgende:
Ik heb straat en huisnummer in 1 cel staan hoe kan ik dit splitsen over 2 cellen...toch niet met de hand toch ??
Als de cijfers altijd 3 karakters zijn dan wel. Of 2 karakters. Anders weet ik het niet.

Ik heb nu een lijst met verschillende slaaptijden en een waarde erbij. Alleen sommige mensen slapen 8:10 minuten en andere 8:05 minuten. Hoe kan ik (ze staan in een pivottable) makkelijk dingen samenvoegen?
pi_65420379
Buup kan je niet Text to columns gebruiken? Op welke manier zijn straat en huisnummer gescheiden? Met een komma, spatie oid? Text to columns moet wel werken. Staat onder Data.

Flaccid, afronden naar beneden ? Excel zal deze verschillend blijven behandelen omdat het nu eenmaal andere waardes zijn. Verder heb ik ook niet zoveel verstand van Pivottables
  maandag 26 januari 2009 @ 14:55:00 #81
93214 DeTolk
Elk puntje telt.
pi_65420391
ik heb een kolom van 500 positieve en negatieve getallen. Nu staat er tegenover elk positief een negatief getal en die kan ik dus tegen elkaar wegstrepen. Zo hou ik vanzelf de bedragen over waar geen negatief getal tegenover staat.

Kan ik excel dit automatisch laten doen?
pi_65420448
Macro, dat lukt je niet met een formule.
  maandag 26 januari 2009 @ 14:58:09 #83
241000 BuupWerk
hAsTaLaPaStA
pi_65420500
ze zijn gescheiden door middel van een spatie...en nu ?
pi_65420668
Nou zoek eens naar Text to columns (onder Data) dat spreekt redelijk voor zich (Fixed Delimiter, Next, vink Space aan, Finish). Klaar.

Selecteer wel eerst even je kolom.
pi_65420720
Je kan eventueel ook gebruiken

=LEFT(A1,FIND(" ",A1)-1)
voor de straatnaam en

=RIGHT(A1,LEN(A1)-FIND(" ",A1))
voor het huisnummer (hier staat dus de naam+hn in A1)
pi_65425556
Ik heb nu echt best veel sheets. Kan ik die niet als sidebar zien?>

[ Bericht 93% gewijzigd door Flaccid op 26-01-2009 17:26:05 ]
pi_65460697
Mn enquete gaat al heel goed, echt heel erg bedankt iedereen so far!

Ik heb een functie, laten we even zeggen een sinus. En 2 horizontale lijnen.


Zoiets dus. Hoe kan ik 2 horizontale lijnen invoegen in een excel grafiek? Wil 2 kritieke waardes aangeven, zodat je makkelijk kan zien welke er boven/eronder komen.
pi_65461265
Via een X-Y scatter chart met Error bars; zie artikel hieronder:
http://peltiertech.com/Excel/Charts/AddLineHorzErrBar.html
  woensdag 28 januari 2009 @ 14:21:23 #89
1055 Schanulleke
Een kop vol zaagsel!
pi_65491923
quote:
Op woensdag 3 december 2008 00:37 schreef DaFan het volgende:
In deze formule staat in A1 het eindcijfer. Dit dien je dus aan te passen naar welke cel je het wil van doen (bv G3 of F3). Hou er rekening mee dat als je hem bv in H3 zet voor het cijfer van F3, dat je m dan door kan trekken naar beneden voor andere leerlingen!

=ALS(EN(A1>=0;A1<5);"O";ALS(A1=5;"T";ALS(A1=6;"V";ALS(A1=7;"RV";ALS(A1=8;"G";ALS(A1=9;"ZG";"U"))))))
Deze formule had DaFan voor mij geschreven. Hij werkte echter niet goed en inmiddels ben ik er achter waar dit aan ligt. Ik laat cijfers beoordelen die een gemiddelde zijn van enkele toetsen. Het gemiddelde is dan bijvoorbeeld een 7,25. Doordat ik in de kolom voor het gemiddelde niet met decimalen werk wordt dit afgerond op een 7. Je zou verwachten dat er dan uit de formule een RV (ruim voldoende) rolt. Dit gebeurd echter niet, hij geeft alleen een U (uitmuntend). Als het gemiddelde op een mooi rond getal uitkomt geeft de formule wel de juiste letter weer.
Kennelijk is het weglaten van de decimalen in de rapportcijferskolom niet hetzelfde als afronden op hele getallen waardoor het uitkomt op U.
Wat is het gemakkelijkste: de formule aanpassen zodat deze telkens een bereik beslaat (tussen 4,5 en 5,4 is M, tussen 5,5 en 6,4 is V etc.) of is het makkelijker om de 'formule' waarmee ik nu de rapportcijfergemiddeldes uitreken te laten afronden op helen?
Life is what you make it.
pi_65492659
Schanulleke, ik denk dat het makkelijker is om hier een VERT.ZOEKEN te gebruiken met een hulptabel.

Zie bijvoorbeeld het voorbeeld hieronder:


D1 bevat de formule:
=VERT.ZOEKEN(C1,A1:B3,2,1)

De kracht hiervan is dat VERT.ZOEKEN (door de 1) gaat zoeken naar een benadering van het cijfer dat gezocht wordt (als deze niet exact in de tabel voorkomt). Excel neemt dan de waarde die het dichtsbij ligt, naar beneden toe. Op deze manier heb je ook geen lange uitgebreide ALS formule nodig.

De formule moet je natuurlijk wel aanpassen als je de tabel bv in een andere sheet zet dan je cijferlijst, maar volgens mij kom je daar wel uit.

Succes.
  woensdag 28 januari 2009 @ 15:49:14 #91
1055 Schanulleke
Een kop vol zaagsel!
pi_65495434
Dit ontgaat me een beetje.
Ik zet een hulptabel op een plek onder het sheet wat ik eigenlijk gebruik?
En ik verwijs daarnaar door de cel linksboven en rechtsonder te definieren?
Life is what you make it.
pi_65496130
quote:
Op woensdag 28 januari 2009 15:49 schreef Schanulleke het volgende:
Dit ontgaat me een beetje.
Ik zet een hulptabel op een plek onder het sheet wat ik eigenlijk gebruik?
En ik verwijs daarnaar door de cel linksboven en rechtsonder te definieren?
Ken je VERT.ZOEKEN helemaal niet?

Je kan dan beter even een keer proberen/de Help lezen. Maar even kort;
Het eerste argument is het cijfer dat gezocht moet worden (bv 5.8 of 7.5). Het tweede argument is de tabel waarin ie gezocht moet worden (in mijn voorbeeld staat deze in A1:B3, 6 cellen). Het derde argument geeft weer welke waarde uit welke KOLOM de formule moet terugsturen. Het vierde argument (waar we hier TRUE gebruiken, de 1) geeft aan dat een benadering gezocht moet worden als de exacte waarde uit het eerste argument niet gevonden wordt. Dit gebruiken we hier in ons voordeel. Normaliter gebruik je een FALSE omdat je vaak een exact woord of getal zoekt ipv een bereik.

Als je de tabel naar een andere sheet verplaatst (is wel zo mooi/netjes) moet je natuurlijk ook de tabel aanpassen. Als het cijfer voor de bepaalde leerling in J3 staat, gebruik je J3 als eerste argument. Zeg de tabel staat in Sheet2 in A1 naar beneden tot A6 (6 verschillende bereiken/waarderingen) en daarnaast in B1 tot B6 staan de O/V/G/U of whatever waarderingen je hebt. Dan wordt het 2e argument A1:B6. Het 3e en 4e argument blijven hetzelfde.
pi_65525359
quote:
Op woensdag 28 januari 2009 14:21 schreef Schanulleke het volgende:

[..]

Deze formule had DaFan voor mij geschreven. Hij werkte echter niet goed en inmiddels ben ik er achter waar dit aan ligt. Ik laat cijfers beoordelen die een gemiddelde zijn van enkele toetsen. Het gemiddelde is dan bijvoorbeeld een 7,25. Doordat ik in de kolom voor het gemiddelde niet met decimalen werk wordt dit afgerond op een 7. Je zou verwachten dat er dan uit de formule een RV (ruim voldoende) rolt. Dit gebeurd echter niet, hij geeft alleen een U (uitmuntend). Als het gemiddelde op een mooi rond getal uitkomt geeft de formule wel de juiste letter weer.
Kennelijk is het weglaten van de decimalen in de rapportcijferskolom niet hetzelfde als afronden op hele getallen waardoor het uitkomt op U.
Wat is het gemakkelijkste: de formule aanpassen zodat deze telkens een bereik beslaat (tussen 4,5 en 5,4 is M, tussen 5,5 en 6,4 is V etc.) of is het makkelijker om de 'formule' waarmee ik nu de rapportcijfergemiddeldes uitreken te laten afronden op helen?
Als je de =x vervangt door <x+1 zou het wel kunnen werken toch?
ALS(EN(A1>=0;A1<5);"O";ALS(A1<6;"T";ALS(A1<7;"V";ALS(A1<8;"RV";ALS(A1<9;"G";ALS(A1<10;"ZG";"U"))))))

edit: ik kan de originele vraag ff niet vinden, dus ik weet niet of de grenswaarden kloppen
pi_65533608
Hey mensen, ik heb morgen een tentamen Excel (2003 ) en heb een paar vraagjes. Als iemand mij ermee kan helpen zou dat fijn zijn

1. Ik heb te maken met een beginwaarde: 5. In ieder onderliggende cel wordt er 5 bij opgeteld. Is er een manier waarop Excel dit kan doen zonder gebruik te maken van een formule? want de uiteindelijke cel heb ik nodig bij Doelzoeken. Ik heb nu deze formule die dus niet voldoet: A2 = A1+5, met A1 = 5.

2a. Ik heb een lijngrafiek moeten maken. De waardes op de Y-as moeten lopen van niks tot 5.000 met stappen van 1000. Nu lukt dit me wel maar onderaan moet ipv ¤ 0,00 ---------> ¤ - komen te staan.

2b. Op de X-as heb ik een soortgelijk probleem. Ik wil daar graag stappen van 20.000 maken tot 80.000 totaal en beginnend bij 0. Maar wat ik ook probeer ik krijg er geen getallen te staan.

Indien nodig kan ik de gegevens laten zien aangezien dit een oefentoets omvat (helaas zonder antwoorden).

[ Bericht 16% gewijzigd door Platina op 29-01-2009 17:32:20 ]
pi_65534072
Ik krijg het Do Until niet goed werkend. Als ik bij punt Y een vast getal invoer dan gaat het wel goed, maar zodra ik er een range aan koppel dan stopt de loop al na de eerste actie.

dus Y = Range("f12") aanpas naar Y= 15 bijvoorbeeld.

Hieronder mijn code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
    X = 1
    Do
    Y = Range("F12")
    Set r1 = Range("B" & X & ":E" & X)
    Set r2 = Range("A" & X)
    r2.Select
    ActiveCell.FormulaR1C1 = "Actie " & X
    r1.Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Application.DisplayAlerts = False
    X = X + 1
    Loop While X < Y
' Sheets("temp").Delete
    Application.DisplayAlerts = True
pi_65537284
1bult code

Jaheur: zet er eens ".value" achter.

[ Bericht 78% gewijzigd door Deetch op 29-01-2009 17:55:17 ]
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65537430
quote:
Op donderdag 29 januari 2009 16:19 schreef Platina het volgende:
Hey mensen, ik heb morgen een tentamen Excel (2003 ) en heb een paar vraagjes. Als iemand mij ermee kan helpen zou dat fijn zijn

1. Ik heb te maken met een beginwaarde: 5. In ieder onderliggende cel wordt er 5 bij opgeteld. Is er een manier waarop Excel dit kan doen zonder gebruik te maken van een formule? want de uiteindelijke cel heb ik nodig bij Doelzoeken. Ik heb nu deze formule die dus niet voldoet: A2 = A1+5, met A1 = 5.

2a. Ik heb een lijngrafiek moeten maken. De waardes op de Y-as moeten lopen van niks tot 5.000 met stappen van 1000. Nu lukt dit me wel maar onderaan moet ipv ¤ 0,00 ---------> ¤ - komen te staan.

2b. Op de X-as heb ik een soortgelijk probleem. Ik wil daar graag stappen van 20.000 maken tot 80.000 totaal en beginnend bij 0. Maar wat ik ook probeer ik krijg er geen getallen te staan.

Indien nodig kan ik de gegevens laten zien aangezien dit een oefentoets omvat (helaas zonder antwoorden).
1. eerste cel 5, tweede cel 10, cellen 1 en 2 selecteren en dan zwarte blokje met muis pakken en naar beneden doorslepen.
2a. instellingen van je weergave van valuta van 0 euro aanpassen, in te stellen in windows zelf
of in het menu Tools, Options, View het vinkje aanzetten met show zero (zelf ff vertalen)
2b. je moet een XY scatter plot maken ipv een lijngrafiek (4e standaard grafiek uit keuzemenu)

[ Bericht 4% gewijzigd door Deetch op 29-01-2009 17:59:52 ]
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65547871
Oke, bedankt!
pi_65556724
quote:
Op donderdag 29 januari 2009 17:49 schreef Deetch het volgende:

[ code verwijderd ]

Jaheur: zet er eens ".value" achter.
Nope al geprobeerd maar werkt niet
pi_65557933
jaheur ik zie wat je wil proberen maar tellen vanaf een integer naar een range lukt natuurlijk niet. Ik zou je graag helpen nu, maar geen internet nu en code typen op mn telefoon begin ik niet aan :p dus morgen als je er dan nog niet uit bent.
pi_65558036
Oke is goed :-)
  vrijdag 30 januari 2009 @ 13:02:39 #102
234506 Metal_Jag
MMM van metal
pi_65563725
quote:
Op vrijdag 30 januari 2009 09:31 schreef Jaheur het volgende:

[..]

Nope al geprobeerd maar werkt niet
Dat is wel het probleem volgens mij. Werkt bij mij nl. dan wel

Derde regel wordt dan:

Y = Range("F12").value

Succes
pi_65564288
Ik weet al wat het was. Benader de verkeerde sheet

Is er een mooiere oplossing dan dit:

Do
Sheets("temp").Select
Y = Range("F12").Value
Sheets("Beslistabel").Select
pi_65564815
DO
Y = Sheets("Handleiding").Range("C2").Value
Sheets('Beslistabel").Select

of als je de macro altijd start vanaf de sheet "beslistabel" dan kun je de regel waarin je die sheet selecteerd ook nog weglaten.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_65569932
Ik heb dan een hele lastige:

Ik heb een range van A1 tot G10 (voorbeeld) in de kolommen kunnen X voorkomen, maar sommige cellen zijn leeg, maar soms kunnen er dubbelen X-en voorkomen. Hoe kan ik dit vereenvoudigen dus bijvoorbeeld

A1:A10 is gelijk aan D1:D10 dus de hele kolom van D mag verwijderd worden, maar deze vergelijking is wel random want A kan net zo goed B zijn. De vergelijking moet wel over de hele kolom gaan.
  vrijdag 30 januari 2009 @ 16:08:46 #106
234506 Metal_Jag
MMM van metal
pi_65570435
quote:
Op vrijdag 30 januari 2009 15:53 schreef Jaheur het volgende:
Ik heb dan een hele lastige:

Ik heb een range van A1 tot G10 (voorbeeld) in de kolommen kunnen X voorkomen, maar sommige cellen zijn leeg, maar soms kunnen er dubbelen X-en voorkomen. Hoe kan ik dit vereenvoudigen dus bijvoorbeeld

A1:A10 is gelijk aan D1:D10 dus de hele kolom van D mag verwijderd worden, maar deze vergelijking is wel random want A kan net zo goed B zijn. De vergelijking moet wel over de hele kolom gaan.
Marco schrijven waarbij je door de kolommen heen loopt (do loop):
Dan sla je kolom 1 op in en variabele (zeg Xi = vector), vervolgens ga je naar kolom 2 en vergelijk je die met de opgeslagen kolom. Als die gelijk is, sla je het kolomnummer (andere variabele, zeg Y(j)) op. Is ie niet gelijk, sla je kolom 2 ook op in X(i+1) Dan verder naar de volgende kolom, die je telkens controleert en opslaat in Xi of in Y(j):
- komt ie overeen met een vector uit Xi dan onthoud je het kolomnummer in Y(j)
- komt ie niet overeen, dan sla je em op in Xi

Aan het einde verwijder je alle kolommen in Y.

Zoiets?
pi_65571166
Weet iemand de macro verschillen binnen de verschillende office's? Aangezien office 2007 meer kan dan office 2000.
pi_65572622
Kloppertje volgens mij kan 2007 qua macro's niets beter dan oudere versies. Vba is niet geupgrade. Misschien kan je hier iets over vinden op de MS site.

Alle macro's die ik heb geschreven voor mensen hier met 2003 en eerder heb ik in 2007 gemaakt.
pi_65574472
Vraagje (excel 2003): Ik registreer mijn gewerkte dagen in een excel-tabel, incl. data. Echter wil ik nu ook de dag erbij, zonder deze hoeven in te voeren. Is hiervoor een code? (dus als F3 = 24-jan dan hij dan ziet dat dat een zaterdag was)

Thanks!
  vrijdag 30 januari 2009 @ 18:22:07 #110
110489 dragonrider
Back to Nature!
pi_65574627
dddd gebruiken bij celeigenschappen, dus iets van dddd, mmm-dd-jjjj
  vrijdag 30 januari 2009 @ 18:42:45 #111
158136 Joooo-pi
Do you want a balloon...
pi_65575169
Ik doe het zo:
=VERT.ZOEKEN(WEEKDAG(A1);B10:C16;2;0)

Waarbij je een matrixje (B10:C16) maakt met in kolom 1: 1 t/m 7 en in kolom 2 Zondag, Maandag.... enz.

Ik weet niet of het handiger kan, maar dit werkt i.i.g. wel
heitieh
  vrijdag 30 januari 2009 @ 18:44:06 #112
158136 Joooo-pi
Do you want a balloon...
pi_65575212
quote:
Op vrijdag 30 januari 2009 18:22 schreef dragonrider het volgende:
dddd gebruiken bij celeigenschappen, dus iets van dddd, mmm-dd-jjjj
Hé, da's handig
heitieh
pi_65575246
eh nee gebruik hier WEEKDAY
pi_65583042
quote:
Op vrijdag 30 januari 2009 16:08 schreef Metal_Jag het volgende:

[..]

Marco schrijven waarbij je door de kolommen heen loopt (do loop):
Dan sla je kolom 1 op in en variabele (zeg Xi = vector), vervolgens ga je naar kolom 2 en vergelijk je die met de opgeslagen kolom. Als die gelijk is, sla je het kolomnummer (andere variabele, zeg Y(j)) op. Is ie niet gelijk, sla je kolom 2 ook op in X(i+1) Dan verder naar de volgende kolom, die je telkens controleert en opslaat in Xi of in Y(j):
- komt ie overeen met een vector uit Xi dan onthoud je het kolomnummer in Y(j)
- komt ie niet overeen, dan sla je em op in Xi

Aan het einde verwijder je alle kolommen in Y.

Zoiets?
Ja zoiets bedoel ik.
pi_65597196
Het automatisch berekenen werkt niet echt bij mij. Sinds vandaag zie ik helemaal onderaan naast 'Gereed', 'berekenen' staan. Via Extra->Opties->Berekenen staat automatisch ook al aangevinkt maar als ik iets wijzig in een cel, dan verandert de cel waar de uitkomst staat dus niet. Pas als ik er op klik en op enter druk, verandert de uitkomst. Weet iemand wat er mis is?
We play today. We win today. Das it.
pi_65599852
Ik heb een probleem met mijn excel bestand...

Ik heb een 2e tabblad aangemaakt en hier het een en ander ingezet.
hierna heb ik opgeslagen en afgesloten, echter nu wil ik weer opstarten alleen kan ik niks meer zien
(ook geen cellen meer niks)

heeft iemand dit al eens eerder gehad?
en weet iemand wat ik hier aan kan doen?
Hattrick: Atletico Mineiro S.C. (816058)
pi_65599962
Ik heb in Excel decimale bedragen getypt en via celeigenschappen, tabblad getal, de getallen afgerond tot een geheel getal.

Nu ga ik via Word (via extra - brieven en verzendlijsten - afdruk samenvoegen) de bestanden die ik in Excel had in Word samenvoegen.

Als ik de documenten heb samengevoegd geeft Word nu geen gehele getallen weer maar terug de getallen die niet afgerond zijn.

Weet iemand hoe ik dit kan verhelpen,

bij voorbaat dank.
pi_65605734
Jaheur ik heb nog eens gekeken naar je DO functie en ik heb het verkeerd begrepen (zo'n telefoonschermpje is toch niet wat ). Ziet er goed uit en je bent er al uit.

Dragonrider; je hebt gelijk. Mijn oplossing werkt niet. Had geen toegang tot Excel dus kon ff niet controleren
pi_65605769
Swennus; geen idee, lijkt mij niet dat dit een Excel-gerelateerd probleem is. Ik heb het nog nooit gehad en lijkt me eerder een probleem met Office/Windows dat hij niet goed opgeslagen is. Wat gebeurt er als je via Excel - File bij je laatstgeopende bestanden je oude bestand opent?
pi_65605798
Devuser_250; ik heb geen ervaring met het exporteren naar Word maar het lijkt alsof Word de waarde ACHTER de formula pakt, en niet de waarde die ontstaat door de format (afronden). Maak eens een nieuwe kolom met ROUND(<cel >,0) (waarbij je getallen dus afgerond worden) en exporteer die naar Word.
  dinsdag 3 februari 2009 @ 13:40:31 #121
15080 static
03.09.2006 - 11:35
pi_65690236
Ik heb een hondertal rijen met data, waarvan 'één kolom een datum/tijdsaanduiding is (2009-02-02 14:26:06); nu wil ik in de kolom ernaast automatisch het uurslot invullen (in dit geval 14:00-15:00) hoe kan ik dat het gemakkelijks (automatisch) doen? Het werkje komt dagelijks voor dus van handmatig word ik gillend gek. De data wil ik daarna opnemen in een pivot (al zal dat het makkelijkste zijn).

Excel 2007 UK.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
  dinsdag 3 februari 2009 @ 13:52:05 #122
158136 Joooo-pi
Do you want a balloon...
pi_65690616
quote:
Op dinsdag 3 februari 2009 13:40 schreef static het volgende:
Ik heb een hondertal rijen met data, waarvan 'één kolom een datum/tijdsaanduiding is (2009-02-02 14:26:06); nu wil ik in de kolom ernaast automatisch het uurslot invullen (in dit geval 14:00-15:00) hoe kan ik dat het gemakkelijks (automatisch) doen? Het werkje komt dagelijks voor dus van handmatig word ik gillend gek. De data wil ik daarna opnemen in een pivot (al zal dat het makkelijkste zijn).

Excel 2007 UK.
Ik heb een oudere NL versie en daar kan het zo:
=UUR(A1) & " - " & UUR(A1)+1

In Engels is de functie UUR gewoon HOUR.
DUS:
=HOUR(A1) & " - " & HOUR(A1)+1

zou moeten werken.
heitieh
  dinsdag 3 februari 2009 @ 14:27:55 #123
15080 static
03.09.2006 - 11:35
pi_65691847
Dat werkt als een trein, thanks!

Nog een schoonheidsvraagje: hoe krijg ik het in dit formaat: 11:00-12:00? Nu is het 11-12.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
  dinsdag 3 februari 2009 @ 14:32:25 #124
62215 qu63
..de tijd drinkt..
pi_65692015
quote:
Op dinsdag 3 februari 2009 14:27 schreef static het volgende:
Dat werkt als een trein, thanks!

Nog een schoonheidsvraagje: hoe krijg ik het in dit formaat: 11:00-12:00? Nu is het 11-12.
=HOUR(A1) & ":00 - " & HOUR(A1)+1 & ":00"
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 3 februari 2009 @ 15:33:41 #125
15080 static
03.09.2006 - 11:35
pi_65694341
Het is dat je een vent bent.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
  dinsdag 3 februari 2009 @ 15:37:39 #126
62215 qu63
..de tijd drinkt..
pi_65694509
quote:
Op dinsdag 3 februari 2009 15:33 schreef static het volgende:
Het is dat je een vent bent.
Graag gedaan
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 3 februari 2009 @ 15:50:50 #127
158136 Joooo-pi
Do you want a balloon...
pi_65695021
quote:
Op dinsdag 3 februari 2009 15:37 schreef qu63 het volgende:

[..]

Graag gedaan
Goed bedacht he
heitieh
pi_65706408
Ik heb in een aantal cellen getallen gezet.
Van deze getallen heb ik een grafiek gemaakt.

Een aantal cijfers in een bepaalde kolom wil ik verbergen. Maar de grafiek moet die getallen wel "gebruiken". Echter als ik de kolom verberg verandert de grafiek doordat de cijfers niet gebruikt worden.

Is dit op te lossen?
  dinsdag 3 februari 2009 @ 20:51:03 #129
62215 qu63
..de tijd drinkt..
pi_65706858
quote:
Op dinsdag 3 februari 2009 20:43 schreef elkravo het volgende:
Ik heb in een aantal cellen getallen gezet.
Van deze getallen heb ik een grafiek gemaakt.

Een aantal cijfers in een bepaalde kolom wil ik verbergen. Maar de grafiek moet die getallen wel "gebruiken". Echter als ik de kolom verberg verandert de grafiek doordat de cijfers niet gebruikt worden.

Is dit op te lossen?
In de grafiek de getallen handmatig invoeren?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 4 februari 2009 @ 17:43:26 #130
158136 Joooo-pi
Do you want a balloon...
pi_65738507
quote:
Op dinsdag 3 februari 2009 20:43 schreef elkravo het volgende:
Ik heb in een aantal cellen getallen gezet.
Van deze getallen heb ik een grafiek gemaakt.

Een aantal cijfers in een bepaalde kolom wil ik verbergen. Maar de grafiek moet die getallen wel "gebruiken". Echter als ik de kolom verberg verandert de grafiek doordat de cijfers niet gebruikt worden.

Is dit op te lossen?
Een elegante oplossing heb ik niet, maar maak een 2e tabblad met celverwijzigen naar het eerste tabblad en baseer je grafiek op het 2e tabblad, zodat je in tabblad 1 gerust rijen kunt verbergen.

heitieh
pi_65739457
Beste mensen,

Ik heb de volgende vraag. Ik zou graag uit 3 kolommen de unieke gegevens willen halen en deze onder elkaar (dus in 1 kolom) op een nieuw blad willen weergeven. In de kolom daarnaast zou ik graag het aantal keer dat deze naam voorkomt willen weergeven. Zie als voorbeeld de afbeelding. De waardes in de linker 3 kolommen (A B en C) moeten omgetoverd worden tot de rechter 2 (F en G). Weet iemand hier een antwoord op?

Bij voorbaat dank,

Kees

pi_65740035
Ik neem aan dat je A/B/C gewoon handmatig invoert in kolom F?
Dan wordt G2:
=COUNTIF($A$2:$C$7,F2)
of
=AANTAL.ALS($A$2:$C$7;F2)

En dat naar beneden trekken.
  woensdag 4 februari 2009 @ 18:44:13 #134
158136 Joooo-pi
Do you want a balloon...
pi_65740337
quote:
Op woensdag 4 februari 2009 18:34 schreef DaFan het volgende:
Ik neem aan dat je A/B/C gewoon handmatig invoert in kolom F?
Dan wordt G2:
=COUNTIF($A$2:$C$7,F2)
of
=AANTAL.ALS($A$2:$C$7;F2)

En dat naar beneden trekken.
Volgens mij wil hij ook automatisch unieke waarden zoeken. Dat maakt het lastig. Misschien draaitabel ? (daar heb ik de ballen verstand van)

Ik zou zelf maar weer een macro'tje schrijven om de eerste rij te maken, om vervolgens de AANTAL.ALS functie te gebruiken.

[ Bericht 5% gewijzigd door Joooo-pi op 04-02-2009 18:55:46 ]
heitieh
pi_65757461
Beste mensen,

Ik heb de volgende vraag. Ik zou graag uit 3 kolommen de unieke gegevens willen halen en deze onder elkaar (dus in 1 kolom) op een nieuw blad willen weergeven. In de kolom daarnaast zou ik graag het aantal keer dat deze naam voorkomt willen weergeven. Zie als voorbeeld de afbeelding. De waardes in de linker 3 kolommen (A B en C) moeten omgetoverd worden tot de rechter 2 (F en G). Weet iemand hier een antwoord op?

Bij voorbaat dank,

Kees

  donderdag 5 februari 2009 @ 09:49:39 #136
62215 qu63
..de tijd drinkt..
pi_65758197
wil je ook dat a,b en c ook zelf gezocht worden? Dus als er ook een d komt dat ie er automagisch onder komt?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_65758817
Ja op die manier is het dynamisch en dat zou wel erg prettig zijn
pi_65762972
Een formule gaat echt niet werken. Tenminste, ik ben er 100% van overtuigd dat het kan, maar ik kan het niet Ik ga het wél ff proberen, anders maak ik een macro.
pi_65763533
misschien kun je uit deze code de voor jou nuttige stuken halen? Let op over al waar een blauw icoontje staat voor informatie moet komen te staan ( i ) (zonder spaties)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub CreateUniqueList()
   
'rListSource is column of unsorted duplicate entries which is transformed
'into a new list in either column or row starting from rListPaste range
'of sorted unique entries
   
Dim rListSource, rListPaste, AllCells, Cell As Range
Dim NoDupes As New Collection
Dim i As Integer, j As Integer
Dim colm As String

    
Set rListSource = Application.InputBox _
(Prompt:="Please select the source column", Type:=8)

colm = Mid(rListSource.Address, 2, 1)
    
Set rListPaste = Application.InputBox _
(Prompt:="Please select the destination cell", Type:=8)
    
    If rListPaste Is Nothing Then
       iReply = MsgBox("No range nominated," _
          & " terminate", vbYesNo + vbQuestion)
      If iReply = vbYes Then Exit Sub
    End If
    
'   Define range of items, assuming first row is headertext
    Set AllCells = Range(colm & "2", Range(colm & "65536").End(xlUp))
    
'   The next statement ignores the error caused
'   by attempting to add a duplicate key to the collection.
'   The duplicate is not added - which is just what we want!
    On Error Resume Next
    For Each Cell In AllCells
        NoDupes.Add Cell.Value, CStr(Cell.Value)
'       Note: the 2nd argument (key) for the Add method must be a string
    Next Cell

'   Resume normal error handling
    On Error GoTo 0

'   Sort the collection
    For i = 1 To NoDupes.Count - 1
        For j = i + 1 To NoDupes.Count
            If NoDupesi > NoDupes(j) Then
                Swap1 = NoDupesi
                Swap2 = NoDupes(j)
                NoDupes.Add Swap1, before:=j
                NoDupes.Add Swap2, before:=i
                NoDupes.Remove i + 1
                NoDupes.Remove j + 1
            End If
        Next j
    Next i

'placing unique dataset in either a column or a row starting at first cel of selected range
Application.Worksheets(rListPaste.Worksheet.Name).Activate
rListPaste.Activate
rListPaste.Select

row_or_col = MsgBox("Put unique list in column (YES) or row (NO)?", vbYesNoCancel + vbDefaultButton1)

If row_or_col = vbYes Then
    For i = 1 To NoDupes.Count
        ActiveCell.Offset(i - 1, 0) = NoDupesi
    Next i
ElseIf row_or_col = vbNo Then
    For i = 1 To NoDupes.Count
        ActiveCell.Offset(0, i - 1) = NoDupesi
    Next i
ElseIf row_or_col = vbCancel Then Exit Sub
End If
    
    
End Sub
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  donderdag 5 februari 2009 @ 13:28:50 #140
234506 Metal_Jag
MMM van metal
pi_65764485
Als je alles in 1 kolom kunt krijgen(handmatig, gewoon onder elkaar knippen/plakken), kun je dit wel met een draaitabel voor elkaar krijgen.

Selecteerd die ene rij waar alle gegevens in staan(inclusief kolomnaam!).
klik op draaitabel in menu "data"
Klik voltooien
Sleep die ene kolom zowel in "rijvelden" als in "gegevensitems".

pi_65764713
Dat is voor mij voldoende. Ik ga het waarschijnlijk toch maar 1 keer toepassen en ik heb geen verstand van macro's. Bedankt voor de moeite en petje af!
pi_65766385
Weer een vraagje...

Als ik een cel wil kantelen zeg maar 45 graden dan gaat dat BEST maar als ik een samengevoegde cel wil kantelen NIET iemand een oplossing ??
pi_65766521
quote:
Op donderdag 5 februari 2009 14:22 schreef BuupWerk het volgende:
Weer een vraagje...

Als ik een cel wil kantelen zeg maar 45 graden dan gaat dat BEST maar als ik een samengevoegde cel wil kantelen NIET iemand een oplossing ??
Welke versie? In 2007 lukt het prima.
pi_65766540
Keesotto dan schrap ik mn werkzaamheden Kon er toch niet zo lekker uitkomen dus komt goed uit
pi_65766966
Nog een poging met verticaal.zoeken() van mij
Ik kan niet onthouden hoe het nou werkt
Ik heb een paar honderd rijen met gegevens. De eerste kolom is het ID. Nu wil ik in m'n andere werkblad een cel invullen met een ID, en dat Excel de rest van de gegevens dan automatisch ophaalt.
Hoe moest dat ook al weer
pi_65767899
=VERT.ZOEKEN(A1,Sheet1!A1:B1000,2,0)

Dat is de 2e kolom ophalen. Als je de derde kolom wil ophalen moet je tot C1000 zoeken en de 2 in een 3 veranderen.
pi_65768005
quote:
Op donderdag 5 februari 2009 15:05 schreef DaFan het volgende:
=VERT.ZOEKEN(A1,Sheet1!A1:B1000,2,0)

Dat is de 2e kolom ophalen. Als je de derde kolom wil ophalen moet je tot C1000 zoeken en de 2 in een 3 veranderen.
de help van excel gebruiken doet ook wonderen
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  donderdag 5 februari 2009 @ 15:13:17 #148
234506 Metal_Jag
MMM van metal
pi_65768202
quote:
Op donderdag 5 februari 2009 15:08 schreef Deetch het volgende:

[..]

de help van excel gebruiken doet ook wonderen
SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
pi_65768275
quote:
Op donderdag 5 februari 2009 15:08 schreef Deetch het volgende:

[..]

de help van excel gebruiken doet ook wonderen
pi_65768670
quote:
Op donderdag 5 februari 2009 15:08 schreef Deetch het volgende:

[..]

de help van excel gebruiken doet ook wonderen

Heb ik ook meestal wel genoeg aan, maar vert.zoeken lukt me nooit goed. En dan is dit veel sneller
  maandag 9 februari 2009 @ 12:27:17 #151
152215 ManAtWork
Maar nu even niet,...
pi_65877024
In Excel (2007) heb ik de formule ZELFDE.DAG()
Hier kun je het aantal maanden bij de startdatum optellen.

Nu heb ik (in Word) een VB-formulier waarin zowel de begindatum als het aantal maanden wordt ingevuld.
Hoe krijg ik in (mijn bestaande) een macro dan de einddatum? Deze einddatum wordt weer in het Word-sjabloon ingevuld.

(Omdat er in Excel een functie voor is en ik aanneem dat de macro-code voor Excel en Word niet gek veel verschillen heb ik mijn vraag hier maar gepost in plaats van in het grote 'Word-vragen-topic' )
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
pi_65877564
Weet je het Engelse equivalent van deze functie, ik kan hem niet vinden? Dan kan ik er wel wat mee.
  maandag 9 februari 2009 @ 12:49:38 #153
234506 Metal_Jag
MMM van metal
pi_65877585
quote:
Op maandag 9 februari 2009 12:27 schreef ManAtWork het volgende:
In Excel (2007) heb ik de formule ZELFDE.DAG()
Hier kun je het aantal maanden bij de startdatum optellen.

Nu heb ik (in Word) een VB-formulier waarin zowel de begindatum als het aantal maanden wordt ingevuld.
Hoe krijg ik in (mijn bestaande) een macro dan de einddatum? Deze einddatum wordt weer in het Word-sjabloon ingevuld.

(Omdat er in Excel een functie voor is en ik aanneem dat de macro-code voor Excel en Word niet gek veel verschillen heb ik mijn vraag hier maar gepost in plaats van in het grote 'Word-vragen-topic' )
Ik pas ...

Word is onbekend terrein voor mij
  maandag 9 februari 2009 @ 13:21:07 #154
15080 static
03.09.2006 - 11:35
pi_65878580
Ik word er gierend gek van. Heb een grafiek (staaf) met daarnaast op de secundaire as twee lijn-diagrammen met een totaal per eenheid (datalabels). Die laatsen worden opeens niet meer weergegeven, ook al zet ik het uit, aan, weer uit, etc.

Iemand enig idee hoe dat te verhelpen?
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
  maandag 9 februari 2009 @ 13:27:36 #155
62215 qu63
..de tijd drinkt..
pi_65878781
quote:
Op maandag 9 februari 2009 13:21 schreef static het volgende:
Ik word er gierend gek van. Heb een grafiek (staaf) met daarnaast op de secundaire as twee lijn-diagrammen met een totaal per eenheid (datalabels). Die laatsen worden opeens niet meer weergegeven, ook al zet ik het uit, aan, weer uit, etc.

Iemand enig idee hoe dat te verhelpen?
Op de voorgrond zetten ofzo?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_65879267
Werkte het eerste wel Static? Als ik snel ff je voorbeeld namaak (1 staaf, 2 lijn op sec axis), kan ik gewoon datalabels toevoegen. Ook na opslaan, sluiten en openen staan ze er nog.
pi_65879319
ManAtWork:
quote:
The EDate function is part of the Analysis Tool Pak add-in. To use it in
VBA, you need to first load the "Analysis Tool Pak - VBA" add-in in Excel.
Then, open your VBA project, go to the Tools menu, choose Reference, and put
a check next to ATBVBAEN.xls item. Once you do this, you can access the
function directly. E.g.,

Dim Res
Res = edate(Now, 3)
Debug.Print Res
http://www.pcreview.co.uk/forums/thread-959269.php

Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
  maandag 9 februari 2009 @ 13:53:39 #158
152215 ManAtWork
Maar nu even niet,...
pi_65879338
quote:
Op maandag 9 februari 2009 12:49 schreef DaFan het volgende:
Weet je het Engelse equivalent van deze functie, ik kan hem niet vinden? Dan kan ik er wel wat mee.
quote:
You can use the EDATE function to determine a date a number of months in the past or future. This function is part of the Analysis ToolPak. (This tip works with Microsoft Excel 97, Excel 2000, Excel 2002, Excel 2003, and Excel 2007.)
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
  maandag 9 februari 2009 @ 13:56:32 #159
152215 ManAtWork
Maar nu even niet,...
pi_65879363
quote:
Op maandag 9 februari 2009 13:50 schreef DaFan het volgende:
ManAtWork:
[..]

http://www.pcreview.co.uk/forums/thread-959269.php

Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
Je was dus even iets sneller. En Fok! had het te druk om mijn post te plaatsen.
Ik ga eens puzzelen. Alvast mijn dank.
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
pi_65880526
quote:
Op vrijdag 30 januari 2009 15:53 schreef Jaheur het volgende:
Ik heb dan een hele lastige:

Ik heb een range van A1 tot G10 (voorbeeld) in de kolommen kunnen X voorkomen, maar sommige cellen zijn leeg, maar soms kunnen er dubbelen X-en voorkomen. Hoe kan ik dit vereenvoudigen dus bijvoorbeeld

A1:A10 is gelijk aan D1:D10 dus de hele kolom van D mag verwijderd worden, maar deze vergelijking is wel random want A kan net zo goed B zijn. De vergelijking moet wel over de hele kolom gaan.
Weet iemand al wat? Ik kom er echt niet uit :x
pi_65880830
Dus je wil A1:A10 vergelijken met alle kolommen 1:10, en als ze exact identiek zijn (zeg 1 en 2 staan een X in, rest niet) dan kan de 2e kolom weg?
  maandag 9 februari 2009 @ 14:41:50 #162
15080 static
03.09.2006 - 11:35
pi_65880896
Het werkte allemaal prima, totdat ik een nieuew range data toevoegde. De vorige labels staan er allemaal behalve de nieuwe (heb er twee toegevoegd).
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
  maandag 9 februari 2009 @ 14:46:11 #163
234506 Metal_Jag
MMM van metal
pi_65881043
quote:
Op vrijdag 30 januari 2009 22:55 schreef Jaheur het volgende:

[..]

Ja zoiets bedoel ik.
@Jaheur
Ik dacht uit bovenstaande post te begrijpen dat je er wel uit zou komen ...
pi_65881349
quote:
Op maandag 9 februari 2009 14:39 schreef DaFan het volgende:
Dus je wil A1:A10 vergelijken met alle kolommen 1:10, en als ze exact identiek zijn (zeg 1 en 2 staan een X in, rest niet) dan kan de 2e kolom weg?
Uhm als bijvoorbeeld bij A1:A10 hetzelfde voorkomt als bij G1:G10 dan mag de gehele kolom G weg. Deze vergelijking en deleten moet doorgaan totdat er een lege kolom verschijnt.

Dus in een kolom is A gelijk aan D en E en C gelijk aan G dan moet D, E en G verwijderd worden.

Een kolom verwijderen lukt me nog wel, maar de vergelijking maken is lastig.
pi_65881369
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()

    LastColumn = Range("IV1").End(xlToLeft).Column
    LastRow = Range("A65536").End(xlUp).Row
    
    j = 1
    
    For i = 1 To LastColumn
        For k = i + 1 To LastColumn
            If Cells(j, i).Value = Cells(j, k).Value Then
                For j = 1 To LastRow
                    If j = LastRow Then
                        Sheets("Sheet1").Columns(k).EntireColumn.Delete
                    End If
                Next j
            End If
        Next k
    Next i

End Sub


Deze werkt ook voor grotere ranges (zeg A1:Z1000), enige 2 problemen zijn:
a) Er wordt vanuit gegaan dat Kolom A is gevuld in A1 én in de laatste cel van de kolom.
b) Er wordt vanuit gegaan dat Kolom Z (in de grote range) gevuld is in Z1.

Dit kan ik aanpassen door:
a) De range vast te maken (dus altijd A1:G10)
b) De gebruiker te vragen om input te geven aan het begin wat de laatste kolom en de laatste rij is.
pi_65881456
Voor vaste range A1:G10 vervang de eerste 2 regels door:

LastColumn = 7
LastRow = 10
  maandag 9 februari 2009 @ 17:29:28 #167
152215 ManAtWork
Maar nu even niet,...
pi_65886523
quote:
Op maandag 9 februari 2009 13:50 schreef DaFan het volgende:
ManAtWork:
[..]

http://www.pcreview.co.uk/forums/thread-959269.php

Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
Dit werkt dus wel voor een macro in Excel. Helaas krijg ik het in Word niet voor elkaar.
quote:
Then, open your VBA project, go to the Tools menu, choose Reference, and put
a check next to ATBVBAEN.xls item.
Bovenstaande krijg ik niet gedaan in VBA van Word.
(Lijkt me logisch daar .xls Excel betreft,...)
Op de Knowledge Base van MS zie ik dat edate ook alleen betrekking heeft op Excel.

Iemand een alternatief?
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
pi_65887745
Kan je niet door middel van Month(<datum >) de maand eruit trekken en daar het aantal maanden er bovenop tellen?
  maandag 9 februari 2009 @ 19:37:13 #169
152215 ManAtWork
Maar nu even niet,...
pi_65890229
quote:
Op maandag 9 februari 2009 18:15 schreef DaFan het volgende:
Kan je niet door middel van Month(<datum >) de maand eruit trekken en daar het aantal maanden er bovenop tellen?
Denk dat ik het daar inderdaad in moet gaan zoeken. Alleen zal ik ook te maken krijgen met jaren.
Morgen google maar weer opstarten.
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
  dinsdag 10 februari 2009 @ 13:21:10 #170
234506 Metal_Jag
MMM van metal
pi_65910629
Is er een VBA statement die het aantal niet-lege cellen in een range geeft?
pi_65910991
ik ben bezig een berekeningsformulier (frmE) te maken en nu wil ik een listbox vullen met vaste waarden (dus in de code) zonder ergens deze waarden in een excelsheet te moeten stoppen.

de lijst bestaat uit vier tekstregels:
"nooit"
"zelden"
"soms"
"vaak"

In het formulier heet de listbox lstE

Ik heb het al met de volgende code geprobeerd:

1
2
3
4
5
6
7
8
9
10
Private sub Userform_initialize

Elist(0) = "nooit"
Elist(1) = "zelden"
Elist(2) = "soms"
Elist(3) = "vaak"

Me.lstE.List = Elist

end sub


Als ik dan met een macroknop de volgende code uitvoer
1
2
Load frmE
frmE.show

krijg ik op de regel "Load frmE" de foutmelding
"Runtime error 9", subscript out of range"

wat doe ik fout?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  dinsdag 10 februari 2009 @ 13:35:16 #172
234506 Metal_Jag
MMM van metal
pi_65911108
quote:
Op dinsdag 10 februari 2009 13:32 schreef Deetch het volgende:
ik ben bezig een berekeningsformulier (frmE) te maken en nu wil ik een listbox vullen met vaste waarden (dus in de code) zonder ergens deze waarden in een excelsheet te moeten stoppen.

de lijst bestaat uit vier tekstregels:
"nooit"
"zelden"
"soms"
"vaak"

In het formulier heet de listbox lstE

Ik heb het al met de volgende code geprobeerd:
[ code verwijderd ]

Als ik dan met een macroknop de volgende code uitvoer
[ code verwijderd ]

krijg ik de foutmelding
"Runtime error 9", subscript out of range

wat doe ik fout?
moet het niet dit zijn:

lstE.AddItem ("Nooit")
.
.
.
lstE.Additem("Vaak")

??
pi_65911124
Er is afaik geen direct statement (zoals in Excel wel), dus gebruik het volgende:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim c as Range
Dim LegeCellen as Integer

LegeCellen = 0

For each c in Range("A1:A10")
   If c.Value = "" Then
        LegeCellen = LegeCellen + 1
    End If
Next

MsgBox LegeCellen

End Sub
pi_65911163
Deetch: Wat Metal_Jag zegt is juist
  dinsdag 10 februari 2009 @ 13:37:32 #175
234506 Metal_Jag
MMM van metal
pi_65911191
edit

[ Bericht 91% gewijzigd door Metal_Jag op 10-02-2009 14:54:58 ]
pi_65911326
quote:
Op dinsdag 10 februari 2009 13:35 schreef Metal_Jag het volgende:

[..]

moet het niet dit zijn:

lstE.AddItem ("Nooit")
.
.
.
lstE.Additem("Vaak")

??
inderdaad
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  dinsdag 10 februari 2009 @ 14:54:10 #177
234506 Metal_Jag
MMM van metal
pi_65913666
quote:
Op dinsdag 10 februari 2009 13:35 schreef DaFan het volgende:
Er is afaik geen direct statement (zoals in Excel wel), dus gebruik het volgende:
[ code verwijderd ]


Ja zoiets doe ik ook, maar ik dacht misschien kan het handiger. Thanx.

Nu nog een 2e vraag:

Ik heb 140 (!) knopjes die allemaal hetzelfde moeten doen, behalve dat er gegevens in de buurt van hun eigen positie geplaatst moet worden. Nu heb ik dit:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
 Set positie = Range("E2")
  UserForm1.Show
End Sub

Private Sub CommandButton2_Click()
 Set positie = Range("E3")
 UserForm1.Show
End Sub

Private Sub CommandButton3_Click()
 Set positie = Range("E4")
 UserForm1.Show
End Sub

ENZ ENZ ENZ x 140


Kan dit niet handiger? Want nu moet ik 140x deze procedure kopieren en op één plekje wijzigen...

[ Bericht 2% gewijzigd door Metal_Jag op 10-02-2009 15:14:39 ]
pi_65914745
Ik zit te denken of er geen procedure bestaat om achter de naam van het object te komen die de macro aanroept maar ik kan zo niks vinden. Dan kan je mbv die procedure het nummer vinden van het object en dan een offset toen tov E2.

Elke Sub die je nu hebt roept dan het 'hoofdsub' op, dus die hoef je dan maar 1x te schrijven + 140x de hoofdsub aanroepen.
  woensdag 11 februari 2009 @ 12:28:49 #179
234506 Metal_Jag
MMM van metal
pi_65944936
quote:
Op dinsdag 10 februari 2009 15:24 schreef DaFan het volgende:
Ik zit te denken of er geen procedure bestaat om achter de naam van het object te komen die de macro aanroept maar ik kan zo niks vinden. Dan kan je mbv die procedure het nummer vinden van het object en dan een offset toen tov E2.

Elke Sub die je nu hebt roept dan het 'hoofdsub' op, dus die hoef je dan maar 1x te schrijven + 140x de hoofdsub aanroepen.
Ik heb wel dit gevonden:

Object.Top en Object.Left

geeft de positie van het object. Maar dan kom ik er nog niet uit. Eerst moet je nog weten welk object de opdracht geeft en vervolgens de positie linken aan een cel...

En tout cas. Ik heb 140x een procedure gemaakt met hulp van de "vervangen" optie.

Als je nog suggesties hebt, dan wil ik het nog wel weten voor een volgende keer.
pi_65945072
Op welke manier komt Top en Left terug dan? Pixels of cellen?
  woensdag 11 februari 2009 @ 12:44:04 #181
234506 Metal_Jag
MMM van metal
pi_65945394
quote:
Op woensdag 11 februari 2009 12:32 schreef DaFan het volgende:
Op welke manier komt Top en Left terug dan? Pixels of cellen?
Pixels
pi_65945769
quote:
Op woensdag 11 februari 2009 12:44 schreef Metal_Jag het volgende:

[..]

Pixels
Kan je niks mee dus
Ik zou het echt niet weten, lijkt me een goede vraag voor de vrienden van MrExcel tho.
pi_66077123
Een vraag,

Kan ik in Word een verwijzing maken naar een Excel-bestand?

Ik moet een enquete maken en ik wil de gegevens die ik ingeef in Word direct word omgezet in Excel om daarmee een grafiek maken.

Hoe kan ik hieraan aan beginnen?
pi_66077345
quote:
Op zondag 15 februari 2009 11:11 schreef devuser_250 het volgende:
Een vraag,

Kan ik in Word een verwijzing maken naar een Excel-bestand?

Ik moet een enquete maken en ik wil de gegevens die ik ingeef in Word direct word omgezet in Excel om daarmee een grafiek maken.

Hoe kan ik hieraan aan beginnen?
Object toevoegen via toevoegen. Volgens mij kan je dan gewoon in een werkblad werken in Word.
pi_66120641
Ik heb een breakevengrafiek gemaakt, deze klopt verder helemaal, alleen beginnen mijn lijnen pas op X=0,5.

Bij mijn waarde X=0 heb ik een negatieve waarde aangezien ik wel kosten heb. In mijn grafiek staat echter pas op X = 0,5 die negatieve waarde. Dit geeft een beetje een verkeerd beeld, dus misschien kan iemand mij helpen. Ik wil mijn grafiek beginnen bij X = 0,0 maar ik kan niet vinden waar ik dat moet doen.. Weet iemand dit?

Alvast dank!
pi_66124608
Welke data en welke grafiek gebruik je? misschien kun je een screenshotje plaatsen?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_66125654
Er staat me iets van bij met "Y-axis crosses at 0" (of iets dergelijks) dat je bij je grafiekopties aan of uit kan zetten. Dit bepaalt of de eerste waarde bij X = 0 staat of tussen X = 0 en X = 1 in ( X = 0.5 dus).

Edit: Kan het zelf niet vinden. Probeer ff beetje te kloten met de X-Axis options.

[ Bericht 18% gewijzigd door DaFan op 16-02-2009 18:08:40 ]
pi_66127778
quote:
Op maandag 16 februari 2009 17:10 schreef DaFan het volgende:
Er staat me iets van bij met "Y-axis crosses at 0" (of iets dergelijks) dat je bij je grafiekopties aan of uit kan zetten. Dit bepaalt of de eerste waarde bij X = 0 staat of tussen X = 0 en X = 1 in ( X = 0.5 dus).
Dat heb ik al geprobeerd en helaas zonder effect. Ik heb nu mijn instellingen veranderd, en nu begint de lijn bij X = 1 terwijl ik X = 0 wil hebben..

Op dit moment ziet mijn grafiekje er zo uit:

pi_66136842
Je moet er wel een XY grafiek van maken en geen lijn-grafiek.

Hoe ziet je tabel met data eruit? Heb je een kolom met 0 tm 8 en daarachter 3 kolommen met kosten opbrengsten en winst?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_66138123
quote:
Op maandag 16 februari 2009 21:28 schreef Deetch het volgende:
Je moet er wel een XY grafiek van maken en geen lijn-grafiek.

Hoe ziet je tabel met data eruit? Heb je een kolom met 0 tm 8 en daarachter 3 kolommen met kosten opbrengsten en winst?
Dit is een XY grafiek, ik heb alleen de eigenschappen van het "uiterlijk" aangepast zodat er een lijn in zit. Ik heb een kolom 0 - 8 geprobeerd met daarachter de gegevens, ik heb het geprobeerd met 0 - 8 met daaronder de gegevens.. Ik ben op een gegeven moment gewoon maar gaan proberen, omdat ik het maar niet voor elkaar kreeg. Schijnbaar pakt ie de eerste van de tabel en noemt hij dat "1", ook al staat er in de tabel dat dat nul moet zijn
pi_66138421
raar, in mijn excel doet ie het gewoon goed.

1 kolom met 0 tm 8 dan de andere drie kolommen erachter.
alle vier kolommen selecteren en een XY grafiek van maken en klaar ben je
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_66139418
quote:
Op maandag 16 februari 2009 21:52 schreef Deetch het volgende:
raar, in mijn excel doet ie het gewoon goed.

1 kolom met 0 tm 8 dan de andere drie kolommen erachter.
alle vier kolommen selecteren en een XY grafiek van maken en klaar ben je
Ik vind het echt vreemd, want bij mij doet ie dat dus niet Ik heb nu wel de lijnen op de X-as gekregen, maar er staat nog steeds 1 onder en daar moet natuurlijk 0 staan.. *zucht*
pi_66141088
raar hoor, stuur de sheet eens naar mijn email adres, zal ik er morgen even naar kijken
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_66147886
Ik heb het inmiddels voor elkaar gekregen (eindelijk!), ik heb (als ik het goed onthouden heb), nogmaals een grafiek gemaakt en daarbij op de achtergrond rechts geklikt, brongegevens bewerken (ik weet niet of dit echt zo heet, ik heb hier de Engelse Excel) en vervolgens nogmaals apart de 0 tm 8 geselecteerd, ook al had ik deze al geselecteerd bij het maken van mijn grafiek.

Verder heb ik niks veranderd dus schijnbaar was dit het probleem

Thanks anyway!
pi_66147980
OK, af en toe heeft office rare kuren
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_66206573
Hallo!

Sinds kort mag ik me gaan bezighouden met bij bijhouden van een overzicht van een groep vrijwilligers. Onder meer op welke dagen ze hebben gewerkt, het aantal keren dat ze actief zijn geweest etc etc.
Ik heb er bijbehorend bestand bij gekregen, nu weet ik wel iets over Excel (van macro's en VBA heb ik geen kaas gegeten helaas) en ik heb zo'n vermoeden dat dit handiger kan.

Het bestand als voorbeeld: http://www.worksheet.nl/forumexcel/attachment.php?attachmentid=12480&d=1234976558

Het zou bijvoorbeeld fijn zijn als er iets anders bedacht zou kunnen worden op het inkloppen van de 1tjes en dat de gegevens bij de totalen automatisch worden overgenomen en op hoog-laag gesorteerd.

Iemand die me wil helpen?
Thanks!

ps: ik heb er even fictieve namen van gemaakt.

[ Bericht 0% gewijzigd door MB88 op 18-02-2009 18:11:16 (typo) ]
2011: Groezrock - Pinkpop - Hurricane - Summerfestival - Exit - Parade - Dour - Rock Werchter - Sziget - Lowlands - Laundry Day - Iceland Airwaves
Hoppa!! Lekker zomertje!
pi_66209395
Ik zie niet hoe dit sneller kan. Je zal per week toch moeten bepalen wie er heeft gewerkt en dat inkloppen. De totalen worden op zo'n manier automatisch bepaald, ziet er verder prima uit.
Het sorteren op totaal is ook een kwestie van 3x klikken.
pi_66228906
Wat doe ik verkeerd met mijn macro, als ik het volgende invul:
ActiveCell.FormulaR1C1 = "=SUM(B" & X & ")":

X is een variabele cijfer.

Krijg ik onderstaande als resultaat en dan werkt het niet, moet namelijk zonder ' ' zijn
=SOM('B4')
pi_66230195
Waarom een som van 1 cel?

Formule R1C1 betekend dat je de celverwijzing ook in relatieve rij en kolom posities moet aangeven. Als je ipv formulaR1C1 gewoon formula gebruikt zou het moeten werken.

[ Bericht 43% gewijzigd door Deetch op 19-02-2009 11:32:00 ]
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_66230988
Het leven kan zo simpel zijn he... Dank je
  donderdag 19 februari 2009 @ 13:03:31 #201
134944 Hi_flyer
Van alles te melden
pi_66233971
Ik kom niet uit een stukje code. In de range S38:CH38 staan celverwijzingen (dus gewoon d4 of g8). Deze lees ik in in arrLoc. Waarom kan ik met "for...each" elk element uit deze array halen, maar niet met "for i = Lbound(arrLoc) to Ubound(arrLoc) .... next"?

Vervolgens lees ik een tekstbestand in met daarin data, gescheiden door "|". Deze split ik, zodat ik een array krijg. Nu wil ik deze data plaatsen in de cel die ik uit arrLoc haal. Dit zou toch eenvoudig moeten kunnen met een for...next of for each .... next loop? Waarom werkt het niet? Ergens heb ik het idee dat arrLoc een 2D-array is en dat ik gewoon niet snap hoe ik daar een element uit haal.

Wie weet raad?


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub load_request()
Dim inhoud As Variant
Dim splitinhoud As Variant
Dim location
Dim arrLoc As Variant   
Dim Sep
Dim i As Integer
Close #1

arrLoc = range("S38:CH38")

location = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt")
Sep = "|"

Open location For Input Access Read As #1
Line Input #1, inhoud
splitinhoud = Split(inhoud, Sep)

For Each i In arrLoc
        MsgBox i & vbCrLf & splitinhoudi & " in " & arrLoc(1, i)
        range(arrLoci).Value = splitinhoud(i + 1)
Next

Close #1
End Sub
pi_66235582
zou je arrLoc niet beter als string dimmen?

probeer eens met next i ipv next in regel 22

[ Bericht 6% gewijzigd door Deetch op 19-02-2009 15:37:09 ]
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  donderdag 19 februari 2009 @ 14:54:11 #203
62913 Blik
The one and Only!
pi_66238523
Zijn er mensen hier bekend met Think-Cell of ASAP Utilities?
pi_66239048
quote:
Op donderdag 19 februari 2009 14:54 schreef Blik het volgende:
Zijn er mensen hier bekend met Think-Cell of ASAP Utilities?
klinkt niet echt als een excel vraag, probeer eens een eigen topic te starten in dig met een eigen duidelijke titel.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  donderdag 19 februari 2009 @ 16:18:58 #205
62913 Blik
The one and Only!
pi_66241886
quote:
Op donderdag 19 februari 2009 15:08 schreef Deetch het volgende:

[..]

klinkt niet echt als een excel vraag, probeer eens een eigen topic te starten in dig met een eigen duidelijke titel.
Als je er niet bekend mee bent, zeg dan gewoon niks. Het zijn tools die extra functionaliteit geven aan Excel i.c.m. powerpoint. Veel gebruikt bij grote consultancy/strategy bureaus.

Ik ben benieuwd of mensen er bekend mee zijn en waarvoor ze die tools gebruiken
pi_66242525
quote:
Op donderdag 19 februari 2009 16:18 schreef Blik het volgende:

[..]

Als je er niet bekend mee bent, zeg dan gewoon niks. Het zijn tools die extra functionaliteit geven aan Excel i.c.m. powerpoint. Veel gebruikt bij grote consultancy/strategy bureaus.

Ik ben benieuwd of mensen er bekend mee zijn en waarvoor ze die tools gebruiken
Maar je hebt dus niet echt een specifieke vraag

deze is wel grappig van ASAP

[ Bericht 6% gewijzigd door Deetch op 19-02-2009 16:40:39 ]
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_66242665
Gezellig dat je er bent Blik.
  donderdag 19 februari 2009 @ 16:43:53 #208
62913 Blik
The one and Only!
pi_66242953
Ik ga toch geen apart topic openen hiervoor, ben gewoon benieuwd of de excel-experts hier dat soort handige tools gebruiken. Daarvoor ben ik hier volgens mij in het juiste topique
pi_66243102
quote:
Op donderdag 19 februari 2009 16:43 schreef Blik het volgende:
Ik ga toch geen apart topic openen hiervoor, ben gewoon benieuwd of de excel-experts hier dat soort handige tools gebruiken. Daarvoor ben ik hier volgens mij in het juiste topique
Klopt, dit is voor Fok!kers die met kleine problemen zitten en hiervoor hulp kunnen gebruiken van wat geavanceerderde gebruikers. Geen discussie topic over tools.
pi_66244196
quote:
Op donderdag 19 februari 2009 16:48 schreef DaFan het volgende:

[..]

Klopt, dit is voor Fok!kers die met kleine problemen zitten en hiervoor hulp kunnen gebruiken van wat geavanceerderde gebruikers. Geen discussie topic over tools.
precies
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  donderdag 19 februari 2009 @ 17:21:32 #211
62913 Blik
The one and Only!
pi_66244370
Misschien moet de TT en OP dan veranderd worden, daar staat namelijk duidelijk dat je hier terecht kunt met al je vragen over Excel.
pi_66259073
quote:
Op donderdag 19 februari 2009 17:21 schreef Blik het volgende:
Misschien moet de TT en OP dan veranderd worden, daar staat namelijk duidelijk dat je hier terecht kunt met al je vragen over Excel.
Dus jij verwacht dat hier een Excel guru zit die met alle vragen over alle dingen die met Excel te maken hebben, overweg kan?

Wij zijn ook maar gewoon Fok!kers (meestal Deetch/Frollo/qu63/mijzelf) die, als het uitkomt, mede-Fok!kers helpen bij huiswerk/studie/werk-gerelateerde problemen. Je mag het van mij prima vragen over de meest ingewikkelde dingen (zoals je al deed) maar ík (en Deetch) hebben er nog nooit van gehoord dus ik verwacht dat je dan hier weinig hulp/medestanders vindt.
  donderdag 19 februari 2009 @ 23:18:14 #213
62215 qu63
..de tijd drinkt..
pi_66259328
quote:
Op donderdag 19 februari 2009 23:13 schreef DaFan het volgende:
Je mag het van mij prima vragen over de meest ingewikkelde dingen (zoals je al deed) maar ík (en Deetch) hebben er nog nooit van gehoord dus ik verwacht dat je dan hier weinig hulp/medestanders vindt.
Ik weet er ook niks van

[ Bericht 17% gewijzigd door qu63 op 19-02-2009 23:30:21 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_66259431
quote:
Op donderdag 19 februari 2009 23:18 schreef qu63 het volgende:

[..]

Ik weet er ook niks van
Dan edit ik je eruit
  donderdag 19 februari 2009 @ 23:29:09 #215
62215 qu63
..de tijd drinkt..
pi_66259789
quote:
Op donderdag 19 februari 2009 23:21 schreef DaFan het volgende:

[..]

Dan edit ik je eruit
Ik bedoelde je laatste regel
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_66259938
Ik blijf bij mn standpunt.

Anyway, way offtopic dit. Ik heb ook geen verstand van arrays in VBA trouwens dus daar bemoei ik me ook niet mee.
  donderdag 19 februari 2009 @ 23:45:12 #217
62913 Blik
The one and Only!
pi_66260466
tis trouwens echt geen zware high-end tool trouwens, om die tools te kennen hoef je echt geen guru op het gebied van excel te zijn. Macro's zijn vele malen ingewikkelder
pi_66260668
Blik, nu ik ff de moeite heb genomen om te Googlen ( ) ziet dat ASAP er nog best wel handy uit voor idd de gebruiker die elke dag Excel gebruikt. Ikzelf gebruikte het op dagelijkse basis en was vooral met stage veel bezig om mezelf dingen aan te leren. Nu gebruk ik het nooit behalve als er hier mensen vragen hebben die ik denk te kunnen beantwoorden, dus heb niet veel aan zo'n add-in.

Misschien probeer ik het zelfs wel een keer Heb je er nog specifieke problemen mee of wou je gewoon peilen hoe het hier gebruikt werd?
pi_66265141
Ik heb ook ff gekeken en een aantal deel van de tooltjes van ASAP heb ik zelf geprogrammeerd of daar ken ik de menu volgorde zo van uit mijn hoofd dat dat bijna automatisch gaat. Misschien toch eens een keer naar kijken, jammer dat de code waarschijnlijk afgeschermd is anders konden we er nog wat van leren.
Dat think-cell is mi overbodig omdat je excel al kan embedden in powerpoint.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  vrijdag 20 februari 2009 @ 09:54:03 #220
62913 Blik
The one and Only!
pi_66267337
quote:
Op donderdag 19 februari 2009 23:50 schreef DaFan het volgende:

Misschien probeer ik het zelfs wel een keer Heb je er nog specifieke problemen mee of wou je gewoon peilen hoe het hier gebruikt werd?
Nee, wilde gewoon peilen of het gebruikt werd en hoe het gebruikt werd. Heb er verder geen problemen mee
pi_66270140
Ik heb een Excelbestand (doh) en daarin staat in werkblad B een aantal kolommen+rijen met data á la

12008   110   401        5960   69930    02    8020093     0095   


Nu wil ik graag dat op werkblad A de hele rij komt te staan zodra op werkblad B in kolom C de waarde '401' staat.

Snappu?

Hoe doe ik dat? :)
pi_66275627
quote:
Op vrijdag 20 februari 2009 11:20 schreef Errrwin het volgende:
Ik heb een Excelbestand (doh) en daarin staat in werkblad B een aantal kolommen+rijen met data á la
[ code verwijderd ]

Nu wil ik graag dat op werkblad A de hele rij komt te staan zodra op werkblad B in kolom C de waarde '401' staat.

Snappu?

Hoe doe ik dat? :)
achter het ' staat een opmerking die uitlegt wat die regel doet
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub fok()

Sheets("Sheet2").Select 'sheet waar gesorteerde gegevens komen
Range("a2").Select 'cel waar eerste gesorteerde rij komt

Sheets("Sheet1").Select 'sheet waar ruwe data staat
Range("C1").Select 'beginnen bovenaan kolom c

For i = 1 To 100 'gaat eerste 100 regels bij langs
If ActiveCell.Value = 401 Then 'te zoeken waarde
    ActiveCell.EntireRow.Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Select
End If
Sheets("Sheet1").Select
Range("C" & i).Select 'volgende cel in kolom c selecteren
Next i

End Sub
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_66277378
quote:
Op vrijdag 20 februari 2009 13:52 schreef Deetch het volgende:

[..]

achter het ' staat een opmerking die uitlegt wat die regel doet
[ code verwijderd ]
Crap. Nog iets vergeten, er zijn 2 criteria! Dus in de regel code in m'n vorige post de '401' en de '69930'.

Kan je daar wat van brouwen, denk je?

[ Bericht 17% gewijzigd door Errrwin op 20-02-2009 15:04:45 ]
pi_66279029
quote:
Op vrijdag 20 februari 2009 14:34 schreef Errrwin het volgende:

[..]

Crap. Nog iets vergeten, er zijn 2 criteria! Dus in de regel code in m'n vorige post de '401' en de '69930'.

Kan je daar wat van brouwen, denk je?
staat de 69930 altijd in kolom E?
Zo ja dan onderstaande code gebruiken
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub fok()

Sheets("Sheet2").Select 'sheet waar gesorteerde gegevens komen
Range("a2").Select 'cel waar eerste gesorteerde rij komt

Sheets("Sheet1").Select 'sheet waar ruwe data staat
Range("C1").Select 'beginnen bovenaan kolom c

For i = 1 To 5000 'gaat eerste 5000 regels bij langs
If ActiveCell.Value = 401 And ActiveCell.Offset(0, 2).Value = 69930 Then 'te zoeken waarde
    ActiveCell.EntireRow.Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Select
End If
Sheets("Sheet1").Select
Range("C" & i).Select 'volgende cel in kolom c selecteren
Next i

Application.CutCopyMode = False 'deseleteerd de laatste gekopieerde regel (stippellijntje weg)

End Sub


Mocht de 69930 nu in kolom F of G staan dan verander je in regel 10 "Offset(0,2)" in "Offset(0,3)" of "Offset(0,4)"
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_66282935
?? krijg je die melding?

Zag nog klein foutje maar dat kan niet dit probleem veroorzaken

verplaats onderstaande code (regel 17/18 van vorige post) direct onder de For i = ....... regel
Als namelijk je eerste regel voldoet aan beide criteria komt hij twee keer op sheet 2 te staan. Na deze aanpassing niet meer.
1
2
Sheets("Sheet1").Select
Range("C" & i).Select 'volgende cel in kolom c selecteren
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  vrijdag 20 februari 2009 @ 19:12:14 #227
158136 Joooo-pi
Do you want a balloon...
pi_66287670
Deetch, je code geeft bij mij ook foutmeldingen...

Dit is ongeveer hetzelfde maar net even anders. Misschien werkt dit wel?

Wat wel echt anders is is dat het programma doorgaat totdat er een lege cel in kolom 3 zit.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()

Dim i,j As Integer

Sheets("Blad1").Select

i = 0
j = 0
Do
i = i + 1
If Cells(i, 3).Value = "401" And Cells(i, 5).Value = "69930" Then
    j = j + 1
    Cells(i, 4).EntireRow.Copy
    Sheets("Blad2").Activate
    ActiveSheet.Cells(j, 1).Select
    ActiveSheet.Paste
    Sheets("Blad1").Activate
End If

Loop Until Cells(i, 3).Value = ""

Range("A1").Select
Application.CutCopyMode = False

End Sub


Bij mij werkt het wel ...
heitieh
  zaterdag 21 februari 2009 @ 00:27:57 #228
38651 yozd
FR1908 Vakkie R
pi_66301910
2 vragen:

(1)

Ik heb een Excel bestand met daarin 21 werkbladen. Ik moet de rendementen van portfolio’s berekenen en daarom heb ik 1 werkblad (werkblad ‘1’) met de rendementen van een portefeuille die 1 week vast gehouden is op een bepaald moment, werkblad 2 berekent de rendementen voor portefeuilles die 2 weken zijn vastgehouden op een bepaald moment, werkblad 3 voor 3 weken etc. Ik doe dit voor 20 weken en mijn 21e werkblad moet een soort samenvatting worden (hier gaat mijn vraag over). Je ziet in dit werkblad in rij 1 alle weken en in kolom A de verschillende tijdstippen.

In kolom B, rij 5 zie je nu ='1'!E14. In de rij daaronder wordt dit: ='1'!F18. De rij daaronder heeft ='1'!G22. Er zit dus een patroon in. De letter (kolom) gaat steeds 1 verder en het getal (de rij) 4.

In kolom C (21e werkblad) zie je in C,5 : ='2'!E14. D,5 = ='3'!E14. B,5 was ='1'!E14. M.a.w. ook hier zit een patroon in, het getal tussen '' (wat staat voor het werkblad) gaat steeds omhoog met 1.

Die getallen heb ik allemaal handmatig zitten invoeren door steeds in het 21e werkblad op een lege cel dubbel te klikken en dan het getal wat er bij hoort aan te klikken in het juiste werkblad. Dat is best wel een pokke werk, dus ik vroeg me af of dit te automatiseren is?

Naja, het klink allemaal best wazig als ik het zo allemaal nog eens doorlezen, maar misschien snappen jullie het .

(2)

Ik heb 2 excel bestanden. 1 ziet er zo uit:

kolom A
----------
fortis
ing
rabobank
shell
abn
bp

enz.

De ander:

abn 4 6 7 3 2 4 5
ing 3 5 3 2 7 8 9
fortis 2 3 4 5 6

etc.

M.a.w. het 2e bestand is gewoon een rijtje aandelenkoersen (kolom A de naam en in B t/m heel ver de koersen). Ik wil nu graag in bestand 1 al die koersen hebben. In kolom A zit er namelijk een bepaalde vaste volgorde in. Hoe is dit te doen zonder alles handmatig te kopiëren?

[ Bericht 8% gewijzigd door yozd op 21-02-2009 01:09:03 ]
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
  maandag 23 februari 2009 @ 03:26:19 #229
38651 yozd
FR1908 Vakkie R
pi_66362310
(1) is al gelukt .
Nu (2) nog...
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
  maandag 23 februari 2009 @ 08:42:18 #230
234506 Metal_Jag
MMM van metal
pi_66364131
Kan in het 2e bestand een op een of andere manier aandeel 2x voorkomen?

abn 1 3 5 6 7
fortis 12 12 12 5
abn 2 2 2 2 2

?
pi_66367969
Ik zou echt niet weten hoe ik deze formule zou moeten beginnen:

Je hebt kolom A t/m H. Er moet een hele rij geplakt worden onder deze kolommen, maar het mag geen data overschrijven. Oftewel, ik moet weten welke kolom het langst is en daaronder pas laten plakken.

Hoe kan ik dit aanpakken, liefst met code.
pi_66368091
komt leuke puzzel aan jongens.. volgende post
pi_66368210
Deze dus

Ik heb nu transportgegevens maar daarin wordt niet goed bijgehouden wanneer ritten gecombineerd worden. Dit is uiteraard wel handmatig te corrigeren maar met 20k records is dat niet de bedoeling. De voorkeur heeft Access maar ik ben een stuk handiger in Excel dus wat heen en weer gesleep is geen probleem. Format is: Ritnummer, laadtijd, lostijd.

Voorbeeld:
3333 - 10:00 - 11:30
3333 - 10:10 - 11:20
3333 - 11:00 - 11:50
3333 - 14:00 - 15:00

Dit moet worden:
3333 - 10:00 - 11:50
3333 - 14:00 - 15:00

Dus de records die qua tijden samenvallen moet worden samengevoegd en degene die niet samenvallen moet los blijven. Een simpele query als ritnummer - vroegste lostijd - laatste laadtijd zal 3333 - 10:00 - 15:00 opleveren en dat is niet wenselijk omdat dat suggereert dat de vrachtauto tussen die tijd niet beschikbaar is terwijl deze wel beschikbaar is tussen 11:50 en 14:00 en daar dus een andere rit tussen gepland zou kunnen worden.

Dus je komt dan een beetje op de volgende statement uit:
Per ritnummer -> Als (begintijd van record) is tussen (begintijd - eindtijd andere record) dan samenvoegen van beide records en gebruik vroegste lostijd en laatste laadtijd als gegevens.
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
pi_66369314
Ik heb de macro, maar hoe ik van een formule een enkele getal maken in de macro.

Dus geen "=MAX(5;5;2;2;5;3;3;2)" als uitkomst, maar enkel 5.
  maandag 23 februari 2009 @ 12:50:30 #235
234506 Metal_Jag
MMM van metal
pi_66370384
quote:
Op maandag 23 februari 2009 12:14 schreef Jaheur het volgende:
Ik heb de macro, maar hoe ik van een formule een enkele getal maken in de macro.

Dus geen "=MAX(5;5;2;2;5;3;3;2)" als uitkomst, maar enkel 5.
1Range("A1").FormulaR1C1 = "=MAX(5,5,2,2,5,3,3,2)"

Of gewoon

1Range("A1").value = "=MAX(5,5,2,2,5,3,3,2)"


Ik denk dat het em in de komma's zit.
Wel raar, want als je later in de cell kijkt staat er gewoon weer ; .

[ Bericht 28% gewijzigd door Metal_Jag op 23-02-2009 12:55:51 ]
  maandag 23 februari 2009 @ 13:07:24 #236
234506 Metal_Jag
MMM van metal
pi_66370859
quote:
Op maandag 23 februari 2009 11:37 schreef FJD het volgende:
Deze dus

...
Ik heb helaas geen tijd om hele scripts te schrijven, maar ik heb wel een hersenspinsel hierover. Waarschijnlijk loopt de volgende code nog gigantisch vast, maar het is een beginnetje:

1
2
3
4
5
6
7
8
9
10
11
12
Sub hersenspinsel()
i = 0
Do
i = i + 1
If Cells(i, 3).Value < Cells(i + 1, 2).value Then
        Cells(i, 3).Value = Cells(i + 1, 3).Value
        Cells(i + 1, 1).EntireRow.Delete
        i = i - 1
End If
Loop Until Cells(i + 1, 1).Value = ""

End Sub


[ Bericht 3% gewijzigd door Metal_Jag op 24-02-2009 12:11:10 ]
pi_66374234
Even een vraag over het printen van excel. Wanneer ik 0 waarden en foute formulles als deel/0 niet wil laten zien wanneer ik print hoe regel ik dat in excel 2007 de nederlandse versie.
pi_66374989
quote:
Op maandag 23 februari 2009 13:07 schreef Metal_Jag het volgende:
Ik heb helaas geen tijd om hele scripts te schrijven, maar ik heb wel een hersenspinsel hierover. Waarschijnlijk loopt de volgende code nog gigantisch vast, maar het is een beginnetje:
[ code verwijderd ]
Thanks

Na een tip van een vriend ben ik de hele dag aant knutselen geweest en t werkt nu bijna. Tis wss een enorme dirty manier maar t hoeft toch maar 1x te werken
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
  maandag 23 februari 2009 @ 15:35:22 #239
170545 DaviniaHR
Mrs. PhysicsRules
pi_66375925
quote:
Op maandag 23 februari 2009 14:45 schreef Stansfield het volgende:
Even een vraag over het printen van excel. Wanneer ik 0 waarden en foute formulles als deel/0 niet wil laten zien wanneer ik print hoe regel ik dat in excel 2007 de nederlandse versie.
Als je met conditional formatting niet die waardes op "wit" zet, zie je ze dan nog bij het printen?
(speaking of quick and dirty )
*O* Trotse mama van E l i en A v i v a *O*
Insanity is heritable. You get it from your children.
Ik ben wel gek, maar niet achterlijk.
If you can't beat them, confuse them.
pi_66376009
quote:
Op maandag 23 februari 2009 15:35 schreef DaviniaHR het volgende:

[..]

Als je met conditional formatting niet die waardes op "wit" zet, zie je ze dan nog bij het printen?
(speaking of quick and dirty )
Dat is niet handig want het beslaat een heleboel formulies die er al staan maar de info is nog niet gevuld. Elke maand komt er dan een stukje bij. Dus dan blijf ik aan de gang.

Er is toch gewoon een mogelijkheid voor.
pi_66376603
Heb het al gevonden bij pagina instellingen-> blad
en dan fouten in cellen als leeg
  dinsdag 24 februari 2009 @ 08:24:24 #242
234506 Metal_Jag
MMM van metal
pi_66397817
quote:
Op maandag 23 februari 2009 15:04 schreef FJD het volgende:

[..]

Thanks

Na een tip van een vriend ben ik de hele dag aant knutselen geweest en t werkt nu bijna. Tis wss een enorme dirty manier maar t hoeft toch maar 1x te werken
Heb je mijn script nog gebruikt?
pi_66405737
Is het mogelijk om door middel van een wachtwoord een blad te beveiligen op deleting van rows en columns, maar de inhoud van een cel wel bewerkbaar laten zijn?

De standaard mogelijkheid van werkblad beveiligen kan dit niet.
  dinsdag 24 februari 2009 @ 13:14:20 #244
15967 Frollo
You know I am a righteous man
pi_66405907
quote:
Op dinsdag 24 februari 2009 13:09 schreef Jaheur het volgende:
Is het mogelijk om door middel van een wachtwoord een blad te beveiligen op deleting van rows en columns, maar de inhoud van een cel wel bewerkbaar laten zijn?

De standaard mogelijkheid van werkblad beveiligen kan dit niet.
Voordat je de beveiliging aanzet, moet je de cellen deblokkeren die bewerkbaar moeten blijven. Als dat voor alle cellen geldt ben je snel klaar: Ctrl+A, Ctrl+1, tabblad Beveiliging, Geblokkeerd uitzetten.
pi_66406045
quote:
[b]Op dinsdag 24 februari 2009 08:24 schreef Metal_Jag het volgende:[/b
Heb je mijn script nog gebruikt?
Nope, was al zo'n eind onderweg Ik zit je code even door te lezen en waar ie denk ik de mist ingaat is als er een nieuw ritnummer komt met een overlappend timeframe. Op dat moment worden de tijden gewoon aangepast terwijl dat dan juist weer niet mag gebeuren
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
  dinsdag 24 februari 2009 @ 14:28:44 #246
38651 yozd
FR1908 Vakkie R
pi_66408576
quote:
Op maandag 23 februari 2009 08:42 schreef Metal_Jag het volgende:
Kan in het 2e bestand een op een of andere manier aandeel 2x voorkomen?

abn 1 3 5 6 7
fortis 12 12 12 5
abn 2 2 2 2 2

?
Nope. Elk aandeel komt maar 1x voor.
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
pi_66410241
Thnx met dat andere zal ik er wel uitkomen, maar helaas heb ik nog wat.

Heeft er misschien iemand een scriptje wat hetzelfde doet als voorwaardelijke opmaak, maar dan met een macro en die naar een ander tabblad kan? Ik heb dus een validatielijst en ik wil daar met een voorwaardelijke opmaak werken, maar de gegevens staan op een ander werkblad oftwel, voorwaardelijke opmaak werkt dan niet.
  dinsdag 24 februari 2009 @ 16:14:34 #248
234506 Metal_Jag
MMM van metal
pi_66412335
quote:
Op dinsdag 24 februari 2009 15:14 schreef Jaheur het volgende:
Thnx met dat andere zal ik er wel uitkomen, maar helaas heb ik nog wat.

Heeft er misschien iemand een scriptje wat hetzelfde doet als voorwaardelijke opmaak, maar dan met een macro en die naar een ander tabblad kan? Ik heb dus een validatielijst en ik wil daar met een voorwaardelijke opmaak werken, maar de gegevens staan op een ander werkblad oftwel, voorwaardelijke opmaak werkt dan niet.
Zet de volgende code in de script-editor bij "Microsoft Excel-objecten" achter "Blad1"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Activate()
If Range("A1").Value > Sheets("Blad2").Range("A1").Value Then
    Range("A1").Interior.ColorIndex = 15
Else
    Range("A1").Interior.ColorIndex = xlNone
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value > Sheets("Blad2").Range("A1").Value Then
    Range("A1").Interior.ColorIndex = 15
Else
    Range("A1").Interior.ColorIndex = xlNone
End If
End Sub


De code loopt op het moment dat je de sheet activeert of verandert.
  dinsdag 24 februari 2009 @ 16:30:46 #249
85514 ralfie
!Yvan eht nioj
pi_66412959
quote:
Op dinsdag 24 februari 2009 15:14 schreef Jaheur het volgende:
Thnx met dat andere zal ik er wel uitkomen, maar helaas heb ik nog wat.

Heeft er misschien iemand een scriptje wat hetzelfde doet als voorwaardelijke opmaak, maar dan met een macro en die naar een ander tabblad kan? Ik heb dus een validatielijst en ik wil daar met een voorwaardelijke opmaak werken, maar de gegevens staan op een ander werkblad oftwel, voorwaardelijke opmaak werkt dan niet.
maak een gewone verwijzing, van blad x naar y, zodat je van die gewone verwijzing je opmaak afhankelijk kunt maken

erg onzinnig dat excel voorwaardelijke opmaak obv een ander tabblad niet toestaat btw.
  dinsdag 24 februari 2009 @ 16:43:39 #250
234506 Metal_Jag
MMM van metal
pi_66413468
quote:
Op dinsdag 24 februari 2009 16:30 schreef ralfie het volgende:

[..]

maak een gewone verwijzing, van blad x naar y, zodat je van die gewone verwijzing je opmaak afhankelijk kunt maken

erg onzinnig dat excel voorwaardelijke opmaak obv een ander tabblad niet toestaat btw.
The sleazy way... kan ook eventueel met wit lettertype, zodat je het niet eens ziet
  woensdag 25 februari 2009 @ 01:12:23 #251
15080 static
03.09.2006 - 11:35
pi_66431110
quote:
Op dinsdag 3 februari 2009 13:40 schreef static het volgende:
Ik heb een hondertal rijen met data, waarvan 'één kolom een datum/tijdsaanduiding is (2009-02-02 14:26:06); nu wil ik in de kolom ernaast automatisch het uurslot invullen (in dit geval 14:00-15:00) hoe kan ik dat het gemakkelijks (automatisch) doen? Het werkje komt dagelijks voor dus van handmatig word ik gillend gek. De data wil ik daarna opnemen in een pivot (al zal dat het makkelijkste zijn).

Excel 2007 UK.
quote:
Op dinsdag 3 februari 2009 13:52 schreef Joooo-pi het volgende:

[..]

Ik heb een oudere NL versie en daar kan het zo:
=UUR(A1) & " - " & UUR(A1)+1

In Engels is de functie UUR gewoon HOUR.
DUS:
=HOUR(A1) & " - " & HOUR(A1)+1

zou moeten werken.
quote:
Op dinsdag 3 februari 2009 14:32 schreef qu63 het volgende:

[..]

=HOUR(A1) & ":00 - " & HOUR(A1)+1 & ":00"
En nog een dergelijk verzoek; heb een kolom met tijden in hh:mm:ss formaat; nu wil ik graag hetzelfde als hierboven, maar nu bijvoorbeeld:

00:00:00
00:00:13
00:01:23
00:03:33
00:04:59
zou in de range van 00-05 moeten vallen (inclusief de 00:00:00), maar

00:06:27
00:09:01
00:05:01
zou in de range van 05-10 moeten vallen, maar ook (ja, ik ga nog even door )

01:10:28 zou in de range van 70-80 moeten vallen, etc.

Is dat simpel op te lossen?
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
  woensdag 25 februari 2009 @ 08:41:15 #252
234506 Metal_Jag
MMM van metal
pi_66433822
quote:
Op woensdag 25 februari 2009 01:12 schreef static het volgende:

[..]


[..]


[..]

En nog een dergelijk verzoek; heb een kolom met tijden in hh:mm:ss formaat; nu wil ik graag hetzelfde als hierboven, maar nu bijvoorbeeld:

00:00:00
00:00:13
00:01:23
00:03:33
00:04:59
zou in de range van 00-05 moeten vallen (inclusief de 00:00:00), maar

00:06:27
00:09:01
00:05:01
zou in de range van 05-10 moeten vallen, maar ook (ja, ik ga nog even door )

01:10:28 zou in de range van 70-80 moeten vallen, etc.

Is dat simpel op te lossen?
Welke ranges wil je definieren?

(05 tot 10 is 5 minuten en 70 tot 80 is 10 minuten)
  woensdag 25 februari 2009 @ 09:43:43 #253
15080 static
03.09.2006 - 11:35
pi_66434967
In het voorbeeld 01:10:29 valt het binnnen de range van 70-80 minuten.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
pi_66436987
Heb een vraag: in een worksheet staan er allemaal strikethroughs door de rijnummers en columnletters? Hoe krijg ik dat weg?
pi_66437293
Heb het al gevonden. Gecorrigeerd door format, style en dan zie je dat er strikethrough is in het font.
pi_66439132
is het mogelijk om een excel bestand te beveiligen tegen emailen?

dit is het geval; ik heb een excel bestand met vertrouwelijke informatie. Deze heb ik beveiligd met een wachtwoord voor openen en lezen/schrijven. Omdat het personeel hier snel wisselt (seizoensbedrijf) heb ik liever niet dat het personeel die met deze informatie werkt het naar zichzelf kunnen sturen en zo na het seizoen nog toegang hebben tot deze info. Wel moet het mogelijk zijn om de informatie wijzigen en naar 1 mailadres te sturen.

beetje wazig verhaal, maar hoop dat het duidelijk is; wel wijzigen, mailen alleen mogelijk naar 1 adres.

hoop dat iemand een oplossing heeft!

thanx!
  woensdag 25 februari 2009 @ 12:28:58 #257
234506 Metal_Jag
MMM van metal
pi_66440990
quote:
Op woensdag 25 februari 2009 11:45 schreef Hunky_Dory het volgende:
is het mogelijk om een excel bestand te beveiligen tegen emailen?

dit is het geval; ik heb een excel bestand met vertrouwelijke informatie. Deze heb ik beveiligd met een wachtwoord voor openen en lezen/schrijven. Omdat het personeel hier snel wisselt (seizoensbedrijf) heb ik liever niet dat het personeel die met deze informatie werkt het naar zichzelf kunnen sturen en zo na het seizoen nog toegang hebben tot deze info. Wel moet het mogelijk zijn om de informatie wijzigen en naar 1 mailadres te sturen.

beetje wazig verhaal, maar hoop dat het duidelijk is; wel wijzigen, mailen alleen mogelijk naar 1 adres.

hoop dat iemand een oplossing heeft!

thanx!
Misschien meer een vraag over het OS. Je hebt het dan nl. over een los .xls bestand.

En dan nog lijkt mij dit een onmogelijke opgave.
  woensdag 25 februari 2009 @ 12:33:22 #258
234506 Metal_Jag
MMM van metal
pi_66441143
quote:
Op woensdag 25 februari 2009 09:43 schreef static het volgende:
In het voorbeeld 01:10:29 valt het binnnen de range van 70-80 minuten.
Ja maar waarom is die range 10 minuten en van 5 tot 10 maar 5 minuten? Daarom om vraag ik welke ranges je wilt definieren.

Wel kan ik je vast dit meegeven:

Ga naar:
celeigenschappen / tab "getal" / categorie "aangepast" /
schrijf daar [mm]

Dan zie je dat al je tijden gereduceert zijn naar minuten.
pi_66441246
onmogelijke opgave,....

misschien op een andere manier voorkomen dat de file na het seizoen kan worden geopend?
  woensdag 25 februari 2009 @ 13:08:45 #260
234506 Metal_Jag
MMM van metal
pi_66442435
quote:
Op woensdag 25 februari 2009 12:36 schreef Hunky_Dory het volgende:
onmogelijke opgave,....

misschien op een andere manier voorkomen dat de file na het seizoen kan worden geopend?
Misschien kun je bij het openen van het bestand een script laten lopen die iets unieks op jouw computer checkt (specifiek pad met bepaald beveiligd excel bestand met daarin controletekst). In dat script laat je jouw bestand sluiten als die check false is.

Je hoeft niemand het wachtwoord van het 2e bestand te geven, want dat schrijf je in je script.

Op de computer van iemand anders is het lastig om de juiste situatie na te maken en dus wordt het bestand telkens gesloten als je het opent.

Echt veilig is het niet, maar misschien kun je er wat mee.
pi_66442814
ja, daar kan ik wel iets mee denkik,...

bedankt!
  woensdag 25 februari 2009 @ 13:18:51 #262
62215 qu63
..de tijd drinkt..
pi_66442818
quote:
Op woensdag 25 februari 2009 13:08 schreef Metal_Jag het volgende:

[..]

Misschien kun je bij het openen van het bestand een script laten lopen die iets unieks op jouw computer checkt (specifiek pad met bepaald beveiligd excel bestand met daarin controletekst). In dat script laat je jouw bestand sluiten als die check false is.

Je hoeft niemand het wachtwoord van het 2e bestand te geven, want dat schrijf je in je script.

Op de computer van iemand anders is het lastig om de juiste situatie na te maken en dus wordt het bestand telkens gesloten als je het opent.

Echt veilig is het niet, maar misschien kun je er wat mee.
Maar dan is het dus ook niet door te mailen naar iemand anders, of door jouzelf te bewerken op een andere pc
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 25 februari 2009 @ 13:25:06 #263
234506 Metal_Jag
MMM van metal
pi_66443090
quote:
Op woensdag 25 februari 2009 13:18 schreef qu63 het volgende:

[..]

Maar dan is het dus ook niet door te mailen naar iemand anders, of door jouzelf te bewerken op een andere pc
Wel als je zelf weet hoe je de situatie op een 2e pc na moet maken. (wachtwoord kennen van 2e bestand)
pi_66443178
dat is ook de bedoeling. het bestand moet alleen te openen zijn op de pc op de zaak en op mijn laptop.
pi_66443860
nu is mijn volgende vraag;

welke formule gebruik ik om excel te laten checken of een bepaald woord in een ander bestand staat. En als dat er niet staat, de file te sluiten?
  woensdag 25 februari 2009 @ 13:49:55 #266
234506 Metal_Jag
MMM van metal
pi_66444119
Ik heb al een scriptje voor je:
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Open()
 Workbooks.Open Filename:="H:\controlebestand.xls", Password:="hoi"
 
 If Range("A1").Value = "controle" Then
 ActiveWorkbook.Close
 MsgBox "Veilig"
 Else
 ActiveWorkbook.Close
 MsgBox "Onveilig" 'zet hier neer dat jouw bestand gesloten moet worden!
 End If
 
 
End Sub


Het controlebestand heet: Controlebestand.xls staat bij mij op H:\ heeft wachtwoord "hoi"

In cel A1 staat het woord "controle"
pi_66444368
Super dat je met me mee denkt, ik weet alleen niet zoveel van scripts,...

hoe ga ik te werk?
  woensdag 25 februari 2009 @ 13:58:51 #268
234506 Metal_Jag
MMM van metal
pi_66444482
quote:
Op woensdag 25 februari 2009 13:55 schreef Hunky_Dory het volgende:
Super dat je met me mee denkt, ik weet alleen niet zoveel van scripts,...

hoe ga ik te werk?
Maak eerste een nieuw excelbestand met de naam "controlebestand.xls" met wachtwoord "hoi". En sluit het weer.

Open jouw bestand (of eerste een nieuwe om te proberen.

toets ALT-F11 en je opent de scripteditor.

Dubbelklik links op ThisWorkbook

Kopieer mijn script rechts in het tekstvak.

Sluit de scripteditor. Sla je bestand op.

Nu kun je proberen of het werkt.

EDIT: let wel even op de locatie van bestand 2. Bijv. C:\ en verander dat dan wel even in het script.

[ Bericht 6% gewijzigd door Metal_Jag op 25-02-2009 14:08:23 ]
pi_66446699
hmmm,...ik zit in de buurt maar het klopt nog niet helemaal.

heb het bestand opgeslagen als excel met macros. bij het openen van het bestand krijg ik de melding dat de macros zijn uitgeshakeld, als ik ze weer in schakel gebeurt er niet (hij zou het werkblad af moeten sluiten om dat ik het controlewoord heb veranderd)

-edit-

excel accepteerd nu macros, maar sluit bestand nog steeds niet af.

[ Bericht 12% gewijzigd door Hunky_Dory op 25-02-2009 15:30:32 ]
  woensdag 25 februari 2009 @ 15:27:22 #270
15080 static
03.09.2006 - 11:35
pi_66447974
quote:
Op woensdag 25 februari 2009 12:33 schreef Metal_Jag het volgende:

[..]

Ja maar waarom is die range 10 minuten en van 5 tot 10 maar 5 minuten? Daarom om vraag ik welke ranges je wilt definieren.

Wel kan ik je vast dit meegeven:
Op die fiets.

Eerst het liefts met een interval van 5: 0-5, 5-10, 10-15 wat eventueel korter of langer kan. Heb dus een kolom met data over hoe lang iets geduurd heeft, die wil ik via een pivot wat duidelijker maken.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
  woensdag 25 februari 2009 @ 17:38:27 #271
234506 Metal_Jag
MMM van metal
pi_66452870
quote:
Op woensdag 25 februari 2009 14:55 schreef Hunky_Dory het volgende:
hmmm,...ik zit in de buurt maar het klopt nog niet helemaal.

heb het bestand opgeslagen als excel met macros. bij het openen van het bestand krijg ik de melding dat de macros zijn uitgeshakeld, als ik ze weer in schakel gebeurt er niet (hij zou het werkblad af moeten sluiten om dat ik het controlewoord heb veranderd)

-edit-

excel accepteerd nu macros, maar sluit bestand nog steeds niet af.
Ga naar menu "Extra" --> "Marco" --> "Beveiliging" en zet dat op "laag". Anders wil je script niet.

Sluit het bestand af en open het opnieuw.

En met dit script wordt je bestand nog niet gesloten, maar geeft een melding "Veilig" of "Onveilig".
  woensdag 25 februari 2009 @ 17:47:53 #272
234506 Metal_Jag
MMM van metal
pi_66453184
quote:
Op woensdag 25 februari 2009 17:38 schreef Metal_Jag het volgende:

[..]

Ga naar menu "Extra" --> "Marco" --> "Beveiliging" en zet dat op "laag". Anders wil je script niet.

Sluit het bestand af en open het opnieuw.

En met dit script wordt je bestand nog niet gesloten, maar geeft een melding "Veilig" of "Onveilig".
Watnou als je macro's uit zet en je het bestand opent.... dan is je veiligheid weg


Dit gaat dus niet werken, want het enige wat je hoeft te doen om de beveiliging te omzeilen is de macro's uitzetten...

[ Bericht 6% gewijzigd door Metal_Jag op 25-02-2009 17:55:29 ]
pi_66454849
quote:
Op woensdag 25 februari 2009 09:43 schreef static het volgende:
In het voorbeeld 01:10:29 valt het binnnen de range van 70-80 minuten.
Ik weet niet of het al aangehaald is, maar zag je vraag gister op mn telefoon en dat typt nogal verrot.

De vraag is valide, het zou wel handig zijn als je door 5 kan delen en dan ben je er al bijna. In jouw voorbeeld moet je nu meerdere 'IF's maken.

Dus 0-5 = 5
6-14 = 10 ?
..
65-70 = ?
70- 80 = 70
pi_66457974
quote:
Op woensdag 25 februari 2009 17:47 schreef Metal_Jag het volgende:

[..]

Watnou als je macro's uit zet en je het bestand opent.... dan is je veiligheid weg


Dit gaat dus niet werken, want het enige wat je hoeft te doen om de beveiliging te omzeilen is de macro's uitzetten...
Daar was ik inderdaad ook achter,.... ook geen oplossing dus. Iemand een andere suggestie om de file niet op andere computers te kunnen lezen?
  woensdag 25 februari 2009 @ 20:30:32 #275
62215 qu63
..de tijd drinkt..
pi_66458295
quote:
Op woensdag 25 februari 2009 20:22 schreef Hunky_Dory het volgende:

[..]

Daar was ik inderdaad ook achter,.... ook geen oplossing dus. Iemand een andere suggestie om de file niet op andere computers te kunnen lezen?
opslaan in een zip-file met wachtwoord?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_66459795
quote:
Op woensdag 25 februari 2009 20:30 schreef qu63 het volgende:

[..]

opslaan in een zip-file met wachtwoord?
de file is al beveiligd met een wachtwoord. dit is het probleem niet. Ik wil alleen dat de mensen die nu de file "mogen" openen, deze informatie in de toekomst niet kunnen gebruiken,...m.a.w. de file mag maar op 1 locatie te openen zijn.

lastig,...ik weet het,....
  woensdag 25 februari 2009 @ 21:47:37 #277
85514 ralfie
!Yvan eht nioj
pi_66460972
quote:
Op woensdag 25 februari 2009 21:16 schreef Hunky_Dory het volgende:

[..]

de file is al beveiligd met een wachtwoord. dit is het probleem niet. Ik wil alleen dat de mensen die nu de file "mogen" openen, deze informatie in de toekomst niet kunnen gebruiken,...m.a.w. de file mag maar op 1 locatie te openen zijn.

lastig,...ik weet het,....
1) zet het bestand op een plek waar niemand het kan zien, vinden, of openen. (met wachtwoord dus, bijvoorbeeld 'jesupergeheimewachtwoord')
C:\windows\system\system64\users32.dll bijvoorbeeld. Ik stel voor hem diep, diep in een windows folder te proppen, en te vermommen. (bijvoorbeeld als dll bestand, niemand die verwacht dat dat een excel bestand is)
2)maak een nieuw excel bestand, dit is het bestand wat iedereen die de informatie mag zien kan openen (je zal er dus waarschijnlijk een wachtwoord op willen zetten).
plak de volgende code in de code editor:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error GoTo dend
    Dim x As Workbook
    Set x = Workbooks.Open("C:\windows\system\system64\users32.dll", False, True, , "jesupergeheimewachtwoord", , , , , , False, , False)
    For Each s In x.Sheets
        s.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    Next s
    x.Close
    Sheets(3).Delete
    Sheets(2).Delete
    Sheets(1).Delete
dend:
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3) ga naar extra->eigenschappen van vbaproject, tabje beveiliging. Activeer hem, zet er een supergeheim wachtwoord op.
4) opslaan (alleen-lezen).

5) er is geen 5). Zodra het werkblad met de bovenstaande code wordt geopend, zal de code op een geheime plek de data importeren. Niemand kan het pad uit de code halen, omdat daar ook een wachtwoord op zit.

helaas kun je zo moeilijk maken als je wil, je kunt never nooit niet verhinderen dat iemand met printscreen de data kopieert, of een van de wachtwoorden met een simpel tooltje kraakt. Aan de andere kant, kun je ook niemand verhinderen om met pen en papier alles over te schrijven...
  woensdag 25 februari 2009 @ 21:49:54 #278
62215 qu63
..de tijd drinkt..
pi_66461054
quote:
Op woensdag 25 februari 2009 21:47 schreef ralfie het volgende:
5) er is geen 5).
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_66462127
Ralfie, mooie code. Wat heeft user32.dll met Excel files te maken?
  woensdag 25 februari 2009 @ 22:37:27 #280
85514 ralfie
!Yvan eht nioj
pi_66462844
quote:
Op woensdag 25 februari 2009 22:20 schreef DaFan het volgende:
Ralfie, mooie code. Wat heeft user32.dll met Excel files te maken?
helemaal niks.
ik hoop trouwens dat dat pad niet bestaat in windows 64 bit :p

het is dus niet de bedoeling dat een bestaand bestand wordt overschreven...
pi_66463358
quote:
Op woensdag 25 februari 2009 22:37 schreef ralfie het volgende:

[..]

helemaal niks.
ik hoop trouwens dat dat pad niet bestaat in windows 64 bit :p

het is dus niet de bedoeling dat een bestaand bestand wordt overschreven...
Oh heeh ik zie nu pas dat dat pad nog aangepast moet worden voor de gebruiker

Nvm
  donderdag 26 februari 2009 @ 04:45:57 #282
15080 static
03.09.2006 - 11:35
pi_66468993
quote:
Op woensdag 25 februari 2009 18:43 schreef DaFan het volgende:

[..]

Ik weet niet of het al aangehaald is, maar zag je vraag gister op mn telefoon en dat typt nogal verrot.

De vraag is valide, het zou wel handig zijn als je door 5 kan delen en dan ben je er al bijna. In jouw voorbeeld moet je nu meerdere 'IF's maken.

Dus 0-5 = 5
6-14 = 10 ?
..
65-70 = ?
70- 80 = 70
Misschien leg ik het wel krom uit (zal zeer waarschijnlijk het geval zijn :+ ), maar bij mijn vorige vraag wilde ik het timeslot weten, die formule is toen gepost en heeft precies tot resultaat wat ik wil (zie 'TimeSlot' gebaseerd op de cel/kolom rechts ervan):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Kolom1          kolom2
TimeSlot   Happen Time
17:00 - 18:00   2009-02-25 17:07:24
14:00 - 15:00   2009-02-25 14:50:32
16:00 - 17:00   2009-02-25 16:05:01
15:00 - 16:00   2009-02-25 15:49:06
15:00 - 16:00   2009-02-25 15:15:54
17:00 - 18:00   2009-02-25 17:29:31
4:00 - 5:00   2009-02-25 04:46:11
4:00 - 5:00   2009-02-25 04:45:14
4:00 - 5:00   2009-02-25 04:45:18
4:00 - 5:00   2009-02-25 04:44:35
4:00 - 5:00   2009-02-25 04:19:10
4:00 - 5:00   2009-02-25 04:18:21
4:00 - 5:00   2009-02-25 04:18:26
4:00 - 5:00   2009-02-25 04:17:36
2:00 - 3:00   2009-02-25 02:18:19
2:00 - 3:00   2009-02-25 02:17:22
2:00 - 3:00   2009-02-25 02:17:27
2:00 - 3:00   2009-02-25 02:16:47
2:00 - 3:00   2009-02-25 02:12:28
2:00 - 3:00   2009-02-25 02:11:31
2:00 - 3:00   2009-02-25 02:11:36
2:00 - 3:00   2009-02-25 02:10:57
1:00 - 2:00   2009-02-25 01:55:58
1:00 - 2:00   2009-02-25 01:55:01
1:00 - 2:00   2009-02-25 01:55:06
1:00 - 2:00   2009-02-25 01:54:28
0:00 - 1:00   2009-02-25 00:12:23
0:00 - 1:00   2009-02-25 00:08:03
0:00 - 1:00   2009-02-25 00:05:43
0:00 - 1:00   2009-02-25 00:02:23


Nu wil ik een kolom naast deze (voorbeeldgetallen):
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Duration(h:m:s)
0:00:01
0:00:01
0:00:01
0:00:01
0:05:22
0:05:25
0:05:25
0:05:32
0:05:42
0:05:51
0:05:51
0:12:22
0:12:29
0:12:37
0:12:42
0:12:45
0:12:45
0:12:47


Die aangeeft in welke interval een waarde valt, en het liefst dat die interval te wijzigen is, in bijvoorbeeld:
- elke 5 minuten (0:00:00-0:00:05:, 0:00:05:-0:00:10)
- elke 10 minten (0:00:00-0:00:10:, 0:00:10:-0:00:20)

Etc. Of gaat dat erg ingewikkeld worden?
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
pi_66469617
quote:
Op woensdag 25 februari 2009 21:47 schreef ralfie het volgende:

[..]

1) zet het bestand op een plek waar niemand het kan zien, vinden, of openen. (met wachtwoord dus, bijvoorbeeld 'jesupergeheimewachtwoord')
C:\windows\system\system64\users32.dll bijvoorbeeld. Ik stel voor hem diep, diep in een windows folder te proppen, en te vermommen. (bijvoorbeeld als dll bestand, niemand die verwacht dat dat een excel bestand is)
2)maak een nieuw excel bestand, dit is het bestand wat iedereen die de informatie mag zien kan openen (je zal er dus waarschijnlijk een wachtwoord op willen zetten).
plak de volgende code in de code editor:
[ code verwijderd ]

3) ga naar extra->eigenschappen van vbaproject, tabje beveiliging. Activeer hem, zet er een supergeheim wachtwoord op.
4) opslaan (alleen-lezen).

5) er is geen 5). Zodra het werkblad met de bovenstaande code wordt geopend, zal de code op een geheime plek de data importeren. Niemand kan het pad uit de code halen, omdat daar ook een wachtwoord op zit.

helaas kun je zo moeilijk maken als je wil, je kunt never nooit niet verhinderen dat iemand met printscreen de data kopieert, of een van de wachtwoorden met een simpel tooltje kraakt. Aan de andere kant, kun je ook niemand verhinderen om met pen en papier alles over te schrijven...
Kun je dan nog steeds "opslaan als..." doen. Zodat je een kopie voor jezelf houdt. Dan werkt het weer niet.
pi_66473549
Static ik ben eruit.
Zie plaatje hieronder.


A2 staat de interval in.
D2:
=(ROUNDDOWN(MINUTE($C2)/$A$2,0)*$A$2) & " - " & ((ROUNDDOWN(MINUTE($C2)/$A$2,0)*$A$2)+$A$2)

Edit:
Nvm de E-kolom daar heb ik even zitten kloten voor het tweede deel van de formule
  donderdag 26 februari 2009 @ 13:51:29 #285
15080 static
03.09.2006 - 11:35
pi_66479034
Oei, dat wordt rommelen volgens mij, hij gaat al over de zeik bij de referentie naar de interval-cel.

Will keep you posted.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
  donderdag 26 februari 2009 @ 15:27:44 #286
15080 static
03.09.2006 - 11:35
pi_66482646
Ah, hebbes; hier: $A$2,0 moet geen komma staan, maar een punt-komma - $A$2;0 dus.

Het begin is er, alleen na een uur (dus '1:03:14' bijvoorbeeld) schiet hij weer terug naar '0 - 5' i.p.v. het uur als minuten te lezen, het zou dus '60-70' moeten zijn.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
pi_66482693
Sorry ik heb de Engelse versie. Zal er zo nog ff naar kijken!
pi_66482789
quote:
Op woensdag 25 februari 2009 22:37 schreef ralfie het volgende:


het is dus niet de bedoeling dat een bestaand bestand wordt overschreven...
En raffie wat gebeurt er als er meer dan 3 sheets aanwezig zijn, kun je dat ook niet nog beter in een loop inbouwen?
pi_66484072
Zo dan; weer in het Engels dus komma's worden puntkomma's.

=(ROUNDDOWN(MINUTE($C3)/$A$2,0)*($A$2)+(HOUR($C3)*60)) & " - " & (ROUNDDOWN(MINUTE($C3)/$A$2,0)*($A$2)+(HOUR($C3)*60)+$A$2)
  donderdag 26 februari 2009 @ 16:04:52 #290
15080 static
03.09.2006 - 11:35
pi_66484155
quote:
Op donderdag 26 februari 2009 15:29 schreef DaFan het volgende:
Sorry ik heb de Engelse versie. Zal er zo nog ff naar kijken!
Ik ook.

Zal wel aan de instellingen liggen.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
pi_66485679
quote:
Op donderdag 26 februari 2009 16:02 schreef DaFan het volgende:
Zo dan; weer in het Engels dus komma's worden puntkomma's.
Dat ligt dan niet aan een engels of nederlandse excel versie maar aan de landsinstellingen bij de PC.
pi_66486132
quote:
Op donderdag 26 februari 2009 16:41 schreef Basp1 het volgende:

[..]

Dat ligt dan niet aan een engels of nederlandse excel versie maar aan de landsinstellingen bij de PC.
Dat mag static zelf oplossen
Ik vind komma's veel makkelijker, typt natuurlijker.
pi_66490449
Als ik de formule verticaal zoeken gebruik krijg ik of een uitkomst of #N/B. Is er een manier om die #N/B aan te passen in een andere tekst of er niets neer te zetten?
stupidity has become as common as common sense was before
  Heeft over alles een mening 2022 donderdag 26 februari 2009 @ 19:03:58 #294
31936 Dr_Flash
CubeMeister
pi_66490628
quote:
Op donderdag 26 februari 2009 18:59 schreef marcb1974 het volgende:
Als ik de formule verticaal zoeken gebruik krijg ik of een uitkomst of #N/B. Is er een manier om die #N/B aan te passen in een andere tekst of er niets neer te zetten?
Tuurlijk, eerst checken waarom je die #n/b krijgt en dan die conditie checken en afvangen met een IF statement
Salivili hipput tupput tapput äppyt tipput hilijalleen
  Heeft over alles een mening 2022 donderdag 26 februari 2009 @ 20:40:22 #295
31936 Dr_Flash
CubeMeister
pi_66494332
sucks Marc

Je kan keurig checken op de foutcode voor een niet gevonden waarde. Doe maar eens =TYPE.FOUT(cel). Als je dat doet bij een cel waar een waarde niet gevonden wordt, rolt er keurig 7 uit. Maar als alles goed gaat, is er geen fout, en treedt dus juist die #N/B fout op

Ze zijn gewoon vergeten een foutcode in te bouwen voor "alles gaat goed"

Weet iemand of dit in Office 2007 ondervangen is?
Salivili hipput tupput tapput äppyt tipput hilijalleen
  donderdag 26 februari 2009 @ 20:42:32 #296
62215 qu63
..de tijd drinkt..
pi_66494421
als(isfout(formule);"fout ";"goed ")

zoeits kan toch
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  Heeft over alles een mening 2022 donderdag 26 februari 2009 @ 20:45:22 #297
31936 Dr_Flash
CubeMeister
pi_66494532
quote:
Op donderdag 26 februari 2009 20:42 schreef qu63 het volgende:
als(isfout(formule);"fout ";"goed ")

zoeits kan toch
upload maar een bestandje waaruit blijkt dat dat kan dan. Ik puzzel me gek. die #N/B neemt voorrang boven ongeveer ALLES En niet dat je op die tekst kan checken
Salivili hipput tupput tapput äppyt tipput hilijalleen
  donderdag 26 februari 2009 @ 20:50:44 #298
62215 qu63
..de tijd drinkt..
pi_66494768
A1 = 1
B1 = 2
C1 = =VERT.ZOEKEN(3;A1:B2;1;ONWAAR)

C1 geeft geeft #N/B

A3 = =ALS(ISFOUT(C1);"fout ";"goed ")

A3 geeft "fout "

In Excel 2007 NL
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  Heeft over alles een mening 2022 donderdag 26 februari 2009 @ 20:53:35 #299
31936 Dr_Flash
CubeMeister
pi_66494905
quote:
Op donderdag 26 februari 2009 20:50 schreef qu63 het volgende:
A1 = 1
B1 = 2
C1 = =VERT.ZOEKEN(3;A1:B2;1;ONWAAR)

C1 geeft geeft #N/B

A3 = =ALS(ISFOUT(C1);"fout ";"goed ")

A3 geeft "fout "

In Excel 2007 NL


Jij held Weer wat geleerd Werkt ook in 2003 De ISFOUT kende ik nog niet.
Salivili hipput tupput tapput äppyt tipput hilijalleen
  donderdag 26 februari 2009 @ 20:56:13 #300
62215 qu63
..de tijd drinkt..
pi_66495041
quote:
Op donderdag 26 februari 2009 20:53 schreef Dr_Flash het volgende:

[..]



Jij held Weer wat geleerd Werkt ook in 2003 De ISFOUT kende ik nog niet.
Zo gaf ik em ook al precies aan:
quote:
Op donderdag 26 februari 2009 20:42 schreef qu63 het volgende:
als(isfout(formule);"fout ";"goed ")

zoeits kan toch
En dat probeer je dan niet eens?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 26 februari 2009 @ 21:00:18 #301
62215 qu63
..de tijd drinkt..
pi_66495254
En omdat Fles de lapo niet wil maken doe ik het wel
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 27 februari 2009 @ 08:04:37 #302
74548 Jo0Lz
Lick the box!
pi_66508697
Yes we can! | I didn't fail, it's just postponed success.
abonnement Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')