1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | Application.EnableEvents = False Dim Waarde As String If Not Intersect(Target, Range("A:A")) Is Nothing Then i = 0 Do i = i + 1 Waarde = Cells(i, 1).Value Waarde = Mid(Waarde, 1, Len(Waarde) - 3) Waarde = Val(Waarde) Cells(i, 1).Value = Waarde Loop Until Cells(i + 1, 1).Value = "" End If Application.EnableEvents = True End Sub |
En dan moet ik dit per cel invoegen?quote:Op vrijdag 3 april 2009 10:14 schreef DaFan het volgende:
Alt-F11, ga naar de Sheet waarin je de lijst plakt en plak dit in het witte gedeelte rechts:
[ code verwijderd ]
Verwijderd gewoonweg de laatste 3 karakters.
Nee. Dit is een code, geen formule!quote:Op vrijdag 3 april 2009 13:31 schreef kanovinnie het volgende:
[..]
En dan moet ik dit per cel invoegen?
Je kan ze importeren in word (samenvoegen) en daar de etiketlay-out e.d bepalen. Je kan ook kolommen aanwijzen.quote:Op vrijdag 3 april 2009 16:27 schreef Tim21 het volgende:
Hier Excel 2007, Nederlands.
Hoe kan ik uit een adressenbestand waarin de gegevens (logischerwijs) horizontaal zijn verwerkt per persoon, adresstickers stickers printen? Niet alle kolommen moeten verwerkt worden (Telefoon ed) en de cellen die nu naast elkaar staan moeten onder elkaar eruit komen.
Iemand?
Klikquote:Op vrijdag 3 april 2009 16:47 schreef Joooo-pi het volgende:
[..]
Je kan ze importeren in word (samenvoegen) en daar de etiketlay-out e.d bepalen. Je kan ook kolommen aanwijzen.
Ik zoek ff een linkje voor je op.
Excel help zegt mij ditquote:
Misschien dat dit werkt?quote:Dezelfde gegevens invoeren in andere werkbladen
Als u al gegevens op een werkblad hebt ingevoerd, kunt u de gegevens snel naar corresponderende cellen op andere bladen kopiëren.
Selecteer het blad dat de gegevens bevat en de bladen waar u de gegevens naartoe wilt kopiëren.
Selecteer de cellen met de gegevens die u wilt kopiëren.
Wijs naar de opdracht Doorvoeren in het menu Bewerken en klik op Naar groep.
Zoveel verstand heb ik er ook niet van, Waarschijnlijk is er een code waarmee je gegevens vanuit blad 1 in blad 2 kan zetten.quote:Op maandag 6 april 2009 08:52 schreef ruudtb205 het volgende:
Bedankt voor het meedenken, maar dat werkt niet. Ik heb het even uitgeprobeerd, maar Naar groep blijft bij mij grijs. Als ik de logica probeer te doorgronden lijkt me ok niet dat dit de oplossing is, want daarmee kopieer je het 1x naar een speciale kolom. Ik wil graag de kolom iedere maand opnieuw (met de nieuwe waarden) naar een volgende kolom hebben, en volgens mij kan dat niet op deze manier.
Ik denk dat je vraag te algemeen is. Het is meer een "project" . Ik zou je aanraden om dat project op te delen in vragen die hier wel te beantwoorden zijn.quote:Op maandag 6 april 2009 08:23 schreef ruudtb205 het volgende:
Beste mensen,
Ik volg al een poos dit forum om een oplossing te vinden voor mijn probleem, maar ik kom er nog niet uit. Vooraf: ik gebruik Excel 2003, nederlandse versie.
Mijn vrouw werkt als gastouder en moet dus rekeningen versturen aan haar vraagouders. Daarvoor heb ik in Excel een formulier gemaakt waar de gegevens van de kinderen instaan en ze de uren per week kan invoeren.( Via een formule worden die uren opgeteld, en wordt er met een uurprijs een bedrag gemaakt, maar dat gebeurt in Word). Via samenvoegen worden deze gegevens in een Worddocument gezet en uitgeprint. Iedere maand worden de voorgaande gegevens overschreven, want de uiteindelijke rekeningen (waar alle gegevens ook in staan) worden ter controle bewaard. Werkt alemaal perfect.
Nu wilde ze alleen ook een jaaroverzicht geven aan de ouders. Daarvoor heb ik op blad 2 van de excelsheet 24 kolommen gemaakt, kolom A heeft als kop Namen (van de kinderen) en dan komen de kolommen januari uren, januari bedrag, februari uren, februari bedrag etc. Na december bedrag staat een kolom totaal uren en totaal bedrag. Die kolommen voeg ik dan weer samen in Word.
Nu kun je wel alles iedere maand kopieren en plakken speciaal doen, maar zo handig is mijn vrouw niet met Excel
Het zou handig zijn als iedere maand de totaaluren van blad 1 naar de juiste kolom van de uren in blad2 overgezet zouden worden (het bedrag dat er bij hoort bereken ik dan weer met een simpele formule). Het schijnt te kunnen met een knop, of bij het wijzigen van het blad, maar ik kom er niet uit. Mag ik gebruik maken van jullie wijsheid om dit op te lossen? Ik weet een heel klein beetje van VB DotNet, maar code zelf schrijven is nog een brug te ver voor me......
Alvast bedankt voor het meedenken!
Je zou een schermafbeelding kunnen maken, met de knop printscreen (naast F12), die plakken in paint.quote:Op maandag 6 april 2009 14:15 schreef ruudtb205 het volgende:
OK, even wat informatie erbij. Ik ben misschien niet helemaal helder in mijn uitleg. Dat ik het snap wil niet zeggen dat het ook duidelijk is
In blad 1 staan de kolomnamen voornaam, achternaam, adres, geboortedatum (+ nog een aantal soortgelijke tekstkolommen die verder alleen belangrijk zijn voor het samenvoegen in Word). Daarachter staan de kolommen week 1, week 2, week 3, week 4 en week 5. Hierin worden de uren per kind per week ingevoerd. Daarna komt een kolom met totaaluren: de som van week 1 t/m 5. Om die laatst kolom gaat het dus.
Alle kinderen hebben een eigen rij op werkblad 1, zo kun je keurig per week per kind invoeren. Als je klaar bent met invoeren heb je dus in de kolom Totaaluren een berekende waarde staan van het aantal uren dat een kind geweest is.
Op blad 2 staan de kolommen Naam kind, gevolgd door uren januari, bedrag januari, uren februari, bedrag februari etc. Na december volgt - zoals gezegd - totaal uren en totaal bedragen.De volgorde van de namen van de kinderen in de rijen is gelijk, m.a.w. als je kopieert en plakt vanuit de kolom totaaluren hoef je niet op een andere volgorde te letten (anders zou het wel eg ingewikkeld worden, denk ik )
Nu wil ik dus graag dat als ik de uren in de weekkolommen invul de uren die in de kolom totaaluren vanzelf in de juiste kolom (dus van de maand waar die uren over gaan) terecht komen. Normaal gesproken worden de uren ingevoerd in dezelfde maand dat ze gedraaid worden (al is dat soms op het nippertje.
Ik hoop dat het zo duidelijker is. Ik zou het voorbeeld wel ergens neer willen zetten, maar ik heb geen flauw idee hoe dat zou moeten op dit forum.
Schakel over naar '07, dan zijn de bestanden sowieso kleinerquote:Op maandag 6 april 2009 17:02 schreef sanger het volgende:
Ik heb een bestand in Excel dat nu 5 MB is. Kan ik dit ook verkleinen? Het is een werkbestand met een groot aantal regeltjes waar een sortering en subtotaal in is gegoten.
Excel '97 of 2003
Kijk deze plaatjes:quote:Op maandag 6 april 2009 14:15 schreef ruudtb205 het volgende:
OK, even wat informatie erbij. Ik ben misschien niet helemaal helder in mijn uitleg. Dat ik het snap wil niet zeggen dat het ook duidelijk is
In blad 1 staan de kolomnamen voornaam, achternaam, adres, geboortedatum (+ nog een aantal soortgelijke tekstkolommen die verder alleen belangrijk zijn voor het samenvoegen in Word). Daarachter staan de kolommen week 1, week 2, week 3, week 4 en week 5. Hierin worden de uren per kind per week ingevoerd. Daarna komt een kolom met totaaluren: de som van week 1 t/m 5. Om die laatst kolom gaat het dus.
Alle kinderen hebben een eigen rij op werkblad 1, zo kun je keurig per week per kind invoeren. Als je klaar bent met invoeren heb je dus in de kolom Totaaluren een berekende waarde staan van het aantal uren dat een kind geweest is.
Op blad 2 staan de kolommen Naam kind, gevolgd door uren januari, bedrag januari, uren februari, bedrag februari etc. Na december volgt - zoals gezegd - totaal uren en totaal bedragen.De volgorde van de namen van de kinderen in de rijen is gelijk, m.a.w. als je kopieert en plakt vanuit de kolom totaaluren hoef je niet op een andere volgorde te letten (anders zou het wel eg ingewikkeld worden, denk ik )
Nu wil ik dus graag dat als ik de uren in de weekkolommen invul de uren die in de kolom totaaluren vanzelf in de juiste kolom (dus van de maand waar die uren over gaan) terecht komen. Normaal gesproken worden de uren ingevoerd in dezelfde maand dat ze gedraaid worden (al is dat soms op het nippertje.
Ik hoop dat het zo duidelijker is. Ik zou het voorbeeld wel ergens neer willen zetten, maar ik heb geen flauw idee hoe dat zou moeten op dit forum.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | col = 0 i = 1 Do i = i + 1 If Worksheets(2).Cells(1, i).Value = Worksheets(1).Range("E1").Value Then col = i Loop Until Worksheets(2).Cells(1, i).Value = "" If col = 0 Or col > 13 Then MsgBox "Maand niet gevonden!" Exit Sub End If Range("N3:N31").Select Selection.Copy Sheets(2).Select Worksheets(2).Cells(2, col).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Sheets(1).Select Range("B3:M31").Clear Range("A1").Select End Sub |
Maar dan vrget ik dus iedere week de helft.quote:Op maandag 6 april 2009 21:43 schreef Deetch het volgende:
tja daar kun je excel ook voor gebruiken. Ik zou gewoon pen en papier doen trouwens
Op zich geen slecht idee. Misschien gewoon op mijn laptop verder bewerken.quote:Op maandag 6 april 2009 17:13 schreef qu63 het volgende:
[..]
Schakel over naar '07, dan zijn de bestanden sowieso kleiner
Misschien dat het wel werkt (technisch gezien) maar praktisch is dat weer omslachtig (helaas).quote:Geen idee of het helpt om inverschillende tabbladen te werken eigenlijk..
Hoe je de data op blad 5 krijgt=quote:Op maandag 6 april 2009 21:34 schreef PPL het volgende:
Ik ben een standaard boodschappenlijstje aan het (proberen te) maken.
Op tabblad 1 tot en met 4 benoem ik de winkels.
Per winkel vul ik op het sheet in welke artikelen ik daar koop.
Daar wil ik dan op invullen hoeveel ik komende week van dat artikel nodig heb.
Op tabblad 5 wil ik dan een lijstje met wat ik moet kopen.
Gesorteerd per winkel en vervolgens categorie.
Dit zodat ik per winkel niet hoef te kris-krassen en niets vergeet en weer terug moet naar de vorige winkel.
Mijn gedachte is een macro en zoekende op actieve cellen met waarde groter dan 0 (want waarde 0 hoef ik niet te kopen) en dan tenslotte op tabblad 5 een sorteerfunctie.
Hoe kan ik dit het beste aanpakken.
Dit moet volgens mij wel al bestaan en ik heb geen zin en gen tijd om het wiel uit te vinden eerlijk gezegd.
Merci.
@Joooo-pi : Bedankt, dat ziet er uit als een heel goed begin. Ik ga eens even uitproberen of het precies doet wat ik wil. Als ik de code zo bekijk komt het in ieder geval een heel eind in de richting!quote:
Macro opnemen....quote:Op dinsdag 7 april 2009 10:23 schreef McGilles het volgende:
Ik zou graag een knop/hyperlink willen maken waarmee ik automatisch het geopende excel bestand als een bijlage in een mail krijg.
Natuurlijk kan ik via, 'bestand' --> 'verzenden naar' --> 'email adres (als bijlage)' dit voor elkaar krijgen, maar die optie wil ik dus graag in een knop/hyperlink.
Iemand hier zo snel de oplossing?
Graag ook gelijk een standaardemailadres ingevuld als het mogelijk is.
1 2 3 4 5 | Application.Dialogs(xlDialogSendMail).Show End Sub |
1 2 3 4 5 6 | - Oranjetopic - 122 - Tong80topic - 252 - DIG - iPhonetopic - 344 - UVT - Awakenings - 233 - Technotopic - 15 |
1 2 3 4 5 6 | Fok - VBL - Oranjetopic - 122 Fok - VBL- Tong80topic - 252 Fok - DIG - iPhonetopic - 344 Fok - UVT - Awakenings - 233 Fok - UVT - Technotopic - 15 |
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 | Dim ws As Worksheet j = 0 l = 1 For Each ws In Worksheets If ws.Name <> "Overzicht" Then i = 1 k = 0 Do i = i + 1 If ws.Cells(i, 2).Value > 0 Then If k = 0 Then Sheets("Overzicht").Range("A" & l).Value = ws.Name k = 1 End If Boodschap = ws.Cells(i, 1).Value Hoeveelheid = ws.Cells(i, 2).Value j = j + 1 l = l + 1 Sheets("Overzicht").Range("B" & j).Value = Boodschap Sheets("Overzicht").Range("C" & j).Value = Hoeveelheid End If Loop Until ws.Cells(i + 1, 1).Value = "" End If Next End Sub |
Als je een macro opneemt krijg je dit:quote:Op dinsdag 7 april 2009 10:23 schreef McGilles het volgende:
Ik zou graag een knop/hyperlink willen maken waarmee ik automatisch het geopende excel bestand als een bijlage in een mail krijg.
Natuurlijk kan ik via, 'bestand' --> 'verzenden naar' --> 'email adres (als bijlage)' dit voor elkaar krijgen, maar die optie wil ik dus graag in een knop/hyperlink.
Iemand hier zo snel de oplossing?
Graag ook gelijk een standaardemailadres ingevuld als het mogelijk is.
1 2 3 4 5 6 7 8 9 | ' ' Macro2 Macro ' De macro is opgenomen op 7-4-2009 door Joooo-pi ' ' ActiveWorkbook.Save Application.Dialogs(xlDialogSendMail).Show End Sub |
2008quote:1000
1050
1100
1150
1200
1250
1300
Zoals je kan zien staan hierboven veel dubbele getallen. Is het mogelijk om via een formule een lijst te maken met alle unieke getallen o.b.v. deze twee lijsten?quote:1000
1050
1100
1150
1160
1170
1180
1190
1200
1250
1300
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 | Dim OutApp As Object Dim OutMail As Object Dim address As String ActiveWorkbook.Save address = Range("A1") Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(olMailItem) On Error Resume Next With OutMail .to = address .Subject = "Mailtje" .Body = ActiveWorkbook.FullName Set myAttachments = OutMail.Attachments myAttachments.Add ActiveWorkbook.FullName .Send End With On Error GoTo 0 MsgBox "Email sent to " & address Set OutMail = Nothing Set OutApp = Nothing End Sub |
quote:Op dinsdag 7 april 2009 11:20 schreef DaFan het volgende:
PPL ik heb een opzetje gemaakt.
Sheetnamen zijn winkelname (in mijn geval AH en Aldi gedaan). Daar staat gewoon een lijst met links producten in kolom A (met header!) en in kolom B de hoeveelheden (met header). Idem voor de sheet Aldi.
Ik heb op de eerste sheet een knop gezet maar die kan je ook verplaatsen, en deze macro erin geplaatst:
[ code verwijderd ]
Ik krijg nu op de laatste sheet (die "Overzicht" heet) een lijstje met in de linkerkolom de naam van de winkel, en in de rechterkolom een lijstje met de producten en hoeveelheden.
Als je het gemaild wil hebben moet je je mailadres maar even pmen oid.
Geeft nietquote:Op dinsdag 7 april 2009 12:25 schreef Joooo-pi het volgende:
DaFan! Wij komen wel met dezelfde antwoorden zo nu en dan
Edit: Ik zie dat je wel veel eerder was, maar ik had je post over het hoofd gezien.
Valt mee hoor. Ik zou eerst ook niet verder aan een antwoord werken. Ik wilde alleen even proberen of het toevoegen van ".attachment = ActiveWorkbook.Fullname" in de post waar ik naar verwees, genoeg zou zijn. Het werkte net niet, maar na het raadplegen van de help van Outlook, was ik er snel uit.quote:Op dinsdag 7 april 2009 15:15 schreef DaFan het volgende:
[..]
Geeft niet
Jij hebt meer tijd om een compleet antwoord te geven lijkt het
Het gemiddelde neem ik aan? anders een grafiek gebruiken.quote:Op woensdag 8 april 2009 09:00 schreef Cuegirllie het volgende:
Ik heb een klein vraagje over extrapolatie in excel.
Ik heb over 10 weken cijfers
1: 10.000
2: 9500
3: 8500
4: 8000
5: 9800
6: 9300
7: 8300
8: 8800
9: 9600
10: 8500
Hoe kan ik in excel bepalen wat de verwachte cijfers zullen zijn voor de aankomende tien weken?
(heb Excel 2003 in Nederlands)
Met de functie FORECAST.quote:Op woensdag 8 april 2009 09:00 schreef Cuegirllie het volgende:
Ik heb een klein vraagje over extrapolatie in excel.
Ik heb over 10 weken cijfers
1: 10.000
2: 9500
3: 8500
4: 8000
5: 9800
6: 9300
7: 8300
8: 8800
9: 9600
10: 8500
Hoe kan ik in excel bepalen wat de verwachte cijfers zullen zijn voor de aankomende tien weken?
(heb Excel 2003 in Nederlands)
Of de komende 2/3 weken mag ook.quote:Op woensdag 8 april 2009 09:10 schreef DaFan het volgende:
Met de functie FORECAST.
10 weken is niet echt een goede basis voor nog eens 10 weken forecasting.
control+pagedown en control+pageupquote:Op donderdag 9 april 2009 11:23 schreef Cuegirllie het volgende:
Is er trouwens een sneltoets via toetsenbord om tussen de tabbladen van een excelmap te springen?
Ik kan alleen maar die vinden tussen verschillende excelmappen
specifieke getallen uit een tabel...quote:Op donderdag 9 april 2009 17:14 schreef Deetch het volgende:
hoe worden je error bars gemaakt? Zijn het vaste waarden, een vast percentage van de meetwaarde of specifieke getallen uit een tabel?
geef eens een klein deel van je data, dat praat wat makkelijker.quote:Op vrijdag 10 april 2009 01:05 schreef maniack28 het volgende:
[..]
specifieke getallen uit een tabel...
Duhquote:Op vrijdag 10 april 2009 10:16 schreef Deetch het volgende:
de waarden van de Y-error bars moeten wel het verschil zijn ten opzichte van de meetwaarde. Voor de minima hoef je dus niet -1oid in te vullen want dan komt hij - -1 dus +1 dus boven de y-waarde
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 | -18,5 526,7825 729,513 0 0 -17,5 1023,1184 1574,3916 874,02643 1255,6757 -16,5 1291,2629 2154,0955 902,75611 1732,0488 -15,5 1142,6284 1680,8137 625,25938 1417,4396 -14,5 1466,04 2317,6192 1021,5296 2033,9102 -13,5 1487,7315 2219,6034 1117,4483 2059,2581 -12,5 1728,8095 2522,1187 1608,9021 2618,0033 -11,5 1698,1578 2677,0718 1476,4634 2484,1597 -10,5 1706,8493 2545,4853 1470,6236 2425,2449 -9,5 1739,7061 2561,7151 1478,9984 2296,9521 -8,5 1718,6681 2428,2981 1406,4411 2195,3171 -7,5 1711,995 2362,4395 1424,8286 2150,4955 -6,5 1669,6711 2358,0995 1441,2325 2081,8661 -5,5 1629,6963 2376,4562 1436,7374 2044,4289 -4,5 1589,1191 2487,3518 1412,6021 2212,2418 -3,5 1676,7831 2774,1953 1472,9662 2525,0619 -2,5 1658,7803 2797,2937 1512,3788 2535,7464 -1,5 1655,124 2993,0559 1625,451 2429,8887 -0,5 1681,8561 2943,7486 1562,4437 2286,8696 0,5 1690,2288 3019,1526 1598,9254 2612,5752 1,5 1807,535 3441,3258 1796,4882 3005,7912 2,5 1752,4091 3620,9226 1652,7897 3087,3361 3,5 1722,9421 3736,7741 1712,5205 3407,0881 4,5 1667,683 3574,3 1524,551 3077,1358 5,5 1693,177 3542,2974 1621,3014 2835,2704 6,5 1822,9331 4076,124 1826,6977 3308,6881 7,5 1624,2091 3440,5304 1596,724 2851,2371 8,5 1846,467 4035,0052 1610,0168 3052,765 9,5 1655,3329 3954,7385 1552,518 3479,7385 10,5 1831,3043 4612,0833 1889,8869 3683,1887 11,5 1862,2843 4246,1624 1990,745 4302,9974 12,5 1571,8037 4854,9251 1537,1725 3817,4778 13,5 1958,3974 6103,011 1890,0747 6342,5214 14,5 1808,9295 4990,5699 1987,7711 5191,8278 15,5 1644,3516 4969,8418 1711,2216 4057,3973 16,5 1706,9632 4590,3087 1826,7164 3985,1427 17,5 1830,7772 4939,0153 1705,6821 4345,431 18,5 1924,5073 5398,7729 2011,0789 4188,7588 19,5 1948,7595 5569,3268 1765,5972 4880,1014 20,5 1794,8704 5289,4117 1931,8686 4552,5796 21,5 2263,7836 5722,9258 1888,8512 4407,607 22,5 1388,3598 4619,4869 1419,9651 3821,8469 23,5 1951,683 6003,0082 1805,0081 5010,276 24,5 1922,6651 5007,2393 1964,6384 4733,0024 25,5 1966,4197 5976,5423 1661,14 4157,262 26,5 1946,5489 5599,1324 1946,4134 5705,3246 27,5 2340,7276 4766,9584 2036,0108 4498,3891 28,5 2126,6207 5737,5183 2003,039 4365,6788 29,5 1810,1841 5744,6787 1545,8428 6444,8178 30,5 1992,6411 6468,7109 1303,1198 5888,842 31,5 2308,2251 6379,0372 1633,1696 4806,1542 32,5 2411,2313 6063,7748 1957,3919 4577,2592 33,5 1793,9978 8200,8558 1347,6963 8157,6151 34,5 1531,0835 5026,0105 1452,6572 3846,8863 35,5 2082,0428 8865,6768 1627,0162 8154,174 36,5 2242,349 6486,2636 1424,1571 5943,9286 37,5 2550,5436 10683,961 2006,2605 8547,8387 38,5 1258,3311 9073,59 1037,2771 5030,3077 39,5 1746,0625 11224,509 1703,0269 10398,898 40,5 1700,4425 4319,658 1148,3675 2188,3827 41,5 2958,2518 12226,598 1699,6763 9748,7188 42,5 2480,753 4247,012 766,943 1494,228 43,5 3059,985 12355,942 1096,092 13741,647 44,5 3001,8381 14414,589 1099,8061 13710,202 45,5 3869,6163 4348,2563 579,79449 963,07807 46,5 3254,1012 12787,888 921,07475 13673,413 47,5 2504,7125 6760,2225 861,78867 2458,6525 48,5 2614,3183 8855,3167 658,77185 2849,964 |
Is niet veel mis mee hoor.quote:Op zaterdag 11 april 2009 11:15 schreef maniack28 het volgende:
2003
Maar mijn probleem is dan natuurlijk dat dat unieke gekozen nummer opnieuw gekozen zal worden voordat alle nummers 'aan de beurt' zijn geweest. Weet iemand misschien hoe dit opgelost kan worden?quote:=RANDBETWEEN(1,1618)
1 2 3 4 5 6 7 8 9 | Cells.Clear For i = 1 To 70 Cells(1, i).Value = "Groep " & i Next i End Sub |
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 | Dim max_index, temp, a, b, c, i, j, k As Integer Dim arrValues(1 To 1618) As Variant a = 1 b = 1 c = 1 i = 1 j = 0 k = 1 max_index = 1618 For k = 1 To 1618 arrValues(k) = k Next k For i = 1 To max_index j = Int((max_index * rnd) + 1) temp = arrValues arrValues = arrValues(j) arrValues(j) = temp Next i For a = 1 To 1618 b = b + 1 If a Mod 23 = 0 Then c = c + 1 b = 2 End If Cells(b, c).Value = arrValues(a) Next a End Sub |
1 2 3 | arrValues(k) = k Next k |
1 2 3 4 5 6 | j = Int((max_index * rnd) + 1) temp = arrValuesi arrValuesi = arrValues(j) arrValues(j) = temp Next i |
1 2 3 4 5 6 7 8 9 | b = b + 1 If a Mod 23 = 0 Then c = c + 1 b = 2 End If Cells(b, c).Value = arrValues(a) Next a |
Bedankt.quote:Op maandag 13 april 2009 13:26 schreef DaFan het volgende:
Zo maar even...
Ik heb eerst een macro gemaakt (aan een button gehangen) die 70 groepen maakt en de cellen leegt. Was even handig voor mezelf maar ik zet hem er maar even bij:
[ code verwijderd ]
Daarna de hoofdcode aan een andere button.
[ code verwijderd ]
Nu heb ik 70 groepen van 23 nummers, en nog eens 9 losse nummers (1618 is niet deelbaar door 23 )
In mijn volgende post zal ik uitleggen wat de macro doet.
Mooi gemaaktquote:Op maandag 13 april 2009 13:26 schreef DaFan het volgende:
Zo maar even...
Ik heb eerst een macro gemaakt (aan een button gehangen) die 70 groepen maakt en de cellen leegt. Was even handig voor mezelf maar ik zet hem er maar even bij:
[ code verwijderd ]
Daarna de hoofdcode aan een andere button.
[ code verwijderd ]
Nu heb ik 70 groepen van 23 nummers, en nog eens 9 losse nummers (1618 is niet deelbaar door 23 )
In mijn volgende post zal ik uitleggen wat de macro doet.
Dat doet deze regel:quote:Op maandag 13 april 2009 19:13 schreef Joooo-pi het volgende:
[..]
Mooi gemaakt
moet de term "Randomize" nog ergens tussen?
yep, ik heb het gelezen. Maar ik dacht dat je vooraf de random generator reset met "Randomize".quote:Op maandag 13 april 2009 19:40 schreef DaFan het volgende:
[..]
Dat doet deze regel:
j = Int((max_index * rnd) + 1)
rnd = random getal tussen 0 en 1. Max_index is het hoogste getal, en Int rond het getal af.
1 2 3 4 | TextBox1.Text = Sheet3.range("L2:T10").Find(What:=ComboBox1.Value).Offset(0, 1) End Sub |
Beste mensen,quote:Op maandag 6 april 2009 20:03 schreef Joooo-pi het volgende:
[..]
Kijk deze plaatjes:
Blad1:
Klik
Blad2:
Klik
Achter die ene knop staat de volgende code:
[ code verwijderd ]
Aan het einde van de maand klik je op die knop en je veld op blad 1 wordt geleegd en de gegevens gaan naar blad 2.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | col = 0 i = 1 Do If Worksheets("Blad2").Cells(2, i).Value = "0" Then col = i i = i + 1 Loop Until Worksheets("Blad2").Cells(2, i).Value = "" If col = 0 Or col > 26 Then MsgBox "Maand niet gevonden!" & col Exit Sub End If Worksheets("Blad1").Range("N2:N13").Select Selection.Copy Worksheets("Blad2").Select Worksheets("Blad2").Cells(2, col).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Sheets(1).Select 'Range("B3:M31").Clear Range("A1").Select MsgBox "overzetten klaar" End Sub |
Dat werkt gedeeltelijk: hij kopieert het nu wel naar de kolom waar de waarde 0 staat in cel 2, maar hij doet dat naar cel Y2. De eerste cel waar de waarde 0 staat is echter(op dit moment) i2. Als ik de knop meerder malen achter elkaar indruk worden achtereenvolgens de kolommen Y, W, U,S (in die volgorde) gevuld, in plaats van de kolommen i, K, M etc. Het lijkt alsof de loop achteraan begint met zoeken, maar ik zie niet waarom en ook niet of ik de zoekvolgorde kan omdraaien. Het zal wel logisch zijn, maar voor mij even niet......quote:Op dinsdag 14 april 2009 15:15 schreef DaFan het volgende:
Then col = i - 1
Gewoon ergens 1 vanaf trekken is altijd lekker makkelijk
1 |
Dat vergeet ik inderdaad altijd Maximaal 7 met alles ouder dan Excel2007, toch?quote:Op dinsdag 14 april 2009 17:48 schreef DaFan het volgende:
Kan je ook beter met een VLOOKUP doen. Zal zo even uitleggen hoe, ga eerst ff hapje eten.
(IF werkt prima als je maar 2 waardes hebt, dan is het niet de moeite, maar als je er 100 hebt...tja).
Je kan volgens mij op 2 manieren werken, maar beide manieren zijn niet precies zoals jij het wil hebben.quote:Op dinsdag 14 april 2009 18:12 schreef drummerdude het volgende:
Eerste vraag hier
Vast al vaker gevraagd...
Is het mogelijk om 1 rij (Horizontaal) mee te laten scrollen.
Als je bijvoorbeeld onderaan een SOM hebt staan, en je scrolt naar beneden, de SOM rij meeschuift.
1 |
Grappig, 10 kilo verzenden naar Mexico is goedkoper dan naar mn buurmanquote:Op dinsdag 14 april 2009 20:02 schreef DaFan het volgende:
Tuurlijk
[ afbeelding ]
H2
[ code verwijderd ]
Misschien woont hoek21 wel in Hondurasquote:Op dinsdag 14 april 2009 20:04 schreef qu63 het volgende:
[..]
Grappig, 10 kilo verzenden naar Mexico is goedkoper dan naar mn buurman
Dan zou Mexico alsnog goedkoper zijn!quote:Op dinsdag 14 april 2009 20:04 schreef DaFan het volgende:
[..]
Misschien woont hoek21 wel in Honduras
Dit is hetzelfde als min(cel1; cel2) (wat korter is).quote:Op woensdag 15 april 2009 01:25 schreef Neemmijnietserieus het volgende:
=als(çel1<cel2;cel1;cel2)
Hij wil de als formule en als hij een waarde wenst dan wordt het toch simpel:quote:Op woensdag 15 april 2009 02:26 schreef TubewayDigital het volgende:
[..]
Dit is hetzelfde als min(cel1; cel2) (wat korter is).
Echter heb je dan wat je wilt? Je wilt niet de waarde van cel2 maar de naam. Toch?
de MIN doet exact het zelfde en is korter en duidelijkerquote:
dat kloptquote:en als hij een waarde wenst dan wordt het toch simpel:
=als(cel1<cel2;"terminal a";"terminal b")
Ik ben er uit! Het was - als altijd - eigenlijk heel simpel: Ik had als code:quote:Op dinsdag 14 april 2009 15:07 schreef ruudtb205 het volgende:
[..]
Beste mensen,
Ik ben al een poos aan het stoeien met de code die Joooo-pi gemaakt had, maar het levert nog niet het gewenste resultaat op. Het werkt nu gedeeltelijk, ik heb de code wat aangepast:
[ code verwijderd ]
Het werkt in zoverre, dat de waarden nu wel gekopieerd worden en verplaatst naar blad 2, maar naar de verkeerde kolom. In de code geef ik volgens mij aan dat de code de eerste kolom moet nemen waar als waarde 0 staat. Hij kopieert echter naar de kolom naast de laatste kolom waar 0 staat. Ik heb al zitten kijken (voor zover ik wat van VBA afweet ) maar ik krijg het niet aan de praat.......
Hulp zou welkom zijn!
1 2 3 4 5 6 | i = 1 Do If Worksheets("Blad2").Cells(2, i).Value = "0" Then col = i - 1 i = i + 1 Loop Until Worksheets("Blad2").Cells(2, i).Value = "" |
1 2 3 4 5 6 7 | i = 1 Do i = i + 1 If Worksheets("Blad2").Cells(2, i).Value = "0" Then col = i Loop Until Worksheets("Blad2").Cells(2, i).Value = "0" |
Ik had je vorige post gemist, helaas. Leuk dat je er uit bent gekomen!quote:Op woensdag 15 april 2009 09:38 schreef ruudtb205 het volgende:
[..]
Ik ben er uit! Het was - als altijd - eigenlijk heel simpel: Ik had als code:
[ code verwijderd ]
Die heb ik gewijzigd in:
[ code verwijderd ]
Was even experimenteren, waarbij Excel een paar keer vast liep, maar via trial en error kom je toch ver, blijkt wel....Joooo -pi, bedankt voor de aanzet!
Super! Ik ben helemaal gelukkig. Ik heb nummer 1 geprobeerd, maar het is meteen de goedequote:Op dinsdag 14 april 2009 18:36 schreef Joooo-pi het volgende:
[..]
Je kan volgens mij op 2 manieren werken, maar beide manieren zijn niet precies zoals jij het wil hebben.
1. Je kan "titels blokkeren". Selecteer de rij die je als eerste wilt laten scrollen en ga naar Venster --> Titels blokkeren.
2. Je kan je welkblad splitsen. Dan kun je bijvoorbeeld in de bovenkant werken, terwijl de onderkan blijft staan. Dat kan zowel horizontaal als vertikaal. Rechts en boven de scrollbalken kun je met je muis een <-> pijltje maken. Als je daarop klikt en schuift, kun je splitsen.
Succes!
Als ik venlo intyp komt er 300 te staan ipv 201. en zo zijn er nog wel wat voorbeelden dat hij de kilometers van andere plaatsen door elkaar haalt.quote:Op woensdag 15 april 2009 19:32 schreef DaFan het volgende:
Bij mij werkt het prima Italiaan.
Kan je trouwens in B4 en D4 geen data validation gebruiken, met een dropdown vanuit Afstanden!B1:M1 ?
Ik snap niet echt wat je met dat blokje berekening wil doen eigenlijk?quote:Op woensdag 15 april 2009 20:11 schreef drummerdude het volgende:
Misschien nog een antwoord op vraag 1?
Sorry voor het gespam, maar loop er nu nog een keer op vast
Bedankt het is gelukt(Y)quote:Op woensdag 15 april 2009 20:15 schreef DaFan het volgende:
drummerdude: Ik snapte je vraag niet precies dus die sloeg ik over
italiaan: Je mist het laatste argument, de "0":
=HLOOKUP(B4,Afstanden!B1:M2,2,0)
Nu pakt hij Veendam omdat die er wel op lijkt, die 0 geeft een exact match aan.
Validation kan wel van een ander werkblad maar dan moet je je waardes een named range maken (Insert -> Name)
Je vult in L3 toch je gefietste kilometers in? En in L4 de tijd die je dat gekost heeft? En L5 rekend toch uit hoe hard je dan gemiddeld per uur gefietst hebt?quote:Op woensdag 15 april 2009 20:20 schreef drummerdude het volgende:
Misschien is het handig als ik hem even upload
http://spreadsheets.google.com/ccc?key=ptm1ZBq1qVD1OTvx5xo3Qag
Het is voor het gemak even op Google.
In de bovenste getallen invullen, dan komt het aan de onderkant er weer uit.
Als je 1 uur lang 25 kilometer per uur hebt gefietst, heb je 25 kilometer gefietst.
Zo kun je alles, alle kanten op berekenen.
Me too ...quote:Op woensdag 15 april 2009 20:46 schreef qu63 het volgende:
Ik wist dat ik sneller moest zijn
Vandaar die views!quote:Op woensdag 15 april 2009 20:52 schreef DaFan het volgende:
Ik zit alleen maar keihard te F5en, jeweet
Ik niet iig, maar DaFan zal wel antwoorden (maar ik was iig eerder )quote:Op woensdag 15 april 2009 23:19 schreef hoek21 het volgende:
Ja Mexico heeft weer een vraagje. Hoe kan ik mijn voorwaardelijke opmaak in een Pivottable (draaitabel) behouden? Ik wel mijn rapporten gewoon met rasterlijnen hebben, maar het springt telkens terug als ik iets verander. Ik las ergens dat je dit niet kan veranderen maar leek me niet logisch. Heeft een van jullie enig idee?
GR
Ruudtb205, ik weet niet of je het forum nog volgt. Maar mijn inziens kan je dit soort werk beter in Acces (of wellicht een ander database programma) doen. Hoewel ik zelf een groot fan ben van Excel ben ik er door ervaring achtergekomen dat Acces beter is in het beheren van lijstjes (urenoverzichten, adresboeken, mp3-collecties etc) en het genereren van rapporten (week-, jaar overzichten, betalings achterstanden etc) op basis daarvan.quote:Op dinsdag 7 april 2009 10:09 schreef ruudtb205 het volgende:
[..]
@Joooo-pi : Bedankt, dat ziet er uit als een heel goed begin. Ik ga eens even uitproberen of het precies doet wat ik wil. Als ik de code zo bekijk komt het in ieder geval een heel eind in de richting!
Voor Pivottables moet je niet bij mij zijn...quote:Op woensdag 15 april 2009 23:36 schreef qu63 het volgende:
[..]
Ik niet iig, maar DaFan zal wel antwoorden (maar ik was iig eerder )
ohquote:Op donderdag 16 april 2009 07:15 schreef DaFan het volgende:
[..]
Voor Pivottables moet je niet bij mij zijn...
Je maakt eerst 2 staafdiagrammen (of 2 lijndiagrammen, om het even). Daarna doe je rechtermuisknop op één van de grafieken (dus de grafiek waarvan je graag de lijn wil maken), dan ga je naar Grafiektype en kies je voor Lijn.quote:Op donderdag 16 april 2009 13:32 schreef Brighteyes het volgende:
Is het mogelijk, in excel, om een staafdiagram te hebben met daar doorheen nog 1 lijn om de totale progressie weer te geven?
Als ik via de wizzard kijk zie ik alleen maar staafdiagrammen of lijndiagrammen maar geen combi's.
Of willen we nu iets dat echt niet kan?
Je zou nog een 3e dataset kunnen maken van 0 (jan) tot 1500 (dec)..quote:Op donderdag 16 april 2009 13:53 schreef Brighteyes het volgende:
Hmmzzzz, laat maar, bij navraag om duidelijker te krijgen wat ze wil is volgens mij wel duidelijk dat dat wat ze wil gewoon niet kan.
Ze wil in deze chart:
[ afbeelding ]
Een soort van target lijn hebben van 0 in Januari naar 1500 in December.
Maar volgens mij is dat sowieso iets heel anders dan de data die er nu staan.
Met zelf prutsen heeft ze er nu 2 over elkaar heen geschoven die de truc lijken te doen.
Thanks voor het meedenken!
Ja hoor. Dan moet je doen wat DaFan hierboven al zei. Veranderen van chart-type.. (zit nu in de trein, vandaar het korte antwoord!)quote:Op donderdag 16 april 2009 14:16 schreef Brighteyes het volgende:
Maar kan die dan wel in die eerste chart?
Dat blijft subjectief natuurlijkquote:
Goede cursussen zou ik zo niet kunnen aanbevelen. Heb het zelf geleerd door voor iemand een database te reparen en veel in de help functie, internet en tips van collega. Wat me het meeste heeft geholpen was dat er een duidelijk doel was (bestaande database), want dan moet je gericht zoeken.quote:Op donderdag 16 april 2009 10:39 schreef Stpan het volgende:
Nu het woord Access hier is gevallen: Weet iemand hier een goede Access cursus?
Heb nauwelijks ervaring met Access (gebruik gemaakt van door een collega opgezette queries en er zelf een paar aangepast) en blijf in Excel steken bij Pivots, Vlookup en wat Macro's als ik in lange sheets repeterende zaken moet aanpassen.
=DATEVALUE(A1)+TIMEVALUE(A1) converteert bij mij 2007-02-21 06:15:58 nr het getal 39134,26109quote:Op vrijdag 17 april 2009 00:47 schreef new_guy1 het volgende:....
Kan iemand me een zetje geven in de juiste richting?
bij Bol.com alleen een versie voor Acces 97. Beetje achterhaald. Maar ze hebben nog wel 190 titels MSacces in het engels. Anders is er ook nog http://access.startpagina.nl/.quote:Op donderdag 16 april 2009 23:12 schreef DaFan het volgende:
Is er geen 'For dummies' voor Access? Dan kom je volgens mij al een heel eind. Sowieso met basis Office kennis is aankloten goed te doen..
Ik snap wat je bedoelt en ben daar ook wel mee bezig geweest: 'n SQL database (daar kan ik beter mee overweg als met Acces ) die ik benaderde vanuit een VBDotNet programma wat ik zelf probeer te bouwen. SQL ken ik behoorlijk, VB 'n heel stuk minder. Dat wordt dus een langdurig (maar wel erg leuk!) project waar nog volop aan gewerkt wordt. Voor de boekhouding zelf heeft m'n vrouw van haar boekhouder een oude versie van Unit4Agresso voor het MKB gekregen, en daarin worden inkomsten en uitgaven keurig bijgehouden. Ik krijg haar nog niet zo ver dat ze dagelijks de tijden van de kinderen in de computer zet; ze houdt alles keurig bij op papier (dat werkt eigenlijk verrassend goed en flexibel ), en 1x per maand vult ze de excelsheet met de uren per week en draait ze in Word de rekeningen uit. Voor haar is het helemaal geweldig, helemaal nu de knop goed werkt om het over te zetten naar de totaaltelling op blad 2quote:Op donderdag 16 april 2009 00:15 schreef The_vice het volgende:
[..]
Ruudtb205, ik weet niet of je het forum nog volgt. Maar mijn inziens kan je dit soort werk beter in Acces (of wellicht een ander database programma) doen.[...]
Acces heeft een wat lastige leercurve als je er kaal aan begint. Als je er oren naar hebt kan ik je wel een eindje op weg helpen. Stuur maar even een berichtje anders.
Dan wordt wel netjes de juiste waarde gegeven uit Test1, maar als ik deze formule invoer, dan moet ik alsnog Test1.xls selecteren in een menu dat tevoorschijn komt. Hoe voorkom ik dit?quote:='C:\Users\Ray\Excel][Test1.xls]Blad1'!A1
Heb je al gewerkt met de autofilter-functie ? Dan krijg je alle verkopen van een klant bij elkaar.quote:Op vrijdag 17 april 2009 23:28 schreef hoek21 het volgende:
Het is nog wat complexer........wil ook het product weten want klant koopt meer dan een product,
Ik krijg het naast elkaar via pivor table maar dan kan ik het bronbestand niet bewerken.
2006 klant x product a 500
2006 klant x product b 1000
2006 klant x product c 1300
2006 klant y product a
2006 klant y product b
2006 klant y product c
2006 klant z product a
2006 klant z product b
2006 klant z product c
2007klant x product a
2007klant x product b
2007 klant x product c
2007 klant y product a
2007 klant y product a
2007 klant y product a
2007 klant z product a
2007klant z product a
2007klant z product a
etc
Dank voor de hulp
gr
De spelers op Blad1 worden hierbij dus automatisch gesorteerd op club over de 18 'clubbladen' en deze data komt op B2:D50 te staan. Alleen dit werkt helaas alleen maar als de ongesorteerde data uit Blad1 staat op cel A1 tot bijvoorbeeld C100. Ik heb Blad1 aangepast en nu staat de data niet meer op A1:C100, maar nu begint de data in C6 (dus de oude A1) en eindigt het bijvoorbeeld in E105 (de oude C100).quote:Private Sub CommandButton1_Click()
For Each ws In Worksheets
If ws.Name <> Worksheets(1).Name Then 'zo sla je de eerste worksheet over
Club = ws.Name
Worksheets(Club).Range("B2:D50").Clear
i = 0
j = 1
Do
i = i + 1
If Worksheets(1).Cells(i, 2).Value = Club Then
j = j + 1
Worksheets(Club).Cells(j, 2).Value = Worksheets(1).Cells(i, 1).Value
Worksheets(Club).Cells(j, 3).Value = Worksheets(1).Cells(i, 3).Value
Worksheets(Club).Cells(j, 4).Value = Worksheets(1).Cells(i, 4).Value
End If
Loop Until Worksheets(1).Cells(i, 1).Value = ""
End If
Next
End Sub
quote:Op zaterdag 18 april 2009 11:29 schreef RayMania het volgende:
Had dit al enkele weken gevraagd, maar het is nog niet naar mijn zin.
Dit is het geval; ik heb een sheet met 19 bladen. Blad1 geeft een overzicht weer van de naam van een voetballer (kolom A) met daarbij hun club (kolom B) en hun positie (kolom C). Op deze sheet staat deze macro:
[..]
De spelers op Blad1 worden hierbij dus automatisch gesorteerd op club over de 18 'clubbladen' en deze data komt op B2:D50 te staan. Alleen dit werkt helaas alleen maar als de ongesorteerde data uit Blad1 staat op cel A1 tot bijvoorbeeld C100. Ik heb Blad1 aangepast en nu staat de data niet meer op A1:C100, maar nu begint de data in C6 (dus de oude A1) en eindigt het bijvoorbeeld in E105 (de oude C100).
Hoe zorg ik ervoor dat de data uit Blad1 alsnog wordt 'herkent' en wel wordt gesorteerd over de clubbladen?
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 | Private Sub CommandButton1_Click() Keen = 3 'Dit staat voor kolom C Ktwee =4 'Dit staat voor kolom D Kdrie = 5 'kolom E For Each ws In Worksheets If ws.Name <> Worksheets(1).Name Then 'zo sla je de eerste worksheet over Club = ws.Name Worksheets(Club).Range("B2:D50").Clear i = 5 'dit is de startwaarde (-1) voor de teller voor de rijen op blad 1 j = 1 'startwaarde voor teller per clubblad Do i = i + 1 If Worksheets(1).Cells(i, Ktwee).Value = Club Then j = j + 1 Worksheets(Club).Cells(j, 2).Value = Worksheets(1).Cells(i, Keen).Value Worksheets(Club).Cells(j, 3).Value = Worksheets(1).Cells(i, Ktwee).Value Worksheets(Club).Cells(j, 4).Value = Worksheets(1).Cells(i, Kdrie).Value End If Loop Until Worksheets(1).Cells(i, Keen).Value = "" End If Next End Sub |
quote:Op vrijdag 17 april 2009 01:05 schreef The_vice het volgende:
[..]
=DATEVALUE(A1)+TIMEVALUE(A1) converteert bij mij 2007-02-21 06:15:58 nr het getal 39134,26109
. In time format geeft dan weer de correcte datum.
voor van elkaar aftrekken van twee tijden:
=(DATEVALUE(A2)+TIMEVALUE(A2)) - (DATEVALUE(A1)+TIMEVALUE(A1))
Zie net dat =Value(A1) het ook doet in één keer. =Waarde(A1) in nederlandse versie. Deze functie maakt van tekst opgeslagen getal weer een "echt" getal waar excel wee mee kan rekenen.
Beide bedankt voor de antwoorden.quote:Op vrijdag 17 april 2009 08:21 schreef DaFan het volgende:
=INT(D1) &" Days " & INT(MOD(D1,INT(D1))*24) & " Hours and " & MINUTE(D1) & " Minutes and " & SECOND(D1) & " seconds"
Het is iig wel mogelijk om via "invoegen" --> "afbeelding" ---> "uit bestand" een url in te geven. Dat figuur kun je dan opmaken...quote:Op maandag 20 april 2009 22:35 schreef Bill_E het volgende:
Weet er iemand hoe ik een foto die op een website staat ( www.foto.nl/foto.jpg) met een simpele muisklik in excel in een cel kan zetten ( de foto dus niet de link) ? En eventueel ook nog een juiste vooraf ingestelde afmeting kan geven? Ik dacht dit ooit online gezien te hebben in een leuke tips en truck website maar krijg het niet meer gevonden
Met een macro opnemen lijkt me niet te lukken. Ik zal er 1 moeten schrijven. Ik heb er wel 1 maar die opent een foto vanaf je harddisk. Maar ik krijg het niet voor elkaar om niet voor elkaar om naar een webadres te linken.quote:Op dinsdag 21 april 2009 13:10 schreef DaFan het volgende:
Macrootje opnemen dus en kijken of je dat soort dingen via macro uberhaupt kan doen.
Heb je de actie in mijn post "opgenomen" ?quote:Op dinsdag 21 april 2009 18:26 schreef Bill_E het volgende:
[..]
Met een macro opnemen lijkt me niet te lukken. Ik zal er 1 moeten schrijven. Ik heb er wel 1 maar die opent een foto vanaf je harddisk. Maar ik krijg het niet voor elkaar om niet voor elkaar om naar een webadres te linken.
Helemaal overheengelezen ! zo eens proberen. ff van pc wisselenquote:Op dinsdag 21 april 2009 18:44 schreef Joooo-pi het volgende:
[..]
Heb je de actie in mijn post "opgenomen" ?
ik krijg dit:quote:Op dinsdag 21 april 2009 19:22 schreef Bill_E het volgende:
[..]
Helemaal overheengelezen ! zo eens proberen. ff van pc wisselen
1 2 3 4 5 6 7 8 9 10 11 | ' ' Macro1 Macro ' De macro is opgenomen op 21-4-2009 door Joooo-pi. ' ' ActiveSheet.Pictures.Insert("http://www.google.nl/intl/nl_nl/images/logo.gif"). Select Selection.ShapeRange.ScaleWidth 1.6, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.6, msoFalse, msoScaleFromTopLeft End Sub |
Hulde! Dank u wel. Dit wekt perfect.quote:
Hij bedoelt dat hij overgaat met 2 onvoldoendes. Zodra er 3 zijn moeten de alarmbellen gaan rinkelen.quote:Op woensdag 22 april 2009 07:33 schreef DaFan het volgende:
"als er 3 of meer onvoldoendes staan als eindcijfer, dus dat het lager is dan 6"
Wat?
Hij moet pas een gemiddelde berekenen als er meer dan 3 onvoldoendes staan, of..?
Kan je 2 voorbeelden geven:
- Je hebt 5 cijfers waarvan er maar 1 een onvoldoende is, wat is dan de uitkomst?
- Je hebt 5 cijfers waarvan er 3 een onvoldoende zijn, wat is dan de uitkomst?
En welke versie van Excel heb je?
1 2 3 4 5 6 7 8 9 10 11 12 | A 0 1 B 1 0 C 1 0 A 0 1 A 1 0 B 1 1 Resultaat: A 1 2 B 2 1 C 1 0 |
1 2 | A =1 =1 |
Welke versie, welke cellen/kolommen enzo?quote:Op woensdag 22 april 2009 09:17 schreef addie het volgende:
Wellicht dat jullie me kunnen helpen:
Ik heb in Excel een dump geplaatst uit het financieel programma. Deze rekent automatisch een KPI uit en die wil ik dan weer in een aparte lijst laten plaatsen. Hiertoe zet ik het weeknummer erachter, wat via een IF-functie dan doorwerkt naar een cel in die aparte lijst.
Tot zover gaat het goed. Maar nu wil ik graag deze uitkomst vastzetten (zonder paste special, automatisch dus), aangezien de gegevens bewaard moeten blijven en de volgende week de rij eronder gevuld moet worden.
Iemand een idee? Volgens mij kan het met macro's, maar daarin kom ik echt net kijken..
even een reminder van hoeveel onvoldoendes je hebt zeg maar. Met 2 zou je je zorgen kunnen gaan maken.quote:Op woensdag 22 april 2009 09:46 schreef DaFan het volgende:
Deetch waarom zo lastig:
=IF(COUNTIF(B1:B10,"<6")>=3,"Niet over",AVERAGE(B1:B10))
Fair enoughquote:Op donderdag 23 april 2009 00:06 schreef Deetch het volgende:
[..]
even een reminder van hoeveel onvoldoendes je hebt zeg maar. Met 2 zou je je zorgen kunnen gaan maken.
Bij het venster van zoek/vervang zit een button "opties". Als je daar 'indentieke celinhoud' aanvinkt, zal hij echt alleen op zoek gaan naar 7 in een cel. 17 wordt dan niet veranderd.quote:Op donderdag 23 april 2009 12:29 schreef Stansfield het volgende:
Hoe kan ik in excel 2000 met ctrl h een 7 vervangen in een 8 zonder dag 17 18 wordt.
En als het in een formule staat?quote:Op donderdag 23 april 2009 12:42 schreef Metsel het volgende:
[..]
Bij het venster van zoek/vervang zit een button "opties". Als je daar 'indentieke celinhoud' aanvinkt, zal hij echt alleen op zoek gaan naar 7 in een cel. 17 wordt dan niet veranderd.
Die werkt niet:Squote:Op woensdag 22 april 2009 09:10 schreef Deetch het volgende:
Aanemende dat je eindgemiddelden in de cellen B1 tm B10 staan
=als(aantal.als(B1:B10;"<6")>=3;"FAIL (" & aantal.als(B1:B10;"<6") & ") ;"No FAIL (yet) (" & aantal.als(B1:B10;"<6") & ")")
Misschien lukt het met "slim" denken. In dit geval zou $7 vervangen moeten worden voor $8, of misschien kan "7 " vervangen door "8 ". Dat laatste heb ik niet uitgeprobeerdquote:Op donderdag 23 april 2009 13:04 schreef Stansfield het volgende:
[..]
En als het in een formule staat?
=+'Week 17'!$R$7
R7 moet dus R8 worden en 17 moet 17 blijven.
Er mist een ":quote:
quote:Op donderdag 23 april 2009 15:41 schreef Yannick3211 het volgende:
Dan heb ik nog een vraag, ik wil mijn werktijden bijhouden, kan je op een of andere manier slepen zodat ik voor elke 4 weken een apart blad heb? Ik weet dat het kan binnen een blad, maar kan het dus ook met meerdere bladen, zodat ik het niet altijd helemaal uit hoef te typen?
Excel weet niet uit zichzelf of ie het 4 weken, een kwartaal of misschien wel een jaar op moet schuiven..quote:Op donderdag 23 april 2009 16:05 schreef Yannick3211 het volgende:
Ok, maar ik moet op elk blad andere data, en hij past zich ook met plakken gewoon aan aan het eigen blad, dus als ik op blad 1 bovenaan 3 april heb staan(in excel codes), en ik kopieer dat, komt op blad 2 natuurlijk ook 3 april te staan. Kan het niet dat je heel snel iets kan doen dat er op elke pagina dus een andere maand (in mijn geval 4 weken) staat?
Je zakt natuurlijk niet op 1 vak. Je zakt er op 3.quote:Op donderdag 23 april 2009 15:39 schreef Yannick3211 het volgende:
Bedankt man!:P Nu kan ik het duidelijk maken op school dat een fout van een technisch onderwijsassistent kei veel uitmaakt. Ze had een keer iets gezegd tijdens een practicumtoets voor scheikunde, dus dan neem je aan dat ze gelijk heeft (ik mocht een pipet uitblazen van haar) maar naderand bleek dat dat niet mocht, en daardoor had ik een 6 in plaats van een 8, en daardoor sta ik nou op zakken. als ik wel een acht zou hebben, staat er nou in mijn cijferlijst dat ik wel geslaagd zou zijnXD
Je bedoelt met slepen dus eigenlijk "doorvoeren". Slepen kan namelijk ook letterlijk en dan is het knippen/plakken.quote:Op donderdag 23 april 2009 16:05 schreef Yannick3211 het volgende:
Ok, maar ik moet op elk blad andere data, en hij past zich ook met plakken gewoon aan aan het eigen blad, dus als ik op blad 1 bovenaan 3 april heb staan(in excel codes), en ik kopieer dat, komt op blad 2 natuurlijk ook 3 april te staan. Kan het niet dat je heel snel iets kan doen dat er op elke pagina dus een andere maand (in mijn geval 4 weken) staat?
Ik zou het toch eens navragen bij je mentor of decaan ipv je hoop op een Excel formule te gooienquote:Op donderdag 23 april 2009 17:16 schreef Yannick3211 het volgende:
Ik zou nu zakken op 2 vakken, want die andere was gewoon niet eerlijk gerekend, en volgens mij hoor je pas te zakken bij 3 onvoldoendes..
Dat werkt perfect, dank je .quote:Op woensdag 22 april 2009 14:41 schreef DaFan het volgende:
=SUMPRODUCT(--($A$2:$A$7=$A10)*(B$2:B$7))
En dan doortrekken naar rechts en beneden.
Ow... ja dus .quote:Op vrijdag 24 april 2009 10:20 schreef DaFan het volgende:
hoek21 & HuHu;
Is het nog gelukt met de oplossingen voor jullie op de vorige pagina. Wel leuk om even te horen of het werkt of niet
hyperlink aanpassen?quote:Op vrijdag 24 april 2009 11:43 schreef BuupWerk het volgende:
hehe gevonden...
vraagje me hyperlinks werken niet meer...iemand een TIP ??
Klopt de link nog wel? Krijg je een foutmelding? Staat het bestand waar naar gelinkt wordt nog op dezelfde plaats? Heb je wel de juiste rechten om het te openen?quote:Op vrijdag 24 april 2009 12:16 schreef BuupWerk het volgende:
eerst drukje er op en werd er een word bestand geopend...nu doet tie dat niet meer...maar de links staat er nog...
1 2 3 4 5 6 7 | dim Variabele(Aantal) as String For i = 1 to Aantal Variabele( i ) = .... Next |
1 2 3 4 5 6 7 8 9 | Aantal = Range("A1").Value For i = 1 to Aantal berekeningen/handelingen die je wil doen next i |
Bedankt voor je antwoord, maar volgens mij maak je opmerkingen over details, want:quote:Op vrijdag 24 april 2009 13:51 schreef Deetch het volgende:
Wat doet die "variabele" in dat script? Normaal begin je met dimmen en dan pas de code.
Verder kan een For loop niet naar een "string" toeloopen. Aantal moet van het type "integer" zijn. Een integer is een geheel getal (dus geen decimalen) Indien nodig kun je de waarde uit cel A1 afronden.
Wat je met regel 6 wil is me ook onduidelijk maar het lijkt me niet verstandig om in een For loop je teller ( i ) te gaan veranderen.
let ook op dat je de loop afsluit met Next i
Zorg dat in cel A1 dus een getal staat.
[ code verwijderd ]
1 2 3 4 5 | For i = 1 to Aantal Variabele ( i ) = Cells(2,i).value Next i |
1 2 3 4 5 6 7 | Dim VariabeleA(Aantal) as Variant For i = 1 to Aantal VariabeleA( i ) = .... Next i |
werkt niet omdat hij cstring niet kent, wat moet ik gebruiken ipv cstring??quote:For m = 44 To 56
Rows(cstring(m) & ":" & cstring(m)).Hidden = (ActiveSheet.Cells(m, 4) = "")
Next
In mijn werkelijke script heet de variabele niet Variabele, maar heel anders, dat is het probleem niet. Ik heb String veranderd in Variant, maar dat helpt niet.quote:Op vrijdag 24 april 2009 15:12 schreef DaFan het volgende:
Deetch, de code op zichzelf klopt wel.
Variabele( i) is dan een array, waarin de i-ste plaats wordt gevuld. Dat kan prima met een For-loop.
[ code verwijderd ]
Niet getest.
Ik denk dat het probleem erin zit dat je een variabele Variabele noemt (dus vandaar die A erachter) en een String kan maar 1 waarde vasthouden. Vandaar Variant.
Val() doe ik om de .Value heen om deze zeker weten een Integer te maken.
Ik zou toch Next i gebruiken voor de overzichtelijkheid (nu beetje overbodig maar wacht maar tot je 3 For-loops in elkaar hebt.
Probeer dit eens:quote:Op vrijdag 24 april 2009 16:00 schreef Beregd het volgende:
vraagje:
[..]
werkt niet omdat hij cstring niet kent, wat moet ik gebruiken ipv cstring??
1 2 3 | Rows(m & ":" & m).Hidden = (ActiveSheet.Cells(m, 4) = "") Next |
werkt, thx!quote:Op vrijdag 24 april 2009 16:05 schreef Joooo-pi het volgende:
[..]
Probeer dit eens:
[ code verwijderd ]
Onderstaande code heb ik geprobeerd, maar toch een foutmelding: "Subscript ligt buiten het bereik". Op regel 9. Ik neem aan dat op het moment dat i = 1 de variabeleA(1) buiten bereik ligt? :?quote:Op vrijdag 24 april 2009 17:53 schreef DaFan het volgende:
Ah akkoord joo.
Probeer eens:
Dim VariabeleA() as String
1 2 3 4 5 6 7 8 9 10 11 12 | Dim Aantal As Integer Aantal = Range("A1").Value Dim VariabeleA() As String For i = 1 To Aantal VariabeleA( i ) = Cells(i, 2).Value Next i End Sub |
1 2 3 4 5 6 7 8 9 10 11 12 13 | Dim Aantal As Integer Dim VariabeleA() As String Aantal = Range("A1").Value ReDim VariabeleA(Aantal) As String For i = 1 To Aantal VariabeleA( i) = Cells(i, 1).Value Next i End Sub |
quote:Op vrijdag 24 april 2009 19:32 schreef DaFan het volgende:
Zo dan maar:
[ code verwijderd ]
ReDim als je de lengte weet
1 2 3 4 5 6 7 8 | 1 4 - 2 5 - 3 6 - 4 8 - 5 7 - 6 7 - 7 7 - |
1 2 3 4 5 6 7 8 | 1 4 1 2 5 2 3 6 3 4 8 8 5 7 4 6 7 5 7 7 6 |
in kolom C:quote:Op zondag 26 april 2009 21:06 schreef jakees het volgende:
Hallo,
ik heb de volgende tabel:
[ code verwijderd ]
Zoals je kan zien is de klasse toewijzing niet correct. Wat ik nu wil is dat het 4e team het 7e team wordt en dat de teams 5, 6, 7 er allemaal ééntje opschuiven. Dus
[ code verwijderd ]
Kan iemand me helpen met een algoritme in Excel2003? Sorteren heb ik al geprobeerd maar dit is praktisch gezien niet mogelijk.
1 2 3 4 5 6 7 8 | 1 4 1 2 5 2 3 6 3 5 7 4 6 7 5 7 7 6 4 8 7 |
thx, maar deze oplossing had ik zelf ook gevonden. Het probleem is dat er in de sortering allerlei andere aspecten moeten worden meegenomen die niet op alfabet moeten worden gesorteerd. Ik moet dan die aspecten weer eerst een rangorde toekennen. Ik ben dan toch bang dat ik bepaalde aspecten vernachel. Ik ben echt op zoek naar een ander algoritme.quote:Op zondag 26 april 2009 21:23 schreef qu63 het volgende:
[..]
in kolom C:
C2 = "=A2"
C3 = "=C2+1"
C4 = "=C3+1"
etc..
sorteren op kolom B van laag naar hoog en je krijgt dit als uitkomst:
[ code verwijderd ]
quote:Op maandag 27 april 2009 09:21 schreef DaFan het volgende:
Ik snap er niks van
Wat is dan de logica achter de volgorde die je wilt hebben? Als er geen logica (A-Z, Z-A, lang-kort, kort-lang, etc) in zit, dan kan je ook niet echt een algoritme maken..quote:Op maandag 27 april 2009 07:32 schreef jakees het volgende:
[..]
thx, maar deze oplossing had ik zelf ook gevonden. Het probleem is dat er in de sortering allerlei andere aspecten moeten worden meegenomen die niet op alfabet moeten worden gesorteerd. Ik moet dan die aspecten weer eerst een rangorde toekennen. Ik ben dan toch bang dat ik bepaalde aspecten vernachel. Ik ben echt op zoek naar een ander algoritme.
Misschien kun je de checkboxes disabled zetten na/tijdens de reset?quote:Op maandag 27 april 2009 16:24 schreef DaFan het volgende:
Ik heb een vraagje:
Ik heb een macro gebouwd voor managers om nieuwe werknemers aan te melden. Wij hebben een aantal gegevens nodig en het blijkt vaak dat deze niet gestuurd worden. Dus dan maar een debielenversie zodat ze alle benodigde info invoeren.
Nu heb ik een Reset knop gemaakt waarbij alles weer wordt teruggezet zoals het was (duh). Ik heb hierin opgenomen:
Application.EnableEvents = False
maar toch blijft tijdens het Resetten de macro bepaalde Subs uitvoeren (zoals een _Click event van een checkbox).
Enig idee?
ten eerste sorry voor mijn late reactie. Sortering kan echt niet. Dit komt doordat ik een lijst heb met 60.000 rijen die op een vrij ingewikkelde manier wordt gesorteerd. De verschillende manier van sortering die in de query zijn toegepast is heel lastig na te bouwen. Wanneer er een sortering plaatsvindt raak ik de originele sortering kwijt. Ik heb het voorbeeld even uitgebreid:quote:Op maandag 27 april 2009 09:36 schreef qu63 het volgende:
[..]
Wat is dan de logica achter de volgorde die je wilt hebben? Als er geen logica (A-Z, Z-A, lang-kort, kort-lang, etc) in zit, dan kan je ook niet echt een algoritme maken..
En mijn oplossing was op basis van wat je vertelde, dus als je meer verteld kunnen we er meer mee
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 | Naam team KL_oud KL_nieuw IsEerste isLaatste AA 1 4 - Ja Nee AA 2 5 - Nee Nee AA 3 6 - Nee Nee AA 4 8 - Nee Nee AA 5 7 - Nee Nee AA 6 7 - Nee Ja BB 1 1 - Ja Nee BB 2 1 - Nee Nee BB 3 2 - Nee Nee BB 4 2 - Nee Nee BB 5 3 - Nee Nee BB 6 3 - Nee Ja TABEL FOUTE WAARDEN Naam team KL_oud KL_nieuw IsEerste isLaatste AA 1 4 4 Ja Nee AA 2 5 5 Nee Nee AA 3 6 6 Nee Nee AA 4 8 7 Nee Nee AA 5 7 7 Nee Nee AA 6 7 8 Nee Ja BB 1 1 1 Ja Nee BB 2 1 1 Nee Nee BB 3 2 2 Nee Nee BB 4 2 2 Nee Nee BB 5 3 3 Nee Nee BB 6 3 3 Nee Ja |
Het zijn er nogal veelquote:Op maandag 27 april 2009 20:04 schreef Joooo-pi het volgende:
[..]
Misschien kun je de checkboxes disabled zetten na/tijdens de reset?
Heb je hier wat aan?quote:Op dinsdag 28 april 2009 13:28 schreef DaFan het volgende:
[..]
Het zijn er nogal veel :r
Of ik moet even loopen door alle objects die Checkboxes zijn (ze moeten ook allemaal weer op False). Heb jij nog enig idee hoe dat gaat, dat is nooit mijn sterkste punt geweest.
1 2 3 4 5 6 7 8 9 10 11 12 | Dim i As Object For Each i In Me.OLEObjects If Left(i.Name, 8) = "CheckBox" Then i.Enabled = False End If Next End Sub |
SPOILEROm spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.heitieh
heb je dit nodig voor die consultancy baan van je?quote:Op woensdag 29 april 2009 15:13 schreef I.R.Baboon het volgende:
Het is misschien een klassieke excel-vraag, maar ik kom er net niet helemaal uit. Om de juiste waarde in een cel te krijgen gebruik ik een VLOOKUP naar een vaste 'referentietabel' die voor meerdere sheets gebruikt wordt. =VLOOKUP($B8;Tabellen!$A$3:$C$15;3;F). Dit werkt, maar nu is mijn excelsheet wat dynamischer geworden, en wil ik niet langer per se de derde kolom hebben, maar de kolom met hetzelfde jaartal als dat boven de kolom in mijn doeldocument staat. Het lijkt me dus dat ik er ook een horizontale lookup in moet verwerken, maar dan krijg ik er een waarde uit, terwijl ik alleen maar een kolomindex wil.
Vraag 1: ben ik duidelijk?
Vraag 2: hoe kunnen we dit oplossen, lieve fokkertjes?
Formules > VBAquote:Op woensdag 29 april 2009 15:31 schreef TubewayDigital het volgende:
[..]
heb je dit nodig voor die consultancy baan van je?
kan je niet direct helpen (hele commando VLOOKUP zie ik voor het eerst) maar kan je het gewoon niet programmeren in Visual Basic?
Ik ben tegenwoordig ambtenaar, dus nee . (Maar ja, wel werkgerelateerd)quote:Op woensdag 29 april 2009 15:31 schreef TubewayDigital het volgende:
[..]
heb je dit nodig voor die consultancy baan van je?
En VBA is niet overal toegestaan, of je zit contstant te klooien met meldingen.. Ik doe het echt liever zonder macro's.. Dan maar een veel te lange formulequote:Op woensdag 29 april 2009 15:39 schreef DaFan het volgende:
[..]
Formules > VBA
VBA vergt veel te veel werk voor dit soort simpele dingen. Kan gewoon in een formule dus waarom niet.
stoperquote:Op woensdag 29 april 2009 15:56 schreef Beregd het volgende:
ik vind het altijd stoper als ik hele VB-codes van collega's in een excelformuletje krijg
ja dat is vet stoop, nog nooit van gehoord? Onder welke steen kom jij vandaan gekropenquote:
stoop, doe normaal kerelquote:Op woensdag 29 april 2009 17:26 schreef Deetch het volgende:
[..]
ja dat is vet stoop, nog nooit van gehoord? Onder welke steen kom jij vandaan gekropen
quote:Op woensdag 29 april 2009 17:26 schreef Deetch het volgende:
[..]
ja dat is vet stoop, nog nooit van gehoord? Onder welke steen kom jij vandaan gekropen
Een pull-down-menu vind je in "werkset besturingselementen" (te vinden in menu "beeld" --> "werkbalken"), maar ik weet niet of een "beginneling" (no offence!) daarmee moet gaan werken. Reden is dat je em moet vullen en acties moet zetten achter het selecteren van opties. Dat wordt volgens mij allemaal wat ingewikkelder.quote:Op zaterdag 2 mei 2009 11:11 schreef Summerscreen het volgende:
Ik ben een beginneling met Excel en wil graag zo'n scrollmenuutje maken. Dus dat je niet een hele lijst krijgt met 100 cellen naar beneden, maar stuk of 10-20 cellen, waarin je kan scrollen.
Kan iemand me op weg helpen?
Ik heb een lange lijst met gegevens:quote:Op zaterdag 2 mei 2009 15:43 schreef Joooo-pi het volgende:
[..]
Een pull-down-menu vind je in "werkset besturingselementen" (te vinden in menu "beeld" --> "werkbalken"), maar ik weet niet of een "beginneling" (no offence!) daarmee moet gaan werken. Reden is dat je em moet vullen en acties moet zetten achter het selecteren van opties. Dat wordt volgens mij allemaal wat ingewikkelder.
Wat wil je precies? Want misschien is er een andere mogelijkheid...
Vermoedelijk wil je de "autofilter". Dan krijg je automatisch de pull-down menu's bovenaan. Te vinden in menu "data" --> "Filter" --> "Autofilter"quote:Op zaterdag 2 mei 2009 21:08 schreef Summerscreen het volgende:
[..]
Ik heb een lange lijst met gegevens:
*nummer* *onderwerp* *prijs* *naam*
*nummer* *onderwerp* *prijs* *naam*
*nummer* *onderwerp* *prijs* *naam*
etc..
*Totaal* *Totaal* *Totaal* *Totaal*
Aangezien dat een beetje veel wordt (+50) dacht ik een scrollmenu is wel handig (zoals deze quickreplybox, dan blijft alles overzichtelijk)
Wel bij vervangen (in word), zie screenshot. Sorry voor de oude rotzooi op mijn comp.quote:Op zondag 3 mei 2009 12:53 schreef nicolasvermeersch het volgende:
Niet echt een Excel vraagje, eerder een algemene Office vraag. Ik wil graag alle letters E selecteren en deze in een ander kleurtje zetten. Zoeken en vervangen blijkt niet te werken voor zulke opdrachten.
Office 2007 doet dat ookquote:Op zondag 3 mei 2009 13:57 schreef Joooo-pi het volgende:
[..]
Wel bij vervangen (in word), zie screenshot. Sorry voor de oude rotzooi op mijn comp.
(maar werkt wel allemaal )
[ afbeelding ]
1 2 3 4 5 | 1 Jaap 1 2 Mies 2,4 3 Jan 3 4 Kees 5,6,7 |
1 |
Sweet!quote:Op zondag 3 mei 2009 17:01 schreef DaFan het volgende:
Als C1:C5 de factuurnummers bevatten en A8 bevat het te zoeken factuurnummer:
=IF(SUM(IF(ISERROR(SEARCH(A8,C2:C5)),,1))=1,"Is betaald","Is niet betaald")
Mooie formules hier trouwens:
http://www.emailoffice.com/excel/arrays-bobumlas.html
1 |
1 |
wilde net zeggen idd dat ie niet helemaal werktequote:Op zondag 3 mei 2009 17:16 schreef DaFan het volgende:
Maar wacht.
De factuurnummers daar zijn niét betaald begrijp ik? Want dat heb je er niet bij staan.
Anyhow:
[ code verwijderd ]
Geen array.
Je kan m zelf wel aanpassen neem ik aan.
ahquote:Op zondag 3 mei 2009 17:27 schreef DaFan het volgende:
Kan geen credit voor deze formule nemen:
http://www.mrexcel.com/forum/showthread.php?p=1597483#post1597483
5e post. Verklaring staat even later.
1 |
Die code voldoet idd wel, alleen vind ie dus niks als ze wel betaald hebben, en dat was een extra eis die ik niet op had geschrevenquote:Op zondag 3 mei 2009 17:34 schreef DaFan het volgende:
Dan haal je de IF(ISERROR( weg, dna krijg je de naam zelf en dus de code die ervoorstaat ook.
Als je $B$2:$B$5 vervangt met A1:A5 bv, krijg je de nummers die erbij horen.
Bedoel je het zo?
[ code verwijderd ]
Zou dat dan ook werken met het bestand wat je geopend hebt? Ik wil namelijk in een document neerzetten wanneer het gemaakt is..quote:Op zondag 3 mei 2009 17:55 schreef DaFan het volgende:
Kan niet in formules afaik, in VBA zit DateCreated als method voor een file.
Zie:
http://www.vbforums.com/showpost.php?s=efbed585fc5e101035ff86f07d02eec8&p=2547696&postcount=2
Ik heb een hekel aan macro's, ik snap ze (bijna) nooitquote:
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |