abonnement Unibet Coolblue
pi_82547027
Even offtopic vraag eigenlijk maar:
[GEZ] VB/Excel programmeur

Wat zouden jullie hiervoor rekenen als jullie iets dergelijks in je vrije tijd deden/doen?
En doe je zoiets dan liever in Excel of in Access (mits je ervaring hebt met Access anders geen relevante vraag).
  woensdag 9 juni 2010 @ 13:45:05 #204
62215 qu63
..de tijd drinkt..
pi_82547490
quote:
Op woensdag 9 juni 2010 13:36 schreef DaFan het volgende:
Even offtopic vraag eigenlijk maar:
[GEZ] VB/Excel programmeur

Wat zouden jullie hiervoor rekenen als jullie iets dergelijks in je vrije tijd deden/doen?
En doe je zoiets dan liever in Excel of in Access (mits je ervaring hebt met Access anders geen relevante vraag).
Ik zou ook uitkomen op +/- ¤25 per uur
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_82549596
quote:
Op woensdag 9 juni 2010 13:36 schreef DaFan het volgende:
Even offtopic vraag eigenlijk maar:
[GEZ] VB/Excel programmeur

Wat zouden jullie hiervoor rekenen als jullie iets dergelijks in je vrije tijd deden/doen?
En doe je zoiets dan liever in Excel of in Access (mits je ervaring hebt met Access anders geen relevante vraag).
Volgens mij zijn er ook wel goedkope voorraadbeheer programmaatjes voor te krijgen. Daar kun je vaak op uurloon niet tegenop programmeren. Ik had het niet gedaan want er wordt ook altijd support verwacht en dat gaat jou veel tijd kosten en weinig opleveren.

[ Bericht 0% gewijzigd door Deetch op 09-06-2010 14:35:50 ]
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
pi_82552268
Ik heb wel wat kaas gegeten van het dichttimmeren van contractjes dus daar kom ik wel uit
  donderdag 10 juni 2010 @ 15:03:39 #207
48487 Martijn85
XBL: NL NoName
pi_82618398
Ik heb een excel workbook en in ik wil een een sheet een overzicht maken van alle andere sheets.
Dit overzicht wordt opgebouwd uit steeds dezelfde cellen per sheet.
ik wil dan de gegevens per sheet op 1 regel hebben en uit een andere sheet daar weer onder.

voorbeeld overzicht:

sheet1: xxxxxxx - xxxxxxx - xxxxxxx - xxxxxxxxx
sheet2: xxxxxxx - xxxxxxx - xxxxxxx - xxxxxxxxx
sheet3: xxxxxxx - xxxxxxx - xxxxxxx - xxxxxxxxx
etc... (- is nieuwe kolom)

Hoop dat het een beetje duidelijk is
Rozen verwelken, schepen vergaan. Daar heb je Bassie.......En Adriaan!!!!
pi_82621021
quote:
Op donderdag 10 juni 2010 15:03 schreef Martijn85 het volgende:
Ik heb een excel workbook en in ik wil een een sheet een overzicht maken van alle andere sheets.
Dit overzicht wordt opgebouwd uit steeds dezelfde cellen per sheet.
ik wil dan de gegevens per sheet op 1 regel hebben en uit een andere sheet daar weer onder.

voorbeeld overzicht:

sheet1: xxxxxxx - xxxxxxx - xxxxxxx - xxxxxxxxx
sheet2: xxxxxxx - xxxxxxx - xxxxxxx - xxxxxxxxx
sheet3: xxxxxxx - xxxxxxx - xxxxxxx - xxxxxxxxx
etc... (- is nieuwe kolom)

Hoop dat het een beetje duidelijk is
daarvoor kun je de indirect functie gebruiken. Met indirect kun je de tekst van de celverwijzing in een andere cel hebben staan.

in sheet1 cel A2 zet je de tekst "sheet2" in cel B1 zet je de celverwijzing waar je naar verwijst (bijv. "A3")

als je nu in cel B2 de waarde uit sheet2 cel A3 wilt halen typ je daar:

=indirect(A2&"!"&B1) en klaar ben je.
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
  donderdag 10 juni 2010 @ 15:59:44 #209
249182 Holy_Goat
mhèèhèhè
pi_82621041
deetch, dafan, wat is dat voor dino achter je naam?
en die 25e, bedoel je dat netto?
  donderdag 10 juni 2010 @ 16:03:41 #210
249182 Holy_Goat
mhèèhèhè
pi_82621206
het topic mocht trouwens niet... mmhh. Waarom werd het uberhaupt dichtgegooid?
Tegen policy? Tis toch een soort v/a? Had wel interesse dat klusje op te pakken.
  donderdag 10 juni 2010 @ 16:11:50 #211
62215 qu63
..de tijd drinkt..
pi_82621595
quote:
Op donderdag 10 juni 2010 15:59 schreef Holy_Goat het volgende:
deetch, dafan, wat is dat voor dino achter je naam?
en die 25e, bedoel je dat netto?
Doe eens een mouseover bij die dino Deetch en DaFan gebruiken nog een oude (fossiele) layout
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_82622283
Ws omdat ik nog Fok silver layout gebruik.
JA, zwart = netto
pi_82622315
quote:
Op donderdag 10 juni 2010 16:03 schreef Holy_Goat het volgende:
het topic mocht trouwens niet... mmhh. Waarom werd het uberhaupt dichtgegooid?
Tegen policy? Tis toch een soort v/a? Had wel interesse dat klusje op te pakken.
Diensten mogen niet aangeboden worden.

Ik heb hem nog een pm gestuurd maar geen reactie. ¤ 500 misschien toch te veel?
pi_82622951
quote:
Op donderdag 10 juni 2010 16:11 schreef qu63 het volgende:

[..]

Doe eens een mouseover bij die dino Deetch en DaFan gebruiken nog een oude (fossiele) layout
ik denk al: wat voor moederneukende dino?

Wel een leuke toevoeging.

iedereen die dino grappen maakt over mijn account krijgt geen excel hulp meer
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
pi_82623210
hmmz vind t die nieuwe layouts maar niks. Dan maar dino-en.
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
  donderdag 10 juni 2010 @ 16:42:28 #216
249182 Holy_Goat
mhèèhèhè
pi_82623472
quote:
Op donderdag 10 juni 2010 16:34 schreef Deetch het volgende:

[..]

ik denk al: wat voor moederneukende dino?

Wel een leuke toevoeging.

iedereen die dino grappen maakt over mijn account krijgt geen excel hulp meer
Whahahahahaha die dino bij jouw account!


*tevens doet die mouseover het nie
  donderdag 10 juni 2010 @ 16:45:05 #217
249182 Holy_Goat
mhèèhèhè
pi_82623624
quote:
Op donderdag 10 juni 2010 16:24 schreef DaFan het volgende:

[..]

Diensten mogen niet aangeboden worden.

Ik heb hem nog een pm gestuurd maar geen reactie. ¤ 500 misschien toch te veel?
Ik wil eigenlijk nog een eigen bedrijfje (zzp) opstarten, omdat ik redelijk wat klusjes aantrek en uitbetaald worden in spullen een beetje zatraak. Heb alles al wat ik wil hebben op dit moment in mijn studentenkot
Hoeveel moeite / kosten zou dat met zich meebrengen?

Wat hij wil trek ik ook wel in afzienbare tijd denk ik overigens, maar zou denk ook al snel 300/400 euri ervoor vragen.

Even over een andere opmerking: iemand was goed in dichtgetimmerde contractjes. Ergens vandaan gefietst? Of zelf rechtskundig opgesteld?
pi_82624726
quote:
Op maandag 31 mei 2010 16:33 schreef Nick_Taken het volgende:
Ik heb een grafiek gemaakt aan de hand van een tabel, alleen is er een ding wat mij mateloos stoort en ik niet aangepast krijg:

[ link | afbeelding ]

De vloeiende lijn komt boven de 100% uit, dat kan en mag dus niet.
Nu een halve dag lopen zoeken en googlen maar nergens iets over dat je de kromme kan instellen/marges ingeven of gewoon een keiharde limiet kan instellen.
Is dit een beperking van excel waar ik tegen aan loop of zoek ik gewoon verkeerd?
Vandaag een cijfer terug voor dat verslag, en waar ik al bang voor was een onvoldoende omdat die prof van alles niet goed vond aan vooral dit plaatje. ga dus nu met een onvoldoende het examen in
pi_82625739
quote:
Op donderdag 10 juni 2010 16:45 schreef Holy_Goat het volgende:

Even over een andere opmerking: iemand was goed in dichtgetimmerde contractjes. Ergens vandaan gefietst? Of zelf rechtskundig opgesteld?
' Dichttimmeren' is een groot woord.
Ik mag geen witte klusjes aannemen want ik heb een fulltime baan en staat in mn contract. Daarom zou het zwart gaan.

Ik denk dat je bij dit soort klussen goed moet aangeven;
- Wat ga ik voor je maken (desnoods een plaatje in Paint zodat je weet waar de klant op rekent)
- In welke tijd
- Hoe vaak kan dit bijgesteld worden
- Wanneer is het definitief akkoord en wat valt er dus onder extra werk?
- Hoe ga je me betalen (helft voor/helft na?)
- Als er na definitieve oplevering vragen of wensen zijn, wat wordt dan het uurtarief, en hoe spreken we iets af?
pi_82625746
quote:
Op donderdag 10 juni 2010 17:04 schreef Nick_Taken het volgende:

[..]

Vandaag een cijfer terug voor dat verslag, en waar ik al bang voor was een onvoldoende omdat die prof van alles niet goed vond aan vooral dit plaatje. ga dus nu met een onvoldoende het examen in
Lekker kut
Ik weet het antwoord ook niet namelijk.

Heb je gekeken op MrExcel of niet?
  donderdag 10 juni 2010 @ 20:06:28 #221
249182 Holy_Goat
mhèèhèhè
pi_82634008
quote:
Op donderdag 10 juni 2010 17:23 schreef DaFan het volgende:

[..]

' Dichttimmeren' is een groot woord.
Ik mag geen witte klusjes aannemen want ik heb een fulltime baan en staat in mn contract. Daarom zou het zwart gaan.

Ik denk dat je bij dit soort klussen goed moet aangeven;
- Wat ga ik voor je maken (desnoods een plaatje in Paint zodat je weet waar de klant op rekent)
- In welke tijd
- Hoe vaak kan dit bijgesteld worden
- Wanneer is het definitief akkoord en wat valt er dus onder extra werk?
- Hoe ga je me betalen (helft voor/helft na?)
- Als er na definitieve oplevering vragen of wensen zijn, wat wordt dan het uurtarief, en hoe spreken we iets af?
uren aangeven en inschatten vind ik overigens nog vrij lastig. Ik ben ook veel te lief voor dat soort dingen overigens. Moet zakelijk nog behoorlijk uitharden. Ook onderhandelskillz... sja dat leer je niet uit een boekje!
pi_82639496
Zit nu 1,5 jaar op een kantoorbaan icm een Management Trainee Programma, dus krijg dat soort skillz er wel een beetje bij. Al doende leert men ook wel, krijg regelmatig van leidinggevende te horen 'dat had beter zo gekund en dat beter zo', dus al doende leert men.
pi_82639808
Iemand een idee hoe ik dit werkend krijg:

Heb een zoekvenster gemaakt waarmee je 1 kolom kan filtreren., nu wil ik nadat ik in zoekvenster 1 een waarde heb ingevoegd , ik in zoekvenster 2 hetzelfde kan doen maar hier filtert hij niet meer wat ik ook invoer, ook niet als ik zoekvenster 1 leeghou.

Dit is de code:
quote:
Private Sub TextBox1_Change()

