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.
Dan maak je 3 voorwaardelijke opmaken (?). 1 voor rood, 1 voor oranje en 1 voor groen. Zorg er dan voor dat groen bovenaan staan, daaronder oranje en dan rood. Hij werkt ze dan op die manier af.quote:Op maandag 27 januari 2014 17:39 schreef teamlead het volgende:
Daarmee is een deel van het probleem inderdaad ondervangen, maar kan ik nog niet de cel groen laten kleuren als het betreffende target gehaald is?
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]
Geen probleem hoor en valt op zich nog wel mee. Zorg gewoon dat mensen altijd een naam gebruiken, desnoods NAAMLOOSquote:
[..]
Dank je wel, ik was het weekend weg, dus kan nu pas antwoorden.
Ik snap dat het er onlogisch uitziet, maar ik heb deze constructie ook niet verzonnen.
De foutmeldingen zou ik weg moeten kunnen halen met isfout.
In ieder geval reuze bedankt voor je inspanningen, je hebt er volgens mij best wel wat tijd ingestopt.
Waardeer ik enorm.
Oh ja, de QUERY functionaliteit ga ik zeker niet gebruiken, anders krijg ik iedere keer vragen van de gebruikers, zit ik niet echt op te wachten.
Mocht men ooit naar uitleg zoeken omdat de formules te lastig zijn: http://www.get-digital-he(...)acted-from-a-column/
Misschien kun je de data vanuit de pull-down ergens op de achtergrond in cellen zetten(als tussenstap) en dan die waarden gebruiken voor je targets. Dan wordt bij iedere keer dat je je pull-down veranderdt, je targets meegenomen.quote:
Daarmee is een deel van het probleem inderdaad ondervangen, maar kan ik nog niet de cel groen laten kleuren als het betreffende target gehaald is?
Oke, dank je voor de link, zal ik thuis bekijken, ben nu aan het werk.quote:
[..]
Geen probleem hoor en valt op zich nog wel mee. Zorg gewoon dat mensen altijd een naam gebruiken, desnoods NAAMLOOS
Mocht men ooit naar uitleg zoeken omdat de formules te lastig zijn: http://www.get-digital-he(...)acted-from-a-column/
Is altijd handig een site die formules uitlegt, scheelt mij weer tijd.
quote:
Beste FOK!kers,
Ik ben op zoek naar een manier waarop ik een stuk tekst kan isoleren uit een ander stuk tekst. De opmaak van de gezochte tekst is steeds gelijk, de opmaak van de tekst waar ik in zoek is steeds anders.
De tekst die ik zoek is 'GBA****'
Cel 1: Bla bla 999 GBA0015 tekst tekst
Cel 2: xxGBA3875vuulee
Cel 3: 664688GBA8925808
etc.etc.
Enig idee hoe ik mijn gezochte GBA + achterliggende cijfercode hieruit kan filtereren?
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
Met onderstaande functie haal je alles wat rechst staat van GBA uit een tekststring in cel A1. Dat lijkt me de eerste stap:
=RIGHT(A1,LEN(A1)-FIND("GBA",A1)+1)
=RIGHT(A1,LEN(A1)-FIND("GBA",A1)+1)
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
=DEEL(A1;VIND.SPEC("GBA";A1);7)quote:
Als je GBA-blabla-tekst in A1 staat.
Opinion is the medium between knowledge and ignorance (Plato)
en alleen als het een viercijferige code betreft (zoals in dit geval blijkbaarquote:
[..]
=DEEL(A1;VIND.SPEC("GBA";A1);7)
Als je GBA-blabla-tekst in A1 staat.
)[ Bericht 10% gewijzigd door Deetch op 28-01-2014 12:35:15 ]
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
Klopt. Op basis van de voorbeelden ging ik daar even van uit.
Opinion is the medium between knowledge and ignorance (Plato)
Fantastisch. Dank!
Met de 'DEEL' functie kom ik er inderdaad uit. Hij vindt zo de eerste 'GBA'-code in de cel. Nu heb ik ook cellen waar meerdere 'GBA' codes in staan. Bijv:
xxxxGB0082xxxGBA2458xxxGBA6556GBA8767
Hoe haal ik die er dan uit?
Met de 'DEEL' functie kom ik er inderdaad uit. Hij vindt zo de eerste 'GBA'-code in de cel. Nu heb ik ook cellen waar meerdere 'GBA' codes in staan. Bijv:
xxxxGB0082xxxGBA2458xxxGBA6556GBA8767
Hoe haal ik die er dan uit?
Met =RECHTS(A1;LENGTE(A1)-VIND.SPEC("GBA";A1)-7) krijg je de staart van je oorspronkelijke tekst, afgeknipt na de eerste vindplaats van GBA. Door op die uitkomst opnieuw de formule uit post #157 los te laten, krijg je ook de tweede en eventueel zo verder. Ik weet niet hoe vaak ze voor kunnen komen, maar zo vaak zul je dus opnieuw moeten knippen en zoeken.
Hou er wel rekening mee dat de formule hierboven een foutmelding (#WAARDE?) oplevert als je hem op een tekst afstuurt waar "GBA" niet (meer) in voorkomt.
Hou er wel rekening mee dat de formule hierboven een foutmelding (#WAARDE?) oplevert als je hem op een tekst afstuurt waar "GBA" niet (meer) in voorkomt.
Opinion is the medium between knowledge and ignorance (Plato)
Met onderstaande user-defined function genereer je een string met alle GBA codes. Als je deze wilt gebruiken doe je de volgende stappen:quote:
• ga naar visual basic (alt+f11)
• voeg een module toe aan je bestand (rechtsklikken op VBAProject(bestandsnaam) )
• plak onderstaande code in de module
• gebruik in je spreadsheet de formule =gba(celverwijzing)
• de functie checkt alleen op GBA met hoofdletters
• sla spreadsheet op als *.xlsm in office 2010
| 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 | Function gba(r As Range) As String Dim gbacount As Long Dim strR As String Dim startpos As Long Dim pos As Long strR = CStr(r.Value) gbacount = UBound(Split(strR, "GBA")) If gbacount = 0 Then gba = "Geen GBA-codes aanwezig" ElseIf gbacount = 1 Then pos = InStr(strR, "GBA") gba = Mid(strR, pos, 7) Else startpos = 1 For i = 1 To gbacount pos = InStr(startpos, strR, "GBA") If i = 1 Then gba = Mid(strR, pos, 7) Else gba = gba & "," & Mid(strR, pos, 7) End If startpos = pos + 7 Next i End If End Function |
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
Das wel lief van jequote:Op woensdag 29 januari 2014 10:48 schreef Deetch het volgende:
[..]
Met onderstaande user-defined function genereer je een string met alle GBA codes. Als je deze wilt gebruiken doe je de volgende stappen:
• ga naar visual basic (alt+f11)
• voeg een module toe aan je bestand (rechtsklikken op VBAProject(bestandsnaam) )
• plak onderstaande code in de module
• gebruik in je spreadsheet de formule =gba(celverwijzing)
• de functie checkt alleen op GBA met hoofdletters
• sla spreadsheet op als *.xlsm in office 2010
[ code verwijderd ]
en dan de conditional formatting naar die cellen laten kijken bedoel je? ga ik eens mee aan de slagquote:
[..]
Misschien kun je de data vanuit de pull-down ergens op de achtergrond in cellen zetten(als tussenstap) en dan die waarden gebruiken voor je targets. Dan wordt bij iedere keer dat je je pull-down veranderdt, je targets meegenomen.
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Tis te merken dat ik een tijdje niet meer met excel bezig ben geweest 
Ik wil een grafiek laten zien van de ontwikkeling per week. Die grafiek komt in een sheet die het hele kwartaal gebruikt moet worden.
Ik heb echter niet zo heel veel zin om iedere week m'n grafieken weer te moeten aanpassen
Kan ik er voor zorgen dat de x-as van de grafiek pas wordt weergegeven als er daadwerkelijk ook gegevens zijn die in de grafiek kunnen worden getoond? Nu heb ik onderstaand, maar dat ziet natuurlijk niet uit... Week 6 tm 15 zijn nog niet bekend en wil ik dus ook nog niet zichtbaar hebben...
(excel 2010 Engels trouwens..)
Ik wil een grafiek laten zien van de ontwikkeling per week. Die grafiek komt in een sheet die het hele kwartaal gebruikt moet worden.
Ik heb echter niet zo heel veel zin om iedere week m'n grafieken weer te moeten aanpassen
Kan ik er voor zorgen dat de x-as van de grafiek pas wordt weergegeven als er daadwerkelijk ook gegevens zijn die in de grafiek kunnen worden getoond? Nu heb ik onderstaand, maar dat ziet natuurlijk niet uit... Week 6 tm 15 zijn nog niet bekend en wil ik dus ook nog niet zichtbaar hebben...
(excel 2010 Engels trouwens..)
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Bij het selecteren van de gegevens klikken op "verborgen en lege cellen" en dan kiezen voor "openingen".quote:
Tis te merken dat ik een tijdje niet meer met excel bezig ben geweest
Ik wil een grafiek laten zien van de ontwikkeling per week. Die grafiek komt in een sheet die het hele kwartaal gebruikt moet worden.
Ik heb echter niet zo heel veel zin om iedere week m'n grafieken weer te moeten aanpassen
Kan ik er voor zorgen dat de x-as van de grafiek pas wordt weergegeven als er daadwerkelijk ook gegevens zijn die in de grafiek kunnen worden getoond? Nu heb ik onderstaand, maar dat ziet natuurlijk niet uit... Week 6 tm 15 zijn nog niet bekend en wil ik dus ook nog niet zichtbaar hebben...
(excel 2010 Engels trouwens..)
[ afbeelding ]
Maar dan dus de Engelse variant
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]
dat probeerde ik in eerste instantie.. maar dat wil dus niet 
Ik ben ook gewoon al te lang aan die sheet aan het prutsen. Tijd om naar huis te gaan
Ik ben ook gewoon al te lang aan die sheet aan het prutsen. Tijd om naar huis te gaan
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Je kunt dynamische ranges aanmaken.quote:
dat probeerde ik in eerste instantie.. maar dat wil dus niet
Ik ben ook gewoon al te lang aan die sheet aan het prutsen. Tijd om naar huis te gaan
Stel je weeknamen staan in kolom A, je werkelijke waarden in B (blauwe lijn) en je target waarden in C (rode lijn)
Vervolgens creeer je een named range met de naam weken met de volgende formule:
=OFFSET(Sheet1!$A$2,0,0,COUNTA(Sheet1!$B$2:$B$15),1)
Deze formule maakt een range met als startpunt cel A2 (daar is de 0,0 ook voor) en dan een hoogte die gelijk is aan het aantal ingevulde waarden in de range B2:B15. Dus als in B2:B15 slechts 3 getallen staan loopt je named range dus van A2:A5. De breedte van de named range is 1 (cel).
Vervolgens maak je op dezelfde manier een named range "real" van kolom B (je hoeft nu alleen het startpunt $A$2 te evranderen in $B$2) en "target" van kolom C.
Nu maak je een nieuwe grafiek aan waarbij je als x-waarden aangeeft =Sheet1!weken en als y-waarden =Sheet1!real en klaar is Kees.
Hier de website waar bovenstaande vanaf komt:
http://chandoo.org/wp/2009/10/15/dynamic-chart-data-series/
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
Goeie!quote:
[..]
Je kunt dynamische ranges aanmaken.
Stel je weeknamen staan in kolom A, je werkelijke waarden in B (blauwe lijn) en je target waarden in C (rode lijn)
Vervolgens creeer je een named range met de naam weken met de volgende formule:
=OFFSET(Sheet1!$A$2,0,0,COUNTA(Sheet1!$B$2:$B$15),1)
Deze formule maakt een range met als startpunt cel A2 (daar is de 0,0 ook voor) en dan een hoogte die gelijk is aan het aantal ingevulde waarden in de range B2:B15. Dus als in B2:B15 slechts 3 getallen staan loopt je named range dus van A2:A5. De breedte van de named range is 1 (cel).
Vervolgens maak je op dezelfde manier een named range "real" van kolom B (je hoeft nu alleen het startpunt $A$2 te evranderen in $B$2) en "target" van kolom C.
Nu maak je een nieuwe grafiek aan waarbij je als x-waarden aangeeft =Sheet1!weken en als y-waarden =Sheet1!real en klaar is Kees.
Hier de website waar bovenstaande vanaf komt:
http://chandoo.org/wp/2009/10/15/dynamic-chart-data-series/
Ga meteen even wat sheets updaten
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]
@ Deetch. Dank voor de string. Werkt geweldig.quote:
Met onderstaande user-defined function genereer je een string met alle GBA codes. Als je deze wilt gebruiken doe je de volgende stappen:
Hi All,
In VBA loop ik tegen het volgende probleem aan:
Cell A1 = 2,5 (let hier goed op de komma).
Zodra ik deze cell aanroep met als datatype double, dan resulteert dit in een error. De debug geeft de waarde in VBA weer als 2,5, waardoor vba dit als een seperator ziet. Hoe is dit op te lossen, google biedt geen hulp
In VBA loop ik tegen het volgende probleem aan:
Cell A1 = 2,5 (let hier goed op de komma).
Zodra ik deze cell aanroep met als datatype double, dan resulteert dit in een error. De debug geeft de waarde in VBA weer als 2,5, waardoor vba dit als een seperator ziet. Hoe is dit op te lossen, google biedt geen hulp
| 1 2 3 4 5 | Dim bedrag As Double bedrag = Sheets("Data").Cells(1, 1).Value Sheets("Archief").Cells(i - 1, 6).Formula = "=IF(R" & i - 1 & "C1 = """","""",R" & i - 1 & "C4 - R" & i - 1 & "C5 * " & bedrag & ")" |
Wat je beschrijft is inderdaad waar. en een veel beschreven probleem (google maar op vba excel error decimal separator)quote:
Hi All,
In VBA loop ik tegen het volgende probleem aan:
Cell A1 = 2,5 (let hier goed op de komma).
Zodra ik deze cell aanroep met als datatype double, dan resulteert dit in een error. De debug geeft de waarde in VBA weer als 2,5, waardoor vba dit als een seperator ziet. Hoe is dit op te lossen, google biedt geen hulp
[ code verwijderd ]
Pas je settings aan: Opties voor Excel -> Geavanceerd. -> kijk vervolgens naar de instellingen rondom Schedingsteken voor systeem etc..
Een andere praktische oplossing is om een kleine functie te schrijven voor het "printen" van je waarden naar je Workbook.
| 1 2 3 | Private Function PrintDouble(dDbl As Double) As String PrintDouble = Replace(dDbl, ",", ".") End Function |
Wanneer je je bedrag naar je sheet wegschrijft in een formule doe je gewoon PrintDouble(bedrag) en dan heb je er geen last meer van.
Hoe zouden jullie je Excel-skills omschrijven op je CV? Voor de genen zonder officieel certificaat van Microsoft dus
Voldoende? Bovengemiddeld? Uitgebreid? Pro? Guru? (
) Doorgeslagen hobby?
Voldoende? Bovengemiddeld? Uitgebreid? Pro? Guru? (
) Doorgeslagen hobby?
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]
Dat is afhankelijk van de functie lijkt waarop je wil solliciteren...quote:
Ik zou het er niet in opnemen. De tool waarmee je iets doet is in mijn ogen volstrekt onbelangrijk.
Ik vind het lastig, vooral omdat ik geen te hoge verwachtingen wil stellen.quote:
Hoe zouden jullie je Excel-skills omschrijven op je CV? Voor de genen zonder officieel certificaat van Microsoft dus
Voldoende? Bovengemiddeld? Uitgebreid? Pro? Guru? (
Collega's stellen me vaak genoeg vragen over Excel als ze ergens niet uitkomen en geven aan dat ik er goed in ben. En dan zie ik de vragen hier en denk ik van "ik heb nog veel te leren"...
Dus je kan dan wel iets op je CV zetten, maar hoe toon je aan dat je het kan en dat wat je kan ook daadwerkelijk nodig is voor de functie waar je naar solliciteert...
Wat ik nu vooral zie is "kennis van MS Office (Word/Excel/Outlook)"quote:
Dus je kan dan wel iets op je CV zetten, maar hoe toon je aan dat je het kan en dat wat je kan ook daadwerkelijk nodig is voor de functie waar je naar solliciteert...
Ik wil iig aangeven dat ik (in mijn ogen) meer dan gemiddelde kennis heb van Excel, of iig weet waar ik mijn problemen op kan lossen (hier of mrexcel.com etc)..
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]
Data verwerken in Excel is toch wel heel wat anders dan in MySQL of Acces.. Hoe zou jij t omschrijven dan? Of heb je andere (relevantere) zaken die je op je CV zet waaruit blijkt dat je om kan gaan met data?quote:
Ik zou het er niet in opnemen. De tool waarmee je iets doet is in mijn ogen volstrekt onbelangrijk.
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]
Ik heb de volgende Makro gemaakt, maar deze gaat niet goed. Kan iemand zien wat er niet aan klopt. Hij geeft een foutmelding bij de cursief/vette tekst...:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' Hiermee geef je aan welke cel de trigger geeft
Set KeyCells = Range("AH3")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Calculate
Sheets("Waardebepaling").Select
Range("D4:K8").Select
Selection.Copy
Range("M4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Sheets("2010-2020 (Base)").Select
Range("AC20").Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' Hiermee geef je aan welke cel de trigger geeft
Set KeyCells = Range("AH3")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Calculate
Sheets("Waardebepaling").Select
Range("D4:K8").Select
Selection.Copy
Range("M4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Sheets("2010-2020 (Base)").Select
Range("AC20").Select
End If
End Sub
Een hoertje dat aan de belastingadviseur vraagt of ze nog wat kan aftrekken, is nooit grappig...
