[EXCEL] Het grote Excel vragen topic, #11

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
  maandag 9 maart 2009 @ 21:24:27 #101
158136 Joooo-pi
Do you want a balloon...
pi_66874875
quote:
Op maandag 9 maart 2009 21:15 schreef Maartel het volgende:

[..]

Hoe doe ik 'plakken als'? Ik zie wel 'plakken speciaal' staan, maar die is grijs
ohja, sorry, ik bedoel plakken speciaal. Je moet wel kopieren, niet knippen. is ie dan nog grijs?

(daarna kun je de xtra kolommen nog wel handmatig verwijderen)
heitieh
  dinsdag 10 maart 2009 @ 10:13:23 #102
74185 PsychoBoB
the psycho of them all
pi_66887897
Ff een vraagje, hoe zet je de layout van een pivot table vast? Dus dat de layout niet veranderd als je een filter toepast?/

Bvd..
Het uiten van je menig is het allerhoogste goed, dat is juist iets wat haat ontlaad en niet wat woede voedt.... (maassen 2004™)
pi_66888412
quote:
Op maandag 9 maart 2009 21:15 schreef Maartel het volgende:

[..]

Hoe doe ik 'plakken als'? Ik zie wel 'plakken speciaal' staan, maar die is grijs
Je moet wel eerst cellen gekopieerd hebben voor dat je ze kan plakken. Dus de cellen die je wilt kopieren selecteren, dan in menu bewerken kopieren kiezen (of CTRL+C) en dan naar de plek gaan waar je de cellen wilt plakken en dan via menu bewerken plakken speciaal kiezen.

leuk weer een excel noob erbij
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_66946933
Ik open net Excel, zijn ineens alle functies licht-blauw zodat ik ze niet kan aanklikken??
Wat kan ik hier aan doen?
Don't let your shadow spoil the view of what's around you
  woensdag 11 maart 2009 @ 20:32:18 #105
158136 Joooo-pi
Do you want a balloon...
pi_66947797
quote:
Op woensdag 11 maart 2009 20:07 schreef Maartel het volgende:
Ik open net Excel, zijn ineens alle functies licht-blauw zodat ik ze niet kan aanklikken??
Wat kan ik hier aan doen?
New sheet?
heitieh
pi_66948037
quote:
Op woensdag 11 maart 2009 20:32 schreef Joooo-pi het volgende:

[..]

New sheet?
Ik merk dat t in Word net zo is.. óf er is iets mis met t programma, of ik moet 't activeren, maar lijkt me dat ik daar wel een melding van zou krijgen
Don't let your shadow spoil the view of what's around you
  woensdag 11 maart 2009 @ 21:03:11 #107
158136 Joooo-pi
Do you want a balloon...
pi_66948843
quote:
Op woensdag 11 maart 2009 20:39 schreef Maartel het volgende:

[..]

Ik merk dat t in Word net zo is.. óf er is iets mis met t programma, of ik moet 't activeren, maar lijkt me dat ik daar wel een melding van zou krijgen
Heb je de 30-dagen probeerversie van 2007 misschien?
heitieh
pi_66948895
Ik heb m'n laptop al veel langer dan 30 dagen en er is me nergens verteld dat er iets is afgelopen, maar ws zal t idd zoiets zijn..
Don't let your shadow spoil the view of what's around you
  woensdag 11 maart 2009 @ 21:11:57 #109
158136 Joooo-pi
Do you want a balloon...
pi_66949143
quote:
Op woensdag 11 maart 2009 21:04 schreef Maartel het volgende:
Ik heb m'n laptop al veel langer dan 30 dagen en er is me nergens verteld dat er iets is afgelopen, maar ws zal t idd zoiets zijn..
Volgens mij zit daar ook een beperking op het aantal keren dat je het programma gebruikt hebt, maar daar krijg je doorgaans een melding van als je het programma opstart.
heitieh
  woensdag 11 maart 2009 @ 21:33:36 #110
62215 qu63
..de tijd drinkt..
pi_66949960
quote:
Op woensdag 11 maart 2009 21:03 schreef Joooo-pi het volgende:

[..]

Heb je de 30-dagen probeerversie van 2007 misschien?
Het is wasrchijnlijk een '25x gebruiken' versie..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 12 maart 2009 @ 12:54:05 #111
134944 Hi_flyer
Van alles te melden
pi_66967007
1
2
3
4
5		    
Dim FrUserform As Frame
For Each FrUserform In Me
    FrUserform.Visible = True
 Next FrUserform


Wat doe ik fout? Het is dus een userform waarin ik alle frames zichtbaar wil maken. Ik heb 'Me' al vervangen door userform1, maar dat werkt ook niet...
pi_66967492
Probeer eens Me.Frames.
pi_66967807
quote:
Op donderdag 12 maart 2009 12:54 schreef Hi_flyer het volgende:

[ code verwijderd ]

Wat doe ik fout? Het is dus een userform waarin ik alle frames zichtbaar wil maken. Ik heb 'Me' al vervangen door userform1, maar dat werkt ook niet...
Al die frames zijn neem ik aan checkboxen, invoervensters etc etc. Deze hebben allemaal een eigen naam.

Met onderstaande code (1e pagina van dit topic) kun je alle textboxen in een userform invisible maken. Wellicht kun je het zelfde doen met alle andere controls (frames) mits je deze dezelfde naam geeft met een volgnummer.

Dus of je geeft alle controls dezelfde naam met een volgnummer of je doet voor elke groep controls een zelfde naam, dus je laat gewoon de standaardnamen staan, en maakt meerder loopjes die alle groepen controls doorloopt.

1
2
3
4
5
6
7		Private Sub UserForm_Activate()

For i = 1 To 5
    sName = "TextBox" & i
    Me.Controls(sName).Visible = False
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
  donderdag 12 maart 2009 @ 13:29:21 #114
134944 Hi_flyer
Van alles te melden
pi_66968145
Ik heb ze helaas allemaal wat logischer namen gegeven zoals position1-3, layer1-4, measurementlayer1-4 etcetera

Overigens denk ik dat dim ... as frame niet werkt omdat 'frame' geen declaratie is?
pi_66969277
Correct en die controls functie heeft een naam nodig zoals ik hier boven al heb uitgelegd.

je moet dus een loopje maken voor position1-3, layer1-4 etc etc.
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 12 maart 2009 @ 14:58:44 #116
134944 Hi_flyer
Van alles te melden
pi_66971223
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19		    'maak alle layers zichtbaar
    Me.Layer1.Visible = True
    Me.Layer2.Visible = True
    Me.Layer3.Visible = True
    Me.Layer4.Visible = True
    
    Me.Position1.Visible = True
    Me.Position1b.Visible = True
    Me.Position2.Visible = True
    Me.Position2b.Visible = True
    Me.Position3.Visible = True
    Me.Position3b.Visible = True
    Me.Position4.Visible = True
    Me.Position4b.Visible = True
    
    Me.Measure1.Visible = True
    Me.Measure2.Visible = True
    Me.Measure3.Visible = True
    Me.Measure4.Visible = True


Ok, dan maar zo opgelost :) Weliswaar niet zo mooi, maar toch. :P
pi_66972689
Dit werkt ook, voor alle objecten in het Worksheet:

1
2
3
4
5
6
7
8
9		Private Sub CommandButton3_Click()

Dim i As Object

For Each i In Me.OLEObjects
    i.Visible = True
Next

End Sub
pi_66973763
quote:
Op donderdag 12 maart 2009 15:42 schreef DaFan het volgende:
Dit werkt ook, voor alle objecten in het Worksheet:
[ code verwijderd ]
werkt dit ook in een userform dan? Scheelt weer gedoe zeg maar.
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_66979096
ik heb een wss hele simpele vraag: wat is de nederlandse vertaling van de solver functie voor excel?

THX!
pi_66979539
quote:
Op donderdag 12 maart 2009 16:11 schreef Deetch het volgende:

[..]

werkt dit ook in een userform dan? Scheelt weer gedoe zeg maar.
Geen idee ik kon zo 1,2,3 niet vinden waar je Userform kan invoegen
pi_66980229
Nieuwe ronde, nieuwe kansen;

Ordernr - Artikel
01 - Pen
01 - Potlood
01 - Gum
02 - Pen
02 - Gum
03 - Pen
03 - Potlood
03 - Etui
03 - Schaar

Hoe vaak zijn Pen - Potlood samen besteld, hoe vaak zijn Pen - Gum samen besteld, hoe vaak zijn Pen - Etui samen besteld etc. etc. tot alle opties uitgeput zijn.

Iemand een geniaal idee?
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
pi_66981468
Hoeveel artikelen zijn er? En is het een optie om op een ander blad een lijst van artikelen te maken? Dan kan het "vrij simpel" met een macro.
pi_66981664
quote:
Op donderdag 12 maart 2009 19:57 schreef DaFan het volgende:
Hoeveel artikelen zijn er? En is het een optie om op een ander blad een lijst van artikelen te maken? Dan kan het "vrij simpel" met een macro.
100 artikelen, 50.000 orderregels in 10.000 orders. Lijst maken is een makkie, t komt uit een Access database

Ik kom nu wel ergens met wat gekloot in Excel maar ik vrees dat het belachelijk veel tijd kost om dat op te schalen naar die 100 artikelen Een macro zou dan ook heeeeeel erg welkom zijn. Ik heb nml. echt geen idee in welke richting ik moet zoeken.
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
pi_66981918
Maar ehm als je elk artikel met elk artikel moet matchen heb je 99+98+97+....3+2+1 regels....5000 opties dus. Dat is geen probleem?

Dan ga ik straks of morgen op werk ff kloten. Anders wordt het pas zondag.
pi_66986145
Ik kom er nu in ieder geval even niet uit, teveel loops heb ik nu
pi_66986386
quote:
Op donderdag 12 maart 2009 21:28 schreef DaFan het volgende:
Ik kom er nu in ieder geval even niet uit, teveel loops heb ik nu
Ik ben met wat omweggetjes bezig maar zonder Office 2007 ga je de mist in door een overload aan formules. Via een draaitabel, samenvoeg formules en dan de opties onder elkaar in 1 rij zetten zou ik een count moeten kunnen uitvoeren op alle combinaties
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
pi_66986752
Denk dat het met een formule echt niet gaat lukken....
pi_66990057
Ik ben al een eind maar t blijft een teringwerk en belangrijker, als de echte gegevens komen kan ik t nog een keer doen Straks de uitleg

-edit-
Als eerste heb ik een Access query gedraaid die alle ordernummers naast de artikelgroepen in die order zet. Dan krijg je zo'n lijstje als wat ik postte. Die heb ik in Data1 gezet, vervolgens heb ik daarvan een draaitabel naar Data2 gezet. In de draaitabel gaan de ordernummers aan de linkerkant, de artikelgroepen aan de bovenkant en de count van de artikelgroepen in het midden. Dan krijg je allemaal eentjes en via opties kun je op de lege plekken nulletjes te voorschijn toveren. Vervolgens gaan we door naar sheet Data3 alwaar we de eentjes om gaan zetten naar de artikelgroep en de nulletjes omgezet worden naar de waarde "NIET" met behulp van een IF statement (als eentje, dan artikelgroep anders NIET). Daarna gaan we door naar sheet Data4 alwaar we de tekst van B3 samenvoegen met B4, in de volgende cel B3 samenvoegen met B5, dan B3 met B6 en ga zo maar door. Dan krijg je dus alle mogelijke combinaties met het eerste artikel in je artikelgroepen-lijst. Je wilt daarna ook alle mogelijke combinaties met het tweede, derde, vierde, etc. artikel in de lijst. Dat kan in theorie met formules maar zelfs Office 2007 trekt dat niet aangezien je binnen no time tegen de 1 miljoen formules zit.

Wat ik dus heb gedaan is op de lijst in Data1 een filter zetten en op alfabetische volgorde de eerste artikelgroep verwijderen, de draaitabel updaten, de gegevens uit Data4 als waarde copy-pasten in een nieuwe sheet, de tweede artikelgroep verwijderen, de draaitabel updaten, gegevens uit Data4 copy-pasten etc. etc. etc. etc. etc. etc. Dit werkt omdat je draaitabel steeds bij het volgende product begint terwijl je formules in Data3 gewoon naar kolom B blijft verwijzen op je draaitabel sheet.

Vervolgens zit ik wel met 100 aparte bladzijden met een belachelijke tabel aan data. Ik heb nu een Excel macro gevonden die de gegevens uit alle kolommen onder elkaar in 1 kolom zet. Die moet nu op een of andere manier over alle tabbladen gaan lopen. Vervolgens trek ik alle kolommen Acces in en run ik er een group by/count query op. Ik flikker alle records met NIETNIET, artikelgroepNIET en NIETartikelgroep er uit en ik houd alleen maar artikelgroepartikelgroep - count over en ik ben er. Kost me een avond maar goed

-edit2-
Lijkt nog steeds niet 100% te gaan dus betere suggesties zijn zeker welkom!

[ Bericht 39% gewijzigd door FJD op 13-03-2009 01:24:10 ]
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
  vrijdag 13 maart 2009 @ 09:09:53 #129
234506 Metal_Jag
MMM van metal
pi_66997984
quote:
Op donderdag 12 maart 2009 19:04 schreef DaFan het volgende:

[..]

