[Excel] Het grote Excel-vragentopic #6

donderdag 3 juli 2008 @ 12:38:20 #76

DaFan

Ja A1 is de cel waar je de informatie uithaalt, tis vrij lastig om een hele kolom elke keer aan te passen (het is te doen, kan wel voor je maken maar ben nu druk). Welke kolom komt de informatie in?

Waar komt de informatie vandaan dat je geen hulpkolom kan gebruiken? Je kan natuurlijk kolom IV (bv) gebruiken om je originele informatie in te plakken en dan de kolom waar je het 'goede' kenteken in wilt deze formule in zet.

Bij mn andere vraag bedoelde ik meer anders, hoe kan iemand het verschil herkennen tussen 11bbcc en 11bbb2? Is het ALTIJD 2 cijfers, 3 letters, 1 cijfer? De uiteindelijke opmaak is een fluitje van een cent, maar het gaat om de originele string hoe je daarbij kan onderscheiden of hij oud of nieuw is.

donderdag 3 juli 2008 @ 13:32:39 #77

ManAtWork

Maar nu even niet,...

Het is een invulblad waarbij cel D18 gevuld moet worden met een kenteken.
En om nu twee cellen te gaan gebruiken voor het kenteken,... gaat bij de gebruikers denk ik leiden tot verwarring.

Ik snap je vraag over het kenteken niet helemaal. Het kenteken van een auto bestaat uit de combi 2-2-2 of 2-3-1. Waarbij de combi 2-2-2 kan bestaan uit AA-BB-11, 11-AA-BB of AA-11-BB.
De combi 2-3-1 bestaat (voorlopig) alleen nog uit 11-AAA-2. Het kenteken is simpelweg af te lezen van de gele platen op de auto (of het kentekenbewijs).

Ondertussen heb ik deze macro gevonden/aangepast.

1
2
3
4
5
6

Sub Notatie_Veranderen()
Dim C As Range
For Each C In Selection
C.Offset(0, 0) = Format(UCase(C), "&&-&&-&&")
Next
End Sub

Nu moet er na het invullen van de cel (na het geven van een ENTER dus) een automatische controle komen op de geldigheid van het kenteken. En als het mogelijk is moet het verschil tussen de combi 2-2-2 en 2-3-1 automatisch worden aangebracht.

[ Bericht 41% gewijzigd door ManAtWork op 03-07-2008 13:57:20 (toevoeging macro) ]

Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.

donderdag 3 juli 2008 @ 14:44:41 #78

DaFan

Zo dan maar. Druk Alt-F11, kies in de linkerdropdown bovenaan Worksheet, dan rechts Change en plak dit in de sub:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

If Range("D18").Value <> Range("AL1").Value Then
    Kenteken = Range("D18").Value

    If Len(Kenteken) <> 6 Then
        MsgBox "Geen geldig kenteken ingegeven", vbOKOnly, "Fout!"
        Range("D18").Value = ""
        Exit Sub
    End If

    If IsNumeric(Right(Kenteken, 1)) = True And IsNumeric(Right(Kenteken, 2)) = False Then
        Kenteken = Format(UCase(Kenteken), "&&-&&&-&")
        Range("D18").Value = Kenteken
    Else
        Kenteken = Format(UCase(Kenteken), "&&-&&-&&")
        Range("D18").Value = Kenteken
    End If

    Range("AL1").Value = Range("D18").Value
End If

De enige 'test' die ik heb op 'geldigheid' is een lengte van 6 karakters trouwens. Als jij nog andere hebt hoor ik het wel

AL1 is een hulpcel trouwens, uit het zicht. Als je er toch last van hebt kies dan een van de andere 16 miljoen+ cellen en pas dit aan in de code.

donderdag 3 juli 2008 @ 16:07:44 #79

ManAtWork

Maar nu even niet,...

Check! Dit werkt.
Is het ook nog mogelijk dat de macro automatisch wordt uitgevoerd nadat er op ENTER is gedrukt bij het invullen van D18? Of vraag ik nu teveel?

Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.

donderdag 3 juli 2008 @ 17:06:52 #80

Xith

Hoe krijg ik de grafiek zover dat de parameters met geen informatie (quarter 2,3,4) zich niet laten zien (dus dat de grafieklijn stopt na Quarter 1). De 3 quarters moeten wel bij de brongegevens blijven!

donderdag 3 juli 2008 @ 23:24:09 #81

