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.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Application.EnableEvents = False a = 1 If Not Intersect(Target, Range("A1")) Is Nothing Then If Target.Value = "" Then Target.Value = "X" Else If Target.Value = "X" Then Target.Value = "V" Else If Target.Value = "V" Then Target.Value = "NVT" Else If Target.Value = "NVT" Then Target.Value = "" End If End If End If End If Application.EnableEvents = True |
Je moet wel eerst van cel wisselen anders lukt het niet
De rest met Voorwaardelijke opmaak, zie vorige topic, daar staat een uitleg.
Hmm, op zich werkt hij maar als ik tijdens het selecteren van de cel perongeluk een andere cel selecteer loopt het script vast.. het moet noob proof zijnquote:Op woensdag 31 maart 2010 20:17 schreef DaFan het volgende:
[ code verwijderd ]
Je moet wel eerst van cel wisselen anders lukt het niet
De rest met Voorwaardelijke opmaak, zie vorige topic, daar staat een uitleg.
Mja zo danquote:Op woensdag 31 maart 2010 20:50 schreef Bill_E het volgende:
[..]
Hmm, op zich werkt hij maar als ik tijdens het selecteren van de cel perongeluk een andere cel selecteer loopt het script vast.. het moet noob proof zijn
| 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 | Application.EnableEvents = False If Not Intersect(Target, Range("A1")) Is Nothing Then With Target If .Count = 1 Then If .Value = "" Then .Value = "X" Else If .Value = "X" Then .Value = "V" Else If .Value = "V" Then .Value = "NVT" Else If .Value = "NVT" Then .Value = "" End If End If End If End If End With End If Application.EnableEvents = True End Sub |
[ Bericht 5% gewijzigd door DaFan op 01-04-2010 12:47:20 (Code opgeschoond.) ]
Hey luitjes,
probeer al een paar dagen een VBA code te maken/vinden voor het 'verstoppen' van onbelangrijke regels in mijn excelsheet.
Het gaat om het volgende: ik heb een excelmap met 3 sheets; sheet 1 waar ik aantallen en data van te verzenden stukken invul, sheet 2 met prijzen voor verzending etc, en sheet 3 met de uiteindelijke factuur.
In principe heb ik het 'excel geraamte' klaar, met op sheet 3 een voorgemaakte factuur met alle eventuele opties (snijden/verzenden 24u/48u etc).
Nu zou ik graag achter de VBA coderegel komen om de regels die uiteindelijk 0 terug genereren (bv omdat er niet gesneden hoeft te worden, dus prijs 0 euro) te 'verstoppen', zodat deze niet zichtbaar worden op de geprinte factuur.
Iemand ideeën?
Let me know als je meer info nodig hebt!
Gr.
excel 2003, NL
probeer al een paar dagen een VBA code te maken/vinden voor het 'verstoppen' van onbelangrijke regels in mijn excelsheet.
Het gaat om het volgende: ik heb een excelmap met 3 sheets; sheet 1 waar ik aantallen en data van te verzenden stukken invul, sheet 2 met prijzen voor verzending etc, en sheet 3 met de uiteindelijke factuur.
In principe heb ik het 'excel geraamte' klaar, met op sheet 3 een voorgemaakte factuur met alle eventuele opties (snijden/verzenden 24u/48u etc).
Nu zou ik graag achter de VBA coderegel komen om de regels die uiteindelijk 0 terug genereren (bv omdat er niet gesneden hoeft te worden, dus prijs 0 euro) te 'verstoppen', zodat deze niet zichtbaar worden op de geprinte factuur.
Iemand ideeën?
Let me know als je meer info nodig hebt!
Gr.
excel 2003, NL
in welke kolom staat dan de 0?
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
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
Uitgaande dat de 0 in kolom D staat kun je de volgende code gebruiken om alle regels waarbij in kolom D een nul staat te verberegn
| 1 2 3 4 5 6 7 8 9 10 11 | ' Range("D1").Select For i = 1 To 100 If ActiveCell.Offset(i, 0).Value = 0 Then ActiveCell.Offset(i, 0).Rows("1:1").EntireRow.Select Selection.EntireRow.Hidden = True End If Next i End Sub |
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
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
ipv if else if else gebruik select casequote:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Application.EnableEvents = False If Not Intersect(Target, Range("A1")) Is Nothing And Target.Count = 1 Then Select Case Target.Value Case "" Target.Value = "X" Case "x" Target.Value = "V" Case "v" Target.Value = "NVT" Case "NVT" Target.Value = "" End Select End If Application.EnableEvents = True End Sub |
(heb gewoon laatste excel (.xlsx 
) in het NL)
ik ben bezig met een voetbal poule voor het WK, maar daar wil ik naast de uitslagen automatisch een poule stand maken, zodat men kan zien welke 2 teams doorgaan naar de volgende ronde
de uitslag kolom is G & H
dus team A - team B en uitslag is dan G&H
nu heb ik 3 kolommen gemaakt voor winst / gelijk / verlies
dus ik zoek formules voor G > H of G=H of H>G waardoor er een 1 of een 0 moet verschijnen in de winst / gelijk / verlies kolommen
) in het NL)ik ben bezig met een voetbal poule voor het WK, maar daar wil ik naast de uitslagen automatisch een poule stand maken, zodat men kan zien welke 2 teams doorgaan naar de volgende ronde
de uitslag kolom is G & H
dus team A - team B en uitslag is dan G&H
nu heb ik 3 kolommen gemaakt voor winst / gelijk / verlies
dus ik zoek formules voor G > H of G=H of H>G waardoor er een 1 of een 0 moet verschijnen in de winst / gelijk / verlies kolommen
Ken je de ALS()-formule al?quote:Op vrijdag 2 april 2010 21:11 schreef icebeer het volgende:
(heb gewoon laatste excel (.xlsx
ik ben bezig met een voetbal poule voor het WK, maar daar wil ik naast de uitslagen automatisch een poule stand maken, zodat men kan zien welke 2 teams doorgaan naar de volgende ronde
de uitslag kolom is G & H
dus team A - team B en uitslag is dan G&H
nu heb ik 3 kolommen gemaakt voor winst / gelijk / verlies
dus ik zoek formules voor G > H of G=H of H>G waardoor er een 1 of een 0 moet verschijnen in de winst / gelijk / verlies kolommen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
nee ik weet eigenlijk alleen de standaard dingen van excel 
maar als iemand misschien een voorbeeld heeft of een link naar een site met uitleg ga ik wel even puzzelen
maar als iemand misschien een voorbeeld heeft of een link naar een site met uitleg ga ik wel even puzzelen
Ken je google al?quote:
nee ik weet eigenlijk alleen de standaard dingen van excel
maar als iemand misschien een voorbeeld heeft of een link naar een site met uitleg ga ik wel even puzzelen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
=als(g>h;1;0) etc.quote:Op vrijdag 2 april 2010 21:11 schreef icebeer het volgende:
(heb gewoon laatste excel (.xlsx
ik ben bezig met een voetbal poule voor het WK, maar daar wil ik naast de uitslagen automatisch een poule stand maken, zodat men kan zien welke 2 teams doorgaan naar de volgende ronde
de uitslag kolom is G & H
dus team A - team B en uitslag is dan G&H
nu heb ik 3 kolommen gemaakt voor winst / gelijk / verlies
dus ik zoek formules voor G > H of G=H of H>G waardoor er een 1 of een 0 moet verschijnen in de winst / gelijk / verlies kolommen
Ik probeer dit ook toe te passen in mijn sheet, maar krijg het niet voor elkaar.quote:Op donderdag 1 april 2010 17:08 schreef Deetch het volgende:
Uitgaande dat de 0 in kolom D staat kun je de volgende code gebruiken om alle regels waarbij in kolom D een nul staat te verberegn
[ code verwijderd ]
Betreffende kolom = F
Voorwaarde = "In zorg"
Consequentie = hide
Lijkt mij dus puur code aanpassen in:
===============================
Sub Fok()
'
Range("F1").Select
For i = 1 To 1000
If ActiveCell.Offset(i, 0).Value = "In zorg" Then
ActiveCell.Offset(i, 0).Rows("1:1").EntireRow.Select
Selection.EntireRow.Hidden = True
End If
Next i
End Sub
================================
Toch? Wat doe ik fout?
akelig lang stukje code om dit te doen:quote:Op zaterdag 3 april 2010 20:28 schreef McGilles het volgende:
[..]
Ik probeer dit ook toe te passen in mijn sheet, maar krijg het niet voor elkaar.
Betreffende kolom = F
Voorwaarde = "In zorg"
Consequentie = hide
Lijkt mij dus puur code aanpassen in:
===============================
Sub Fok()
'
Range("F1").Select
For i = 1 To 1000
If ActiveCell.Offset(i, 0).Value = "In zorg" Then
ActiveCell.Offset(i, 0).Rows("1:1").EntireRow.Select
Selection.EntireRow.Hidden = True
End If
Next i
End Sub
================================
Toch? Wat doe ik fout?
| 1 2 3 | If cell.Value = "In zorg" Then cell.EntireRow.Hidden = True Next cell |
Ik heb een probleempje met het besturingselement "keuzelijst met invoervak". Bij besturingselement opmaken kan ik bij invoerbereik een bereik aangeven waaruit je met het keuzevak kunt kiezen. Ik wil echter maar een bepaald deel van het bereik (wat aan een bepaalde waarde voldoet) in het keuzevak hebben.
Klinkt volgens mij niet heel duidelijk dus zal ik een voorbeeldje geven.
op werkblad 1 heb ik een lijst staan met verschillende producten. kolom 1 de productnaam en kolom 2 het aantal.
Ik wil vervolgens een keuzelijst maken op werkblad 2 van alle producten op werkblad 1 waarvan er meer dan 3 zijn.
Klinkt volgens mij niet heel duidelijk dus zal ik een voorbeeldje geven.
op werkblad 1 heb ik een lijst staan met verschillende producten. kolom 1 de productnaam en kolom 2 het aantal.
Ik wil vervolgens een keuzelijst maken op werkblad 2 van alle producten op werkblad 1 waarvan er meer dan 3 zijn.
Iets met OFFSET en COUNTIF...ik heb geen excel in de buurt. Ik zou het met 2 manieren proberen. Of een dynamische named range, of die range in de formule zelf. Geef me paar uur dan zit ik achter de pc :p
Is het mogelijk om in excel, 2 verschillende getallen in 1 cel, op te tellen (met spatie ertussen uiteraard) ?
=SUM(LEFT(A1,1),RIGHT(A1,1))
?
Lijkt me meer dat je informatiebron verkeerd is.
Beter ga je dus splitsen naar kolommen met Text to columns.
?
Lijkt me meer dat je informatiebron verkeerd is.
Beter ga je dus splitsen naar kolommen met Text to columns.
Kijk ik heb zeg maar in cel A1 staan: 10 20
Zou ik met een formule in cel A2, 10+20 uitrekenen, dat je dus het getal 30 ziet in cel A2?
[ Bericht 54% gewijzigd door Che_ op 04-04-2010 13:29:06 ]
Zou ik met een formule in cel A2, 10+20 uitrekenen, dat je dus het getal 30 ziet in cel A2?
Deze formule werkt niet trouwens. Geeft een error aan.quote:
[ Bericht 54% gewijzigd door Che_ op 04-04-2010 13:29:06 ]
=LINKS(A1;VIND.SPEC(" ";A1))+DEEL(A1;VIND.SPEC(" ";A1);1000)
handig is anders... Waarschijnlijk ook retetraag als je er veel gebruik van maakt een geen tussencel maakt.
handig is anders... Waarschijnlijk ook retetraag als je er veel gebruik van maakt een geen tussencel maakt.
Je moet een klein beetje meedenken.
Left(A1,1) geeft alleen de meest linker karakter aan (1 dus). RIGHT(A1,1) geeft 0.
SUM(1,0) = 1
Werkt prima hier.
Maar goed:
=SUM(VALUE(LEFT(A1,FIND(" ",A1)-1)),VALUE(RIGHT(A1,LEN(A1)-FIND(" ",A1))))
Left(A1,1) geeft alleen de meest linker karakter aan (1 dus). RIGHT(A1,1) geeft 0.
SUM(1,0) = 1
Werkt prima hier.
Maar goed:
=SUM(VALUE(LEFT(A1,FIND(" ",A1)-1)),VALUE(RIGHT(A1,LEN(A1)-FIND(" ",A1))))
Fucking moeilijk imo.quote:Op zondag 4 april 2010 02:14 schreef anathavia het volgende:
Ik heb een probleempje met het besturingselement "keuzelijst met invoervak". Bij besturingselement opmaken kan ik bij invoerbereik een bereik aangeven waaruit je met het keuzevak kunt kiezen. Ik wil echter maar een bepaald deel van het bereik (wat aan een bepaalde waarde voldoet) in het keuzevak hebben.
Klinkt volgens mij niet heel duidelijk dus zal ik een voorbeeldje geven.
op werkblad 1 heb ik een lijst staan met verschillende producten. kolom 1 de productnaam en kolom 2 het aantal.
Ik wil vervolgens een keuzelijst maken op werkblad 2 van alle producten op werkblad 1 waarvan er meer dan 3 zijn.
Ik kan wel een array maken van {1,0,1} als A1>3, B1<3, C1>3
Maar iemand enig idee hoe je dat weer kan omzetten naar {a,0,c} ?
aangezien de keuzelijst een vaste lengte heeft in zijn bereik, en er een variabel aantal producten aan je voorwaarden voldoet, is dit onmogelijk in excel, tenzij je genoegen neemt met een zooi lege regels in je keuzelijst.
Hm met beetje testen krijg ik idd geen variabele array in een list 
Misschien macrootje / formule om eerst de lijst in een apart tabblad te krijgen en daar een dynamic named range van te maken.
Misschien macrootje / formule om eerst de lijst in een apart tabblad te krijgen en daar een dynamic named range van te maken.
Geen idee waarom deze niet werkt. Als ik em copy-paste krijg ik alleen tekst (die formule dus) te zien. Ga ik erop staan en dan enter krijg ik die error dat er iets fouts is.quote:Op zondag 4 april 2010 13:36 schreef DaFan het volgende:
Je moet een klein beetje meedenken.
Left(A1,1) geeft alleen de meest linker karakter aan (1 dus). RIGHT(A1,1) geeft 0.
SUM(1,0) = 1
Werkt prima hier.
Maar goed:
=SUM(VALUE(LEFT(A1,FIND(" ",A1)-1)),VALUE(RIGHT(A1,LEN(A1)-FIND(" ",A1))))
Deze zou kunnen werken, alleen ik heb Excel 2007, engelse versie. En weet daar de formule niet voor.quote:Op zondag 4 april 2010 13:36 schreef ralfie het volgende:
=LINKS(A1;VIND.SPEC(" ";A1))+DEEL(A1;VIND.SPEC(" ";A1);1000)
handig is anders... Waarschijnlijk ook retetraag als je er veel gebruik van maakt een geen tussencel maakt.
