[EXCEL] Het grote Excel vragen topic, #10

Index

» digital corner

» software

actieve topics nieuwe topics
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
actieve topics nieuwe topics
abonnement Unibet Coolblue
[EXCEL] Het grote Excel vragen topic, #10
Index

» digital corner

» software

Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')