abonnement bol.com Unibet Coolblue
pi_141287890
quote:
0s.gif Op donderdag 19 juni 2014 11:42 schreef 314 het volgende:
hi, ik zoek naar een macro me een *.csv bestand laat openen uit een vooraf bepaalde folder (documenten of downloads ofzo), dan de inhoud van die csv kopieert naar een tabje "temp" in mijn huidige workbook om er later mee verder te werken

er zijn meerdere versies van het adressenbestand (*.csv) en eigenlijk wil ik dat ie alleen de inhoud van de laatste versie naar mijn temp tabje kopieert

adressen_01-2014.csv
adressen_02-2014.csv
adressen_03-2014.csv --> deze dus, maar zodra er over een poosje een _06-2014 in die folder staat moet ie die pakken

edit: ik kan hem ook handmatig aanklikken, maar dan wil ik wel in de Open pop-up meteen de juiste folder zien en al gefilterd op alleen *.csv . Het lastige is even dat ik niet precies weet hoe ik in VB kan schakelen tussen (1) mijn workbook waarvan ik de naam weet natuurlijk en (2) het *.csv bestand waarvan de naam niet vaststaat totdat ik hem geopend heb.. iemand? :P
Alleen even de directory aanpassen:
SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
Het was even knutselen, namelijk nog nooit met QueryTables gewerkt.
pi_141302238
Ik heb een vraag betreffende de resolutie van Excel charts. Voorheen maakte ik scatterplots in Excel 2010 waarbij de trendlijnen er vloeiend uitkwamen maar sinds een paar weken zijn de lijntjes niet zo vloeiend meer en erg blokkerig (pixels sluiten niet op elkaar aan). Weet iemand waar dit aan zou kunnen liggen?
pi_141318545
quote:
0s.gif Op woensdag 18 juni 2014 15:57 schreef Stickers het volgende:
Hiermee moet het lukken:

Sub getLastRow()
Dim LastUsedRow As Long
LastUsedRow = [LOOKUP(2,1/(A1:A65000<>""),ROW(A1:A65000))]
End Sub

Gevonden op http://www.mrexcel.com/fo(...)up-ignore-blank.html

Formule:
=ZOEKEN(2;1/(A1:A18<>"");RIJ(A1:A18))

Dan kun je spelen zonder elke keer een macro te hoeven runnen.
Hmz, Oke, die rijen werken prima.
Nu wil ik alleen hetzelfde met kolommen, dus ik dacht heel simpel:
1
2
Dim maxcol As Long
    maxcol = [LOOKUP(2,1/(D12:EM12<>"x"),Column(D12:EM12))]
Hier zoekt ie dus naar waarde "x", maar zo simpel de formule aanpassen werkt het kennelijk niet. ideeen? (ben geen held in vectoren en matrices, dat gedeelte nooit gesnapt)
I never think of the future - it comes soon enough. - Albert Einstein
pi_141325391
quote:
0s.gif Op vrijdag 20 juni 2014 09:22 schreef kipptje het volgende:

[..]

Hmz, Oke, die rijen werken prima.
Nu wil ik alleen hetzelfde met kolommen, dus ik dacht heel simpel:

maxcol = [LOOKUP(2,1/(D12:EM12<>"x"),Column(D12:EM12))]

Hier zoekt ie dus naar waarde "x", maar zo simpel de formule aanpassen werkt het kennelijk niet. ideeen? (ben geen held in vectoren en matrices, dat gedeelte nooit gesnapt)
Nu zoek je juist naar de laatste cel die niet gelijk is aan "x" ;)
pi_141345646
quote:
0s.gif Op vrijdag 20 juni 2014 13:08 schreef Stickers het volgende:

[..]

Nu zoek je juist naar de laatste cel die niet gelijk is aan "x" ;)
Ja, dat is ook juist de bedoeling. Schreef het een beetje ongelukkig ;)
Hoe dan ook, de formule die ik heb opgeschreven werkt dus niet en ik weet niet hoe ik het moet aanpassen
I never think of the future - it comes soon enough. - Albert Einstein
pi_141350449
Heb je toevallig een voorbeeldbestand? Er zijn namelijk meerdere manieren hoe ik het probleem kan interpreteren :)
pi_141415776
Ik weet niet of het mogelijk is met Excel, maar wie weet.

Mijn doel is om van A2 t/m A45 (of t/m er iets in A staat) en van C2 t/m C45 (of t/m er iets in C staat) een code creeren.

Een code die als volgt moet zijn:
1
2
3
4
5
6
7
8
9
10
11
{|
! style="text-align:left;" colspan="2"| Item
! Required items
|-
|colspan="2"|A2
|C2
|-
|colspan="2"|A3
|C4
|-
|}

