abonnement bol.com Unibet Coolblue
pi_108243097
In het hoekje gaan staan en dat hoekje/blokje naar beneden dan wel naar rechts trekken.
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
pi_108244443
quote:
0s.gif Op dinsdag 21 februari 2012 22:04 schreef kanovinnie het volgende:
Nog een vraagje van mijn kant.

In cel A2 t/m A20 vul ik namen in.
Die zelfde namen wil ik in Cel B1 t/m U1 ingevuld krijgen. Dus in Cel B1 begin ik met "=A2". Cel C1 krijgt"=A3".
Dit omdat de namen elke keer anders zijn.
Maar hoe kan ik het voor elkaar krijgen om het verder te slepen? Nu heb ik alles met de hand ingevuld omdat Excel 't niet kan. Of ik doe iets verkeerd. Dat lijkt me waarschijnlijker
Vul in B2:
+A2

Copieer dit naar b3 t/m b20

Selecteer b2 t/m b20

Doe dan vervangen (ctrl-h) a vervangen door $a$

Selecteer b2 t/m b20

Ga naar "plakken speciaal"
Zet 'm op b1

copieer formules en...... vink aan: transponeren

en dan delete je b2 t/m b20
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
  woensdag 22 februari 2012 @ 08:54:37 #178
148219 Jeroen_S.
De waarheid bestaat niet
pi_108251747
Ik heb momenteel een bestand bestaande uit 4 pagina's.
Nu wil ik graag op elke pagina ons bedrijfslogo hebben staan, maar dan wel
natuurlijk op elke pagina op exact dezelfde positie. Kan ik dat ergens instellen?
Bij Powerpoint kun je bijvoorbeeld een logo plakken en dan plakt ie hem steeds op dezelfde positie maar bij Excel heb ik dat nog niet gevonden!

Who can help me?

Cheers,
PSV - Feyenoord 10 - 0
pi_108253451
quote:
3s.gif Op dinsdag 21 februari 2012 06:40 schreef KritischeMassa het volgende:
thisworkbook.path
Tot nu toe heb ik dit..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Macro1()
'
' Macro1 Macro
'
' Sneltoets: Ctrl+t
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
    Range("C3").Select
    Columns("A:A").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    ChDir "C:\Users\crossover\Documents\My Dropbox\xOverig\ZO\"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\crossover\Documents\My Dropbox\xOverig\ZO\Tijdspecificatie.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Waar moet thisworkbook.path dan komen om het in dezelfde map op te slaan?

[ Bericht 7% gewijzigd door crossover op 22-02-2012 12:13:22 ]
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
pi_108253793
achter de ChDir functie
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_108253882
Werkt niet..?
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
pi_108254692
quote:
0s.gif Op woensdag 22 februari 2012 10:24 schreef crossover het volgende:
Werkt niet..?
Als je dit topic had doorgelezen had je gezien dat deze vraag al een keer voorbij was gekomen maar dan met een CSV functie, lees maar vanaf deze post verder

quote:
0s.gif Op vrijdag 10 februari 2012 20:13 schreef elkravo het volgende:
Ik exporteer een deel van een Excel blad met onderstaande VBA naar een csv-file.
Gevonden op internet, en werkt goed.

Toch ben ik over een ding niet tevreden. In deze export-VBA zit ingebakken een vaste plaats op de harde schijf... in dit geval: C:\Users\Elkravo\Desktop\File.csv

Is deze opdracht te vervangen door iets waarbij ik zelf een plaats kan aanwijzen in het proces.
Deze vraag is ingegeven door het feit dat meerdere personen het sheet op eigen computer gebruiken, en dus de macro niet te specifiek een locatie moet aanwijzen.

[ code verwijderd ]