Application.ScreenUpdating = False
If Len(TextBox1.Value) = 0 Then
ActiveSheet.AutoFilterMode = False
Else
ActiveSheet.Range("$F$17:$F$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox1.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub


Private Sub TextBox2_Change()
Application.ScreenUpdating = False
If Len(TextBox1.Value) = 0 Then
ActiveSheet.AutoFilterMode = False
Else
ActiveSheet.Range("$G$17:$G$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox1.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub
iemand een idee?
<>
pi_82640144
Omdat je al en filter op range 1 hebt, kan je niet nog een filter op range 2 doen.
Je zal dus moeten testen in de Change van Textbox1, of Textbox2 al gevuld is of niet. En zo ja, dan een filter toepassen van BEIDE.
Idem voor Textbox2.

Btw: http://en.wikipedia.org/wiki/Hungarian_notation

Het is wel best practice om je objecten zo te hernoemen dat je direct weet wat het is als je je code later terugleest (over een half jaar oid). Nu snap ik dat je ws net bent begonnen met je code maar alvast als tip
pi_82640842
quote:
Op donderdag 10 juni 2010 22:00 schreef DaFan het volgende:
Omdat je al en filter op range 1 hebt, kan je niet nog een filter op range 2 doen.
Je zal dus moeten testen in de Change van Textbox1, of Textbox2 al gevuld is of niet. En zo ja, dan een filter toepassen van BEIDE.
Idem voor Textbox2.

Btw: http://en.wikipedia.org/wiki/Hungarian_notation

Het is wel best practice om je objecten zo te hernoemen dat je direct weet wat het is als je je code later terugleest (over een half jaar oid). Nu snap ik dat je ws net bent begonnen met je code maar alvast als tip
Dankje voor de tip ben er aan het induiken op het moment.

Ik snap ongeveer wat je bedoelt , maar wat voor regel moet ik dan in mijn code toevoegen?
<>
pi_82641098
RegelS

Zoiets (uit mn hoofd):
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Application.ScreenUpdating = False
If Len(TextBox1.Value) = 0 AND Len(TextBox2.Value) = 0 Then
ActiveSheet.AutoFilterMode = False
ElseIf Len(TextBox1.Value) <> 0 AND Len(TextBox2.Value) = 0 Then
ActiveSheet.Range("$G$17:$G$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox1.Value & "*", 
VisibleDropDown:=False
ElseIf  Len(TextBox2.Value) <> 0 AND Len(TextBox1.Value) = 0 Then
ActiveSheet.Range("$G$17:$G$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox2.Value & "*",
Else
 hier je code voor beide filters, weet syntax even niet
End If

Application.ScreenUpdating = True
End Sub

De code voor beide filters kan je opzoeken door een macro op te noemen en dubbel filter toe te passen.

Succes.
pi_82644041
Bedankt voor je hulp, maar als ik nu iets invoer , en het vervolgens weer verwijder gaat hij niet meer terug naar het overzicht maar blijft het filter actief.
&lt;&gt;
pi_82650468
quote:
Op donderdag 10 juni 2010 17:23 schreef DaFan het volgende:

[..]

Lekker kut
Ik weet het antwoord ook niet namelijk.

Heb je gekeken op MrExcel of niet?
Ja, beperking van excel, enige optie is veel meer meetpunten, maarja ik kon moeilijk met duizend zeven gaan werken. Het ligt eerder aan die prof dan aan excel hoor, hij vraagt veel te veel. Van alle verslagen, 3 per groep bij iets van 10 groepen waren er geen cijfers boven de 6. Dat zegt toch wel iets. Gewoon komende dinsdag nu minimaal een 7,5 halen om gemiddeld een 6 te komen staan. Het is gewoon niet eerlijk dat je afgerekend wordt op de beperkingen van Excel.

Maar nu de oplossing voor wie tegen hetzelfde aanloopt en hier niet omheen kan (let op, veel werk)

Je maakt opnieuw een grafiek, met je meetpunten.
Als je de lijn vloeiend maakt zie je dus dat ie boven de 100% uit komt
Je maakt in je tabel een 2e rij
En nu doe je het voor elke halve procent over het stuk waar het boven de 100% komt en er een 15% voor ofzo.
Nu als je een formule hebt, en ik had er een met 6 variabele van formaatje slik reken je de waarde uit voor elk van die halve procent.
Van deze lijn maak je wel een vloeiende kromme, de andere waardes laat je als knopen staan.

Heb dat achteraf geprobeerd voor deze grafiek en was 4 uur bezig met dat "cosmetische" foutje op deze manier.
pi_82650678
Swindler; een beetje meedenken kan geen kwaad
Je had in je code:
ActiveSheet.AutoFilterMode = False

Maar die heb ik nu per ongeluk onder een If gezet.
Verander;
If Len(TextBox1.Value) = 0 AND Len(TextBox2.Value) = 0 Then
ActiveSheet.AutoFilterMode = False

in

ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 AND Len(TextBox2.Value) = 0 Then
pi_82652967
quote:
Op vrijdag 11 juni 2010 08:08 schreef DaFan het volgende:
Swindler; een beetje meedenken kan geen kwaad
Je had in je code:
ActiveSheet.AutoFilterMode = False

Maar die heb ik nu per ongeluk onder een If gezet.
Verander;
If Len(TextBox1.Value) = 0 AND Len(TextBox2.Value) = 0 Then
ActiveSheet.AutoFilterMode = False

in

ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 AND Len(TextBox2.Value) = 0 Then
Ja sorry ben totaal niet in thuis hierin vandaar dat ik (nog) niet echt mee kan denken .
&lt;&gt;
  vrijdag 11 juni 2010 @ 12:34:36 #231
48487 Martijn85
XBL: NL NoName
pi_82660008
quote:
Op donderdag 10 juni 2010 15:59 schreef Deetch het volgende:

[..]

daarvoor kun je de indirect functie gebruiken. Met indirect kun je de tekst van de celverwijzing in een andere cel hebben staan.

in sheet1 cel A2 zet je de tekst "sheet2" in cel B1 zet je de celverwijzing waar je naar verwijst (bijv. "A3")

als je nu in cel B2 de waarde uit sheet2 cel A3 wilt halen typ je daar:

=indirect(A2&"!"&B1) en klaar ben je.
Top, het werkt

Alleen jammer dat ie het niet doet als er spaties in de naam van de sheet staan, maar daar kan ik wel omheen werken.
Rozen verwelken, schepen vergaan. Daar heb je Bassie.......En Adriaan!!!!
pi_82662082
Blad 2;
=INDIRECT('Blad 2'!A1)

Werkt prima!
Apostrof - bladnaam - apostrof - uitroepteken - celnaam
pi_82664776
hmm het wil me niet echt lukken

Heb nu deze code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub TextBox1_Change()

Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 And Len(TextBox2.Value) = 0 Then
ElseIf Len(TextBox1.Value) <> 0 And Len(TextBox2.Value) = 0 Then
ActiveSheet.Range("$F$21:$F$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox1.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub


Private Sub TextBox2_Change()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 And Len(TextBox2.Value) = 0 Then
ElseIf Len(TextBox2.Value) <> 0 And Len(TextBox1.Value) = 0 Then
ActiveSheet.Range("$G$21:$G$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox1.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub


Als ik nu in textbox 2 iets invoer , laat hij automatisch alle records weer zien

Iemand trouwens een tip voor een goed basisboek over visual basic? (nederland of engels)
&lt;&gt;
pi_82814325
Ik heb een probleempje...
Ik heb een ingewikkeld uitziende LOOKUP functie voor 3 cellen (horizontaal)
echter doet hij het alleen voor de 1e en de 3e cel..? Bij de tweede cel geeft hij een N/A. Google leert mij dat het waarschijnlijk een Format Cell probleem is, maar daar ligt het niet aan.
Zometeen komt er een pic
pi_82814670


Wat ie moet doen:
Van de cellen N-R de laagste prijs selecteren. DIt doet ie overal goed, zie kolom L.
Daarna moet hij de bijbehorende leverancier bij die laagste prijs zoeken (kolom K). Dit doet hij echter alleen bij de 1e en de 3e leverancier. Formule is hetzelfde (gewoon doorgetrokken) en celformat is ook gelijk
  dinsdag 15 juni 2010 @ 03:36:39 #236
62215 qu63
..de tijd drinkt..
pi_82820248
quote:
Op maandag 14 juni 2010 23:25 schreef Daantke het volgende:
[ afbeelding ]

Wat ie moet doen:
Van de cellen N-R de laagste prijs selecteren. DIt doet ie overal goed, zie kolom L.
Daarna moet hij de bijbehorende leverancier bij die laagste prijs zoeken (kolom K). Dit doet hij echter alleen bij de 1e en de 3e leverancier. Formule is hetzelfde (gewoon doorgetrokken) en celformat is ook gelijk
Post je formules eens?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_82821142
Daantke welke formules gebruik je? Ik heb het idee dat je het te lastig doet...

Ik heb in L:
=MIN(N3:R3)

In K:
=INDEX($N$1:$R$1;VERGELIJKEN(L3;N3:R3;0))

VERGELIJKEN = MATCH in Engels.

Waar rij 3 jouw 'B' is (als uitkomst).
pi_82821291
1=IF(COUNTIF(N2:R2;"")=4;LOOKUP(SMALL(N2:R2;1);N2:R2;N$1:R$1);IF(SMALL(N2:R2;1)=SMALL(N2:R2;2);"meerdere";LOOKUP(SMALL(N2:R2;1);N2:R2;N$1:R$1)))

Wazig ding, zoals ik al zei
Excel kwam namelijk met een foutmelding als er maar 1 leverancier was die het product leverde, maar de code van DaFan doet dat niet.
Alleen moet ik daar dan nog een functie inbouwen die 'meerdere' zegt als er 2 leveranciers met de laagste prijs zijn.
Bedankt tot zo ver
pi_82821348
Volgens mij doet ie het nu goed
1=IF(SMALL(N3:R3;1)=SMALL(N3:R3;2);"meerdere";INDEX($N$1:$R$1;MATCH(SMALL(N3:R3;1);N3:R3;0)))

!

-edit-
oh nee, nu geeft hij weer een foutmelding als er maar 1 prijs staat, omdat hij de 1 na laagste prijs niet kan vinden
pi_82821805
Tjee wat onhandig.

=IF(SMALL(N3:R3;2);IF(SMALL(N3:R3;1)=SMALL(N3:R3;2);"meerdere";INDEX($N$1:$R$1;MATCH(SMALL(N3:R3;1);N3:R3;0)));INDEX($N$1:$R$1;MATCH(SMALL(N3:R3;1);N3:R3;0)))

Denk ik.
pi_82821911
Werkt ook niet... denk dat er aan het begin nog iets bij moet met exist of null ofzo
pi_82822057
Ja deze was uit mn hoofd.
Je moet testen of SMALL(N3:R3;2) bestaat in een IF.
Succes
pi_82822155
=IF(ISNA(SMALL(V3:Z3;2))=FALSE;

Dat lost op het op maar nu zegt het geen meerdere meer
pi_82822810
Dan doe je iets niet goed met je haakjes/argumenten.
pi_82823256
Maar wat :{
1=IF(ISNA(SMALL(V4:Z4;2));IF(L4=SMALL(V4:Z4;2);"meerdere";INDEX($V$1:$Z$1;MATCH(L4;V4:Z4;0)));INDEX($V$1:$Z$1;MATCH(L4;V4:Z4;0)))
  dinsdag 15 juni 2010 @ 09:58:55 #246
62215 qu63
..de tijd drinkt..
pi_82823327
quote:
Op dinsdag 15 juni 2010 09:56 schreef Daantke het volgende:
Maar wat
[ code verwijderd ]
Als ( ) ik 't nu goed zie kijk je eerst of er iets "#N/A" is, als dat zo is ga je verder. Volgens mij loopt 't daar al fout...
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_82823369
ISNA moet FALSE zijn, niet TRUE
pi_82823550
Ik heb er nu twee onder elkaar, met dezelfde functie, alleen the 'then' en 'else' omgedraaid.
En zowel met isblank als isna geeft de ene geen 'meerdere' meer aan bij 2 dezelfde prijzen en geeft de andere een #NUM als er maar 1 prijs gegeven is.
pi_82824356
Is het eigenlijk mogelijk om bepaalde cellen te blokkeren zeg maar. Dat daar niet in gewijzigd kan worden?

Ik heb excel 2003 NL.
  dinsdag 15 juni 2010 @ 10:33:01 #250
62215 qu63
..de tijd drinkt..
pi_82824411
quote:
Op dinsdag 15 juni 2010 10:31 schreef Stansfield het volgende:
Is het eigenlijk mogelijk om bepaalde cellen te blokkeren zeg maar. Dat daar niet in gewijzigd kan worden?

Ik heb excel 2003 NL.
Ja.

Moet je wel je werkblad beveiligen met een password.

Je kan het ook doen dmv de validatie optie..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_82825533
Maar beveilig je dan niet je hele werkblad? Ik zou graag willen dat mensen bepaalde cellen wel kunnen invullen maar bepaalde absoluut niet. Kan dat ook?
pi_82825740
Ja dat kan. Je beveiligd je werkblad eerst met een password en dan geef je aan welke cellen wel aangepast mogen worden.
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
  dinsdag 15 juni 2010 @ 11:06:04 #253
15967 Frollo
You know I am a righteous man
pi_82825759
quote:
Op dinsdag 15 juni 2010 11:00 schreef Stansfield het volgende:
Maar beveilig je dan niet je hele werkblad? Ik zou graag willen dat mensen bepaalde cellen wel kunnen invullen maar bepaalde absoluut niet. Kan dat ook?
Het probleem is dat het contra-intuïtief werkt. Het zou mij (en jou waarschijnlijk ook) veel logischer lijken als je gewoon even de cellen kon aangeven waar de gebruiker niet aan mag komen en klaar is Clara. Maar Microsoft heeft bedacht dat ze het precies andersom willen. Elke cel is in principe geblokkeerd tenzij je hem deblokkeert.

Selecteer dus alle cellen die de gebruiker wel mag wijzigen, druk op Ctrl+1, ga naar tabblad Bescherming en haal het vinkje weg bij Geblokkeerd. Daarna doe je Extra > Beveiliging > Werkblad beveiligen.
pi_82825797
quote:
Op dinsdag 15 juni 2010 11:06 schreef Frollo het volgende:

[..]

Het probleem is dat het contra-intuïtief werkt. Het zou mij (en jou waarschijnlijk ook) veel logischer lijken als je gewoon even de cellen kon aangeven waar de gebruiker niet aan mag komen en klaar is Clara. Maar Microsoft heeft bedacht dat ze het precies andersom willen. Elke cel is in principe geblokkeerd tenzij je hem deblokkeert.

Selecteer dus alle cellen die de gebruiker wel mag wijzigen, druk op Ctrl+1, ga naar tabblad Bescherming en haal het vinkje weg bij Geblokkeerd. Daarna doe je Extra > Beveiliging > Werkblad beveiligen.
Da's toch logisch
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
  dinsdag 15 juni 2010 @ 11:08:22 #255
15967 Frollo
You know I am a righteous man
pi_82825847
quote:
Op dinsdag 15 juni 2010 11:06 schreef Deetch het volgende:

[..]

Da's toch logisch
O ja!
pi_82826614
Tnx. Ga ik straks eens even mee aan de slag.
pi_82826626
Als ik een werkblad beveilig zijn de cellen die wél aangepast mogen worden, veel minder in aantal dan die cellen die niet aangepast mogen wordne (in IV65536)
  dinsdag 15 juni 2010 @ 11:37:55 #258
15967 Frollo
You know I am a righteous man
pi_82827044
quote:
Op dinsdag 15 juni 2010 11:26 schreef DaFan het volgende:
Als ik een werkblad beveilig zijn de cellen die wél aangepast mogen worden, veel minder in aantal dan die cellen die niet aangepast mogen wordne (in IV65536)
Dat is natuurlijk ook zo. Maar je merkt zelf ook dat de vraagstelling bij de meeste mensen toch is: hoe blokkeer ik een cel? Dat is nu eenmaal de meest intuïtieve manier om te denken.

Wat MS bijvoorbeeld ook had kunnen doen, is alle cellen standaard niet-geblokkeerd te maken en bij het invoeren van een formule automatisch op geblokkeerd te zetten.
  dinsdag 15 juni 2010 @ 11:43:16 #259
231576 -Techno-
De kracht van herhaling
pi_82827260
quote:
Op dinsdag 15 juni 2010 11:37 schreef Frollo het volgende:

[..]

Dat is natuurlijk ook zo. Maar je merkt zelf ook dat de vraagstelling bij de meeste mensen toch is: hoe blokkeer ik een cel? Dat is nu eenmaal de meest intuïtieve manier om te denken.
Zo dacht ik eerst ook
quote:
Wat MS bijvoorbeeld ook had kunnen doen, is alle cellen standaard niet-geblokkeerd te maken en bij het invoeren van een formule automatisch op geblokkeerd te zetten.
Alsjeblieft niet zeg....
We stoppen niet met spelen omdat we oud worden.... We worden oud omdat we stoppen met spelen.
pi_82828059
Hier dus een sheetje met m'n probleem als er nog iemand zin heeft om er naar te kijken:

http://www.tempfiles.net/download/201006/106042/Probleeeem.html

10kb
pi_82830757
Volgens mij kan ie makkelijker maar vooruit:
A8 =
1=ALS(AANTAL(D8:E8)=1;INDEX($D$1:$E$1;VERGELIJKEN(MIN(D8:E8);D8:E8;0));ALS(AANTAL.ALS(D8:E8;KLEINSTE(D8:E8;1))>=2;"Meerdere";INDEX($D$1:$E$1;VERGELIJKEN(KLEINSTE(D8:E8;1);D8:E8;0))))
pi_82830886
1=ALS(AANTAL.ALS(D8:E8;B8)>1;"Meerdere";INDEX($D$1:$E$1;VERGELIJKEN(B8;D8:E8;0)))
pi_82832161
nice! Ooit word ik ook goed in Excel.

Heb overigens wel de Engelse versie maar dat is verder geen probleem.
pi_82835138
Mja ik heb NL en blijf niet vertalen
Blijkbaar kan je het prima zelf, goed bezig.
pi_82887104
Uit een ander topic: [excel] Getallen transformeren naar %, eg. 25.19 -> 25.2%
quote:
Ik heb een spreadsheet met een hele hoop getallen zoals 45.6, 23.1, etc. die percentages aangeven maar ik moet deze veranderen in echte percentages (het type cell moet dus een percentage zijn) Het is echter veel te veel om dit allemaal met de hand te doen. Hoe kan ik hier een macro voor schrijven?
Ja dat kan, staan de cellen die aangepast moeten worden allemaal in 1 rij of kolom of verspreid over de spreadsheet?
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
pi_82888924
Waarom macro, beter doe je gewoon '100' als waarde selecteren, kopiëren, dan het hele bereik selecteren met alle getallen die aangepast moeten wordne.
Plakken Speciaal - Delen.
Dan naar celeigenschappen, instellen op Percentage.
pi_82961641
Iemand een idee of het mogelijk binnen excel om bij een getal zeg 9 een plus en min teken te zetten in de cel en elke keer dat je daar op klikt er 1 bij of af gaat. Soort idee wat je ook bij webshops soms ziet.
&lt;&gt;
pi_82964673
Dan moet je 2 knoppen toevoegen, elk met eigen code die de waarde uit de cel haalt, er een bij optelt en dan weer in de cel plaatst.
pi_82965896
quote:
Op vrijdag 18 juni 2010 07:48 schreef DaFan het volgende:
Dan moet je 2 knoppen toevoegen, elk met eigen code die de waarde uit de cel haalt, er een bij optelt en dan weer in de cel plaatst.
Ja dat was me al gelukt , maar om dat voor 25.000 cellen met de hand te doen is me een beetje teveel werk:P dacht dat het misschien makkelijker kon.
&lt;&gt;
pi_82966760
Nee helaas, zou ook niet weten waarom je dat voor 25000 cellen zou willen. Wordt alleen maar onoverzichtelijk.

Wat je wél eventueel kan doen is het volgende als macro in je sheet:
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A3")) Is Nothing Then
    Range("B3").Value = Range("B3").Value - 1
End If

If Not Intersect(Target, Range("C3")) Is Nothing Then
    Range("B3").Value = Range("B3").Value + 1
End If

End Sub


In B3 staat een getal. Als je nu op A3 klikt gaat er 1 vanaf, en in C3 één erbij.
Maar je kan niet meerdere keren achter elkaar klikken :')

Wat óók kan , en misschien nog wel mooier is:
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Cancel = True

If Not Intersect(Target, Range("A3")) Is Nothing Then
    Range("B3").Value = Range("B3").Value - 1
End If

If Not Intersect(Target, Range("C3")) Is Nothing Then
    Range("B3").Value = Range("B3").Value + 1
End If

End Sub

Nu moet je met rechtermuisknop op A3 en C3 de waarde verhogen.
Je zal dan ws wel de cellen moeten blokkeren en het blad moeten beveiligen!

Succes, want het moet nog steeds 25000 keer :')

Edit;
Onee wacht:
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Cancel = True

If Not Intersect(Target, Range("C:C")) Is Nothing Then
    Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + 1
End If

If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Target.Offset(0, 1).Value = Target.Offset(0, 1).Value - 1
End If

End Sub

Zo doet ie álles in kolom A en C gebruiken :)
pi_82966765
quote:
Op vrijdag 18 juni 2010 09:10 schreef Swindler het volgende:

[..]

Ja dat was me al gelukt , maar om dat voor 25.000 cellen met de hand te doen is me een beetje teveel werk:P dacht dat het misschien makkelijker kon.
Waarom moet je in godsnaam 25000 cellen kunnen plussen of minnen? Ben je een voorraadprogramma aan het maken ofzo?
In het geval van een voorraad van 25000 artikelen lijkt het mij handiger daar een professioneel pakket van te maken want als je dat in excel wilt doen ben je nog lang niet klaar.
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
pi_82966782
Waarom doen mn emoticons het niet
pi_82967516
quote:
Op vrijdag 18 juni 2010 09:43 schreef Deetch het volgende:

[..]

Waarom moet je in godsnaam 25000 cellen kunnen plussen of minnen? Ben je een voorraadprogramma aan het maken ofzo?
In het geval van een voorraad van 25000 artikelen lijkt het mij handiger daar een professioneel pakket van te maken want als je dat in excel wilt doen ben je nog lang niet klaar.
Ja dat ben ik inderdaad aan het maken. Het lukt aardig en het is niet zo dat er 25.000 artikelen zijn die regelmatig binnenkomen of weggaan. In de praktijk zal je per dag ongeveer 10 transacties doen.
Daarom heb ik voor excel gekozen.


Enigste waar ik niet uitkom is dit:


Het volgende zoekfilter werkt prima:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 And Len(TextBox2.Value) = 0 Then
ElseIf Len(TextBox1.Value) <> 0 And Len(TextBox2.Value) = 0 Then
ActiveSheet.Range("$F$21:$F$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox1.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub


Private Sub TextBox2_Change()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 And Len(TextBox2.Value) = 0 Then
ElseIf Len(TextBox2.Value) <> 0 And Len(TextBox1.Value) <> 0 Then
ActiveSheet.Range("$G$21:$G$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox2.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub



Nu wil ik er nog een extra zoekfilter aan toevoegen , dit heb ik op de volgende manier gedaan:

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
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 And Len(TextBox2.Value) = 0 And Len(TextBox3.Value) = 0 Then
ElseIf Len(TextBox1.Value) <> 0 And Len(TextBox2.Value) = 0 And Len(TextBox3.Value) <> 0 Then
ActiveSheet.Range("$F$21:$F$25000").AutoFilter field:=1, Criteria1:="=*" & TextBox1.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub


Private Sub TextBox2_Change()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 And Len(TextBox2.Value) = 0 And Len(TextBox3.Value) = 0 Then
ElseIf Len(TextBox2.Value) <> 0 And Len(TextBox1.Value) <> 0 And Len(TextBox3.Value) <> 0 Then
ActiveSheet.Range("$G$21:$G$25000").AutoFilter field:=1, Criteria1:="=*" & TextBox2.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub

Private Sub TextBox3_Change()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 And Len(TextBox2.Value) = 0 And Len(TextBox3.Value) = 0 Then
ElseIf Len(TextBox3.Value) <> 0 And Len(TextBox1.Value) <> 0 And Len(TextBox2.Value) <> 0 Then
ActiveSheet.Range("$H$21:$H$25000").AutoFilter field:=1, Criteria1:="=*" & TextBox3.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub


Alleen dit werkt dus niet , ik zie niet echt waarom dit niet zou moeten werken?
&lt;&gt;
  vrijdag 18 juni 2010 @ 16:11:40 #274
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_82986107
Weer eens een vraagje van mij

Ik heb een Excelsheet (Win Vista, Excel2007) met per dag een aantal kolommen. Nu wil ik een telling doen van hoeveel dagen een waarde bevatten. Maar als ik de normale aantal functie gebruik dan telt hij natuurlijk voor maandag alle vier de kolommen bij elkaar op, terwijl ik dat als 1 wil zien.

Kort samengevat; ik heb een bereik met per dag 4 kolommen op zaterdag en zondag na die hebben maar 2 kolommen. Hoe laat ik Excel uitrekenen hoeveel dagen er in die week een entry is?


Hoe kan ik dat handiger oplossen?
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
  vrijdag 18 juni 2010 @ 16:53:59 #275
15967 Frollo
You know I am a righteous man
pi_82988407
quote:
Op vrijdag 18 juni 2010 16:11 schreef sanger het volgende:
Weer eens een vraagje van mij

Ik heb een Excelsheet (Win Vista, Excel2007) met per dag een aantal kolommen. Nu wil ik een telling doen van hoeveel dagen een waarde bevatten. Maar als ik de normale aantal functie gebruik dan telt hij natuurlijk voor maandag alle vier de kolommen bij elkaar op, terwijl ik dat als 1 wil zien.

Kort samengevat; ik heb een bereik met per dag 4 kolommen op zaterdag en zondag na die hebben maar 2 kolommen. Hoe laat ik Excel uitrekenen hoeveel dagen er in die week een entry is?


Hoe kan ik dat handiger oplossen?
Ik snap het nog niet helemaal.
Wil je weten hoeveel kolommen iets bevatten per dag? Of wil je alleen maar weten of de kolommen iets bevatten? Met andere woorden: wil je resultaat1 of resultaat2?

pi_82988623
SUMPRODUCT !!
  vrijdag 18 juni 2010 @ 20:13:05 #277
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_82996130
quote:
Op vrijdag 18 juni 2010 16:53 schreef Frollo het volgende:

[..]

Ik snap het nog niet helemaal.
Wil je weten hoeveel kolommen iets bevatten per dag? Of wil je alleen maar weten of de kolommen iets bevatten? Met andere woorden: wil je resultaat1 of resultaat2?

[ afbeelding ]
Nee andersom

Het gaat om een urenregistratie. Per dag kunnen er uren voorkomen in diverse tijdzones. Maar voor de reiskosten wil ik weten hoeveel dagen er gewerkt is.

Dus bij maandag staan er vier kolommen, en in alle kolommen kan iets voorkomen (in theorie). Dan wil ik echter maandag wel als 1 hebben. En dinsdag net zo.
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
  vrijdag 18 juni 2010 @ 20:20:11 #278
62215 qu63
..de tijd drinkt..
pi_82996434
quote:
Op vrijdag 18 juni 2010 20:13 schreef sanger het volgende:

[..]

Nee andersom

Het gaat om een urenregistratie. Per dag kunnen er uren voorkomen in diverse tijdzones. Maar voor de reiskosten wil ik weten hoeveel dagen er gewerkt is.

Dus bij maandag staan er vier kolommen, en in alle kolommen kan iets voorkomen (in theorie). Dan wil ik echter maandag wel als 1 hebben. En dinsdag net zo.
Maandag is dus 1 of 0? Geen 2/3/4?
=ALS(OF(B1>0;C1>0;D1>0;E1>0);1;0)+ALS(OF(F1>0;G1>0;H1>0;I1>0);1;0)+ALS(OF(J1>0;K1>0;L1>0;M1>0);1;0)+ALS(OF(N1>0;O1>0;P1>0;Q1>0);1;0)+ALS(OF(R1>0;S1>0;T1>0;U1>0);1;0)+ALS(OF(V1>0;W1>0;);1;0)+ALS(OF(X1>0;Y1>0);1;0)
=maandag(4x)+dinsdag(4x)+woensdag(4x)+donderdag(4x)+vrijdag(4x)+zaterdag(2x)+zondag(2x)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_83000399
Het is denk ik makkelijker met een screenshot sanger.
En qu63 zonder me erin te verdiepen vermoed ik dat je formule een stuk makkelijker kan
  vrijdag 18 juni 2010 @ 21:46:14 #280
62215 qu63
..de tijd drinkt..
pi_83000905
quote:
Op vrijdag 18 juni 2010 21:38 schreef DaFan het volgende:
Het is denk ik makkelijker met een screenshot sanger.
En qu63 zonder me erin te verdiepen vermoed ik dat je formule een stuk makkelijker kan
Dit was uit 't hoofdje een aantal.als zou ook nog kunnen..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zaterdag 19 juni 2010 @ 08:11:13 #281
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_83012068
quote:
Op vrijdag 18 juni 2010 20:20 schreef qu63 het volgende:

[..]

Maandag is dus 1 of 0? Geen 2/3/4?
Nee daar kan net zo makkelijk 8 staan Daar komt het aantal gewerkte uren in te staan.
quote:
Op vrijdag 18 juni 2010 21:38 schreef DaFan het volgende:
Het is denk ik makkelijker met een screenshot sanger.
Ik zal zo even inloggen op mijn werk pc en een screenshotje maken
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_83012135
Ik ben wel de rest van de dag weg dus ik kan er morgen pas naa rkieken als qu63 of een van de andere helden het niet kan

Kudo's als iemand het met sumproduct doet.
  zaterdag 19 juni 2010 @ 08:26:04 #283
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_83012143
Dit is dus het bewuste bestandje heb alleen maandag en dinsdag getoond omdat het anders te breed zou worden

Ik wil dus in de meest rechter kolom automatisch laten uitrekenen hoeveel reiskosten iemand moet krijgen. Ze krijgen een vast bedrag per dag. Voor iedere weekdag kunnen er vier uursoorten voorkomen, waarbij geen enkele gegarandeerd is.

Zo kan op een dag alleen overwerk voorkomen zonder dat er normale uren worden gewerkt. ORT uren net zo, evenals normale uren.

In dit voorbeeld zou ik dus willen dat er in de meest rechter kolom automatisch ¤ 32 komt te staan bij de bovenste persoon omdat die persoon twee dagen gewerkt heeft.



Ik wil dit automatisch doen omdat mensen het toch voor elkaar krijgen het fout in te vullen
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
  zaterdag 19 juni 2010 @ 08:26:49 #284
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_83012147
quote:
Op zaterdag 19 juni 2010 08:23 schreef DaFan het volgende:
Ik ben wel de rest van de dag weg dus ik kan er morgen pas naa rkieken als qu63 of een van de andere helden het niet kan

Kudo's als iemand het met sumproduct doet.
Heeft geen haast hoor Doe het nu al zo lang zonder
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_83014399
Ik kom niet uit iets heel simpels nu :P

wil graag een macro hebben die in de door mij geselecteerde cel iedere keer als ik de macro activeer 1 erbij optelt.

Heb nu deze code:

1
2
3
4
5
6
7
Sub plus()
'
' plus Macro

    ActiveCell.FormulaR1C1 = "=+1"

End Sub


= "=+1" dit gedeelte klopt niet volgens mij , moet ik dan iets doen van : =currentvalue +1 ofzo?
&lt;&gt;
  zondag 20 juni 2010 @ 01:31:50 #286
62215 qu63
..de tijd drinkt..
pi_83043370
quote:
Op zaterdag 19 juni 2010 08:26 schreef sanger het volgende:
Dit is dus het bewuste bestandje heb alleen maandag en dinsdag getoond omdat het anders te breed zou worden

Ik wil dus in de meest rechter kolom automatisch laten uitrekenen hoeveel reiskosten iemand moet krijgen. Ze krijgen een vast bedrag per dag. Voor iedere weekdag kunnen er vier uursoorten voorkomen, waarbij geen enkele gegarandeerd is.

Zo kan op een dag alleen overwerk voorkomen zonder dat er normale uren worden gewerkt. ORT uren net zo, evenals normale uren.

In dit voorbeeld zou ik dus willen dat er in de meest rechter kolom automatisch ¤ 32 komt te staan bij de bovenste persoon omdat die persoon twee dagen gewerkt heeft.

[ afbeelding ]

Ik wil dit automatisch doen omdat mensen het toch voor elkaar krijgen het fout in te vullen
Zo dan?
Kleine variatie op mn vorige post:
=ALS(4>AANTAL.LEGE.CELLEN(A2:D2);1;0)+ALS(4>AANTAL.LEGE.CELLEN(E2:H2);1;0)+ALS(4>AANTAL.LEGE.CELLEN(I2:L2);1;0)+ALS(4>AANTAL.LEGE.CELLEN(M2:P2);1;0)+ALS(4>AANTAL.LEGE.CELLEN(Q2:T2);1;0)+ALS(2>AANTAL.LEGE.CELLEN(U2:V2);1;0)+ALS(2>AANTAL.LEGE.CELLEN(W2:X2);1;0)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 20 juni 2010 @ 07:52:45 #287
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_83045987
quote:
Op zondag 20 juni 2010 01:31 schreef qu63 het volgende:

[..]

Zo dan?
Kleine variatie op mn vorige post:
=ALS(4>AANTAL.LEGE.CELLEN(A2:D2);1;0)+ALS(4>AANTAL.LEGE.CELLEN(E2:H2);1;0)+ALS(4>AANTAL.LEGE.CELLEN(I2:L2);1;0)+ALS(4>AANTAL.LEGE.CELLEN(M2:P2);1;0)+ALS(4>AANTAL.LEGE.CELLEN(Q2:T2);1;0)+ALS(2>AANTAL.LEGE.CELLEN(U2:V2);1;0)+ALS(2>AANTAL.LEGE.CELLEN(W2:X2);1;0)
Ik ga er vandaag niet aan toekomen, maar zal het morgen even proberen
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_83049147
quote:
Op zaterdag 19 juni 2010 11:04 schreef Swindler het volgende:
Ik kom niet uit iets heel simpels nu

wil graag een macro hebben die in de door mij geselecteerde cel iedere keer als ik de macro activeer 1 erbij optelt.

Heb nu deze code:
[ code verwijderd ]

= "=+1" dit gedeelte klopt niet volgens mij , moet ik dan iets doen van : =currentvalue +1 ofzo?
ActiveCell.Value = Activecell.Value + 1
pi_83050444
quote:
Op zondag 20 juni 2010 12:05 schreef DaFan het volgende:

[..]

ActiveCell.Value = Activecell.Value + 1
thnx
&lt;&gt;
pi_83087643
Is er een eenvoudige manier om in een kolom met getallen waarin ook foutmeldingen staan (#value, #N/B) het maximum te vinden? De getallen staan in oplopende volgorde.
Een soort van max.if functie

[ Bericht 9% gewijzigd door Deetch op 21-06-2010 09:23:33 ]
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
  maandag 21 juni 2010 @ 09:45:58 #291
15967 Frollo
You know I am a righteous man
pi_83088391
quote:
Op maandag 21 juni 2010 09:08 schreef Deetch het volgende:
Is er een eenvoudige manier om in een kolom met getallen waarin ook foutmeldingen staan (#value, #N/B) het maximum te vinden? De getallen staan in oplopende volgorde.
Een soort van max.if functie
Zou ik zo gauw niet weten, maar ik heb wel een beetje een workaround bedacht. Cellen met tekst verstoren de max-functie niet, en daar kun je gebruik van maken.
In alle cellen die je met de max-functie wilt controleren, vul je niet in:

=mijnformule

maar:

=ALS(ISFOUT(mijnformule);"fout!";mijnformule)
pi_83088706
quote:
Op maandag 21 juni 2010 09:45 schreef Frollo het volgende:

[..]

Zou ik zo gauw niet weten, maar ik heb wel een beetje een workaround bedacht. Cellen met tekst verstoren de max-functie niet, en daar kun je gebruik van maken.
In alle cellen die je met de max-functie wilt controleren, vul je niet in:

=mijnformule

maar:

=ALS(ISFOUT(mijnformule);"fout!";mijnformule)
Thx frollo, dat scheelt weer een hoop gedoe.

Nog even de engelse vertaling voor de liefhebber:
=IF(ISERROR(formule),"fout", formule)
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
pi_83095084
Of, als A1:A4 je range is:
=MAX(ALS(ISFOUT(A1:A4);;A1:A4))

=MAX(IF(ISERROR(A1:A4),,A1:A4))

Bevestigen met Ctrl-Shift-Enter.
pi_83095117
qu63 ik kan niks makkelijker vinden dan jouw formule
pi_83097699
quote:
Op maandag 21 juni 2010 13:23 schreef DaFan het volgende:
Of, als A1:A4 je range is:
=MAX(ALS(ISFOUT(A1:A4);;A1:A4))

=MAX(IF(ISERROR(A1:A4),,A1:A4))

Bevestigen met Ctrl-Shift-Enter.
Die werkt ook, scheelt ook heel veel overtyp werk
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
  maandag 21 juni 2010 @ 20:04:54 #296
62215 qu63
..de tijd drinkt..
pi_83114026
quote:
Op maandag 21 juni 2010 13:24 schreef DaFan het volgende:
qu63 ik kan niks makkelijker vinden dan jouw formule
Ik ook niet
Hij blijft zo lang omdat je echt met 7 ranges werkt..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_83131390
qu ik krijg m alleen heel ietsje korter;
=ALS(4=SOM(--ISLEEG(A2:D2));0;1)
(Ctrl-Shift-Enter)
Maar das alleen voor A2:D2
  dinsdag 22 juni 2010 @ 10:29:30 #298
100297 teamlead
Nu met Napoleon complex
pi_83134185
erm.. wat doe ik fout

in tabblad "verwerken" wil ik in cel D17 de waarde terugzien uit tabblad "bron" cel G2.
als ik gewoon zeg =bron!G2 , geeft excel (2007, Nl-versie) de formule als tekst weer.... en dus niet het resultaat

(celeigenschappen staan gelijk als in andere cellen waar deze simpele verwijzing wél werkt overigens)
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
pi_83135749
quote:
Op dinsdag 22 juni 2010 10:29 schreef teamlead het volgende:
erm.. wat doe ik fout

in tabblad "verwerken" wil ik in cel D17 de waarde terugzien uit tabblad "bron" cel G2.
als ik gewoon zeg =bron!G2 , geeft excel (2007, Nl-versie) de formule als tekst weer.... en dus niet het resultaat

(celeigenschappen staan gelijk als in andere cellen waar deze simpele verwijzing wél werkt overigens)
Kan je dan niet beter in het tabblad bon cel G2 een andere naam geven en dan daarnaar verwijzen

=naam
&lt;&gt;
pi_83137288
dat heb ik ook weleens gehad. heeft te maken met het gedefinieerde celformaat. Was een crime om weer goed te krijgen.
Celformat naar :"general of number aanpssen helpt niet?
Soms is ie ook lokced of hidden dat moet je ook uitzetten.
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
pi_83137454
quote:
Op dinsdag 22 juni 2010 11:17 schreef Swindler het volgende:

[..]

Kan je dan niet beter in het tabblad bon cel G2 een andere naam geven en dan daarnaar verwijzen

=naam
Waarom zou je dat doen Succes als je een keer een grote sheet gaat bouwen, dan mag je 10000 namen definiëren.

[Excel] Het grote Excel vragen topic #22
abonnement Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')