DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
haha nee zo bedoel ik het niet. Er moet als het aantal 12 ingevuld wordt bij het orderwerkblad dus 12 rijen/regels komen te staan met de code van het item...Zodat de magazijnmedewerker het dus kan afstrepen
Ja dat snap ik, maar als hij iets toevoegt in het Orderwerkblad kan hij dat bevestigen met een knop. Is een stuk makkelijker in ieder geval.
Ik ben er mee bezig, daarna moet je maar even zien hoe je de uitkomst vindt. (zal wel plaatjes maken).
Ben ook 2 pokertoernooien aan het spelen dus kan even duren
Ik ben er mee bezig, daarna moet je maar even zien hoe je de uitkomst vindt. (zal wel plaatjes maken).
Ben ook 2 pokertoernooien aan het spelen dus kan even duren
Oké ik begrijp niet helemaal wat je bedoelt met een knop... Maar ik wacht met smart op je uitkomst:)
Ik heb de tijd dus doe rustig aan, en succes met je toernooien haha
Ik heb de tijd dus doe rustig aan, en succes met je toernooien haha
Ok.
Zo ziet je eerste sheet eruit (heet hier "Order").
De knop kan je toevoegen via de Control werkbalk.
Je 2e sheet ziet er als volgt uit ("Magazijn")
Ga nu terug naar Order en dubbelklik op de knop, zodat je naar de Visual Basic editor gaat. Je ziet dan het volgende:
Plak dit hier tussen (op regel 2 in dit geval).
Als je nu de knop indrukt ziet je 2e sheet er als volgt uit:
Hoop dat dit een beetje in de richting komt van wat je wil
Zo ziet je eerste sheet eruit (heet hier "Order").
De knop kan je toevoegen via de Control werkbalk.
Je 2e sheet ziet er als volgt uit ("Magazijn")
Ga nu terug naar Order en dubbelklik op de knop, zodat je naar de Visual Basic editor gaat. Je ziet dan het volgende:
| 1 2 3 | End Sub |
Plak dit hier tussen (op regel 2 in dit geval).
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | LastRowOrder = .Range("C65536").End(xlUp).Row Aantal = .Range("C" & LastRowOrder).Value Itemnr = .Range("A" & LastRowOrder).Value Stuknr = .Range("B" & LastRowOrder).Value End With With Sheets("Magazijn") LastRowMagazijn = .Range("A65536").End(xlUp).Row + 1 For i = LastRowMagazijn To LastRowMagazijn + Aantal .Range("A" & i).Value = Itemnr & "." & Stuknr & "." & Aantal .Range("B" & i).Value = 1 Next i End With |
Als je nu de knop indrukt ziet je 2e sheet er als volgt uit:
Hoop dat dit een beetje in de richting komt van wat je wil
Nog even terugkomen op jouw vraag, zie:quote:Op vrijdag 4 juli 2008 10:55 schreef Xith het volgende:
[..]
Maar de punten die ik wil 'verbergen' uit de grafiek zijn !VERW (verwijzing fout), ook met zo'n folmule:
=ALS(B27="#VERW!";"#N/A";B27)
Wilt het niet want zijn leest B27 niet als '#VERW!' maar als een formule, geloof ik...
Wat kan ik doen?
http://peltiertech.com/WordPress/2008/05/14/dynamic-charts/
Het enige is dat je Quarter 2/3/4 niet kan zien als ze niet ingevuld zijn...weet niet zeker of je dat ook wil maar anders moet je hier maar eens kijken:
http://www.peltiertech.com/Excel/Charts/index.html
Al geven wel alle grote Excel fora aan dat je #N/A moet gebruiken om ze niet te laten plotten.
[ Bericht 2% gewijzigd door DaFan op 07-07-2008 13:18:05 ]
Ik hoor het graag!quote:Op maandag 7 juli 2008 13:00 schreef ArjenD11 het volgende:
Super! bedankt man, ik ga het verwerken en hoop dat ze blij met mij zijn...
Kijk ook even of je BEGRIJPT wat er gebeurt in de code. Dan ga je er al een heel stuk op vooruit en kan je ze over een tijdje zelf maken
DaFan,
Nog een vraagje: hoe kom het dat hij dan 13 keer een nieuwe regel maakt en niet 12? of hoe pas ik dit aan?
Nog een vraagje: hoe kom het dat hij dan 13 keer een nieuwe regel maakt en niet 12? of hoe pas ik dit aan?
Verander
naar
| 1 2 3 | For i = LastRowMagazijn To LastRowMagazijn + Aantal |
naar
| 1 2 3 | For i = LastRowMagazijn +1 To LastRowMagazijn + Aantal |
Nou het splitsen dmv " " ging erg goed. Met Word kon ik een hele hoop zoeken/vervangen en daarmee dus " " toevoegen. Daarna kon het heel gemakkelijk met 'text to columns' en dan 'delimited', selecteren dmv 'space' en " " en het was klaar! 
Nu heb ik een volgend ding waar ik naar opzoek ben.
Mijn database bestaat uit 70 namen. Deze namen komen meerdere keren voor, dus bijvoorbeeld Jansen is rij 1 tm 9, De Vries is rij 10 tm 14 en Balkenende is rij 15 tm 16.
Voor de overzichtelijkheid heb ik gebruik gemaakt van 2 kleuren, blauw en lichtblauw, en 'fill' ik dus de cel met deze kleur. Deze kleuren wisselen elkaar af dus in het voorbeeld is Jansen blauw, De Vries lichtblauw en Balkenende dan weer blauw. Zo kan ik in 1 oogopslag zien welke velden bij welke namen horen.
Nu kan ik dit allemaal handmatig doen (en heb ik dus ook gedaan), alleen is het lastig wanneer ik dmv mn eerste sheet (data entry) een nieuwe naam, of een extra rij voor een bestaande naam invul. Deze wordt namelijk gewoon wit.
Is het mogelijk om:
1) Excel te laten kijken of de naam die erbij wordt gevoegd al bestaat, en dan de gehele rij de kleur te geven van de naam, als deze bestaat?
2) Bij een nieuwe naam, te kijken wat de laatste kleur was, en dan de andere kleur te gebruiken? Dus bijvoorbeeld wanneer de laatste kleur blauw was, dat de nieuwe naam dan lichtblauw wordt?
Na wat zoeken op internet kwam ik al op deze site deze geeft elke andere cel een bepaalde kleur. Is niet toereikend voor wat ik wil.
Verder heb ik al gekeken naar 'Conditional Formatting' alleen kon ik er niet de opties uit vinden die ik wilde...
Nu heb ik een volgend ding waar ik naar opzoek ben.
Mijn database bestaat uit 70 namen. Deze namen komen meerdere keren voor, dus bijvoorbeeld Jansen is rij 1 tm 9, De Vries is rij 10 tm 14 en Balkenende is rij 15 tm 16.
Voor de overzichtelijkheid heb ik gebruik gemaakt van 2 kleuren, blauw en lichtblauw, en 'fill' ik dus de cel met deze kleur. Deze kleuren wisselen elkaar af dus in het voorbeeld is Jansen blauw, De Vries lichtblauw en Balkenende dan weer blauw. Zo kan ik in 1 oogopslag zien welke velden bij welke namen horen.
Nu kan ik dit allemaal handmatig doen (en heb ik dus ook gedaan), alleen is het lastig wanneer ik dmv mn eerste sheet (data entry) een nieuwe naam, of een extra rij voor een bestaande naam invul. Deze wordt namelijk gewoon wit.
Is het mogelijk om:
1) Excel te laten kijken of de naam die erbij wordt gevoegd al bestaat, en dan de gehele rij de kleur te geven van de naam, als deze bestaat?
2) Bij een nieuwe naam, te kijken wat de laatste kleur was, en dan de andere kleur te gebruiken? Dus bijvoorbeeld wanneer de laatste kleur blauw was, dat de nieuwe naam dan lichtblauw wordt?
Na wat zoeken op internet kwam ik al op deze site deze geeft elke andere cel een bepaalde kleur. Is niet toereikend voor wat ik wil.
Verder heb ik al gekeken naar 'Conditional Formatting' alleen kon ik er niet de opties uit vinden die ik wilde...
1), ja dat heet "voorwaardelijke opmaak", kijk ff in de help hoe 't precies werkt (er is iig erg veel mogelijk)
Op maandag 30 november 2009 19:30 schreef Ian_Nick het volgende:
Pietje's hobby is puzzelen en misschien ben jij wel het laatste stukje O+
Pietje's hobby is puzzelen en misschien ben jij wel het laatste stukje O+
Voorwaardelijke opmaak gaat echt niet werken, dan zit je a) na 3 namen al tegen de limiet van condities aan, en b) kan je met geen mogelijkheid kijken wat de 'vorige' kleur was.
BK: Hoe zijn de cellen ingedeeld? Zoals ik het nu begrijp is het álleen kolom A en moet de hele rij lichtblauw worden met naam A, en zodra naam B erbij komt moet deze blauw worden?
Maw kan je toelichten hoe je data eruitziet?
BK: Hoe zijn de cellen ingedeeld? Zoals ik het nu begrijp is het álleen kolom A en moet de hele rij lichtblauw worden met naam A, en zodra naam B erbij komt moet deze blauw worden?
Maw kan je toelichten hoe je data eruitziet?
ik heb even een klein screenshotje gemaakt:
Dus wanneer ik nu als naam DaFan toevoeg, wil ik dus dat die blauw wordt. En PietjePuk007 moet daarna weer lichtblauw worden.
Voeg ik weer Gullit toe, dan wil ik dan hij weer blauw wordt (en als het automatisch kan, dmv sort ook bij de andere gullit gaat staan, maar dat lijkt me geen probleem).
[ Bericht 16% gewijzigd door BierKoning op 09-07-2008 11:14:43 ]
Dus wanneer ik nu als naam DaFan toevoeg, wil ik dus dat die blauw wordt. En PietjePuk007 moet daarna weer lichtblauw worden
. Voeg ik weer Gullit toe, dan wil ik dan hij weer blauw wordt (en als het automatisch kan, dmv sort ook bij de andere gullit gaat staan, maar dat lijkt me geen probleem).
[ Bericht 16% gewijzigd door BierKoning op 09-07-2008 11:14:43 ]
Bierkoning, beter host je je screen op tinypic.com.
Anyway, je moet je de voorwaardelijke opmaak voor oneven rijen de voorwaarde =IS.ONEVEN(RIJ()) opgeven en dan de gewenste kleur eraan koppelen. En =IS.EVEN(RIJ()) voor de even rijen.
edit: Ah ja, na het toevoegen van nieuwe rijen moet je wel de voorwaardelijke opmaak even handmatig toepassen.
Anyway, je moet je de voorwaardelijke opmaak voor oneven rijen de voorwaarde =IS.ONEVEN(RIJ()) opgeven en dan de gewenste kleur eraan koppelen. En =IS.EVEN(RIJ()) voor de even rijen.
edit: Ah ja, na het toevoegen van nieuwe rijen moet je wel de voorwaardelijke opmaak even handmatig toepassen.
| 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 c As Range Dim ColumnTarget, InteriorColor As Integer Dim Kleur As Long ColumnTarget = Target.Column Kleur = 31 If ColumnTarget = 1 Then For Each c In Range("A:A") If c.Row = 1 Then Naam = c.Value c.EntireRow.Interior.ColorIndex = Kleur End If If c.Value = "" Then Exit Sub If c.Value = Naam Then c.EntireRow.Interior.ColorIndex = Kleur Else If Kleur = 31 Then Kleur = 37 Else Kleur = 31 End If c.EntireRow.Interior.ColorIndex = Kleur Naam = c.Value End If Next End If End Sub |
Dit gaat ervanuit dat alle namen in kolom A staan en beginnen in A1 ! Als ze op een andere kolom op rij 1 beginnen, moet je de 1 (If ColumnTarget = 1 Then) veranderen naar de hoeveelste kolom het is (b=2, z =26).
Als je namen ook nog op een andere rij beginnen hoor ik het wel dan bouw ik daarvoor iets om (nu gaat hij bijvoorbeeld ook de header kleuren).
Edit: Doh vergeet ik dat de hele rij die kleur moet worden
Edit2: opgelost
Dat verplaatsen naar de plaats waar die naam al voorkomt komt later, ben nu even bezig!
Edit DREI:
Je kan de kleuren ook aanpassen als je wil. Met 2007 werken ze ook met shades en tinten enzo, hoe je dat precies moet toevoegen weet ik niet meer 31 en 37 zien er wel aardig uit. Als je een lijstje wil van de mogelijke kleuren, maak dan kort deze sub onder bv een button. Kleuren in kolom D, nummers in kolom E. Pas 31 en 37 aan zoals je zelf wil.
| 1 2 3 4 | Range("D" & i).Interior.ColorIndex = i Range("E" & i).Value = i Next i |
[ Bericht 4% gewijzigd door DaFan op 09-07-2008 11:29:40 ]
Nope, alleen kolom A bevat een naam. De rest is slechts bijbehorende data (zoals nu wel te zien is in de screenshot)
Dat tussenvoegen van een naam als hij al voorkomt gaat niet lukken. Niet vandaag in ieder geval, sorry
Neem gewoon een macro op met hoe jij wil sorteren en voeg die toe aan mijn code dan.
Werkt de code voor je trouwens?
Werkt de code voor je trouwens?
Ik snap het niet, hoe krijg ik dit goed aan de praat?
- Ik ga naar sheet2 van mn workbook.
- Op de tab, rechtermuisknop, code
- Daar past ik jou code
- ik druk op run
Alleen dan wilt ie dat ik hem een naam geef en weer ergens anders past, en daar krijg ik hem niet aan de praat
- Ik ga naar sheet2 van mn workbook.
- Op de tab, rechtermuisknop, code
- Daar past ik jou code
- ik druk op run
Alleen dan wilt ie dat ik hem een naam geef en weer ergens anders past, en daar krijg ik hem niet aan de praat
Nou hij doet bij mij niks. Als ik bij de code van sheet 2 ben, en hem past, vraagt hij om een naam voor de macro 
-edit-
Wanneer ik hem dan een naam geef, wilt hij weer een compleet nieuwe code, nouja en zo gaat het dan steeds verder
-edit-
Wanneer ik hem dan een naam geef, wilt hij weer een compleet nieuwe code, nouja en zo gaat het dan steeds verder
Hopelijk dat een van jullie me kan helpen. Ik ben al een tijdje aan het zoeken.
Ik haal met VBA/Excel gegevens uit een database en verwerk die in de sheet. Bij het opstarten van de excel, vraagt hij meteen gegevens die hij weer als parameters gebruikt bij het ophalen van zijn gegeven. Zover gaat alles goed.
Nu wil ik dat sheet opslaan, om daarna te publiceren. Dit lukt op zich wel, alleen als ik die kopie open, vraagt hij meteen weer om die parameters. Is er een manier, om de sheet op te slaan, zonder dat hij de macro ook opslaat?
Hier het code deel voor het opslaan:
Ik haal met VBA/Excel gegevens uit een database en verwerk die in de sheet. Bij het opstarten van de excel, vraagt hij meteen gegevens die hij weer als parameters gebruikt bij het ophalen van zijn gegeven. Zover gaat alles goed.
Nu wil ik dat sheet opslaan, om daarna te publiceren. Dit lukt op zich wel, alleen als ik die kopie open, vraagt hij meteen weer om die parameters. Is er een manier, om de sheet op te slaan, zonder dat hij de macro ook opslaat?
Hier het code deel voor het opslaan:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Dim FileName As String Dim Tijd As String Tijd = Replace(Time, ":", ".") FileName = "C:\Ecel\Overzicht (" & Date & " " & Tijd & ").xls" If MsgBox("Wil je het document opslaan als: " & FileName & "?", vbQuestion + vbOKCancel, "Opslaan?") <> vbOK Then Exit Sub End If Activesheet.SaveAs FileName:=FileName End Sub |