Geen idee ik kon zo 1,2,3 niet vinden waar je Userform kan invoegen
Script editor --> new --> Userform
quote:
Op donderdag 12 maart 2009 19:23 schreef FJD het volgende:
Nieuwe ronde, nieuwe kansen;

Ordernr - Artikel
01 - Pen
01 - Potlood
01 - Gum
02 - Pen
02 - Gum
03 - Pen
03 - Potlood
03 - Etui
03 - Schaar

Hoe vaak zijn Pen - Potlood samen besteld, hoe vaak zijn Pen - Gum samen besteld, hoe vaak zijn Pen - Etui samen besteld etc. etc. tot alle opties uitgeput zijn.

Iemand een geniaal idee?
Ik heb wel wat ideeen, maar vergis je niet: dit is volgens mij een vraag die als opgave op een HBO ( ) niet zou misstaan...

Ik zit te denken aan:
definieer een set (verzameling) met artikelen 1...N
definieer een matrix (bijv. A) met N rijen en N kolommen waarbij je gaat tellen hoevaak een combi voorkomt.
Dat betekent A(i,j) = aantal keren dat i en j samen zijn besteld.

Vervolgens loop je door alle orders heen en verhoog je de combinatie in die order met 1.
In zo'n order:
regel 1 (bijv. pen) icm alle verdere regels: +1
regel 2 icm met alle verdere regels: +1
e.v.
(dan heb je ze toch? Volgens mij wel.)

[ Bericht 2% gewijzigd door Metal_Jag op 13-03-2009 09:22:56 ]
  vrijdag 13 maart 2009 @ 09:14:49 #130
234506 Metal_Jag
MMM van metal
pi_66998119
Ik heb ook ff een vraag:

Hoe controleer ik in een macro dat er in een cel een geldige tijd staat?
  vrijdag 13 maart 2009 @ 09:15:56 #131
234506 Metal_Jag
MMM van metal
pi_66998153
quote:
Op donderdag 12 maart 2009 18:50 schreef kwakke het volgende:
ik heb een wss hele simpele vraag: wat is de nederlandse vertaling van de solver functie voor excel?

THX!
Oplosser...

(ligt ook voor de hand )

Btw: deze moet je zelf nog invoegen, want is niet standaard beschikbaar.
pi_66999595
Gisteren 7uur lang mee bezig geweest, ik word vanmorgen wakker met een geniale ingeving en ik bouw vanmorgen binnen een half uur de Access query die werkt
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
pi_67000011
quote:
Op vrijdag 13 maart 2009 10:03 schreef FJD het volgende:
Gisteren 7uur lang mee bezig geweest, ik word vanmorgen wakker met een geniale ingeving en ik bouw vanmorgen binnen een half uur de Access query die werkt
Haha dat komt me bekend voor. Ben je een hele week bezig moeilijk te doen en wordt je op vrijdagnacht midden in de nacht wakker met een briljant idee.
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_67004649
quote:
Op vrijdag 13 maart 2009 10:03 schreef FJD het volgende:
Gisteren 7uur lang mee bezig geweest, ik word vanmorgen wakker met een geniale ingeving en ik bouw vanmorgen binnen een half uur de Access query die werkt
Nice! Ik was er nog niet can toegekomen
pi_67034354
Hoe kan in een bepaalde cel een plaatje laten verschijnen als in een andere cel aan een bepaalde voorwaarde wordt voldaan? Dus zeg maar een ALS-functie, maar dan niet met tekst, maar met een plaatje.
Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
pi_67036111
RM: Het kan wel maar is lastig. Hier staan 2 macro's om hem toe te voegen in een bepaalde range:
http://www.exceltip.com/s(...)osoft_Excel/486.html

Je kan de eerste macro natuurlijk aanroepen dmv een Worksheet_change event als je die bepaalde cel aanroept:
1
2
3
4
5
6
7
8
9
10
11		Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

    If Not Intersect(Target, Range("A1")) Is Nothing Then
        InsertPicture "C:\FolderName\PictureFileName.gif", Range("B1"), True, True
    End If

Application.EnableEvents = True

End Sub

Nu komt er in B1 het plaatje als A1 verandert.

Je kan dan natuurlijk meerdere If's bouwen voor meerdere plaatjes en de range uit de eerste macro uit de link aanpassen.

Succes.
pi_67048318
Ik laat dat toch maar zitten, thanks anyway .

Ander vraagje (lastig uit te leggen).

Ik werk al een tijdje met een form waarbij de informatie van het form automatisch op de goede plaats wordt neergezet in Excel. De informatie wordt steeds geplaatst in één rij en dan in de kolommen A t/m F.
quote:
Private Sub cmdOpslaan_Click()
Dim x As Long
x = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & x) = txtSpeelronde
Range("B" & x) = txtDatum
Range("C" & x) = lstThuisclub
Range("D" & x) = lstUitclub
Range("E" & x) = lstSpeler1
Range("F" & x) = txtMinuten
End Sub
Dat werkt allemaal prima en elke nieuwe invoer komt netjes als een nieuwe rij eronder. Alleen ik zoek nu naar een oplossing om meer informatie te kunnen verwerken. Ik wil zeg maar in één keer een boel informatie kunnen toevoegen aan mijn sheet, via het form. Nu moet ik bijvoorbeeld tien keer het form invullen om telkens een nieuwe rij erbij te krijgen, maar ik wil dat ik mijn form het één keer invul en dan gelijk tien nieuwe rijen erbij krijg. Dus bijvoorbeeld van A1 t/m F10. Is het mogelijk om niet alleen van links naar rechts automatisch in te voeren, maar ook van boven naar beneden?
Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
  zondag 15 maart 2009 @ 11:08:31 #138
158136 Joooo-pi
Do you want a balloon...
pi_67062832
quote:
Op zaterdag 14 maart 2009 19:48 schreef RayMania het volgende:
Ik laat dat toch maar zitten, thanks anyway .

Ander vraagje (lastig uit te leggen).

Ik werk al een tijdje met een form waarbij de informatie van het form automatisch op de goede plaats wordt neergezet in Excel. De informatie wordt steeds geplaatst in één rij en dan in de kolommen A t/m F.
[..]

Dat werkt allemaal prima en elke nieuwe invoer komt netjes als een nieuwe rij eronder. Alleen ik zoek nu naar een oplossing om meer informatie te kunnen verwerken. Ik wil zeg maar in één keer een boel informatie kunnen toevoegen aan mijn sheet, via het form. Nu moet ik bijvoorbeeld tien keer het form invullen om telkens een nieuwe rij erbij te krijgen, maar ik wil dat ik mijn form het één keer invul en dan gelijk tien nieuwe rijen erbij krijg. Dus bijvoorbeeld van A1 t/m F10. Is het mogelijk om niet alleen van links naar rechts automatisch in te voeren, maar ook van boven naar beneden?
Natuurlijk kun je ook verticaal doen. De volgende rij is immers x+1, dus Cells(x + 1, 1) zou wel moeten werken.

Maar je zult de gegevens toch wel ergens moeten ingeven? Ik snap daarom de rest van je vraag niet.
heitieh
  FOK!fossiel zondag 15 maart 2009 @ 21:49:38 #139
10 RemCOW
SG Special power! :D
pi_67084358
Argh... De SpecialCells wil maar niet werken bij mij met een functie. Inmiddels heb ik mijn functie al naar het volgende gestript:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16		Function FirstValueHist(rStart As Range, rRange As Range, lMin As Double, lMax As Double)

Dim rLookin As Range
Dim rFound As Range
Dim lFound As Double
Dim lCellCount As Long, lcount As Long
Dim bNoFind As Boolean
Dim rCcells As Range

On Error Resume Next

'Set rFcells = rRange.Cells.SpecialCells(xlCellTypeBlanks)
FirstValueHist = rRange.Cells.SpecialCells(xlCellTypeBlanks).Count

On Error GoTo 0
End Function

rRange heb ik geselecteerd als P6:P12

In die range heb ik een aantal lege cellen, een aantal met cijfers en een aantal met tekst. Toch blijft de functie stug 7 weergeven. Ook als ik xlCellTypeBlanks vervang met xlCellTypeConstants, xlNumbers.

De bedoeling is dat met SpecialCells alleen de cellen in een bereik worden meegenomen als er cijfers in staan, en die met tekst dus niet.

Het vreemde is dat het wél werkt met een macro!! Help?

Deze laat het nog beter zien:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34		Sub RemcoTEST2()

Dim rCcells As Range, rFcells As Range
Dim Blaat1 As Double, Blaat2 As Double

            Set rCcells = Range("O6:O12").Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
            Set rFcells = Range("O6:O12").Cells.SpecialCells(xlCellTypeFormulas, xlNumbers)
        
        Blaat1 = rCcells.Cells.Count
        Blaat2 = rFcells.Cells.Count
        
         Range("Q1") = Blaat1
         Range("Q2") = Blaat2
         
        On Error GoTo 0

End Sub

Function RemcoTEST2func()

Dim rCcells As Range, rFcells As Range
Dim Blaat1 As Double, Blaat2 As Double

            Set rCcells = Range("O6:O12").Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
            Set rFcells = Range("O6:O12").Cells.SpecialCells(xlCellTypeFormulas, xlNumbers)
       
        Blaat1 = rCcells.Cells.Count
        Blaat2 = rFcells.Cells.Count
        
        RemcoTEST2func = Blaat1
   
        On Error GoTo 0

End Function

Het veld O6 t/m O12 heeft 5x een cijfer, 2x een formule. De macro zet netjes 5 en 2 neer, de functie geeft 7 weer terwijl die 5 moet weergeven...

Update: Als ik http://www.xtremevbtalk.com/showthread.php?t=180823 mag geloven, mag je SpecialCells niet gebruiken in een functie. Zet dan in de help dan ofzo... tering.

[ Bericht 24% gewijzigd door RemCOW op 15-03-2009 22:19:32 ]
Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761
pi_67085830
Kan je niet beter doen (uit mn hoofd):

1
2
3
4
5
6
7
8
9
10		Dim rRange, c as Range
Dim FirstValueHist as Integer

FirstValueHist = 0

For each c in rRange
  If IsNumeric(c) = True Then
     FirstValueHist = FirstValueHist + 1
  End If
Next
  FOK!fossiel maandag 16 maart 2009 @ 22:00:13 #141
10 RemCOW
SG Special power! :D
pi_67117483
Het werkt nu al, maar thanks anyway (op een hele andere manier... het probleem was dat ik een kolom had met waarden, maar ook met tekst.. zie hieronder.. zodra mijn functie de N/A tegenkwam, stopte die.. Dit omdat ik de gevonden cel had gedefineerd als een 'double', dus mocht het alleen waarden vinden. dat heb ik weggehaald en gaat de functie niet over zijn nek door tekst)

Ander probleem. Mijn dataset heeft wat gaten, die verwijzen naar de cel die ik Missing heb genoemd. Die cel heb ik weer ingevuld als de tekst N/A. Expres niet als =NB() (of =NA()), want dan werken o.a. de functie =MIN en =MAX, maar ook wat eigen functies niet meer. Ook niet als 0, dat vergooit het gemiddelde weer enz.

Máár het probleem is dat een grafiek in excel de tekst (N/A dus) stug blijft weergeven als een 0. Dit ondanks dat ik aangeef dat hij deze niet moet weergeven / de lijn moet doortrekken of whatever. Verander ik de Missing naar =NB() werkt het prima. Maarja, dan werken andere functies niet meer. Iemand een geniale ingeving?
Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761
pi_67118025
ISERROR om je andere functies heen bouwen zodat ie deze overslaat als je NB() of NA() gebruikt?
  maandag 16 maart 2009 @ 22:22:13 #143
62215 qu63
..de tijd drinkt..
pi_67118686
Cel leeg laten geen optie? Dan kan je met opmaak -> speciaal nog "N/A" van maken..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  FOK!fossiel maandag 16 maart 2009 @ 22:34:33 #144
10 RemCOW
SG Special power! :D
pi_67119372
quote:
Op maandag 16 maart 2009 22:09 schreef DaFan het volgende:
ISERROR om je andere functies heen bouwen zodat ie deze overslaat als je NB() of NA() gebruikt?
Hmm misschien moet ik dit inderdaad maar doen. En dan voor hetzelfde voor Min/Max, dan maak ik gebruik van een array (=MIN(ALS(ISGETAL(E1:E100);E1:E100;"")) bijvoorbeeld).
Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761
  woensdag 18 maart 2009 @ 10:51:11 #145
62215 qu63
..de tijd drinkt..
pi_67163037
In kolom G staan bedragen, in kolom N staat B of K (bank of kas), hoe kan ik nou alle bedragen die per bank betaald zijn optellen?
SOM.ALS(G2:G113;N2:N113=B) doet t iig niet..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_67163352
qu63, dat jij nou zulke vraagjes moet stellen

SOM.ALS(N2:N113;"=B";G2:G113)
  woensdag 18 maart 2009 @ 11:11:49 #147
62215 qu63
..de tijd drinkt..
pi_67163670
quote:
Op woensdag 18 maart 2009 11:00 schreef DaFan het volgende:
qu63, dat jij nou zulke vraagjes moet stellen

SOM.ALS(N2:N113;"=B";G2:G113)
Goed he

Ik was ff helemaal de weg kwijt
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 18 maart 2009 @ 12:24:39 #148
234506 Metal_Jag
MMM van metal
pi_67166366
quote:
Op woensdag 18 maart 2009 11:11 schreef qu63 het volgende:

[..]

Goed he

Ik was ff helemaal de weg kwijt
Als je in het invoerveld "=SOM.ALS(" invult, kun je op het "f"- je klikken daarvooren krijg je invoervelden voor de betreffende functie, MET uitleg.

Dan had je het zelf wel voor elkaar gekregen.


Verder nog even aandacht voor mijn eerdere vraag:

Hoe controleer ik in een macro of er in een cel een TIJD staat en niet iets anders. Iets als ISTIJD(...), maar dat bestaat volgens mij niet.

Dan zat ik nog te denken aan iets als:
1
2
3
4
5
6
7
8		On Error goto melding

een functie die tijd vereist: bijvoorbeeld x = TimeValue(Range("A1").value)

On error goto 0

melding:
msgbox "er staat geen geldige tijd in cell ... "


DaFan (of iemand anders) tips ??
  woensdag 18 maart 2009 @ 13:04:01 #149
62215 qu63
..de tijd drinkt..
pi_67167623
quote:
Op woensdag 18 maart 2009 12:24 schreef Metal_Jag het volgende:
Als je in het invoerveld "=SOM.ALS(" invult, kun je op het "f"- je klikken daarvooren krijg je invoervelden voor de betreffende functie, MET uitleg.

Dan had je het zelf wel voor elkaar gekregen.
Daar had ik ook al gekeken
quote:
Verder nog even aandacht voor mijn eerdere vraag:

Hoe controleer ik in een macro of er in een cel een TIJD staat en niet iets anders. Iets als ISTIJD(...), maar dat bestaat volgens mij niet.

Dan zat ik nog te denken aan iets als:
[ code verwijderd ]

DaFan (of iemand anders) tips ??
Kan je niet beter kijken of er iets in staat als xx:xx ? Want tijd is alleen een opmaak manier, hh:mm is eigenlijk gewoon een getal wat anders is opgemaakt..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 18 maart 2009 @ 13:39:44 #150
73209 dnzl
Minimalist.
pi_67168742
  woensdag 18 maart 2009 @ 13:40:46 #151
62215 qu63
..de tijd drinkt..
pi_67168772
quote:
Op woensdag 18 maart 2009 13:39 schreef dnzl het volgende:
[ afbeelding ]
ehm...
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 18 maart 2009 @ 13:43:18 #152
73209 dnzl
Minimalist.
pi_67168850
Foutje!
pi_67182028
quote:
Op woensdag 18 maart 2009 13:04 schreef qu63 het volgende:
[..]

Kan je niet beter kijken of er iets in staat als xx:xx ? Want tijd is alleen een opmaak manier, hh:mm is eigenlijk gewoon een getal wat anders is opgemaakt..
Ja dat is dus lastig, omdat je, zodra je de value eruithaalt, hem opslaat als een getal.

Ik zag een post over IsDate maar ik krijg het niet aan de praat Ik zal nog even voor je rondkijken!

[ Bericht 0% gewijzigd door DaFan op 18-03-2009 20:23:44 ]
pi_67182406
Check, je moet de Text eruit halen, niet Value
1
2
3
4
5
6
7		Waarde = Range("A1").Text

If IsDate(Waarde) Then
    MsgBox "Ja"
Else
    MsgBox "Nee"
End If


Hoop dat dit helpt.
pi_67184539
Ik zit al een tijdje met volgens mij een relatief simpel excel vraagstuk. Ik heb een hele lijst met nummers en die nummers vertegenwoordigen een afdeling. Nu wil ik i.p.v. de nummer de naam van de afdeling weergeven. Ik heb dus b.v. in een cel ¨4¨ staan en dat ik bv de afdeling verkoop. Ik wil dus in die cel of een andere zien wat de naam is.

Wie kan mij helpen?
pi_67184970
quote:
Op woensdag 18 maart 2009 21:10 schreef hoek21 het volgende:
Ik zit al een tijdje met volgens mij een relatief simpel excel vraagstuk. Ik heb een hele lijst met nummers en die nummers vertegenwoordigen een afdeling. Nu wil ik i.p.v. de nummer de naam van de afdeling weergeven. Ik heb dus b.v. in een cel ¨4¨ staan en dat ik bv de afdeling verkoop. Ik wil dus in die cel of een andere zien wat de naam is.

Wie kan mij helpen?
Eerst een tabel maken, bijvoorbeeld in een ander tabblad, met alle nummers onder elkaar met de afdeling naam erbij (sheet2). Zeg in A1:B10 (10 nummers, 10 afdelingen).

Dan op Sheet1:
- Je nummer staat in cel A1.
- Je wil de afdeling in cel B1 hebben:

=VLOOKUP(A1,Sheet2!A1:B10, 2, 0)
Geeft dan de afdeling naam in B1 aan de hand van cel A1.

Vertaling en versie wijzigingen mag je zelf uitzoeken. Lees de OP maar
pi_67188017
TOOOOOOOOOOOP THANX Dit scheelt me heel veel werk! Groet uit een zonnig Mexico City
pi_67195387
quote:
Op woensdag 18 maart 2009 22:23 schreef hoek21 het volgende:
TOOOOOOOOOOOP THANX Dit scheelt me heel veel werk! Groet uit een zonnig Mexico City
je moest ons even inwrijven dat je in mexico zat? You bastard!
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_67195661
Metal: ik wil nog even bij zeggen dat deze methode ver van waterdicht is. Je kan via string manipulatie nog een eind komen. Zal nog wel wat bijklussen.
  donderdag 19 maart 2009 @ 10:14:02 #160
134944 Hi_flyer
Van alles te melden
pi_67198418
1Label34.Font.color = RGB(125, 20, 80)


Waarom kan ik de tekstkleur van een textlabel niet veranderen? Het font kan ik wel veranderen, maar de kleur blijkbaar niet

Tevens kent excel 2003 blijkbaar het commando format$ niet:

1TextBox93.Text = Format$(Sheet7.Range("BU2"), "HH:mm")


Ik heb een flink userform gemaakt in excel 2004, bedoeld voor collega's die met excel 2003 werken. Gevolg is dat ze constant errors krijgen

[ Bericht 24% gewijzigd door Hi_flyer op 19-03-2009 10:28:52 ]
pi_67200912
Wat is er verkeerd aan het recorden van mijn macro? Ik record deze macro, maar bij het uitvoeren ervan krijg ik continue een melding Ongeldige procedure aanroep of ongeldig argument:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23		    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Bevindingen!R1K1:R111K16", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Data!R16K13", TableName:="Draaitabel1", DefaultVersion _
        :=xlPivotTableVersion10
    Sheets("Data").Select
    Cells(19, 6).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Ernst")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Functionaliteit")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Draaitabel1").PivotFields("Functionaliteit"). _
        Orientation = xlHidden
    With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Product")
        .Orientation = xlRowField
        .Position = 1
    End With
    Range("F19").Select
    ActiveWorkbook.ShowPivotTableFieldList = False
pi_67200930
Tekstkleur van label doe je met .ForeColor

Ik weet niet wat Format$ doet... sorry.
  donderdag 19 maart 2009 @ 12:06:03 #163
134944 Hi_flyer
Van alles te melden
pi_67202377
Format$ is al opgelost: Bij Tools>References even vinkje weghalen bij een missing library.
  donderdag 19 maart 2009 @ 12:40:24 #164
234506 Metal_Jag
MMM van metal
pi_67203379
quote:
Op donderdag 19 maart 2009 07:54 schreef DaFan het volgende:
Metal: ik wil nog even bij zeggen dat deze methode ver van waterdicht is. Je kan via string manipulatie nog een eind komen. Zal nog wel wat bijklussen.
Bedoel je de IsDate constructie? Werkt dat dan ook bij een tijd?

(of bedoel je mijn eigen probeersel?)
  donderdag 19 maart 2009 @ 12:44:23 #165
234506 Metal_Jag
MMM van metal
pi_67203509
quote:
Op donderdag 19 maart 2009 11:28 schreef Jaheur het volgende:
Wat is er verkeerd aan het recorden van mijn macro? Ik record deze macro, maar bij het uitvoeren ervan krijg ik continue een melding Ongeldige procedure aanroep of ongeldig argument:
[ code verwijderd ]

Dit heb je niet in zijn geheel 'opgenomen' toch? (gezien de Cells(.., ..) regel)

Bij welke regel krijg je de foutmelding?
pi_67204357
verkeerd topic...
pi_67205584
quote:
Op donderdag 19 maart 2009 12:40 schreef Metal_Jag het volgende:

[..]

Bedoel je de IsDate constructie? Werkt dat dan ook bij een tijd?

(of bedoel je mijn eigen probeersel?)
Ja de IsDate constructie werkt ook bij tijd (probeer mijn macro maar).
Maar als je bv een variable als Date declareert, en deze leeg laat, geeft IsDate ook een TRUE.

Zoiets is beter (als je uu:mm:ss of uu:mm gebruikt).
1
2
3
4
5
6
7
8
9		Waarde = Range("A1").Text

If IsDate(Waarde) Then
    If Mid(Waarde, 3, 1) = ":" And IsNumeric(Mid(Waarde, 1, 2)) Then

           MsgBox "Is Tijd"

    End If
End If
pi_67206069
Jaheur als je nou ff een nep variable aanmaakt, zeg i = 1 en deze plaatst aan het begin van je macro. Ga dan in de Editor en doe rechtermuisknop -> Add watch (Controle toevoegen) -> Break when value changes (Onderbreken indien waarde is gewijzigd).

Dan ga je de code ín en kan je met F8 naar de volgende stap. Je kan dan zien waar het evt fout gaat. Ik kan zo niks vinden.
  donderdag 19 maart 2009 @ 14:51:49 #169
234506 Metal_Jag
MMM van metal
pi_67207554
quote:
Op donderdag 19 maart 2009 13:46 schreef DaFan het volgende:

[..]

Ja de IsDate constructie werkt ook bij tijd (probeer mijn macro maar).
Maar als je bv een variable als Date declareert, en deze leeg laat, geeft IsDate ook een TRUE.

Zoiets is beter (als je uu:mm:ss of uu:mm gebruikt).
[ code verwijderd ]


Thanx. Ziet er goed uit.
pi_67209014
Ik heb vanuit de control toolbox een scrollbar gekoppeld aan een cel.

Nu wil ik echter elke keer als ik de worksheet open dat de waarden van de 2 scrollbars weer terug naar 0 gaan, ongeacht waar deze eerst op stond. In cel B2 wil ik de datum van vandaag.

Onderstaande code werkt niet
1
2
3
4
5
6
7
8		Private Sub Worksheet_Open()

Range("B2").Value = Date

ScrollBar1.Value = 0
ScrollBar2.Value = 0

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
pi_67210327
Vergeet je m niet in ThisWorkbook te zetten en niet in Blad1.
Daarnaast:

Worksheets("Blad1").ScrollBar1.Value = 0
pi_67211167
nevermind

code stond idd op de verkeerde plek

[ Bericht 78% gewijzigd door Deetch op 19-03-2009 16:56:48 ]
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_67214561
quote:
Op donderdag 19 maart 2009 16:51 schreef Deetch het volgende:
nevermind

code stond idd op de verkeerde plek
pi_67218958
quote:
Op donderdag 19 maart 2009 19:08 schreef DaFan het volgende:

[..]

[ afbeelding ]
LOL
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_67219348
Goedenavond!

Ik heb een klein vraagje over excel. Wie weet kan een van jullie mij helpen?

Ik ben op zoek naar een functie of macro waarbij het mogelijk is om cellen automatisch te kopieren.

Bijvoorbeeld:
Cel a1 staat "X" en cel b1 staat 10
Cel a2 staat "Y" en cel b2 staat 5

Is het mogelijk om excel op een nieuw werkblad automatisch 10x de X en 5x y onder elkaar te zetten?!
Het werkelijke bestand waarmee ik werk is stukken groter natuurlijk maar het gaat om het principe!

Ik hoor het heel graag!
pi_67219614
Ga naar de Visual Basic Editor via Alt-F11, dubbelklik links op ThisWorkbook:
1
2
3
4
5
6
7
8
9		Private Sub Workbook_NewSheet(ByVal Sh As Object)

Dim c As Range

For Each c In Sh.Range("A1:A10")
    c.Value = Sheets("Sheet1").Range("A1").Value
Next

End Sub

Deze code plakt in A1:A10 van elke sheet die je invoert, de waarde die in A1 van Sheet1 staat.

Hoop dat je er zo uitkomt.
  donderdag 19 maart 2009 @ 21:39:33 #177
62215 qu63
..de tijd drinkt..
pi_67219841
Ik denk dat het de bedoeling is dat als er in B1 5 staat, er maar 5 regels zijn met de waarde van a1, en meteen daarna 5x de waarde van a2..

Anders had het ook gewoon zo gekund:
A1 = Blad1!a1
A2 = Blad1!a1
A3 = Blad1!a1
A4 = Blad1!a1
A5 = Blad1!a1
A6 = Blad1!a1
A7 = Blad1!a1
A8 = Blad1!a1
A9 = Blad1!a1
A10 = Blad1!a1
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_67220092
Hm nou je het zegt.
Even kloten met een handige opbouw dan.
  donderdag 19 maart 2009 @ 21:48:41 #179
158136 Joooo-pi
Do you want a balloon...
pi_67220253
quote:
Op donderdag 19 maart 2009 21:27 schreef Chilley het volgende:
Goedenavond!