DaFan

quote:
Op donderdag 3 juli 2008 16:07 schreef ManAtWork het volgende:
Check! Dit werkt.
Is het ook nog mogelijk dat de macro automatisch wordt uitgevoerd nadat er op ENTER is gedrukt bij het invullen van D18? Of vraag ik nu teveel?

Dat zou al moeten gebeuren als ie in je Worksheet_change event staat.

Edit: Ik heb me iets te snel er vanaf gemaakt

Probleem nu is dat hij wéér het event gaat uitvoeren als Range("D18") gevuld wordt (niet zo verwonderlijk). Ik kom er nu niet uit hoe ik het kan omzeilen sorry. Kan je er niet gewoon een ActiveX knop naast maken die ingedrukt moet worden als het kenteken omgezet moet worden?

Je code wordt dan ook een stuk korter:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Private Sub CommandButton1_Click()

    Kenteken = Range("D18").Value

    If IsNumeric(Right(Kenteken, 1)) = True And IsNumeric(Right(Kenteken, 2)) = False Then
        Kenteken = Format(UCase(Kenteken), "&&-&&&-&")
        Range("D18").Value = Kenteken
    Else
        Kenteken = Format(UCase(Kenteken), "&&-&&-&&")
        Range("D18").Value = Kenteken
    End If

    Range("AL1").Value = Range("D18").Value

End Sub

Er wordt niet getest op geldigheid. Als je bijvoorbeeld '5' invult wordt dat '--5' , een 'p' wordt '--p'.

[ Bericht 66% gewijzigd door DaFan op 04-07-2008 00:52:18 ]

vrijdag 4 juli 2008 @ 08:19:33 #82

ralfie

!Yvan eht nioj

quote:
Op donderdag 3 juli 2008 23:24 schreef DaFan het volgende:

[..]

Dat zou al moeten gebeuren als ie in je Worksheet_change event staat.

Edit: Ik heb me iets te snel er vanaf gemaakt Probleem nu is dat hij wéér het event gaat uitvoeren als Range("D18") gevuld wordt (niet zo verwonderlijk).

application.enableEvents op false zetten aan het begin van je subje, dan weer op true aan het eind

vrijdag 4 juli 2008 @ 08:29:50 #83

Deetch

WTF?

quote:
Op donderdag 3 juli 2008 17:06 schreef Xith het volgende:
[ afbeelding ]

Hoe krijg ik de grafiek zover dat de parameters met geen informatie (quarter 2,3,4) zich niet laten zien (dus dat de grafieklijn stopt na Quarter 1). De 3 quarters moeten wel bij de brongegevens blijven!