[ Bericht 26% gewijzigd door #ANONIEM op 22-02-2012 10:50:15 ]
pi_108257375
Sorry hoor, maar ik heb overal gezocht, en bij alles wat ik lees gaat het mis bij het toepassen op mijn situatie. Ik krijg allerlei foutmeldingen en moet telkens opnieuw beginnen, dus als je zegt dat ik gewoon even dit topic had moeten lezen, vind ik dat niet redelijk want dan had ik overal in deze reeks van 30 kunnen gaan zoeken. Waarschijnlijk is mijn vraag voor ervaren gebruikers een eitje. Ook bij het voorbeeld wat je hierboven aangeeft, KM, lukt het me niet om het in mijn code toe te passen.
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
pi_108259018
welke foutmeldingen krijg 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
pi_108259283
Compileerfout: verwacht instructie einde.
Dat dus als ik 'm achter ChDir zet.
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
pi_108260854
verwijderer de CHDir regel maar helemaal het padnaam zit nl. al in je saveas functie verwerkt.
Eerst stop je het pad en de bestandsnaam in een variabele "bestandsnaam" en dan sla je je bestand op

1
2
bestandsnaam = ThisWorkbook.Path & "\Tijdspecificatie.xlsx"
ActiveWorkbook.SaveAs Filename:=bestandsnaam, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
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
  woensdag 22 februari 2012 @ 13:45:42 #187
62215 qu63
..de tijd drinkt..
pi_108261100
quote:
3s.gif Op woensdag 22 februari 2012 13:39 schreef Deetch het volgende:
verwijderer de CHDir regel maar helemaal het padnaam zit nl. al in je saveas functie verwerkt.
Eerst stop je het pad en de bestandsnaam in een variabele "bestandsnaam" en dan sla je je bestand op
[ code verwijderd ]

Wat doet die CreateBackup:=False?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_108262776
quote:
0s.gif Op woensdag 22 februari 2012 13:45 schreef qu63 het volgende:

[..]

Wat doet die CreateBackup:=False?
geen idee, deze zit er standaadr achter als je de save as dialoog opneemt.

Als je hem op true zet krijg je een extra bestand in dezelfde map met de naam: Backup of Tijdspecificatie.xlk van 0 kB groot.
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_108265574
quote:
3s.gif Op woensdag 22 februari 2012 13:39 schreef Deetch het volgende:
verwijderer de CHDir regel maar helemaal het padnaam zit nl. al in je saveas functie verwerkt.
Eerst stop je het pad en de bestandsnaam in een variabele "bestandsnaam" en dan sla je je bestand op
[ code verwijderd ]

Hoe moet ik het pad en de bestandsnaam in de variabele 'bestandsnaam' doen?
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
pi_108266393
dat is de eerste regel inde code die ik heb gepost
[Excel] Het grote Excel vragen topic #30

[ Bericht 55% gewijzigd door Deetch op 22-02-2012 16:27:49 ]
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_108274016
quote:
0s.gif Op woensdag 22 februari 2012 12:08 schreef crossover het volgende:
Sorry hoor, maar ik heb overal gezocht, en bij alles wat ik lees gaat het mis bij het toepassen op mijn situatie. Ik krijg allerlei foutmeldingen en moet telkens opnieuw beginnen, dus als je zegt dat ik gewoon even dit topic had moeten lezen, vind ik dat niet redelijk want dan had ik overal in deze reeks van 30 kunnen gaan zoeken. Waarschijnlijk is mijn vraag voor ervaren gebruikers een eitje. Ook bij het voorbeeld wat je hierboven aangeeft, KM, lukt het me niet om het in mijn code toe te passen.
Ja ik weet niet maar als ik jouw code draai zonder het hele save gebeuren krijg ik ook een berg foutmeldingen, dus de fout zit voordat je opslaat.

Het is sowieso een beetje een wazige macro die je daar hebt, heb je die zo opgenomen?

Wat wil je dat hij doet?

Jouw probleem zit hem niet in het opslaan iig, de code die we je daarvoor hebben aangegeven klopt gewoon en werkt in alle gevallen (test het maar znder de code die ik hieronder quote en die foutmeldingen geeft.

Sowieso, die hele record functie van excel is bagger

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Macro1() '
' Macro1 Macro'
' Sneltoets: Ctrl+t'
Columns("A:A").Select

'hier gaat het mis
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
'einde foute code

Range("C3").Select

Columns("A:A").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit

End Sub
pi_108274667
quote:
0s.gif Op woensdag 22 februari 2012 08:54 schreef Jeroen_S. het volgende:
Ik heb momenteel een bestand bestaande uit 4 pagina's.
Nu wil ik graag op elke pagina ons bedrijfslogo hebben staan, maar dan wel
natuurlijk op elke pagina op exact dezelfde positie. Kan ik dat ergens instellen?
Bij Powerpoint kun je bijvoorbeeld een logo plakken en dan plakt ie hem steeds op dezelfde positie maar bij Excel heb ik dat nog niet gevonden!

Who can help me?

Cheers,
ja je kan natuurlijk een stukje code draaien dat elke keer als het tabblad wordt geselecteerd wordt gedraaid:

deze code zet het plaatje netjes in de linkerbovenhoek
1
2
3
4
Private Sub Worksheet_Activate()
    ActiveSheet.Shapes("Picture 1").Left = 1
    ActiveSheet.Shapes("Picture 1").Top = 1
End Sub

Je kan ook de code draaien bij openen van de worksheet en zo alle bladen langslopen

Het voordeel daarvan is dat niet je undostack continu leeg is (elke keer als je een stukje vbs code draait is je undostack leeg. Ik heb wel code om daar weer wat mee te doen maar dta voert wat ver in dit kader...

in plaats van left en top kun je ook wat aanklooien met topleftcell...
pi_108291103
quote:
3s.gif Op woensdag 22 februari 2012 19:42 schreef KritischeMassa het volgende:

[..]

ja je kan natuurlijk een stukje code draaien dat elke keer als het tabblad wordt geselecteerd wordt gedraaid:

deze code zet het plaatje netjes in de linkerbovenhoek
[ code verwijderd ]

Je kan ook de code draaien bij openen van de worksheet en zo alle bladen langslopen

Het voordeel daarvan is dat niet je undostack continu leeg is (elke keer als je een stukje vbs code draait is je undostack leeg. Ik heb wel code om daar weer wat mee te doen maar dta voert wat ver in dit kader...

in plaats van left en top kun je ook wat aanklooien met topleftcell...
Heb jij code om een gerunde macro te undo-en? Die wil ik wel!!!
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_108293828
quote:
3s.gif Op woensdag 22 februari 2012 19:26 schreef KritischeMassa het volgende:

[..]

Ja ik weet niet maar als ik jouw code draai zonder het hele save gebeuren krijg ik ook een berg foutmeldingen, dus de fout zit voordat je opslaat.

Het is sowieso een beetje een wazige macro die je daar hebt, heb je die zo opgenomen?

Wat wil je dat hij doet?

Jouw probleem zit hem niet in het opslaan iig, de code die we je daarvoor hebben aangegeven klopt gewoon en werkt in alle gevallen (test het maar znder de code die ik hieronder quote en die foutmeldingen geeft.

Sowieso, die hele record functie van excel is bagger
[ code verwijderd ]

Ik heb een app waarmee ik mijn gewerkte uren bijhoud. Dat wordt geexporteerd als .csv, ik wil dat bestand opslaan als .xlx met een andere naam en daarbij de datum/tijd. Ik heb 'm zo opgenomen, en dat stukje werkte telkens eigenlijk goed.
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
pi_108299959
Volgens mij een heel simpel vraagje, maar het lukt me even niet:

A1= 25%, B1=50%, C1 moet worden: -50%
A2=0.6%, B2=0.2%, C2 moet worden: 300%

Dus A ten opzichte van B in positieve en negatieve % (Kolom B is het uitgangspunt voor 100%)

Welke formule gebruik ik in kolom c?
pi_108300767
waarom nog negatief ook, als het percentage toch onder de 100% komt weet je al dat A kleiner is dan B?

C1: =a1/b1

als er per se een - voor moet komen als A1 kleiner is dan B1 dan:

=IF(a1/b1<1,-1*a1/b1,a1/b1)

of in het nederlands

=ALS(a1/b1<1;-1*a1/b1;a1/b1)
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_108301870
Ik zal wel dom zijn maar is die 2e niet 200%??
(A1-B1)/B1

Nvm Zie het al :@
Maar die - slaat nergens op idd :P

[ Bericht 37% gewijzigd door DaFan op 23-02-2012 14:26:06 ]
pi_108303284
Tot nu werkt alles prima, ook nadat ik (helemaal zelf! :') ) een functie heb toegevoegd in de bestandsnaam. Echter, wat ik in eerste instantie wilde, werkt nog niet. Het bestand wordt opgeslagen in de map XLSTART (C:\Users\crossover\AppData\Roaming\Microsoft\Excel\XLSTART).

M'n code is nu:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Macro1()
'
' Macro1 Macro
'
' Sneltoets: Ctrl+t
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
    Columns("A:A").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Columns("J:J").EntireColumn.AutoFit
    bestandsnaam = ThisWorkbook.Path & "/Tijdspecificatie" & Range("G2").Value & ".xls"
    ActiveWorkbook.SaveAs Filename:=bestandsnaam, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
End Sub

Ook zonder mijn toevoeging werkt het niet... nog tips?
'Expand my brain, learning juice!'
&lt;a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank"&gt;Last.fm&lt;/a&gt;
pi_108304196
quote:
0s.gif Op donderdag 23 februari 2012 14:59 schreef crossover het volgende:
Tot nu werkt alles prima, ook nadat ik (helemaal zelf! :') ) een functie heb toegevoegd in de bestandsnaam. Echter, wat ik in eerste instantie wilde, werkt nog niet. Het bestand wordt opgeslagen in de map XLSTART (C:\Users\crossover\AppData\Roaming\Microsoft\Excel\XLSTART).

M'n code is nu:
[ code verwijderd ]

Ook zonder mijn toevoeging werkt het niet... nog tips?
"/Tijdspecificatie"

"\Tijdspecificatie" een idee?
pi_108304312
quote:
3s.gif Op donderdag 23 februari 2012 15:25 schreef KritischeMassa het volgende:

[..]

"/Tijdspecificatie"

"\Tijdspecificatie" een idee?
Geen verschil..
'Expand my brain, learning juice!'
&lt;a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank"&gt;Last.fm&lt;/a&gt;
abonnement bol.com Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')