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
quote:Zeker wel mogelijk hoor maar ik wil gewoon graag jouw bestand even zien om eraan te kloten ipv zelf zon onmeunig schema te bouwenOp 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...
Zoals select from table where geslacht is man and lengte > 180
quote:Volgens mij is de oplossing voor de zoekformule als volgt: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?
In het blad een extra kolom toevoegen waarin je de twee tekststrings (naam en item) combineerd (bijv. kolom C)
| 1 |
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 |
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
quote:mag ik hem ook? daar kan ik ook wel iets mee in mijn werk. Mail staat wel in me profiel.Op dinsdag 20 januari 2009 17:06 schreef DaFan het volgende:
Sobriquet heeft mail, de macro is klaar.
quote:Natuurlijk, sentOp 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.
quote:Tools, macro, visual basic editor, lezenOp 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?
quote:Doet ie vanzelf. Als jij een voorwerp of naam gewoon rechts of onder toevoegt, zal de macro er ook voor checken in Blad1.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?
quote: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.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.
maw, als er een nieuwe naam bijkomt op blad1 zal de matrix niet automatisch aangevuld worden.
quote:Moet dat dan?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.
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.
Doet het niet. Engels versie heb ik.
quote:Dat komt omdat de opmaak nog steeds Tekst of Standaard is. De opmaak moet veranderd worden naar Datum/TijdOp woensdag 21 januari 2009 12:41 schreef Flaccid het volgende:
=LEFT(A1,2) & ":" & RIGHT(A1,2) & ":00"
Doet het niet. Engels versie heb ik.
En je komt ook in de knoop als er tijden staan als 645, want dan maakt ie er 64:45:00 van
quote:Heb 2 apparte dingetjes gemaakt, per kolom.
[..]
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
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 ]
quote:Ach zo ja ik snap hem.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.
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?
quote:knippen en dan plakken speciaal, waarden in het menu bewerkenOp 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.
quote:of rechtermuisknop -> plakken speciaal -> waarden
[..]
knippen en dan plakken speciaal, waarden in het menu bewerken
quote: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.Op woensdag 21 januari 2009 13:38 schreef Deetch het volgende:
[..]
knippen en dan plakken speciaal, waarden in het menu bewerken
Btw als je geld gaat verdienen met de macro die ik je gestuurd heb hoor ik het wel
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.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 | '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) ThenSwap1 = 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 |
let op dat blauwe informatie icoontje is gewoon ( i ) (zonder spaties)
[ Bericht 6% gewijzigd door Deetch op 21-01-2009 15:51:24 ]
quote:Met wat? Macro of gewoon?Op woensdag 21 januari 2009 15:21 schreef Flaccid het volgende:
Hoe kan ik cellen deselecteren?
Ctrl ingedrukt houden en dan klikken?
quote:Euh? Is dat voor mij?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
.quote:Selecteer alle cellen die je wilt kunnen inklappen en kies dan Data > Overzicht > Groeperen.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.
quote:Yesh! Dat was wat ik zocht!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.
Bedankt Frollo
.quote:Neuh was voor sobriquet
quote:Control inhouden werkt niet. Ik selecteer een kolom, maar ik wil mijn header (titel voor kolom) er niet bij houden.Op woensdag 21 januari 2009 15:23 schreef DaFan het volgende:
[..]
Met wat? Macro of gewoon?
Ctrl ingedrukt houden en dan klikken?
quote:Vanaf 2e rij Ctrl+Shift+Pijltje naar beneden.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.
quote:
[..]
Vanaf 2e rij Ctrl+Shift+Pijltje naar beneden.
quote: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.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)
quote:Ehm gewoon nog een keer op de knop drukken zou moeten werken?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.
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 ]
quote:Ah ik zie het al in de onderste regel en meeste rechtse kolom van het schema pakt die em niet.Op woensdag 21 januari 2009 17:11 schreef DaFan het volgende:
[..]
Ehm gewoon nog een keer op de knop drukken zou moeten werken?
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 ]
SPOILERHoe kan ik makkelijk een diagram hiervan maken? Die de aantallen telt.Scooter/Brommer
Fiets
Fiets
Fiets
Fiets
Fiets
Soms auto, soms fiets.
Auto - Met iemand mee rijden
Fiets
Fiets
Scooter/Brommer
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Auto - Met iemand mee rijden
Fiets
Fiets
Fiets
Fiets
Auto - Met iemand mee rijden
trein, bus
Fiets
Fiets en Scooter
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
Fiets
quote:?
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
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
Ik snap niet precies waarom je zo pissig bent trouwens
Wil je graag helpen maar dan heb ik wel wat hulp/uitleg nodig.quote:window, freeze panes en dan het knopje in de bevroren cellen plakken.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?
quote: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 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.
Op deze manier kun je ook nieuwe namen/items die nog niet in de lijst stonden automatisch aan je matrix toevoegen.
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
=MATCH(<cel>,B1:B10,0)
En die maak je groen. Je kan dan om het rood te kleuren de achtergrond standaard rood maken.
quote:Goed idee. Al kan je geen reference maken naar andere worksheets met conditional formatting
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.
Het gaat altijd net niet zoals ik wil
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 ]
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:Ik denk dat ik Range("B1:D1") moet gebruiken en Selection.AutoFill, maar het is nog niet gelukt.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
Wie kan de macro aanpassen, zodat ook de formule in kolom C en D naar beneden wordt gevuld?
Alvast bedankt.
quote:Volgens mij kan je gewoon met rechtermuisknop op de staaf zelf de kleur aanpassen.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.
Tweede vraag heb ik geen idee.
En klinkt misschien stom maar als je gewoon hetzelfde trucje bij C1 en D1 doet?
| 1 2 3 | ActiveCell.AutoFill Destination:=Range("C1:C" & lastrow&) |
En dat ook voor D?
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...???
quote:Moet ik die dan zelf maken of zou hij ertussen moeten staan...???Op zondag 25 januari 2009 15:28 schreef qu63 het volgende:
Aangepast: [uu]:mm
Want ertussen staat ie niet iig...
En als ik hem zelf probeer te maken begint excel te protesteren...
quote:rechtermuisknop, celeigenschappen, tabblad getal, kies voor aangepast, en dan onder "type:" in dat invulvakje [uu]:mm invullen
[..]
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...
quote:De getalnotatie die u intypt is ongeldig...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
Gebruik een van de ingebouwde getalnotaties...
quote:
En als ik bij aangepast h:mm doe dan telt hij maar weer tot 24:00 uur op...
quote:dan moet je kiezen voor [hh]:mm
[..]
De getalnotatie die u intypt is ongeldig...
Gebruik een van de ingebouwde getalnotaties...
quote:Ja, dat werkt inderdaad. Dat was ik nog vergeten te vermelden.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?
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 ]
quote:Die staat er dus niet tussen,,,
quote:Zelf intikken dus :
quote:
[..]
rechtermuisknop, celeigenschappen, tabblad getal, kies voor aangepast, en dan onder "type:" in dat invulvakje [uuhh]:mm invullen
Tnx, hh werkt wel...
quote: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.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?
Maar ik zal het wel even proberen of het kan zonder zo'n omweg.
Gewoon 3 waardes als percentage van 200.
quote:Lukt me niet iig.
[..]
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.
quote:Owja sorry. Ik heb 2 rijen maar ik weet niet hoe ik 2 dataseries moet plotten. En hoe verberg ik een dataserie?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
Verder nog een vraag: Hoe kan ik bij een pivottable een grafiek maken van alleen de grand total lijn?
quote:Als de cijfers altijd 3 karakters zijn dan wel. Of 2 karakters. Anders weet ik het niet.
Ik heb straat en huisnummer in 1 cel staan hoe kan ik dit splitsen over 2 cellen...toch niet met de hand toch ??
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?
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
Kan ik excel dit automatisch laten doen?
Selecteer wel eerst even je kolom.
=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)
[ Bericht 93% gewijzigd door Flaccid op 26-01-2009 17:26:05 ]
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.
http://peltiertech.com/Excel/Charts/AddLineHorzErrBar.html
quote: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.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"))))))
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?
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.
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?
quote:Ken je VERT.ZOEKEN helemaal niet?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?
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.
quote:Als je de =x vervangt door <x+1 zou het wel kunnen werken toch?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(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
) 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 ]
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 | 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 |
| 1 |
Jaheur: zet er eens ".value" achter.
[ Bericht 78% gewijzigd door Deetch op 29-01-2009 17:55:17 ]
quote:1. eerste cel 5, tweede cel 10, cellen 1 en 2 selecteren en dan zwarte blokje met muis pakken en naar beneden doorslepen.Op donderdag 29 januari 2009 16:19 schreef Platina het volgende:
Hey mensen, ik heb morgen een tentamen Excel (2003
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).
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 ]
quote:Nope al geprobeerd maar werkt nietOp donderdag 29 januari 2009 17:49 schreef Deetch het volgende:
[ code verwijderd ]
Jaheur: zet er eens ".value" achter.
quote:Dat is wel het probleem volgens mij. Werkt bij mij nl. dan wel
Derde regel wordt dan:
Y = Range("F12").value
Succes
Is er een mooiere oplossing dan dit:
Do
Sheets("temp").Select
Y = Range("F12").Value
Sheets("Beslistabel").Select
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.
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.
quote:Marco schrijven waarbij je door de kolommen heen loopt (do loop):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.
Dan sla je kolom 1 op in en variabele (zeg X
= 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 X of in Y(j):- komt ie overeen met een vector uit X
dan onthoud je het kolomnummer in Y(j)- komt ie niet overeen, dan sla je em op in X
Aan het einde verwijder je alle kolommen in Y.
Zoiets?
Alle macro's die ik heb geschreven voor mensen hier met 2003 en eerder heb ik in 2007 gemaakt.
Thanks!
=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
quote:Hé, da's handigOp vrijdag 30 januari 2009 18:22 schreef dragonrider het volgende:
dddd gebruiken bij celeigenschappen, dus iets van dddd, mmm-dd-jjjj
quote:Ja zoiets bedoel ik.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 X
- komt ie overeen met een vector uit X
- komt ie niet overeen, dan sla je em op in X
Aan het einde verwijder je alle kolommen in Y.
Zoiets?
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?
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.
). 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
Excel 2007 UK.
quote:Ik heb een oudere NL versie en daar kan het zo: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.
=UUR(A1) & " - " & UUR(A1)+1
In Engels is de functie UUR gewoon HOUR.
DUS:
=HOUR(A1) & " - " & HOUR(A1)+1
zou moeten werken.
Nog een schoonheidsvraagje: hoe krijg ik het in dit formaat: 11:00-12:00? Nu is het 11-12.
quote:=HOUR(A1) & ":00 - " & HOUR(A1)+1 & ":00"
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.
quote:Graag gedaan
quote:Goed bedacht he
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?
quote:In de grafiek de getallen handmatig invoeren?
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?
quote: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.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?
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
Dan wordt G2:
=COUNTIF($A$2:$C$7,F2)
of
=AANTAL.ALS($A$2:$C$7;F2)
En dat naar beneden trekken.
quote:Volgens mij wil hij ook automatisch unieke waarden zoeken. Dat maakt het lastig. Misschien draaitabel ? (daar heb ik de ballen verstand van)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.
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 ]
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
Ik ga het wél ff proberen, anders maak ik een macro.| 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) ThenSwap1 = 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 |
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".
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 ??
quote:Welke versie? In 2007 lukt het prima.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 ??
Kon er toch niet zo lekker uitkomen dus komt goed uit 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
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.
quote:de help van excel gebruiken doet ook wonderenOp 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.
quote:Op donderdag 5 februari 2009 15:08 schreef Deetch het volgende:
[..]
de help van excel gebruiken doet ook wonderen
SPOILERDat denk ik bij heel veel vragen...Maar het is niet erg om hier de vragen te stellen, want het is wel leuk werk om anderen te helpen (zo nu en dan...
quote:Op donderdag 5 februari 2009 15:08 schreef Deetch het volgende:
[..]
de help van excel gebruiken doet ook wonderen
quote:
[..]
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
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'
)quote:Ik pasOp 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'
... Word is onbekend terrein voor mij
Iemand enig idee hoe dat te verhelpen?
quote:Op de voorgrond zetten ofzo?
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?
quote:http://www.pcreview.co.uk/forums/thread-959269.phpThe 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
Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
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.)
quote:Je was dus even iets sneller. En Fok! had het te druk om mijn post te plaatsen.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.
Ik ga eens puzzelen. Alvast mijn dank.
quote:Weet iemand al wat? Ik kom er echt niet uit :xOp 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.
quote:@Jaheur
Ik dacht uit bovenstaande post te begrijpen dat je er wel uit zou komen ...
quote: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.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?
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.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | 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.
LastColumn = 7
LastRow = 10
quote:Dit werkt dus wel voor een macro in Excel. Helaas krijg ik het in Word niet voor elkaar.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.
quote:Bovenstaande krijg ik niet gedaan in VBA van Word.Then, open your VBA project, go to the Tools menu, choose Reference, and put
a check next to ATBVBAEN.xls item.
(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?
quote:Denk dat ik het daar inderdaad in moet gaan zoeken. Alleen zal ik ook te maken krijgen met jaren.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?
Morgen google maar weer opstarten.
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 | 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 | frmE.show |
krijg ik op de regel "Load frmE" de foutmelding
"Runtime error 9", subscript out of range"
wat doe ik fout?
quote:moet het niet dit zijn: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?
lstE.AddItem ("Nooit")
.
.
.
lstE.Additem("Vaak")
??
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 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 |
[ Bericht 91% gewijzigd door Metal_Jag op 10-02-2009 14:54:58 ]
quote:inderdaadOp dinsdag 10 februari 2009 13:35 schreef Metal_Jag het volgende:
[..]
moet het niet dit zijn:
lstE.AddItem ("Nooit")
.
.
.
lstE.Additem("Vaak")
??
quote:Ja zoiets doe ik ook, maar ik dacht misschien kan het handiger. Thanx.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 ]
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 | 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 ]
Elke Sub die je nu hebt roept dan het 'hoofdsub' op, dus die hoef je dan maar 1x te schrijven + 140x de hoofdsub aanroepen.
quote:Ik heb wel dit gevonden: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.
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.
quote:PixelsOp woensdag 11 februari 2009 12:32 schreef DaFan het volgende:
Op welke manier komt Top en Left terug dan? Pixels of cellen?
quote:Kan je niks mee dus
Ik zou het echt niet weten, lijkt me een goede vraag voor de vrienden van MrExcel tho.
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?
quote:Object toevoegen via toevoegen. Volgens mij kan je dan gewoon in een werkblad werken in Word.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?
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!
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 ]
quote: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 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).
Op dit moment ziet mijn grafiekje er zo uit:
Hoe ziet je tabel met data eruit? Heb je een kolom met 0 tm 8 en daarachter 3 kolommen met kosten opbrengsten en winst?
quote: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 zijnOp 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?
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
quote:Ik vind het echt vreemd, want bij mij doet ie dat dus nietOp 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 heb nu wel de lijnen op de X-as gekregen, maar er staat nog steeds 1 onder en daar moet natuurlijk 0 staan.. *zucht*Verder heb ik niks veranderd dus schijnbaar was dit het probleem
Thanks anyway!
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) ]
Het sorteren op totaal is ook een kwestie van 3x klikken.
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')
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 ]
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 | 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 & splitinhoud & " in " & arrLoc(1, i)range(arrLoc ).Value = splitinhoud(i + 1)Next Close #1 End Sub |
probeer eens met next i ipv next in regel 22
[ Bericht 6% gewijzigd door Deetch op 19-02-2009 15:37:09 ]
quote:klinkt niet echt als een excel vraag, probeer eens een eigen topic te starten in dig met een eigen duidelijke titel.Op donderdag 19 februari 2009 14:54 schreef Blik het volgende:
Zijn er mensen hier bekend met Think-Cell of ASAP Utilities?
quote: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.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.
Ik ben benieuwd of mensen er bekend mee zijn en waarvoor ze die tools gebruiken
quote:Maar je hebt dus niet echt een specifieke vraagOp 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
deze is wel grappig van ASAP
[ Bericht 6% gewijzigd door Deetch op 19-02-2009 16:40:39 ]
quote: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.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
quote:preciesOp 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.
quote:Dus jij verwacht dat hier een Excel guru zit die met alle vragen over alle dingen die met Excel te maken hebben, overweg kan?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.
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.
quote:Ik weet er ook niks van
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.
[ Bericht 17% gewijzigd door qu63 op 19-02-2009 23:30:21 ]
quote:Dan edit ik je eruit
quote:Ik bedoelde je laatste regel
Anyway, way offtopic dit. Ik heb ook geen verstand van arrays in VBA trouwens dus daar bemoei ik me ook niet mee.
) 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?Dat think-cell is mi overbodig omdat je excel al kan embedden in powerpoint.
quote:Nee, wilde gewoon peilen of het gebruikt werd en hoe het gebruikt werd. Heb er verder geen problemen meeOp donderdag 19 februari 2009 23:50 schreef DaFan het volgende:
Misschien probeer ik het zelfs wel een keer
| 1 |
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? :)
quote:achter het ' staat een opmerking die uitlegt wat die regel doetOp 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? :)
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | 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 |
quote:Crap. Nog iets vergeten, er zijn 2 criteria! Dus in de regel code in m'n vorige post de '401' en de '69930'.Op vrijdag 20 februari 2009 13:52 schreef Deetch het volgende:
[..]
achter het ' staat een opmerking die uitlegt wat die regel doet
[ code verwijderd ]
Kan je daar wat van brouwen, denk je?
[ Bericht 17% gewijzigd door Errrwin op 20-02-2009 15:04:45 ]
quote:staat de 69930 altijd in kolom E?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?
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 | 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)"
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 | Range("C" & i).Select 'volgende cel in kolom c selecteren |
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 | 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 ...
(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 ]
.Nu (2) nog...
abn 1 3 5 6 7
fortis 12 12 12 5
abn 2 2 2 2 2
?
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.
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.
Dus geen "=MAX(5;5;2;2;5;3;3;2)" als uitkomst, maar enkel 5.
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.
| 1 |
Of gewoon
| 1 |
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 ]
quote: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 | 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 ]
quote:ThanksOp 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 ]
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
quote:Als je met conditional formatting niet die waardes op "wit" zet, zie je ze dan nog bij het printen?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.
(speaking of quick and dirty
)quote: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.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
Er is toch gewoon een mogelijkheid voor.
en dan fouten in cellen als leeg
quote:Heb je mijn script nog gebruikt?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
De standaard mogelijkheid van werkblad beveiligen kan dit niet.
quote: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.
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.
quote:Nope, was al zo'n eind onderweg[b]Op dinsdag 24 februari 2009 08:24 schreef Metal_Jag het volgende:[/b
Heb je mijn script nog gebruikt?
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 quote:Nope. Elk aandeel komt maar 1x voor.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
?
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.
quote:Zet de volgende code in de script-editor bij "Microsoft Excel-objecten" achter "Blad1"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.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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.
quote:maak een gewone verwijzing, van blad x naar y, zodat je van die gewone verwijzing je opmaak afhankelijk kunt makenOp 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.
erg onzinnig dat excel voorwaardelijke opmaak obv een ander tabblad niet toestaat btw.
quote:The sleazy way... kan ook eventueel met wit lettertype, zodat je het niet eens zietOp 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.
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: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:Op dinsdag 3 februari 2009 14:32 schreef qu63 het volgende:
[..]
=HOUR(A1) & ":00 - " & HOUR(A1)+1 & ":00"
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?
quote:Welke ranges wil je definieren?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?
(05 tot 10 is 5 minuten en 70 tot 80 is 10 minuten)
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!
quote:Misschien meer een vraag over het OS. Je hebt het dan nl. over een los .xls bestand.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!
En dan nog lijkt mij dit een onmogelijke opgave.
quote: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.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.
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.
misschien op een andere manier voorkomen dat de file na het seizoen kan worden geopend?
quote: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.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?
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.
bedankt!
quote:Maar dan is het dus ook niet door te mailen naar iemand anders, of door jouzelf te bewerken op een andere pc
[..]
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.
quote:Wel als je zelf weet hoe je de situatie op een 2e pc na moet maken. (wachtwoord kennen van 2e bestand)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
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?
| 1 2 3 4 5 6 7 8 9 10 11 12 13 | 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"
hoe ga ik te werk?
quote:Maak eerste een nieuw excelbestand met de naam "controlebestand.xls" met wachtwoord "hoi". En sluit het weer.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?
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 ]
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 ]
quote:Op die fiets.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:
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.
quote:Ga naar menu "Extra" --> "Marco" --> "Beveiliging" en zet dat op "laag". Anders wil je script niet.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.
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".
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 ]
quote:Ik weet niet of het al aangehaald is, maar zag je vraag gister op mn telefoon en dat typt nogal verrot.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.
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
quote:Daar was ik inderdaad ook achter,.... ook geen oplossing dus. Iemand een andere suggestie om de file niet op andere computers te kunnen lezen?Op woensdag 25 februari 2009 17:47 schreef Metal_Jag het volgende:
[..]
Dit gaat dus niet werken, want het enige wat je hoeft te doen om de beveiliging te omzeilen is de macro's uitzetten...
quote:opslaan in een zip-file met wachtwoord?
[..]
Daar was ik inderdaad ook achter,.... ook geen oplossing dus. Iemand een andere suggestie om de file niet op andere computers te kunnen lezen?
quote: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.Op woensdag 25 februari 2009 20:30 schreef qu63 het volgende:
[..]
opslaan in een zip-file met wachtwoord?
lastig,...ik weet het,....
quote:1) zet het bestand op een plek waar niemand het kan zien, vinden, of openen. (met wachtwoord dus, bijvoorbeeld 'jesupergeheimewachtwoord')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,....
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 | 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...
quote:
quote:helemaal niks.Op woensdag 25 februari 2009 22:20 schreef DaFan het volgende:
Ralfie, mooie code. Wat heeft user32.dll met Excel files te maken?
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...
quote:Oh heeh ik zie nu pas dat dat pad nog aangepast moet worden voor de gebruikerOp 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...
Nvm
quote: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):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
| 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 | 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 | 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?
quote:Kun je dan nog steeds "opslaan als..." doen. Zodat je een kopie voor jezelf houdt.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...
Dan werkt het weer niet. 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
Will keep you posted.
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.
quote:En raffie wat gebeurt er als er meer dan 3 sheets aanwezig zijn, kun je dat ook niet nog beter in een loop inbouwen?Op woensdag 25 februari 2009 22:37 schreef ralfie het volgende:
het is dus niet de bedoeling dat een bestaand bestand wordt overschreven...
=(ROUNDDOWN(MINUTE($C3)/$A$2,0)*($A$2)+(HOUR($C3)*60)) & " - " & (ROUNDDOWN(MINUTE($C3)/$A$2,0)*($A$2)+(HOUR($C3)*60)+$A$2)
quote:Ik ook.Op donderdag 26 februari 2009 15:29 schreef DaFan het volgende:
Sorry ik heb de Engelse versie. Zal er zo nog ff naar kijken!
Zal wel aan de instellingen liggen.
quote:Dat ligt dan niet aan een engels of nederlandse excel versie maar aan de landsinstellingen bij de PC.Op donderdag 26 februari 2009 16:02 schreef DaFan het volgende:
Zo dan; weer in het Engels dus komma's worden puntkomma's.
quote:Dat mag static zelf oplossenOp 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.
Ik vind komma's veel makkelijker, typt natuurlijker.
quote:Tuurlijk, eerst checken waarom je die #n/b krijgt en dan die conditie checken en afvangen met een IF statement
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?
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?
";"goed ")zoeits kan toch
quote:upload maar een bestandje waaruit blijkt dat dat kan dan. Ik puzzel me gek. die #N/B neemt voorrang boven ongeveer ALLES
als(isfout(formule);"fout
zoeits kan toch
En niet dat je op die tekst kan checken 
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
quote:
A1 = 1
B1 = 2
C1 = =VERT.ZOEKEN(3;A1:B2;1;ONWAAR)
C1 geeft geeft #N/B
A3 = =ALS(ISFOUT(C1);"fout
A3 geeft "fout
In Excel 2007 NL
Jij held
Weer wat geleerd Werkt ook in 2003 
De ISFOUT kende ik nog niet.quote:Zo gaf ik em ook al precies aan:Op donderdag 26 februari 2009 20:53 schreef Dr_Flash het volgende:
[..]
Jij held
quote:En dat probeer je dan niet eens?
als(isfout(formule);"fout
zoeits kan toch
Daar verder
.