Waar A2/C2/A3/C3 de tekst uit de tabel zou moeten zijn. Is dit mogelijk?
pi_141418270
quote:
0s.gif Op zondag 22 juni 2014 18:46 schreef einschtein het volgende:
Ik weet niet of het mogelijk is met Excel, maar wie weet.

Mijn doel is om van A2 t/m A45 (of t/m er iets in A staat) en van C2 t/m C45 (of t/m er iets in C staat) een code creeren.

Een code die als volgt moet zijn:
[ code verwijderd ]

Waar A2/C2/A3/C3 de tekst uit de tabel zou moeten zijn. Is dit mogelijk?
Ik heb geen idee wat je nu eigenlijk wil. Je wilt A2 en B2 samenvoegen?
Kan je een voorbeeld geven (desnoods met html) wat je echt zoekt?
pi_141419892
quote:
1s.gif Op vrijdag 20 juni 2014 21:02 schreef kipptje het volgende:

[..]

Ja, dat is ook juist de bedoeling. Schreef het een beetje ongelukkig ;)
Hoe dan ook, de formule die ik heb opgeschreven werkt dus niet en ik weet niet hoe ik het moet aanpassen
Vergeef me mijn domheid, maar hoe nuttig is het om hetgeen buiten de gebruikte range te verwijderen?
Anyway je formule werkt wel, maar je vergeet waarschijnlijk dat het resultaat 4 te laag is omdat je pas in kolom D begint met zoeken.
pi_141421045
quote:
0s.gif Op zondag 22 juni 2014 19:32 schreef snabbi het volgende:

[..]

Ik heb geen idee wat je nu eigenlijk wil. Je wilt A2 en B2 samenvoegen?
Kan je een voorbeeld geven (desnoods met html) wat je echt zoekt?
Hm, misschien leg ik het wat onduidelijk uit.

A1 en B1 (enhebben beide een inhoud van text. Nu wil ik die samenvoegen in een code, maar Excel moet die code samenstellen met de gegevens uit de cellen.

A1 en B1 moeten in de volgende code worden toegevoegd, die Excel dus maakt/samenstelt:
1
2
3
4
5
6
|colspan="2"|A1
|B1
|-
|colspan="2"|A2
|B2
|-

Dus Excel moet de gegevens uit A1, A2, B1 en B2 halen en die dus in de bovenstaande code zetten. Excel moet die code helemaal zelf maken in eerste instantie zodat ik alleen hoef te copy+pasten.

Snap je het nu toevallig? :P

Ik heb nu namelijk een Excel lijst met waardes in A en de B-kolommen en die moet ik dus in een code hebben voor een website. Maar ik heb niet de behoefte om dat allemaal zelf te typen.
pi_141429060
Volgens m
quote:
0s.gif Op zondag 22 juni 2014 20:22 schreef einschtein het volgende:

[..]

Hm, misschien leg ik het wat onduidelijk uit.

A1 en B1 (enhebben beide een inhoud van text. Nu wil ik die samenvoegen in een code, maar Excel moet die code samenstellen met de gegevens uit de cellen.
Volgens mij zoek je de inhoud van A1 en B1 samen te voegen in bijvoorbeeld cel C1. Dat zou zijn
=A1&B1
pi_141439349
quote:
0s.gif Op zondag 22 juni 2014 22:27 schreef snabbi het volgende:
Volgens m

[..]

Volgens mij zoek je de inhoud van A1 en B1 samen te voegen in bijvoorbeeld cel C1. Dat zou zijn
=A1&B1
Ja en nee. Het moet nog automatisch door Excel in de bovengenoemde code worden omgezet zodat ik kan control-c+v'en. :+
pi_141441482
quote:
0s.gif Op zondag 22 juni 2014 19:59 schreef snabbi het volgende:

[..]

Vergeef me mijn domheid, maar hoe nuttig is het om hetgeen buiten de gebruikte range te verwijderen?
Anyway je formule werkt wel, maar je vergeet waarschijnlijk dat het resultaat 4 te laag is omdat je pas in kolom D begint met zoeken.
Door alles buiten de gedrukte range te verwijderen (in mijn geval niet gebruikte kolommen) raakt alles op het blad een stuk overzichtelijker. je hebt dan geen onbruikbare informatie staan.
Waarom ik al bij voorbaad ze niet weg haal? Omdat de grootte van de verwerking elke keer anders is. Daarom heb ik een format gemaakt met een bepaalde hoeveelheid kolommen waarbij dus een variabel aantal niet gebruikte kolommen verwijderd moeten worden.
I never think of the future - it comes soon enough. - Albert Einstein
  maandag 23 juni 2014 @ 12:38:04 #264
62215 qu63
..de tijd drinkt..
pi_141445795
quote:
1s.gif Op maandag 23 juni 2014 05:33 schreef einschtein het volgende:

[..]

Ja en nee. Het moet nog automatisch door Excel in de bovengenoemde code worden omgezet zodat ik kan control-c+v'en. :+
Dan doe je in (bijv) C1 -> ='|colspan="2"|'&A1
C2 -> ='|'&B1
C3 -> ='|'
C4 -> ='|colspan="2"|'&A2

etc.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_141481410
Beste Mensen,

Momenteel ben ik bezig met een project en daarbij ben ik tegen een probleempje aangelopen. De datumnotatie, van hetzelfde kolom, heb ik gewijzigd door celeigenschappen -> aangepast
jjjj-mm-dd.

De data 01/13/2012 11:49 AM en 01/13/2012 04:05 PM willen niet veranderen. Komt dit doordat ze text zijn i.p.v. date? Hoe kan ik deze converteren en/of simpelweg de data wijzigen in jjjj-mm-dd, maar ook automatisch de inhoud van elke cel. Dus zonder de AM and PM.

2012-12-01
2012-12-01
01/13/2012 11:49 AM
01/13/2012 04:05 PM

Op mijn werk heb ik een nederlandse excel 2003 en kan ik niet naar de landinstellingen (autoriteitsrechten).

Bij voorbaat dank.

Met vriendelijke groet,

D.Ilic
Mvg,
Dusan Ilic
  dinsdag 24 juni 2014 @ 11:32:48 #266
62215 qu63
..de tijd drinkt..
pi_141483533
quote:
0s.gif Op dinsdag 24 juni 2014 10:12 schreef DIlic het volgende:
Beste Mensen,

Momenteel ben ik bezig met een project en daarbij ben ik tegen een probleempje aangelopen. De datumnotatie, van hetzelfde kolom, heb ik gewijzigd door celeigenschappen -> aangepast
jjjj-mm-dd.

De data 01/13/2012 11:49 AM en 01/13/2012 04:05 PM willen niet veranderen. Komt dit doordat ze text zijn i.p.v. date? Hoe kan ik deze converteren en/of simpelweg de data wijzigen in jjjj-mm-dd, maar ook automatisch de inhoud van elke cel. Dus zonder de AM and PM.

2012-12-01
2012-12-01
01/13/2012 11:49 AM
01/13/2012 04:05 PM

Op mijn werk heb ik een nederlandse excel 2003 en kan ik niet naar de landinstellingen (autoriteitsrechten).

Bij voorbaat dank.

Met vriendelijke groet,

D.Ilic
Als ze als tekst opgemaakt zijn zou je dmv een hulpkolom ze kunnen converteren naar een datum.
In A1 staat je tekst, in B1 kan je dan het volgende zetten:
=DATUM(LINKS(RECHTS(A1;LENGTE(A1)-6);4);LINKS(RECHTS(A1;LENGTE(A1)-3);2);LINKS(A1;2))
Werkt voor tekst zoals 01/13/2012 11:49 AM
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_141483615
Beste qu63,
Ik heb hier een bestandje. Misschien wil je er naar kijken en begrijp je de situatie beter.
Het is de bedoeling dat de datumnotatie jjjj-mm-dd wordt en dat de inhoud niet met tijd is, maar alleen 2012-12-01. Dit is trouwens geimporteerde data en zal maandelijks worden geimporteerd voor rapportage. Vandaar dat de datumnotatie vaker zal moeten worden veranderd.
https://www.dropbox.com/s(...)hJcl7QAhu-RyUyWQWY5a

[ Bericht 35% gewijzigd door DIlic op 24-06-2014 11:45:20 ]
Mvg,
Dusan Ilic
  dinsdag 24 juni 2014 @ 11:45:07 #268
62215 qu63
..de tijd drinkt..
pi_141483844
quote:
0s.gif Op dinsdag 24 juni 2014 11:35 schreef DIlic het volgende:
Beste qu63,
Ik heb hier een bestandje. Misschien wil je er naar kijken en begrijp je de situatie misschien beter.
https://www.dropbox.com/s(...)hJcl7QAhu-RyUyWQWY5a
In B2 zet je dit: =DATUM(LINKS(RECHTS(A2;LENGTE(A2)-6);4);LINKS(RECHTS(A2;LENGTE(A2)-3);2);LINKS(A2;2))
Dan doortrekken naar beneden (dubbelklikken op het plusje rechtsonderin de cel) en het werkt in alle 12690 cellen :)

Dan kan je eventueel kolom A verbergen en is kolom B je nieuwe A :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_141484197
OMG! jij bent een held! bijna gelukt hij verandert het, alleen gaat hij nu naar dd-mm-jjjj notatie en hij moet jjjj-mm-dd notatie. Tevens verandert hij de datum helemaal bijv.: 01/13/2012 11:49 AM wordt 1-1-2013, maar moet 2012-1-13 worden
Mvg,
Dusan Ilic
  dinsdag 24 juni 2014 @ 12:01:23 #270
62215 qu63
..de tijd drinkt..
pi_141484305
quote:
0s.gif Op dinsdag 24 juni 2014 11:57 schreef DIlic het volgende:
OMG! jij bent een held! bijna gelukt hij verandert het, alleen gaat hij nu naar dd-mm-jjjj notatie en hij moet jjjj-mm-dd notatie. Tevens verandert hij de datum helemaal bijv.: 01/13/2012 11:49 AM wordt 1-1-2013, maar moet 2012-1-13 worden
Dat moet je dan doen in de opmaak. CTRL+1, tabblad getal, kies dan voor aangepast en vul daar jjjj-mm-dd in :s)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_141484607
Natuurlijk, je hebt gelijk dat werkt wat betreft de jjjj-mm-dd notatie, alleen zit ik dan nog met het laatste en dat is dat hij de datum compleet verandert. Misschien komt het door mijn computer, als hij dat niet bij jou vertoont zou je dan jouw bestandje in mijn dropbox kunnen plaatsen? Ik hoop dat ik niet teveel van je vraag. Iig heb je mij al erg veel geholpen! Thnx alvast.
Mvg,
Dusan Ilic
  dinsdag 24 juni 2014 @ 12:38:00 #272
62215 qu63
..de tijd drinkt..
pi_141485436
quote:
14s.gif Op dinsdag 24 juni 2014 12:11 schreef DIlic het volgende:
Natuurlijk, je hebt gelijk dat werkt wat betreft de jjjj-mm-dd notatie, alleen zit ik dan nog met het laatste en dat is dat hij de datum compleet verandert. Misschien komt het door mijn computer, als hij dat niet bij jou vertoont zou je dan jouw bestandje in mijn dropbox kunnen plaatsen? Ik hoop dat ik niet teveel van je vraag. Iig heb je mij al erg veel geholpen! Thnx alvast.
Ah, ik heb maand en dag omgedraaid zie ik :P
Dit moet werken: =DATUM(LINKS(RECHTS(A2;LENGTE(A2)-6);4);LINKS(A2;2);LINKS(RECHTS(A2;LENGTE(A2)-3);2))
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_141486153
Jaaa top!! Hij werkt prima!! Heel erg bedankt Qu63.
Dus voor de duidelijkheid de oplossing tot mijn probleem was de formule:

=DATUM(LINKS(RECHTS(A2;LENGTE(A2)-6);4);LINKS(A2;2);LINKS(RECHTS(A2;LENGTE(A2)-3);2)) en dan uiteindelijk de celeigenschappen -> aangepast -> jjjj-mm-dd
Mvg,
Dusan Ilic
pi_141493375
Ik heb ook eens een vraagje >:)

Ik heb zo'n paar honderd bestanden met elk twee userforms. Hoe kan ik van deze userforms bijvoorbeeld een add-in maken die maar op één plek updates nodig heeft? De userforms zijn overigens afhankelijk van elkaar.

Een alternatief waar ik aan dacht kan zijn dat ik de huidige userforms verwijder en opnieuw importeer, alleen werkt de code niet die ik heb:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub updateForm()
    Dim SourceWb As Workbook
    Dim DestinationWB As Workbook
    
    Set SourceWb = Workbooks("Testforms.xls")
    Set DestinationWB = Workbooks(rapp)
    
    'verwijderen huidige formulieren
        DestinationWB.VBProject.VBComponents.Remove "Userform1.frm"
        DestinationWB.VBProject.VBComponents.Remove "Userform2.frm"
               
    'opnieuw importeren
    SourceWb.VBProject.VBComponents("Userform1").Export "Userform1.frm"
        DestinationWB.VBProject.VBComponents.Import "Userform1.frm"
        
    SourceWb.VBProject.VBComponents("Userform2").Export "Userform2.frm"
        DestinationWB.VBProject.VBComponents.Import "Userform2.frm"
    
End Sub


[ Bericht 0% gewijzigd door Stickers op 24-06-2014 16:32:41 ]
pi_141505111
quote:
0s.gif Op maandag 23 juni 2014 12:38 schreef qu63 het volgende:

[..]

Dan doe je in (bijv) C1 -> ='|colspan="2"|'&A1
C2 -> ='|'&B1
C3 -> ='|'
C4 -> ='|colspan="2"|'&A2

etc.
Ik snap je even niet. Zou je dat kunnen uitleggen/verwerken in een Excel?
abonnement bol.com Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')