Zeker wel mogelijk hoor maar ik wil gewoon graag jouw bestand even zien om eraan te kloten ipv zelf zon onmeunig schema te bouwenquote: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...
Volgens mij is de oplossing voor de zoekformule als volgt: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?
1 |
1 |
mag ik hem ook? daar kan ik ook wel iets mee in mijn werk. Mail staat wel in me profiel.quote:Op dinsdag 20 januari 2009 17:06 schreef DaFan het volgende:
Sobriquet heeft mail, de macro is klaar.
Natuurlijk, sentquote: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.
Tools, macro, visual basic editor, lezenquote: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.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?
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.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.
Moet dat dan?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.
Dat komt omdat de opmaak nog steeds Tekst of Standaard is. De opmaak moet veranderd worden naar Datum/Tijdquote: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.
Heb 2 apparte dingetjes gemaakt, per kolom.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
Ach zo ja ik snap hem.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.
knippen en dan plakken speciaal, waarden in het menu bewerkenquote: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.
of rechtermuisknop -> plakken speciaal -> waardenquote: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.quote:Op woensdag 21 januari 2009 13:38 schreef Deetch het volgende:
[..]
knippen en dan plakken speciaal, waarden in het menu bewerken
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 | '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 NoDupes > NoDupes(j) Then Swap1 = NoDupes 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) = NoDupes Next i ElseIf row_or_col = vbNo Then For i = 1 To NoDupes.Count ActiveCell.Offset(0, i - 1) = NoDupes Next i ElseIf row_or_col = vbCancel Then Exit Sub End If End Sub |
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |