[Excel] Het grote Excel vragen topic #30

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue
pi_108118077
quote:
0s.gif Op zaterdag 18 februari 2012 15:36 schreef M_Schtoppel het volgende:
Ik heb de formule EXACT overgenomen en toch komt hij met een foutmeldig.
Welke taal heb je?
pi_108118149
quote:
0s.gif Op zaterdag 18 februari 2012 15:11 schreef McGilles het volgende:

[..]

Aan de ene kant wel, maar aan de andere kant, heb zelf wiskunde gestudeerd en heb niks met programmeren dus over het algemeen schud ik 9 van de 10 keer binnen een minuut wel een wiskundige oplossing uit mijn mouw, neemt niet weg dat het soms omslachtig is en soms weer enorm handig en efficient :)
jouw oplossing was niet handig want die zorgt ervoor dat je niet meer kan rekenen met tijd omdat het een string wordt, als je de opmaak [hh] gebruikt dan blijft het legale tijd binnen excel.
pi_108119674
Nederlands, Excel 2010. Hij zegt dat er ergens een fout in staat. Ik kan je het bestand ook sturen als je wilt.
Gaap Goals rulezzz!
pi_108120129
quote:
3s.gif Op zaterdag 18 februari 2012 15:41 schreef KritischeMassa het volgende:

[..]

jouw oplossing was niet handig want die zorgt ervoor dat je niet meer kan rekenen met tijd omdat het een string wordt, als je de opmaak [hh] gebruikt dan blijft het legale tijd binnen excel.
Oooh, ik keek puur en alleen naar de 'uitkomst', het is inderdaad een string ja. :P
pi_108120250
Ik hoef niet te rekenen met die datum. Ik wil alleen een draaitabel hebben (ik weet hoe dat moet) met links een rij van unieke datums zodat ik kan zien hoe vaak iets op een datum gebeurd is.
Gaap Goals rulezzz!
pi_108120440
quote:
0s.gif Op zaterdag 18 februari 2012 16:51 schreef M_Schtoppel het volgende:
Ik hoef niet te rekenen met die datum. Ik wil alleen een draaitabel hebben (ik weet hoe dat moet) met links een rij van unieke datums zodat ik kan zien hoe vaak iets op een datum gebeurd is.
Ik zou gebruik maken van de volgende functie:

=LEFT(A1;SEARCH(" ";A1)-1)

In dit geval werkt ook:

=LEFT(A1;10)

Aangezien jouw datum en tijd altijd 10 tekens lang is.

Deze functie telt het aantal tekens t/m de spatie en laat daarna de tekens tot de spatie zien.

In NL versie iets van =Links(A1;zoeken(" ";A1)-1) en de tweede =Links(A1;10)

De functie van KM voldoet ook prima hoor, net een andere benadering. Altijd grappig om te zien dat je met excel altijd alle kanten op kan, je kan het vast op nog 5 andere manieren oplossen.

[ Bericht 8% gewijzigd door McGilles op 18-02-2012 17:14:19 ]
pi_108120856
Wat vind je zelf de mooiste functie van Excel? Ik draaitabellen, daar werd ik toch wel even lyrisch van toen ik dat zag. Niet op de financiele manier, maar meer op de database manier, dus uittreksels van databases maken.
Gaap Goals rulezzz!
pi_108120997
quote:
0s.gif Op zaterdag 18 februari 2012 17:14 schreef M_Schtoppel het volgende:
Wat vind je zelf de mooiste functie van Excel? Ik draaitabellen, daar werd ik toch wel even lyrisch van toen ik dat zag. Niet op de financiele manier, maar meer op de database manier, dus uittreksels van databases maken.
Ikzelf vind de =countifs( functie van excel2007 fantastisch, ideaal in grote tabellen en zeer vaak te gebruiken.
pi_108125086
Ik heb geen favoriete functie.
pi_108154390
quote:
0s.gif Op zaterdag 18 februari 2012 17:21 schreef McGilles het volgende:

[..]

Ikzelf vind de =countifs( functie van excel2007 fantastisch, ideaal in grote tabellen en zeer vaak te gebruiken.
kun je beter sumproduct gebruiken, daar krijg ik nou een harde plasser van :9
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
  zondag 19 februari 2012 @ 17:28:23 #161
62215 qu63
..de tijd drinkt..
pi_108154757
quote:
3s.gif Op zondag 19 februari 2012 17:17 schreef Deetch het volgende:

[..]

kun je beter sumproduct gebruiken, daar krijg ik nou een harde plasser van :9
In combinatie met jouw ava geeft dat een verontrustend beeld! :D
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_108177365
Als je doet:
Invoegen
Vormen

En dan

Tekst bewerken

Kortom:
Je zet tekst in een "vorm". Een rechthoek bv. Of iets anders. Voor bv een systeemstroomschema.

Hoe kun je die dan vinden met Ctrl-F.
Dit kan namelijk wel met tekst in "opmerkingen".
En natuurlijk ook met tekst in iedere cel.
Maar net even niet met tekst in vormen.

Wie weet een oplossing?
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
  maandag 20 februari 2012 @ 10:00:30 #163
62215 qu63
..de tijd drinkt..
pi_108178063
quote:
0s.gif Op maandag 20 februari 2012 09:19 schreef Twentsche_Ros het volgende:
Als je doet:
Invoegen
Vormen

En dan

Tekst bewerken

Kortom:
Je zet tekst in een "vorm". Een rechthoek bv. Of iets anders. Voor bv een systeemstroomschema.

Hoe kun je die dan vinden met Ctrl-F.
Dit kan namelijk wel met tekst in "opmerkingen".
En natuurlijk ook met tekst in iedere cel.
Maar net even niet met tekst in vormen.

Wie weet een oplossing?
Ik gok een macro die door al je afbeeldingen loopt, maar dat zal KM vast beter uit kunnen leggen ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_108178219
quote:
0s.gif Op maandag 20 februari 2012 10:00 schreef qu63 het volgende:

[..]

Ik gok een macro die door al je afbeeldingen loopt, maar dat zal KM vast beter uit kunnen leggen ;)
Ja dat is de manier

Ik heb alleen nu geen tijd om het uit te leggen
pi_108178549
quote:
0s.gif Op zondag 19 februari 2012 17:28 schreef qu63 het volgende:

[..]

In combinatie met jouw ava geeft dat een verontrustend beeld! :D
Deze beter?
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_108196143
quote:
3s.gif Op zondag 19 februari 2012 17:17 schreef Deetch het volgende:

[..]

kun je beter sumproduct gebruiken, daar krijg ik nou een harde plasser van :9
Ligt eraan wat je wilt. Groot nadeel van sumproduct is dat hij niet kan verwijzen naar hele kolommen (A:A bijvoorbeeld) maar altijd A1:A1000 wil. Countifs formules (en andere 2007 functies) kunnen dit wel :P
pi_108198738
quote:
0s.gif Op maandag 20 februari 2012 18:37 schreef McGilles het volgende:

[..]

Ligt eraan wat je wilt. Groot nadeel van sumproduct is dat hij niet kan verwijzen naar hele kolommen (A:A bijvoorbeeld) maar altijd A1:A1000 wil. Countifs formules (en andere 2007 functies) kunnen dit wel :P
Onwaar.
Kan wel (vanaf 2007), als alle ranges maar even lang zijn.
En op een gegeven moment wordt het wel erg traag, maar dat is met COUNTIFS ook zo :)
pi_108200190
quote:
0s.gif Op maandag 20 februari 2012 09:19 schreef Twentsche_Ros het volgende:
Als je doet:
Invoegen
Vormen

En dan

Tekst bewerken

Kortom:
Je zet tekst in een "vorm". Een rechthoek bv. Of iets anders. Voor bv een systeemstroomschema.

Hoe kun je die dan vinden met Ctrl-F.
Dit kan namelijk wel met tekst in "opmerkingen".
En natuurlijk ook met tekst in iedere cel.
Maar net even niet met tekst in vormen.

Wie weet een oplossing?
Nou ok... was wel wat nieuw voor me en de code kan waarschijnlijk beter (for each textbox...)

maak een form in VBA editor met 1 textbox en 1 knop

plaats onder de knop deze code

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		Private Sub CommandButton1_Click()
Dim Gevonden As Boolean

    Gevonden = False

    If ActiveSheet.Shapes.count = 0 Then Exit Sub

    For i = 1 To ActiveSheet.Shapes.count
    
        On Error Resume Next
    
        If ActiveSheet.Shapes(i).TextFrame.Characters.Text = TextBox1.Value Then
            Gevonden = True
            Exit For
        End If
    
    Next
    
    On Error GoTo 0
    
    If Gevonden = True Then
        ActiveSheet.Shapes(i).TopLeftCell.Select
        ActiveSheet.Shapes(i).Select
    End If
    

    Unload Me

End Sub

als je in de textbox een text typt die ook zo in een vorm staat vindt hij hem.

Je kan zelf met string operations een uitgebreidere zoek functie bouwen (kijken of een string in een string voorkomt etc)

Deze code stopt ook met zoeken als hij er 1 heeft gevonden, maard at kan je zelf ook aanpassen

helaas voor jou ;) heb ik tijd te kort om een mooie functie te bouwen

Voorbeeldsheet met hypergave smiley

[ Bericht 1% gewijzigd door #ANONIEM op 20-02-2012 20:19:50 ]
pi_108201466
Ik heb de volgende macro:

Ik wil dat het geopende bestand opgeslagen wordt onder de naam tijdspecificatie in dezelfde map.
Voorheen werkte dit ook, maar nu gebruik ik zelfde soort bestand op een andere plek. Hij wil 'm met onderstaande macro opslaan op de plek van de eerste macro:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17		Sub T()
'
' T 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
    ChDir "C:\Users[..VERWIJDERD..]\Persoon1"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\[..VERWIJDERD..]\Tijdspecificatie.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Iemand een idee wat ik moet wijzigen?
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
  maandag 20 februari 2012 @ 21:31:04 #170
85514 ralfie
!Yvan eht nioj
pi_108204732
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16		Sub T()
'
' T 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
    ActiveWorkbook.SaveAs Filename:= _
        CurDir & "\Tijdspecificatie.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
?
pi_108206553
Nope, die werkt niet ;(
Er gebeurt daarmee niet veel, de tekst blijft in 1 kolom staan.
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
pi_108206711
Deze link had ik al gezien, maar ik weet niet hoe ik dit moet verwerken in de macro... http://www.ozgrid.com/forum/showthread.php?t=72924
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
pi_108214617
thisworkbook.path
pi_108241129
En verder, waar moet ik dat precies plaatsen?
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
  dinsdag 21 februari 2012 @ 22:04:39 #175
84430 kanovinnie
Wie dit leest is gek!
pi_108243061
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
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
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;
pi_108311663
Wat staat er in Range("G2") ? als dit een tijd is gaat het mis he, je kan geen bestandsnamen met : erin maken
pi_108311725
@Deetch, zo liep ik ook te rommelen, maar dat is het dus niet.
Als iets 40% is, is het 60% minder dan 100%, dus is het -60%. Dat is ook de bedoeling van de "-".
150% = +50%
A=40% B=120% C=-66,67% (en niet -33,33%). Snappie?

Maar hoe zet ik dat in een formule?
pi_108311895
quote:
3s.gif Op donderdag 23 februari 2012 18:56 schreef KritischeMassa het volgende:
Wat staat er in Range("G2") ? als dit een tijd is gaat het mis he, je kan geen bestandsnamen met : erin maken
Gewoon een naam. Dus enkel letters..
'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_108315150
quote:
0s.gif Op donderdag 23 februari 2012 18:57 schreef E-lientje het volgende:
@Deetch, zo liep ik ook te rommelen, maar dat is het dus niet.
Als iets 40% is, is het 60% minder dan 100%, dus is het -60%. Dat is ook de bedoeling van de "-".
150% = +50%
A=40% B=120% C=-66,67% (en niet -33,33%). Snappie?

Maar hoe zet ik dat in een formule?
Ja maar dan is die 2e geen 300% maar 200%. 6 is immers 4 meer dan 2 dus 200% meer.
En 25 is de helft van 50 minder, dus -50%.
Dan is je formule
(A1-B1)/B1
pi_108317944
@DaFan Tnx, dat is het helemaal!
pi_108318184
^O^
pi_108335238
quote:
0s.gif Op donderdag 23 februari 2012 19:01 schreef crossover het volgende:

[..]

Gewoon een naam. Dus enkel letters..
voeg na het definieren van je bestandnaam de volgende regel code toe:

MsgBox bestandsnaam

en type even over wat daar dan staat.
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_108392325
Weet iemand of je uitzonderingen kan toevoegen aan de aselecttussen-functie in Excel?

Situatie:
In cel A1 wordt een random nummer tussen de 1 en 3 geproduceerd.
In cel B1 wordt ook een random nummer tussen de 1 en 3 geproduceerd. Deze kan en mag hetzelfde zijn als die in cel A1.

In cel C1 moet ook een random nummer tussen de 1 en 3 geproduceerd worden. Echter, deze mag niet gelijk zijn aan de nummers in A1 en B1.

1
2
3		A            B            C
3            1            Dit moet dus 2 worden
2            2            Dit mag dus 1 of 3 worden

edit: inmiddels al een oplossing gevonden.

[ Bericht 1% gewijzigd door GuitarJJ op 25-02-2012 21:20:32 ]
https://www.booksformanagers.nl
pi_108409083
quote:
0s.gif Op zaterdag 25 februari 2012 19:40 schreef GuitarJJ het volgende:
Weet iemand of je uitzonderingen kan toevoegen aan de aselecttussen-functie in Excel?

Situatie:
In cel A1 wordt een random nummer tussen de 1 en 3 geproduceerd.
In cel B1 wordt ook een random nummer tussen de 1 en 3 geproduceerd. Deze kan en mag hetzelfde zijn als die in cel A1.

In cel C1 moet ook een random nummer tussen de 1 en 3 geproduceerd worden. Echter, deze mag niet gelijk zijn aan de nummers in A1 en B1.
[ code verwijderd ]

edit: inmiddels al een oplossing gevonden.
Je kan via een macro iets doen als:

Sub test()

Do
Dim minNum As Integer
minNum = 1
Dim maxNum As Integer
maxNum = 8
Dim xrand As Integer
Dim i As Integer
For i = minNum To maxNum

xrand = Int(Rnd() * maxNum) + minNum
Cells(3, 2 + i).Value = xrand

Next i

Loop Until Cells(1, 3).Value = "True"

End Sub

Dan in cel C1 formule zetten die true weergeeft wanneer de waarden anders zijn.
pi_108410963
quote:
0s.gif Op zondag 26 februari 2012 11:37 schreef McGilles het volgende:

[..]

Je kan via een macro iets doen als:

Sub test()

Do
Dim minNum As Integer
minNum = 1
Dim maxNum As Integer
maxNum = 8
Dim xrand As Integer
Dim i As Integer
For i = minNum To maxNum

xrand = Int(Rnd() * maxNum) + minNum
Cells(3, 2 + i).Value = xrand

Next i

Loop Until Cells(1, 3).Value = "True"

End Sub

Dan in cel C1 formule zetten die true weergeeft wanneer de waarden anders zijn.
Bedankt! Ik heb het alleen al op de volgende manier opgelost. :)

Er zijn in totaal (3*3) 9 combinaties nodig, dus met 9 formules is het ook te doen.

quote:
=(ALS(((B9=1)*EN(C9=1));ASELECTTUSSEN(2;3);N9))
=(ALS(((B9=1)*EN(C9=2));3;O9))
=(ALS(((B9=1)*EN(C9=3));2;P9))
=(ALS(((B9=2)*EN(C9=1));3;Q9))
=(ALS(((B9=2)*EN(C9=2));(ALS((ASELECTTUSSEN(1;2)=2);3;1));R9))
=(ALS(((B9=2)*EN(C9=3));1;S9))
=(ALS(((B9=3)*EN(C9=1));2;T9))
=(ALS(((B9=3)*EN(C9=2));1;U9))
=(ALS(((B9=3)*EN(C9=3));ASELECTTUSSEN(1;2);M9))
Ik had er eerst één grote formule van gemaakt, maar die bevatte te veel geneste niveaus.
https://www.booksformanagers.nl
pi_108458064
:D Nou 3x is scheepsrecht. Ik had eerder vraag (tot 2x toe) in het verkeerde forum gepost. :D
Excuus. _O_

maar mijn vraag dan voor in het grote excel topic:

Kan ik met een VBA code data wat verspreid staat over meerder tabbladen importeren/kopieren naar een nieuw leeg tabblad zodat daar alles netjes onder elkaar komt?

Zie Bijlage.
  maandag 27 februari 2012 @ 12:23:31 #212
62215 qu63
..de tijd drinkt..
pi_108458301
quote:
0s.gif Op maandag 27 februari 2012 12:16 schreef Frixel het volgende:
:D Nou 3x is scheepsrecht. Ik had eerder vraag (tot 2x toe) in het verkeerde forum gepost. :D
Excuus. _O_

maar mijn vraag dan voor in het grote excel topic:

Kan ik met een VBA code data wat verspreid staat over meerder tabbladen importeren/kopieren naar een nieuw leeg tabblad zodat daar alles netjes onder elkaar komt?

Zie Bijlage.
Bijlages doen t hier niet op Fok ;)

Heb je zelf al een poging gedaan met VBA?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_108458460
quote:
0s.gif Op maandag 27 februari 2012 12:23 schreef qu63 het volgende:

[..]

Bijlages doen t hier niet op Fok ;)

Heb je zelf al een poging gedaan met VBA?
Ja maar lukt totaal niet omdat ieder tabblad een andere naam heeft en de nieuwe gegevens onder de voorgaande moeten komen te staan.
pi_108458771
Het origineel is een offerte in .pdf wat ik "online" heb omgezet in een excel formaat.
Echter word alles dan geconverteerd naar een heleboel tabbladen.
pi_108459404
Tellen door sheets
1thisworkbook.sheets(i) '(of activeworkbook)
en dan tellen door gevulde rijen

en deze schrijven naar regel die je ook telt

[ Bericht 45% gewijzigd door #ANONIEM op 27-02-2012 12:56:31 ]
pi_108463665
Thanks, daar heb ik wat aan. *O*
  maandag 27 februari 2012 @ 14:52:06 #217
65252 Bart
Slecht voor de gezondheid
pi_108463699
quote:
0s.gif Op maandag 27 februari 2012 12:16 schreef Frixel het volgende:
:D Nou 3x is scheepsrecht. Ik had eerder vraag (tot 2x toe) in het verkeerde forum gepost. :D
Excuus. _O_
Je zat in het goede forum (Digital Corner), je had alleen een nieuw topic aangemaakt terwijl we voor Excel dus een apart verzameltopic hebben ;).
I have the cape. I make the fucking Whoosh noise.
Op donderdag 12 juli 2012 19:56 schreef Lithia het volgende:
Ik durf hier niets over te zeggen. Bart is koning hier.
pi_108468997
Hoi ervaringsdeskundigen ;)

Heeft iemand van jullie ervaring met CIE lab grafieken? Ik heb wat L*, a*, b*, C* en h waarden en die wil ik graag weergeven in een Excel grafiek. (Ze gaan in verschillende richtingen en het liefst zou ik ook de kleur er bij zien..)

Is dit mogelijk? Iemand een idee?
  maandag 27 februari 2012 @ 17:26:02 #219
62215 qu63
..de tijd drinkt..
pi_108469694
quote:
0s.gif Op maandag 27 februari 2012 17:06 schreef Reflectionne het volgende:
Hoi ervaringsdeskundigen ;)

Heeft iemand van jullie ervaring met CIE lab grafieken? Ik heb wat L*, a*, b*, C* en h waarden en die wil ik graag weergeven in een Excel grafiek. (Ze gaan in verschillende richtingen en het liefst zou ik ook de kleur er bij zien..)

Is dit mogelijk? Iemand een idee?
Klinkt spannend! http://nl.wikipedia.org/wiki/CIELAB
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_108483838
quote:
0s.gif Op maandag 27 februari 2012 17:06 schreef Reflectionne het volgende:
Hoi ervaringsdeskundigen ;)

Heeft iemand van jullie ervaring met CIE lab grafieken? Ik heb wat L*, a*, b*, C* en h waarden en die wil ik graag weergeven in een Excel grafiek. (Ze gaan in verschillende richtingen en het liefst zou ik ook de kleur er bij zien..)

Is dit mogelijk? Iemand een idee?
Volgens WIKI erg lastig: http://en.wikipedia.org/wiki/Lab_color_space

Als je de formule hebt dan kan excel die berekening wel voor je doen.
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_108484089
L loopt van 0 naar 100 van zwart naar wit
A loopt van -### naar +### van groen naar rood waarbij ### een arbitrair getal is die het maximum van de schaal aangeeft
B loopt van -### naar +### van blauw naar geel

Maar hoe je de A en b waarde vertaalt naar een "kleur" weet ik niet.

O+
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 27 februari 2012 @ 22:18:06 #222
62215 qu63
..de tijd drinkt..
pi_108484188
quote:
3s.gif Op maandag 27 februari 2012 22:11 schreef Deetch het volgende:

[..]

Volgens WIKI erg lastig: http://en.wikipedia.org/wiki/Lab_color_space

Als je de formule hebt dan kan excel die berekening wel voor je doen.
Ik vraag me vooral af of Excel wel zulke grafieken kan tekenen qua kleuren:
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_108495313
Om de een of andere reden werken wij met een excel sheet waar alle vergader ruimtes instaan.
je moet een vergader ruimte boeken (tijd boeken) via excel.
Je raadt het al dit gaat dus herhaaldelijk mis.
Vandaag weer ik loop een ruimte in die ik geboekt heb en jawel hoor bezet door een andere groep.
Is er een mogelijkheid om bv 3 cellen te beveiligen in een sheet met password en dat alle andere cellen nog gewoon overschreven kunnen worden?
Only when the last tree has died and the last river has been poisoned and the last fish has been caught will we realize we cannot eat money.
pi_108496101
quote:
0s.gif Op dinsdag 28 februari 2012 10:48 schreef dekilo het volgende:
Om de een of andere reden werken wij met een excel sheet waar alle vergader ruimtes instaan.
je moet een vergader ruimte boeken (tijd boeken) via excel.
Je raadt het al dit gaat dus herhaaldelijk mis.
Vandaag weer ik loop een ruimte in die ik geboekt heb en jawel hoor bezet door een andere groep.
Is er een mogelijkheid om bv 3 cellen te beveiligen in een sheet met password en dat alle andere cellen nog gewoon overschreven kunnen worden?
Eigenschappen van de cel, bescherming, geblokkerd aanvinken en de sheet beveiligen met wachtwoord
  dinsdag 28 februari 2012 @ 11:18:51 #225
62215 qu63
..de tijd drinkt..
pi_108496114
quote:
0s.gif Op dinsdag 28 februari 2012 10:48 schreef dekilo het volgende:
Om de een of andere reden werken wij met een excel sheet waar alle vergader ruimtes instaan.
je moet een vergader ruimte boeken (tijd boeken) via excel.
Je raadt het al dit gaat dus herhaaldelijk mis.
Vandaag weer ik loop een ruimte in die ik geboekt heb en jawel hoor bezet door een andere groep.
Is er een mogelijkheid om bv 3 cellen te beveiligen in een sheet met password en dat alle andere cellen nog gewoon overschreven kunnen worden?
Ja. Celeigenschappen -> Bescherming en doe wat daar staat :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
actieve topics nieuwe topics
abonnement Unibet Coolblue
[Excel] Het grote Excel vragen topic #30
Index

» digital corner

» software

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