Alleen even de directory aanpassen:quote: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?
SPOILEROm 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.
Hmz, Oke, die rijen werken prima.quote: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.
1 2 | Dim maxcol As Long maxcol = [LOOKUP(2,1/(D12:EM12<>"x"),Column(D12:EM12))] |
Nu zoek je juist naar de laatste cel die niet gelijk is aan "x"quote: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)
Ja, dat is ook juist de bedoeling. Schreef het een beetje ongelukkigquote: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"
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 |- |} |
Ik heb geen idee wat je nu eigenlijk wil. Je wilt A2 en B2 samenvoegen?quote: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?
Vergeef me mijn domheid, maar hoe nuttig is het om hetgeen buiten de gebruikte range te verwijderen?quote: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
Hm, misschien leg ik het wat onduidelijk uit.quote: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?
1 2 3 4 5 6 | |colspan="2"|A1 |B1 |- |colspan="2"|A2 |B2 |- |
Volgens mij zoek je de inhoud van A1 en B1 samen te voegen in bijvoorbeeld cel C1. Dat zou zijnquote: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.
Ja en nee. Het moet nog automatisch door Excel in de bovengenoemde code worden omgezet zodat ik kan control-c+v'en.quote: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
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.quote: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.
Dan doe je in (bijv) C1 -> ='|colspan="2"|'&A1quote: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.
Als ze als tekst opgemaakt zijn zou je dmv een hulpkolom ze kunnen converteren naar een datum.quote: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
In B2 zet je dit: =DATUM(LINKS(RECHTS(A2;LENGTE(A2)-6);4);LINKS(RECHTS(A2;LENGTE(A2)-3);2);LINKS(A2;2))quote: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
Dat moet je dan doen in de opmaak. CTRL+1, tabblad getal, kies dan voor aangepast en vul daar jjjj-mm-dd inquote: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
Ah, ik heb maand en dag omgedraaid zie ikquote: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.
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 |
Ik snap je even niet. Zou je dat kunnen uitleggen/verwerken in een Excel?quote: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.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |