[EXCEL] Het grote Excel vragen topic, #10

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue
  donderdag 19 februari 2009 @ 13:03:31 #201
134944 Hi_flyer
Van alles te melden
pi_66233971
Ik kom niet uit een stukje code. In de range S38:CH38 staan celverwijzingen (dus gewoon d4 of g8). Deze lees ik in in arrLoc. Waarom kan ik met "for...each" elk element uit deze array halen, maar niet met "for i = Lbound(arrLoc) to Ubound(arrLoc) .... next"?

Vervolgens lees ik een tekstbestand in met daarin data, gescheiden door "|". Deze split ik, zodat ik een array krijg. Nu wil ik deze data plaatsen in de cel die ik uit arrLoc haal. Dit zou toch eenvoudig moeten kunnen met een for...next of for each .... next loop? Waarom werkt het niet? Ergens heb ik het idee dat arrLoc een 2D-array is en dat ik gewoon niet snap hoe ik daar een element uit haal.

Wie weet raad?


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		Sub load_request()
Dim inhoud As Variant
Dim splitinhoud As Variant
Dim location
Dim arrLoc As Variant   
Dim Sep
Dim i As Integer
Close #1

arrLoc = range("S38:CH38")

location = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt")
Sep = "|"

Open location For Input Access Read As #1
Line Input #1, inhoud
splitinhoud = Split(inhoud, Sep)

For Each i In arrLoc
        MsgBox i & vbCrLf & splitinhoudi & " in " & arrLoc(1, i)
        range(arrLoci).Value = splitinhoud(i + 1)
Next

Close #1
End Sub
pi_66235582
zou je arrLoc niet beter als string dimmen?

probeer eens met next i ipv next in regel 22

[ Bericht 6% gewijzigd door Deetch op 19-02-2009 15:37:09 ]
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 19 februari 2009 @ 14:54:11 #203
62913 Blik
The one and Only!
pi_66238523
Zijn er mensen hier bekend met Think-Cell of ASAP Utilities?
pi_66239048
quote:
Op donderdag 19 februari 2009 14:54 schreef Blik het volgende:
Zijn er mensen hier bekend met Think-Cell of ASAP Utilities?
klinkt niet echt als een excel vraag, probeer eens een eigen topic te starten in dig met een eigen duidelijke titel.
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 19 februari 2009 @ 16:18:58 #205
62913 Blik
The one and Only!
pi_66241886
quote:
Op donderdag 19 februari 2009 15:08 schreef Deetch het volgende:

[..]

klinkt niet echt als een excel vraag, probeer eens een eigen topic te starten in dig met een eigen duidelijke titel.
Als je er niet bekend mee bent, zeg dan gewoon niks. Het zijn tools die extra functionaliteit geven aan Excel i.c.m. powerpoint. Veel gebruikt bij grote consultancy/strategy bureaus.

Ik ben benieuwd of mensen er bekend mee zijn en waarvoor ze die tools gebruiken
pi_66242525
quote:
Op donderdag 19 februari 2009 16:18 schreef Blik het volgende:

[..]

Als je er niet bekend mee bent, zeg dan gewoon niks. Het zijn tools die extra functionaliteit geven aan Excel i.c.m. powerpoint. Veel gebruikt bij grote consultancy/strategy bureaus.

Ik ben benieuwd of mensen er bekend mee zijn en waarvoor ze die tools gebruiken
Maar je hebt dus niet echt een specifieke vraag

deze is wel grappig van ASAP

[ Bericht 6% gewijzigd door Deetch op 19-02-2009 16:40:39 ]
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_66242665
Gezellig dat je er bent Blik.
  donderdag 19 februari 2009 @ 16:43:53 #208
62913 Blik
The one and Only!
pi_66242953
Ik ga toch geen apart topic openen hiervoor, ben gewoon benieuwd of de excel-experts hier dat soort handige tools gebruiken. Daarvoor ben ik hier volgens mij in het juiste topique
pi_66243102
quote:
Op donderdag 19 februari 2009 16:43 schreef Blik het volgende:
Ik ga toch geen apart topic openen hiervoor, ben gewoon benieuwd of de excel-experts hier dat soort handige tools gebruiken. Daarvoor ben ik hier volgens mij in het juiste topique
Klopt, dit is voor Fok!kers die met kleine problemen zitten en hiervoor hulp kunnen gebruiken van wat geavanceerderde gebruikers. Geen discussie topic over tools.
pi_66244196
quote:
Op donderdag 19 februari 2009 16:48 schreef DaFan het volgende:

[..]

Klopt, dit is voor Fok!kers die met kleine problemen zitten en hiervoor hulp kunnen gebruiken van wat geavanceerderde gebruikers. Geen discussie topic over tools.
precies
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 19 februari 2009 @ 17:21:32 #211
62913 Blik
The one and Only!
pi_66244370
Misschien moet de TT en OP dan veranderd worden, daar staat namelijk duidelijk dat je hier terecht kunt met al je vragen over Excel.
pi_66259073
quote:
Op donderdag 19 februari 2009 17:21 schreef Blik het volgende:
Misschien moet de TT en OP dan veranderd worden, daar staat namelijk duidelijk dat je hier terecht kunt met al je vragen over Excel.
Dus jij verwacht dat hier een Excel guru zit die met alle vragen over alle dingen die met Excel te maken hebben, overweg kan?

Wij zijn ook maar gewoon Fok!kers (meestal Deetch/Frollo/qu63/mijzelf) die, als het uitkomt, mede-Fok!kers helpen bij huiswerk/studie/werk-gerelateerde problemen. Je mag het van mij prima vragen over de meest ingewikkelde dingen (zoals je al deed) maar ík (en Deetch) hebben er nog nooit van gehoord dus ik verwacht dat je dan hier weinig hulp/medestanders vindt.
  donderdag 19 februari 2009 @ 23:18:14 #213
62215 qu63
..de tijd drinkt..
pi_66259328
quote:
Op donderdag 19 februari 2009 23:13 schreef DaFan het volgende:
Je mag het van mij prima vragen over de meest ingewikkelde dingen (zoals je al deed) maar ík (en Deetch) hebben er nog nooit van gehoord dus ik verwacht dat je dan hier weinig hulp/medestanders vindt.
Ik weet er ook niks van

[ Bericht 17% gewijzigd door qu63 op 19-02-2009 23:30:21 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_66259431
quote:
Op donderdag 19 februari 2009 23:18 schreef qu63 het volgende:

[..]

Ik weet er ook niks van
Dan edit ik je eruit
  donderdag 19 februari 2009 @ 23:29:09 #215
62215 qu63
..de tijd drinkt..
pi_66259789
quote:
Op donderdag 19 februari 2009 23:21 schreef DaFan het volgende:

[..]

Dan edit ik je eruit
Ik bedoelde je laatste regel
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_66259938
Ik blijf bij mn standpunt.

Anyway, way offtopic dit. Ik heb ook geen verstand van arrays in VBA trouwens dus daar bemoei ik me ook niet mee.
  donderdag 19 februari 2009 @ 23:45:12 #217
62913 Blik
The one and Only!
pi_66260466
tis trouwens echt geen zware high-end tool trouwens, om die tools te kennen hoef je echt geen guru op het gebied van excel te zijn. Macro's zijn vele malen ingewikkelder
pi_66260668
Blik, nu ik ff de moeite heb genomen om te Googlen ( ) ziet dat ASAP er nog best wel handy uit voor idd de gebruiker die elke dag Excel gebruikt. Ikzelf gebruikte het op dagelijkse basis en was vooral met stage veel bezig om mezelf dingen aan te leren. Nu gebruk ik het nooit behalve als er hier mensen vragen hebben die ik denk te kunnen beantwoorden, dus heb niet veel aan zo'n add-in.

Misschien probeer ik het zelfs wel een keer Heb je er nog specifieke problemen mee of wou je gewoon peilen hoe het hier gebruikt werd?
pi_66265141
Ik heb ook ff gekeken en een aantal deel van de tooltjes van ASAP heb ik zelf geprogrammeerd of daar ken ik de menu volgorde zo van uit mijn hoofd dat dat bijna automatisch gaat. Misschien toch eens een keer naar kijken, jammer dat de code waarschijnlijk afgeschermd is anders konden we er nog wat van leren.
Dat think-cell is mi overbodig omdat je excel al kan embedden in powerpoint.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  vrijdag 20 februari 2009 @ 09:54:03 #220
62913 Blik
The one and Only!
pi_66267337
quote:
Op donderdag 19 februari 2009 23:50 schreef DaFan het volgende:

Misschien probeer ik het zelfs wel een keer Heb je er nog specifieke problemen mee of wou je gewoon peilen hoe het hier gebruikt werd?
Nee, wilde gewoon peilen of het gebruikt werd en hoe het gebruikt werd. Heb er verder geen problemen mee
pi_66270140
Ik heb een Excelbestand (doh) en daarin staat in werkblad B een aantal kolommen+rijen met data á la

12008   110   401        5960   69930    02    8020093     0095   


Nu wil ik graag dat op werkblad A de hele rij komt te staan zodra op werkblad B in kolom C de waarde '401' staat.

Snappu?

Hoe doe ik dat? :)
Live from Rotterdam
pi_66275627
quote:
Op vrijdag 20 februari 2009 11:20 schreef Errrwin het volgende:
Ik heb een Excelbestand (doh) en daarin staat in werkblad B een aantal kolommen+rijen met data á la
[ code verwijderd ]

Nu wil ik graag dat op werkblad A de hele rij komt te staan zodra op werkblad B in kolom C de waarde '401' staat.

Snappu?

Hoe doe ik dat? :)
achter het ' staat een opmerking die uitlegt wat die regel doet
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21		Sub fok()

Sheets("Sheet2").Select 'sheet waar gesorteerde gegevens komen
Range("a2").Select 'cel waar eerste gesorteerde rij komt

Sheets("Sheet1").Select 'sheet waar ruwe data staat
Range("C1").Select 'beginnen bovenaan kolom c

For i = 1 To 100 'gaat eerste 100 regels bij langs
If ActiveCell.Value = 401 Then 'te zoeken waarde
    ActiveCell.EntireRow.Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Select
End If
Sheets("Sheet1").Select
Range("C" & i).Select 'volgende cel in kolom c selecteren
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
pi_66277378
quote:
Op vrijdag 20 februari 2009 13:52 schreef Deetch het volgende:

[..]

achter het ' staat een opmerking die uitlegt wat die regel doet
[ code verwijderd ]
Crap. Nog iets vergeten, er zijn 2 criteria! Dus in de regel code in m'n vorige post de '401' en de '69930'.

Kan je daar wat van brouwen, denk je?

[ Bericht 17% gewijzigd door Errrwin op 20-02-2009 15:04:45 ]
Live from Rotterdam
pi_66279029
quote:
Op vrijdag 20 februari 2009 14:34 schreef Errrwin het volgende:

[..]

Crap. Nog iets vergeten, er zijn 2 criteria! Dus in de regel code in m'n vorige post de '401' en de '69930'.

Kan je daar wat van brouwen, denk je?
staat de 69930 altijd in kolom E?
Zo ja dan onderstaande code gebruiken
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23		Sub fok()

Sheets("Sheet2").Select 'sheet waar gesorteerde gegevens komen
Range("a2").Select 'cel waar eerste gesorteerde rij komt

Sheets("Sheet1").Select 'sheet waar ruwe data staat
Range("C1").Select 'beginnen bovenaan kolom c

For i = 1 To 5000 'gaat eerste 5000 regels bij langs
If ActiveCell.Value = 401 And ActiveCell.Offset(0, 2).Value = 69930 Then 'te zoeken waarde
    ActiveCell.EntireRow.Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Select
End If
Sheets("Sheet1").Select
Range("C" & i).Select 'volgende cel in kolom c selecteren
Next i

Application.CutCopyMode = False 'deseleteerd de laatste gekopieerde regel (stippellijntje weg)

End Sub


Mocht de 69930 nu in kolom F of G staan dan verander je in regel 10 "Offset(0,2)" in "Offset(0,3)" of "Offset(0,4)"
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
actieve topics nieuwe topics
abonnement Unibet Coolblue
[EXCEL] Het grote Excel vragen topic, #10
Index

» digital corner

» software

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