Een derde kolom maken met de volgende functie: =IF(B2>0,B2,#N/A) Hierbij uitgaande dat in B2 de absenten staan.

Vervolgens de derde kolom gebruiken om de grafiek te maken.

Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten

vrijdag 4 juli 2008 @ 09:18:12 #84

ManAtWork

Maar nu even niet,...

quote:
Op vrijdag 4 juli 2008 08:19 schreef ralfie het volgende:

[..]

application.enableEvents op false zetten aan het begin van je subje, dan weer op true aan het eind

Dit werkt super. Behalve als er een fout kenteken (lees: geen 6 posities) is ingevuld. Na het invullen van een correct nummer wordt dit niet meer omgezet.
Dit is wat ik er nu heb staan.

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

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Application.EnableEvents = False

If Range("D18").Value <> Range("AL1").Value Then
    kenteken = Range("D18").Value

    If Len(kenteken) <> 6 Then
        MsgBox "Geen geldig kenteken ingegeven", vbOKOnly, "Fout!"
        Range("D18").Value = ""
        Exit Sub
    End If

    If IsNumeric(Right(kenteken, 1)) = True And IsNumeric(Right(kenteken, 2)) = False Then
        kenteken = Format(UCase(kenteken), "&&-&&&-&")
        Range("D18").Value = kenteken
    Else
        kenteken = Format(UCase(kenteken), "&&-&&-&&")
        Range("D18").Value = kenteken
    End If

    Range("AL1").Value = Range("D18").Value
End If

Application.EnableEvents = True

End Sub

_{(Wordt toch eens tijd om me hier verder in te verdiepen,... )}

Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.

vrijdag 4 juli 2008 @ 10:55:30 #85

Xith

quote:
Op vrijdag 4 juli 2008 08:29 schreef Deetch het volgende:

[..]

Een derde kolom maken met de volgende functie: =IF(B2>0,B2,#N/A) Hierbij uitgaande dat in B2 de absenten staan.

Vervolgens de derde kolom gebruiken om de grafiek te maken.

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?

vrijdag 4 juli 2008 @ 17:35:19 #86

ralfie

!Yvan eht nioj

quote:
Op vrijdag 4 juli 2008 09:18 schreef ManAtWork het volgende:

[..]

Dit werkt super. Behalve als er een fout kenteken (lees: geen 6 posities) is ingevuld. Na het invullen van een correct nummer wordt dit niet meer omgezet.
Dit is wat ik er nu heb staan.
[ code verwijderd ]

_{(Wordt toch eens tijd om me hier verder in te verdiepen,... )}

ja dat is logisch, wanneer er een fout is doe je exit sub waardoor de enableEvents=true niet meer wordt uitgevoerd. Dus datzo even daarvoor zetten he

vrijdag 4 juli 2008 @ 18:37:13 #87

ManAtWork

Maar nu even niet,...

quote:
Op vrijdag 4 juli 2008 17:35 schreef ralfie het volgende:

[..]

ja dat is logisch, wanneer er een fout is doe je exit sub waardoor de enableEvents=true niet meer wordt uitgevoerd. Dus datzo even daarvoor zetten he

edit: Laat maar. Heb het al voor elkaar. (Even rustig nadenken levert ook resultaat.

)

Voor iedereen die mee heeft willen denken: mijn dank!

[ Bericht 13% gewijzigd door ManAtWork op 05-07-2008 19:34:05 (Eigen vraag opgelost) ]

Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.

maandag 7 juli 2008 @ 10:48:25 #88

BierKoning

Bier 4 Ever!!

Hoe kan ik data in 1 cell splitsen naar meerdere cellen?

Ik heb bijvoorbeeld de volgende data:

1	EN 287-1 141 T BW 6 S t3.6 D38 PC ss nb 1

Waarvan ik de data binnen de " " (zie hieronder) wil splitsen naar verschillende cellen.

1	"EN 287-1" "141" "T BW" "6" "S" "t3.6" "D38" "PC" "ss nb" "1"

Niet elke code is gelijk aan elkaar, dus het kan ook zijn dat de "141" van hierboven, ook soms ".../141" heet. Dus ik kan niet splitsen op basis van aantallen tekens, alleen op het feit dat alle " " in een andere cel wordt geplaatst.

Ik stem voor alcohol als 5e voedselgroep.

maandag 7 juli 2008 @ 10:51:25 #89

PietjePuk007

crisismod

Kan je met "alles vervangen" de "/" niet weghalen en dan alsnog op posities scheiden?

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+

maandag 7 juli 2008 @ 11:05:32 #90

Neemmijnietserieus

quote:
Op maandag 7 juli 2008 10:48 schreef BierKoning het volgende:
Hoe kan ik data in 1 cell splitsen naar meerdere cellen?

Ik heb bijvoorbeeld de volgende data:
[ code verwijderd ]

Waarvan ik de data binnen de " " (zie hieronder) wil splitsen naar verschillende cellen.
[ code verwijderd ]

Niet elke code is gelijk aan elkaar, dus het kan ook zijn dat de "141" van hierboven, ook soms ".../141" heet. Dus ik kan niet splitsen op basis van aantallen tekens, alleen op het feit dat alle " " in een andere cel wordt geplaatst.

Je kunt op basis van een bepaalde inhoud van een cel elders een uitkomst genereren. Op basis van die inhoud kun je weer verder. Dus als er een "/" in voorkomt geef je een 0, anders een 1. Dan pas, op basis van die 0 of 1, die tussenstap, doorgaan.

maandag 7 juli 2008 @ 11:11:30 #91

DaFan

BierKoning is die lengte van de string altijd hetzelfde, afgezien van die 141 of /141?

maandag 7 juli 2008 @ 11:19:28 #92

BierKoning

Bier 4 Ever!!

quote:
Op maandag 7 juli 2008 10:51 schreef PietjePuk007 het volgende:
Kan je met "alles vervangen" de "/" niet weghalen en dan alsnog op posities scheiden?

Nee want bijvoorbeeld "T BW" of "ss nb" horen bij elkaar. Verder kan PC ook "H-L045" worden.

Ik stem voor alcohol als 5e voedselgroep.

maandag 7 juli 2008 @ 11:23:16 #93

BierKoning

Bier 4 Ever!!

quote:
Op maandag 7 juli 2008 11:11 schreef DaFan het volgende:
BierKoning is die lengte van de string altijd hetzelfde, afgezien van die 141 of /141?

Nee,

Even een kort stukje van mn uit elkaar te pluizen stukje:

1
2
3
4
5
6
7
8
9
10

EN 287-1 135 P BW 1.2 S t10 PG ss nb   1
EN 287-1 141/111 T BW 5 S / B t16(3/13) D168 H–L045 ss nb   1
EN 287-1 141 T BW 5 S t6 D51 H–L045 ss nb   1
EN 287-1 141 T BW 5 S t7 D168 H–L045 ss nb   1
EN 287-1 141 T BW 5 S t5.8 D50 H–L045 ss nb   1
EN 287-1 141 T BW 5 S t6.4 D158 H–L045 ss nb   1
EN 287-1 141 T BW 5 S t4 D38 H–L045 ss nb   2
EN 287-1 135 P BW 1.2 S t8 PF ss nb   2
EN 287-1 135/136 T BW 1.1 S / S t12(12/12) D168 PC ss nb   2
EN 287-1 .../135 T BW 1.1 ... / S t16(.../) D168 PC ss nb   2

Ik stem voor alcohol als 5e voedselgroep.

maandag 7 juli 2008 @ 11:25:02 #94

PietjePuk007

crisismod

Kan je 't niet gewoon scheiden op spatie

. Daarna moet je misschien nog bij een paar kolommen wat extra werk verrichten maar de bulk is dan al prima toch

?

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+

maandag 7 juli 2008 @ 11:28:35 #95

BierKoning

Bier 4 Ever!!

Dat zou in elk geval wel al iets zijn. Daar kan ik iig wel even naar opzoek.. alle beetjes helpen.. Wellicht gaat dat nog wel sneller dan overal handmatig " " bij zetten

Het gaat nml om een 186 rijen...

Ik stem voor alcohol als 5e voedselgroep.

maandag 7 juli 2008 @ 11:45:01 #96

DaFan

Mja dit is niet te doen, ook niet met een macro omdat je niets vasts hebt om op te scheiden. Gewoon Tekst naar kolommen doen en dan een beetje kloten met de scheidslijnen.

maandag 7 juli 2008 @ 11:47:49 #97

BierKoning

Bier 4 Ever!!

Ja ben ik nu ook al mee bezig

Een maar zo ruw mogelijke scheiding maken, bij een deel is het wel mogelijk.

Iig bedankt

Ik stem voor alcohol als 5e voedselgroep.

maandag 7 juli 2008 @ 12:05:33 #98

ArjenD11

Een vraagje door een door mij niet op te lossen Excel-probleem... Ik heb de opdracht gekregen om aan een order-werkblad een magazijnwerkblad koppelen, hiermee kan de magazijnmedewerker de verschillende artikelen in het magazijn per stuk af te strepen die hij/zij al gepakt heeft.

Het order-werkblad heeft de eerste 3 kolommen:
- 1. Itemnr. (bv. S084)
- 2. stuknr. (bv. 2)
- 3. aantal. (bv. 12)
Het magazijnblad heeft als eerste kolom de samenvoegde 3 kolommen van het order-werkblad (in het voorbeeld wordt de invulling van de cel: S084.2.12).
Daarna is het de bedoeling om alle aantalen tot 1 te vervormen, ofwel je krijgt (in het voorbeeld) 12 regels van het aantal 1. Het lukt mij niet om dit te verwerken in Excel, heeft iemand hier een oplossing voor? Of is dit überhaupt te verwezenlijken in Excel?

maandag 7 juli 2008 @ 12:07:54 #99

DaFan

Wanneer wil je dit laten gebeuren? Als in het orderwerkblad een nieuw item wordt toegevoegd?

En je wil gewoon, als er Aantal: 2 staat, dat je andere werkblad heeft:

1
1

En verder niets?

maandag 7 juli 2008 @ 12:10:09 #100

ArjenD11

Ja precies, als er in het orderwerkblad een nieuwe item wordt toegevoegd met het aantal 12, zal er in het magazijnwerkblad 12 regels met het aantal 1 komen te staan...

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

» digital corner

» software

» digital corner

» software