Ik heb een klein vraagje over excel. Wie weet kan een van jullie mij helpen?

Ik ben op zoek naar een functie of macro waarbij het mogelijk is om cellen automatisch te kopieren.

Bijvoorbeeld:
Cel a1 staat "X" en cel b1 staat 10
Cel a2 staat "Y" en cel b2 staat 5

Is het mogelijk om excel op een nieuw werkblad automatisch 10x de X en 5x y onder elkaar te zetten?!
Het werkelijke bestand waarmee ik werk is stukken groter natuurlijk maar het gaat om het principe!

Ik hoor het heel graag!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16		sub snelinelkaar()
Sheets("Blad1").Activate
i = 0
k = 0
Do
i = i + 1

For j = 1 To Cells(i, 2).Value
 k = k + 1
 
 Sheets("blad2").Cells(k, 1).Value = Cells(i, 1).Value
 
Next

Loop Until Cells(i, 1).Value = ""
End sub

heitieh
pi_67220979
Lol zo sjiek. Goed werk
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19		Private Sub Workbook_NewSheet(ByVal Sh As Object)

Sheets("Sheet1").Activate

i = 0
k = 0
Do
i = i + 1

For j = 1 To Cells(i, 2).Value
 k = k + 1
 
 Sh.Cells(k, 1).Value = Cells(i, 1).Value
 
Next

Loop Until Cells(i, 1).Value = ""

End Sub

Zou hem dan in een Workbook_Newsheet zetten
  donderdag 19 maart 2009 @ 22:36:34 #181
62215 qu63
..de tijd drinkt..
pi_67222388
Is het nou eigenlijk mogelijk om met Excel gegevens van een niet lokale database (SQL) te plukken?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 20 maart 2009 @ 11:37:08 #182
134944 Hi_flyer
Van alles te melden
pi_67234220
1
2
3
4
5
6
7
8
9		Sub colorchange()
    Dim a, b, c As Long
    a = Sheet2.Range("J32").Value
    b = Sheet2.Range("K32").Value
    c = Sheet2.Range("L32").Value
    'MsgBox a & b & c
    Range("Invulcellen").Interior.Color = RGB(a, b, c)
    'MsgBox Range("E13").Interior.Color
End Sub


Ik heb dus drie cellen waar waardes tussen 0 en 255 ingevuld kunnen worden, om op die manier een kleur te mengen. Ik hoopte op die manier 256^3 kleuren te kunnen maken, maar helaas zoekt Excel een standaardkleur die het dichtst bij de ingegeven waardes ligt. Is het mogelijk om toch uit alle kleuren te kiezen? Uiteindelijk wil ik een soort user profiles maken (tijd over en zinloos natuurlijk, maar gewoon leuk). Gebruikers van mijn workbook kunnen dan bijvoorbeeld hun eigen kleuren instellen :P

Tevens ben ik op zoek naar een functie die bij het aanroepen van een userform Excel zelf verkleint, zodat deze niet meer te zien is achter het userform.

Overigens is het programma al bijna 1 MB groot ;(
pi_67234665
Minimaliseren:
1Application.WindowState = xlMinimized


Werkt niet denderend trouwens.
pi_67234741
qu63; beetje Google kan geen kwaad? Ik heb geen verstand van SQL
  vrijdag 20 maart 2009 @ 12:17:25 #186
234506 Metal_Jag
MMM van metal
pi_67235670
quote:
Op vrijdag 20 maart 2009 11:51 schreef DaFan het volgende:
qu63; beetje Google kan geen kwaad? Ik heb geen verstand van SQL
En post werkende resultaten indien mogelijk, want dit heeft ook mijn interesse.

FF een quote uit de help van Excel, met name het voorbeeld werkt verduidelijkend:
quote:
SQLExecQuery, functie
Zie ookSpecificatiesGebruik SQLExecQuery en de andere ODBC-functies niet in de invoegmacro Xlodbc.xla, maar gebruik in plaats daarvan de objecten, methoden en eigenschappen in de ADO-bibliotheek (ActiveX Data Objects) van Microsoft.

Met SQLExecQuery wordt een query uitgevoerd op een gegevensbron met een koppeling die tot stand is gebracht met SQLOpen.

Met SQLExecQuery wordt de query alleen maar uitgevoerd. Het resultaat kan worden opgehaald met SQLRetrieve of SQLRetrieveToFile.

Deze functie maakt deel uit van de invoegmacro Xlodbc.xla. Voordat u de functie kunt gebruiken, moet u een verwijzing naar de invoegmacro instellen met de opdracht Verwijzingen in het menu Extra.

SQLExecQuery(ConnectionNum, QueryText)
ConnectionNum Vereist. De unieke koppelings-id van de gegevensbron (als resultaat gegeven door SQLOpen) waarop u de query wilt uitvoeren.

QueryText Vereist. De query die op de gegevensbron moet worden uitgevoerd. De query moet voldoen aan de SQL-syntaxis voor het betreffende stuurprogramma.

Resultaatwaarde
De waarde die door SQLExecQuery als resultaat wordt gegeven, is afhankelijk van de SQL-instructie, zoals wordt weergegeven in de volgende tabel.

SQL-instructie Resultaatwaarde
SELECT Het aantal kolommen in de resultaatset.
UPDATE, INSERT of DELETE Het aantal rijen dat door de instructie wordt beïnvloed.
Elke andere geldige SQL-instructie 0 (nul)


Als de functie SQLExecQuery de query niet kan uitvoeren op de opgegeven gegevensbron, wordt fout 2042 als resultaat gegeven.

Als ConnectionNum ongeldig is, geeft SQLExecQuery fout 2015 als resultaat.

Aanvullende informatie
Voordat SQLExecQuery kan worden aangeroepen, moet een koppeling met de gegevensbron tot stand worden gebracht met de functie SQLOpen. De unieke koppelings-id die door SQLOpen als resultaat wordt gegeven, wordt door SQLExecQuery gebruikt om query's door te geven aan de gegevensbron.

Als u SQLExecQuery aanroept met een eerder gebruikte koppelings-id, worden alle wachtende resultaten voor die koppeling vervangen door de nieuwe resultaten.

Voorbeeld
In het volgende voorbeeld wordt een query uitgevoerd op de voorbeelddatabase Northwind. Het resultaat van de query wordt weergegeven in Sheet1 en bestaat uit een lijst van alle producten die in bestelling zijn.

databaseName = "Northwind"
queryString = _
"SELECT * FROM product.dbf WHERE (product.ON_ORDER<>0)"
chan = SQLOpen("DSN=" & databaseName)
SQLExecQuery chan, queryString
Set output = Worksheets("Sheet1").Range("A1")
SQLRetrieve chan, output, , , True
SQLClose chan
  vrijdag 20 maart 2009 @ 12:18:57 #187
62215 qu63
..de tijd drinkt..
pi_67235735
quote:
Op vrijdag 20 maart 2009 11:51 schreef DaFan het volgende:
qu63; beetje Google kan geen kwaad? Ik heb geen verstand van SQL
Ik dacht misschien een van jullie het wist, dat is meestal wat duidelijker dan dat ik het zelf uit moet gaan zoeken..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 20 maart 2009 @ 12:20:17 #188
62215 qu63
..de tijd drinkt..
pi_67235780
quote:
Op vrijdag 20 maart 2009 12:17 schreef Metal_Jag het volgende:

[..]

En post werkende resultaten indien mogelijk, want dit heeft ook mijn interesse.

FF een quote uit de help van Excel:
[..]
Dat lijkt meer op een benadering van een lokale niet beveiligde SQl-database..

Ik zoek nog even verder
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_67247919
quote:
Op vrijdag 20 maart 2009 12:18 schreef qu63 het volgende:

[..]

Ik dacht misschien een van jullie het wist, dat is meestal wat duidelijker dan dat ik het zelf uit moet gaan zoeken..
Sorry, bedoelde het natuurlijk niet zo, maar via 'excel sql' vond ik al een redelijke uitleg.
pi_67323029
Hoi, ik ben op dit moment bezig met het creëren van een urenregistratie voor mijn werk maar kom er niet helemaal uit.

De tijdregistratie en verdiensten gaan goed, ik wil het alleen iets meer met formules gaan proberen.

Het is namelijk zo dat ik van ma-za 5,84 euro krijg, maar als ik dan op zondag werk, er 0,50 euro bij komt.


Nu heb ik al heel wat lopen klooien met de ALS functie maar ik kom er niet helemaal uit....

Mijn indeling is als volgt (waarbij X onzichtbaar is en enkel dient als tussenstap om de uren als cijfer weer te geven):

C5 = loon voor ma - za (¤ 5,84)
C6= loon voor zondag (¤ 6,24)
B8 is [DAG] en kan dus maandag dinsdag woensdag donderdag vrijdag zaterdag zijn of Zondag

1
2		[DAG]      [DATUM]       [Van]    [Tot]   [Uur per dag]     [x]     [Loon per dag]      [Fooi]    [Verdiensten per dag]
[Vrijdag]  [20-03-2009] [14:30]  [21:00]   [6:30]           [6,5]   [waarde van X * C5]   [¤14,50]     [loonperdag+fooi]


Nu is mijn vraag, is het mogelijk dat als er bij [DAG] bijv. zondag staat, dat dan bij [loon per dag] automatisch met C6 gerekend word?

En dat als er bijvoorbeeld dus bij [DAG] Woensdag staat, dat er dan bij [loon per dag] dus met C5 gerekend word..?
pi_67323984
Niet echt duidelijk. Kan je me toemailen? s punt spraakman at gmail com. Of als iemand anders m weet, kan aan mn telefoon liggen dat het niet te lezen is :p
  maandag 23 maart 2009 @ 14:32:43 #192
62215 qu63
..de tijd drinkt..
pi_67324373
Vul je je dag handmatig in?
Zo ja, maak er dan een datum van en laat het opmaken door excel. Dan kan je bijvoorbeeld weekdag(CEL) doen en daar mee rekenen.. =ALS(WEEKDAG(A1)=6;wat te doen als het zondag is;wat te doen als het niet zondag is)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_67326581
Bedankt! Zo moet het lukken, ben nu even aan het experimenteren, als het niet lukt laat ik het wel weer even weten


  maandag 23 maart 2009 @ 18:55:27 #194
158136 Joooo-pi
Do you want a balloon...
pi_67332823
Of maak op een ander tabblad een tabel met dagen en tarieven. Dan met verticaal zoeken de juiste dag zoeken en zo het tarief daarbij vinden. Ook handig als je met andere tarieven gaat werken op dagen enzo.
heitieh
pi_67337170
quote:
Op maandag 23 maart 2009 18:55 schreef Joooo-pi het volgende:
Ook handig als je met andere tarieven gaat werken op dagen enzo.
Feestdagen bv..
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
pi_67339906
Ik zit met het volgende probleem.

Ik ben bezig voor werk een mooi hyperlinkje te maken dat ervoor zorgt dat bepaalde gegevens uit cellen in een automatisch mailtje worden ingevuld.

Nu heb ik alles voor elkaar en alles werkt perfect. Echter als ik teveel tekens in de cellen zet die naar het mailtje worden overgezet, kan excel het allemaal niet meer aan.

Ik heb al geprobeerd de formule op te splitsen vanuit 2 cellen maar om 1 of andere reden pakt hij het dan niet en werkt de formule ook niet.

Het gaat om de volgende formule:

=HYPERLINK("mailto:"&D5&"?subject=Wijziging afspraak&body=Datum: "&TEKST(C6,"d/m/yyyy")&TEKEN(11)&"Tijd:"&TEKST(C7," hh:mm")&TEKEN(11)&"Geboorte: "&TEKST(C8,"d/m/yyyy")&TEKEN(11)&"Achternaam: "&C9&TEKEN(11)&"Reden: "&C10&TEKEN(11)&"Nieuwe afspraak: "&TEKST(C11,"d/m/yyyy")&TEKEN(11)&"Tijd nieuwe afspraak: "&TEKST(C12," hh:mm")&TEKEN(11)&"Overig: "&C13&TEKEN(11)&""&TEKEN(11)&"Met vriendelijke groet"&TEKEN(11)&"Afsprakenbalie","@")

De cellen C6 t/m C13 vult iemand dus zelf in en die info wordt dan automatisch in het mailtje netjes neergezet. Echter als ik bijvoorbeeld bij 'overig' een heel verhaal ga typen, werkt de formule al niet meer. Iemand hier een oplossing?
  maandag 23 maart 2009 @ 22:19:05 #197
62215 qu63
..de tijd drinkt..
pi_67340395
quote:
Op maandag 23 maart 2009 20:54 schreef FJD het volgende:

[..]

Feestdagen bv..
Dan gebruik je ipv weekdag() werkdag()
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_67342907
Hallo,

Ik heb weer eens een vraagje. Is het mogelijk om een kolom op kleur van de cel te ordenen? Ik heb over een hele lange lijst een aantal verschillende kleuren en die zou ik graag onde elkaar zien.

Dank voor de hulp.
pi_67343585
BOEM!
Toffe macro vraag, Hoek.

Je gebruikt alleen de 'basis' 56 kleuren uit Excel neem ik aan?
pi_67343597
Het kan trouwens wel, morgen op mn werk zal ik wel ff kloten
actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
[EXCEL] Het grote Excel vragen topic, #11
Index

» digital corner

» software

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