DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Je had een messagebox moeten krijgen met het pad en de filenaamquote:Op zaterdag 11 februari 2012 18:05 schreef elkravo het volgende:
[..]
Hoi, ik zie geen verschil::
Wat nu gebeurt is...
Er wordt een nieuw excel-map gemaakt, en ik krijg deze pop-up:
[ afbeelding ]
Vervolgens zet ik er een nieuwe naam in... maar wordt het blad toch als FALSE.xls bewaard.
In de oorspronkelijke code staat o.a.:
[ code verwijderd ]
mist dit op een of andere manier niet?
Zet die hele code nu eens in een nieuwe sheet en test het vanaf daar (opgeslagen en wel)
En nee , je geeft het filetype immers al op in het dialoog
hier de sheet die ik heb
In de bovenstaande sheet draai de macro "export"
[ Bericht 7% gewijzigd door #ANONIEM op 11-02-2012 19:52:05 ]
Ok, de vba uit jouw file gebruikt... de file creatie werkt nu wel. Dank.quote:Op zaterdag 11 februari 2012 19:49 schreef KritischeMassa het volgende:
[..]
Je had een messagebox moeten krijgen met het pad en de filenaam
Zet die hele code nu eens in een nieuwe sheet en test het vanaf daar (opgeslagen en wel)
En nee , je geeft het filetype immers al op in het dialoog
hier de sheet die ik heb
In de bovenstaande sheet draai de macro "export"
Alleen lijkt de format van de geëxporteerde file "intern" niet "comma separated".
Als ik de file open in kladblok verwacht ik (uit jouw file)
| 1 2 3 4 5 | 1;2;3;4;5 q;q;q;q;q w;w;w;w;w 2;3;4;5;6 etc |
Maar de uitkomst van de export maakt dit niet, bij openen in kladblok zie ik allerlei rare tekens, dus ik denk dat het toch nog op een of andere manier intern nog xls-format is of zo...
Ok, we komen verder iigquote:
[..]
Ok, de vba uit jouw file gebruikt... de file creatie werkt nu wel. Dank.
Alleen lijkt de format van de geëxporteerde file "intern" niet "comma separated".
Als ik de file open in kladblok verwacht ik (uit jouw file)
[ code verwijderd ]
Maar de uitkomst van de export maakt dit niet, bij openen in kladblok zie ik allerlei rare tekens, dus ik denk dat het toch nog op een of andere manier intern nog xls-format is of zo...
dus het is geen csv als gehoopt...
hmmm
| 1 | ActiveWorkbook.SaveAs Filename:=filesavename, FileFormat:=xlCSV, CreateBackup:=False |
en zo?
That was the missing piece!quote:
[..]
Ok, we komen verder iig
dus het is geen csv als gehoopt...
hmmm
[ code verwijderd ]
en zo?
Hij doet 't!KM ik ben je enorm dankbaar!
En ik heb weer nieuwe dingen geleerd ook zo, waarvoor ook dank!
Ik was met opzet vrij cryptisch in mijn antwoorden, je was al zo lekker op wegquote:Op zaterdag 11 februari 2012 20:28 schreef elkravo het volgende:
[..]
That was the missing piece!
KM ik ben je enorm dankbaar!
En ik heb weer nieuwe dingen geleerd ook zo, waarvoor ook dank!
Heb je gezien dat ik je "select" actie heb weggehaald in jouw code?
Als je gebruik maakt van macro opnemen zitten er een hoop select acties in, die zijn helemaal niet nodig en laten het scherm flikkeren. Je kan vrij direct ranges aanwijzen en manipuleren namelijk.
Hah nee dat was me niet opgevallen. Maar goed als ik die codes zie snap ik een en ander, en veel ook weer niet. Weet niet waar mensen dit soort spul leren, maar dit moet je dus gewoon leren, en lezen, het is niet altijd redeneerbaar. Lijkt me bij computertaal in het algemeen het geval.quote:
[..]
Ik was met opzet vrij cryptisch in mijn antwoorden, je was al zo lekker op weg
Heb je gezien dat ik je "select" actie heb weggehaald in jouw code?
Als je gebruik maakt van macro opnemen zitten er een hoop select acties in, die zijn helemaal niet nodig en laten het scherm flikkeren. Je kan vrij direct ranges aanwijzen en manipuleren namelijk.
Basic is in al zijn vormen een bitchquote:
[..]
Hah nee dat was me niet opgevallen. Maar goed als ik die codes zie snap ik een en ander, en veel ook weer niet. Weet niet waar mensen dit soort spul leren, maar dit moet je dus gewoon leren, en lezen, het is niet altijd redeneerbaar. Lijkt me bij computertaal in het algemeen het geval.
Leer C en vandaar uit andere talen, dan snap je wat meer en kun je wat meer apparatuur programmeren (ik ben vrij beroemd in de casio rekenmachine cultuur, ik heb zelfs simcity, pacman en pool geport naar de casio grafische calculator (nerd
))
yep klinkt nerdy ... maar ieder zijn ding 
...zolang je er maar plezier in hebt!
Nog even een andere vraag:
In een macro heb ik deze selectie (zie hoe ik geleerd heb zonder te selecten )
In deze range staat dus een tabel te kopieren.
Echter... het kan zijn dat door ergens boven in de sheet een rij te verwijderen dat de macro dus niet meedenkt dat het dan
moet worden
OF
Het kan zijn dat er een rij uit de range wordt verwijderd en dat de macro dus niet meedenkt dat het dan
moet worden.
Ik denk dat een manier moet zijn om dit te ondervangen door voor de eerste cel , en na de laatste cel een markeringspunt (een unieke term "SelecteerStart" en "SelecteerEinde") te zetten, en de macro dus tussen deze twee markeringspunten te selecteren.
Geen idee hoe dat dan weer moet... idee?
... maar ieder zijn ding ...zolang je er maar plezier in hebt!Nog even een andere vraag:
In een macro heb ik deze selectie (zie hoe ik geleerd heb zonder te selecten
)| 1 | Range("I87:M138").Copy |
In deze range staat dus een tabel te kopieren.
Echter... het kan zijn dat door ergens boven in de sheet een rij te verwijderen dat de macro dus niet meedenkt dat het dan
| 1 | Range("I86:M137").Copy |
OF
Het kan zijn dat er een rij uit de range wordt verwijderd en dat de macro dus niet meedenkt dat het dan
| 1 | Range("I87:M137").Copy |
Ik denk dat een manier moet zijn om dit te ondervangen door voor de eerste cel , en na de laatste cel een markeringspunt (een unieke term "SelecteerStart" en "SelecteerEinde") te zetten, en de macro dus tussen deze twee markeringspunten te selecteren.
Geen idee hoe dat dan weer moet... idee?
Ja hoor
Je kan range en cells combineren
Cells kun je tellen -> Cells(i,j)
Door nu door de kolom heen te lopen kun je het start en einde van de range detecteren
pseudocode
For i = 1 to 32000
if cells(i,1)= "start" then
SelStart = i
end if
if cells(i,1) = "einde" then
SelEnd = i
exit for
end if
next
Nu weet je het begin en het eind
nu kun je de range specificeren
range(cells(StartSel,1),cells(EndSel,8))
de 1 en de 8 slaan op de kolomnummers
edit:
Dit gaat natuurlijk grandioos de mist in als je de regel met start of einde verwijderd
kun je niet beter de gebruiker de range laten selecteren met inputbox type 8? (zie post #4 in dit topic voor een voorbeeld)
[ Bericht 3% gewijzigd door #ANONIEM op 12-02-2012 19:38:58 ]
Je kan range en cells combineren
Cells kun je tellen -> Cells(i,j)
Door nu door de kolom heen te lopen kun je het start en einde van de range detecteren
pseudocode
For i = 1 to 32000
if cells(i,1)= "start" then
SelStart = i
end if
if cells(i,1) = "einde" then
SelEnd = i
exit for
end if
next
Nu weet je het begin en het eind
nu kun je de range specificeren
range(cells(StartSel,1),cells(EndSel,8))
de 1 en de 8 slaan op de kolomnummers
edit:
Dit gaat natuurlijk grandioos de mist in als je de regel met start of einde verwijderd
kun je niet beter de gebruiker de range laten selecteren met inputbox type 8? (zie post #4 in dit topic voor een voorbeeld)
[ Bericht 3% gewijzigd door #ANONIEM op 12-02-2012 19:38:58 ]
Ik vind jouw beschreven optie goed, ik wil dat een gebruiker niets hoeft te doen. En die regels met start en einde gaan niet weg.quote:
Ja hoor
Je kan range en cells combineren
Cells kun je tellen -> Cells(i,j)
Door nu door de kolom heen te lopen kun je het start en einde van de range detecteren
pseudocode
For i = 1 to 32000
if cells(i,1)= "start" then
SelStart = i
end if
if cells(i,1) = "einde" then
SelEnd = i
exit for
end if
next
Nu weet je het begin en het eind
nu kun je de range specificeren
range(cells(StartSel,1),cells(EndSel,8))
de 1 en de 8 slaan op de kolomnummers
edit:
Dit gaat natuurlijk grandioos de mist in als je de regel met start of einde verwijderd
kun je niet beter de gebruiker de range laten selecteren met inputbox type 8? (zie post #4 in dit topic voor een voorbeeld)
Echter... ik mis een bruggetje...hoe ik van
range(cells(StartSel,1),cells(EndSel,8)) ....naar het kopieren van deze range kom. '. copy' erachter zetten werkt niet.
edit: ik blijf een compileerfout krijgen op:
Range(Cells(StartSel, 1), Cells(EndSel, 9))
(ook als ik over StartSel en EndSel gebruik en niet SelStart hier en SelEnd
)[ Bericht 5% gewijzigd door elkravo op 12-02-2012 20:29:52 ]
^^^
Ben er zelf uitgekomen... en het werkt.... moest me even suf googlen ;-)
Maar bedankt voor de voorzet KM!
Ben er zelf uitgekomen... en het werkt.... moest me even suf googlen ;-)
Maar bedankt voor de voorzet KM!
haha dat was grappig hequote:
(ook als ik over StartSel en EndSel gebruik en niet SelStart hier en SelEnd
(gebeurt me regelmatig, en dan zoek ik me suf wat er nou mis is En ja ik moet eigenlijk de code eerst testen in excel want ik weet de syntax altijd ongeveer een beetje
maar ik had het druk gisteravond
en zelf uitvinden is tig keer leerzaam dan overtypenvandaar de disclaimer "pseudocode"
Edit:
Om grappen als hierboven te voorkomen kun je "option Explicit" boven je code zetten (eerste regel)
Dit dwingt je om elke Variabel te declareren (dus ook teller i etc)
Als een variabel niet is gedeclareerd stopt de code daar
Zo voorkom je dat een typefout door VBA wordt geïnterpreteerd als een nieuwe variabel
[ Bericht 13% gewijzigd door #ANONIEM op 13-02-2012 06:34:21 ]
quote:
Hi, ik zit met een uitdaging in Excel.
Stel ik wil dagelijks bijhouden in welk merk auto ik rijd en voer dat als volgt in :
[ afbeelding ]
Met de knop ' toevoegen aan lijst' wil ik dat een lijst wordt aangevuld, dat ziet er dan zo uit :
[ afbeelding ]
Hoe moet ik die knop programmeren? Is daar een formule voor, of moet ik met VB gaan werken, of kan ik eventueel met een macro werken? En hoe doe ik dat?
eeuwige roem voor degene die me hiermee kan helpen!
thx
Een macro is VBA
En als je met een knop wil werken zit je vast aan VBA
Ik zou het met een userform oplossen denk ik, al snap ik de vraag niet helemaal
Maak een userform met drie tekstvakken
zet hiervoor drie labels:
Datum
Merk
Kleur
Het tekstvak datum kun je zelfs als "datepicker"opmaken ,maar dan moet je dat extra besturingselement wel in VBA toevoegen...
weet je, ik voeg zometeen een sheet toe die doet wat je wil, want dit gaat me teveel typwerk kosten en ik vermoed dat je geen idee hebt waar ik het over heb, niet onaardig bedoeld
En als je met een knop wil werken zit je vast aan VBA
Ik zou het met een userform oplossen denk ik, al snap ik de vraag niet helemaal
Maak een userform met drie tekstvakken
zet hiervoor drie labels:
Datum
Merk
Kleur
Het tekstvak datum kun je zelfs als "datepicker"opmaken ,maar dan moet je dat extra besturingselement wel in VBA toevoegen...
weet je, ik voeg zometeen een sheet toe die doet wat je wil, want dit gaat me teveel typwerk kosten en ik vermoed dat je geen idee hebt waar ik het over heb, niet onaardig bedoeld
De sheet
Er zit een userform in die opgeroepen wordt via de knop in de sheet
In het userform een datepicker voor de datum, twee tekstvakken en twee knoppen (annuleer en opslaan)
Achter de knop opslaan zit de volgende code
Als je wil dat er niets wordt opgeslagen als het merk of de kleur niet is ingevevuld moet je zelf de code aanpassen
Iets met If textbox1="" then exit sub of zoiets
Ik daag je uit om de code aan te passen, zoals je waarschijnlijk snapt...
Er zit een userform in die opgeroepen wordt via de knop in de sheet
In het userform een datepicker voor de datum, twee tekstvakken en twee knoppen (annuleer en opslaan)
Achter de knop opslaan zit de volgende code
| 1 2 3 4 5 6 7 8 9 10 11 12 13 | For i = 1 To 3200 'Kijken welke regel leeg is 'Uitgaande van de datum kolom If ActiveWorkbook.ActiveSheet.Cells(i, 1) = "" Then Exit For Next 'elke ingevoerde waarde in het formulier wordt in de sheet geplaatst ActiveWorkbook.ActiveSheet.Cells(i, 1) = DTPicker1.Value ActiveWorkbook.ActiveSheet.Cells(i, 2) = TextBox1.Value ActiveWorkbook.ActiveSheet.Cells(i, 3) = TextBox2.Value 'userform sluiten Unload Me |
Als je wil dat er niets wordt opgeslagen als het merk of de kleur niet is ingevevuld moet je zelf de code aanpassen
Iets met If textbox1="" then exit sub of zoiets
Ik daag je uit om de code aan te passen, zoals je waarschijnlijk snapt
...
@kritische massa : ik ga het proberen! Ik werk veel met macro's maar voorkom altijd net dat ik zelf code moet gaan typen. ;-) Thx!
iemand een idee?
Ik heb een sheet met 52 tabbladen (voor iedere week 1).
In zo'n tabblad staat in kolom A de naam van een medewerker en in kolom B tot en met L komt wel of geen "x" om bij te houden of iemand wel of niet in die week gecoacht is.
Nu wil ik een "overzichtspagina" hebben, waar ik in kolom A de naam van de medewerker heb staan en in kolom B (week 1) tot en met BA (week 52) het aantal "x" per medewerker voor de betreffende week.
Een aantal.arg per tabblad zou kunnen... als we iedere week dezelfde medewerkers zouden hebben. En dat is niet per definitie zo
Iemand een idee hoe ik een formule of macro kan gebruiken die kijkt naar de naam van de medewerker en dan per tabblad het aantal x-jes van die medewerker telt
Ik heb een sheet met 52 tabbladen (voor iedere week 1).
In zo'n tabblad staat in kolom A de naam van een medewerker en in kolom B tot en met L komt wel of geen "x" om bij te houden of iemand wel of niet in die week gecoacht is.
Nu wil ik een "overzichtspagina" hebben, waar ik in kolom A de naam van de medewerker heb staan en in kolom B (week 1) tot en met BA (week 52) het aantal "x" per medewerker voor de betreffende week.
Een aantal.arg per tabblad zou kunnen... als we iedere week dezelfde medewerkers zouden hebben. En dat is niet per definitie zo
Iemand een idee hoe ik een formule of macro kan gebruiken die kijkt naar de naam van de medewerker en dan per tabblad het aantal x-jes van die medewerker telt
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Aantal.als een idee?quote:Op maandag 13 februari 2012 19:51 schreef teamlead het volgende:
iemand een idee?
Ik heb een sheet met 52 tabbladen (voor iedere week 1).
In zo'n tabblad staat in kolom A de naam van een medewerker en in kolom B tot en met L komt wel of geen "x" om bij te houden of iemand wel of niet in die week gecoacht is.
Nu wil ik een "overzichtspagina" hebben, waar ik in kolom A de naam van de medewerker heb staan en in kolom B (week 1) tot en met BA (week 52) het aantal "x" per medewerker voor de betreffende week.
Een aantal.arg per tabblad zou kunnen... als we iedere week dezelfde medewerkers zouden hebben. En dat is niet per definitie zo
Iemand een idee hoe ik een formule of macro kan gebruiken die kijkt naar de naam van de medewerker en dan per tabblad het aantal x-jes van die medewerker telt
Macro kan ook
In dit topic zijn een aantal voorbeelden van code en tellers die je opweg kunnen helpen
| 1 2 3 | For i kan op cellen slaan maar ook op sheets (sheet(i)) Dan tellen in die sheets For j bijvoorbeeld Sheet(i).cells(j,1) Dan tellen in kolomen for k bijvoorbeeld sheet(i),cells(j,k) |
[ Bericht 14% gewijzigd door #ANONIEM op 13-02-2012 19:57:24 ]
Hi Kritische massa, ik had nog niet aan deze oplossing gedacht om te werken met een user form. Ik moet me toch eens bezig gaan houden met VB, voor de eerste keer programmeren in 15 jaar. Het zal niet meevallen. ;-) thx!
Google en KM zullen je helpenquote:
Hi Kritische massa, ik had nog niet aan deze oplossing gedacht om te werken met een user form. Ik moet me toch eens bezig gaan houden met VB, voor de eerste keer programmeren in 15 jaar. Het zal niet meevallen. ;-) thx!
met aantal.als loop ik er tegenaan dat ik óf de naam als criterium moet hanteren of de ingevulde "x" .quote:
macro knutselen dusquote:Macro kan ook
In dit topic zijn een aantal voorbeelden van code en tellers die je opweg kunnen helpen
[ code verwijderd ]
Probeer eens wat zou ik zeggen en als het echt niet lukt zie ik je hier vanzelf weer
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Combinatie van vert.zoeken() en aantal.als()quote:
iemand een idee?
Ik heb een sheet met 52 tabbladen (voor iedere week 1).
In zo'n tabblad staat in kolom A de naam van een medewerker en in kolom B tot en met L komt wel of geen "x" om bij te houden of iemand wel of niet in die week gecoacht is.
Nu wil ik een "overzichtspagina" hebben, waar ik in kolom A de naam van de medewerker heb staan en in kolom B (week 1) tot en met BA (week 52) het aantal "x" per medewerker voor de betreffende week.
Een aantal.arg per tabblad zou kunnen... als we iedere week dezelfde medewerkers zouden hebben. En dat is niet per definitie zo
Iemand een idee hoe ik een formule of macro kan gebruiken die kijkt naar de naam van de medewerker en dan per tabblad het aantal x-jes van die medewerker telt
En alweer een vraag.
Excel 2010 NL
Ik heb een optelsom van aantal gewerkte uren.
Dit is in totaal bijvoorbeeld 65.25 uren (dus 65 uren en een kwartier)
Dan moet er in een andere cel dus het aantal in uren en minuten komen.
dus cel A1 staat 65.25
In cel A2 moet dan komen 65:15
Google maakt mij niet veel wijzer want die willen er allemaal een tijdnotatie van maken, en dat moet het dus niet zijn.
Mijn dank is weer oneindig
Excel 2010 NL
Ik heb een optelsom van aantal gewerkte uren.
Dit is in totaal bijvoorbeeld 65.25 uren (dus 65 uren en een kwartier)
Dan moet er in een andere cel dus het aantal in uren en minuten komen.
dus cel A1 staat 65.25
In cel A2 moet dan komen 65:15
Google maakt mij niet veel wijzer want die willen er allemaal een tijdnotatie van maken, en dat moet het dus niet zijn.
Mijn dank is weer oneindig
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
Ik heb 'm al
formule gewoon ='NL Maarssen (Stichtse Vecht)'!G3/24
en dan de cel eigenschap [uu]:mm
ik dacht ik deel 'm ff
formule gewoon ='NL Maarssen (Stichtse Vecht)'!G3/24
en dan de cel eigenschap [uu]:mm
ik dacht ik deel 'm ff
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
Kan ook wel met formule: =INT(A1)&":"&60*(A1-INT(A1))quote:Op dinsdag 14 februari 2012 16:40 schreef Puckzzz het volgende:
Ik heb 'm al
formule gewoon ='NL Maarssen (Stichtse Vecht)'!G3/24
en dan de cel eigenschap [uu]:mm
ik dacht ik deel 'm ff
Dat is wel heel ingewikkeld vind je niet?quote:
[..]
Kan ook wel met formule: =INT(A1)&":"&60*(A1-INT(A1))
Wel grappig dat deze vraag voor de tweede keer van dezelfde user in dit deel voorkomt (zie post #29).
Of ging het nu om de opmaak >24 uur in [uu]?
nee, dat was toch iets anders. Dat zou de 24 uur niet overschrijden.quote:
[..]
Dat is wel heel ingewikkeld vind je niet?
Wel grappig dat deze vraag voor de tweede keer van dezelfde user in dit deel voorkomt (zie post #29).
Of ging het nu om de opmaak >24 uur in [uu]?
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
Doe eens 63.25 uur delen door 24 en dan opmaken als dd-mm-jjjj uu:mmquote:
[..]
nee, dat was toch iets anders. Dat zou de 24 uur niet overschrijden.
(aangepaste opmaak)Die blokhaken zorgen ervoor dat je geen dagen krijgt bij getallen groter dan 24 uur, wel handige feature die ik ook pas sinds kort ken.
maar delen door 24 is dé manier om decimaal om te zetten naar tijd
Ik heb een nieuwe vraag.
Ik heb een lijst met namen, deze namen komen allemaal voor in een andere (veel langere) lijst met namen. In de lange lijst hebben de namen een code erachter.
Is het mogelijk om deze code's automagisch te laten verschijnen achter de korte lijst?
bedankt!
Ik heb een lijst met namen, deze namen komen allemaal voor in een andere (veel langere) lijst met namen. In de lange lijst hebben de namen een code erachter.
Is het mogelijk om deze code's automagisch te laten verschijnen achter de korte lijst?
bedankt!
Zoek eens op de functie verticaal zoeken (VERT.ZOEKEN in NL versie VLOOKUP in EN versie). Staan meer dan genoeg voorbeelden van in deze topicreeks.
Beste Excel-specialisten,
Ik werk met Excel 2010 en ik zit met het volgende. Ik heb een veld dat er als volgt uit ziet:
01.01.2012 14:45:23
Dus het tijdstip en dag dat iets gebeurd is. Zo heb ik ruim 100.000 van dat soort velden onder elkaar.
De categorie staat nu op standaard. Hoe kan ik van zo'n veld een datumveld maken zonder tijd? Bestaat er een functie die die tijd eraf kan trimmen?
Hartelijk dank alvast!
Ik werk met Excel 2010 en ik zit met het volgende. Ik heb een veld dat er als volgt uit ziet:
01.01.2012 14:45:23
Dus het tijdstip en dag dat iets gebeurd is. Zo heb ik ruim 100.000 van dat soort velden onder elkaar.
De categorie staat nu op standaard. Hoe kan ik van zo'n veld een datumveld maken zonder tijd? Bestaat er een functie die die tijd eraf kan trimmen?
Hartelijk dank alvast!
Gaap Goals rulezzz!
Je kan de veldopmaak veranderen naar datum, werkt dat met deze opmaak? Anders de punten vervangen door "-"quote:
Beste Excel-specialisten,
Ik werk met Excel 2010 en ik zit met het volgende. Ik heb een veld dat er als volgt uit ziet:
01.01.2012 14:45:23
Dus het tijdstip en dag dat iets gebeurd is. Zo heb ik ruim 100.000 van dat soort velden onder elkaar.
De categorie staat nu op standaard. Hoe kan ik van zo'n veld een datumveld maken zonder tijd? Bestaat er een functie die die tijd eraf kan trimmen?
Hartelijk dank alvast!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
als je het format naar "nummer" veranderd wordt het dan een getal?quote:
Beste Excel-specialisten,
Ik werk met Excel 2010 en ik zit met het volgende. Ik heb een veld dat er als volgt uit ziet:
01.01.2012 14:45:23
Dus het tijdstip en dag dat iets gebeurd is. Zo heb ik ruim 100.000 van dat soort velden onder elkaar.
De categorie staat nu op standaard. Hoe kan ik van zo'n veld een datumveld maken zonder tijd? Bestaat er een functie die die tijd eraf kan trimmen?
Hartelijk dank alvast!
Zo ja dan kun je de waarde gewoon naar beneden afronden op een geheel getal en dat weer als datum gebruiken.
En anders doe je:
=DATE(1*MID(A1,7,4),1*MID(A1,4,2),1*(LEFT(A1,2)))
=DATUM(1*DEEL(A1;7;4);1*DEEL(A1;4;2);1*(LINKS(A1;2)))
[ Bericht 3% gewijzigd door Deetch op 16-02-2012 09:54:17 ]
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
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
Het is ook van de ene kant een makkelijk functie maar er zitten nog wat retricties aan wat sommige mensen zich niet realiseren.quote:
Typisch hoeveel vragen er zijn over VLOOKUP
Het vervelendste is als er dubbele gegevens in de zoekkolom staan, dan neemt hij maar de eerst gevonden waarde.
Hallo mensen, nee, als ik de categorie op getal zet, verandert er niets, ook visueel niet.
En de categorie op datum zetten laat ook niets anders zien. Categorie aangepast heb ik ook geprobeerd maar ook daar geen sjoegem.
En de categorie op datum zetten laat ook niets anders zien. Categorie aangepast heb ik ook geprobeerd maar ook daar geen sjoegem.
Gaap Goals rulezzz!
Ik zal de formule van Deetch eens proberen. Gewoon in B1 zetten, dus rechts naast A1 waar de te bewerken string in staat?
Gaap Goals rulezzz!
dan is het dus een tekst en kun je idd mijn formule gebruiken.quote:
Hallo mensen, nee, als ik de categorie op getal zet, verandert er niets, ook visueel niet.
En de categorie op datum zetten laat ook niets anders zien. Categorie aangepast heb ik ook geprobeerd maar ook daar geen sjoegem.
Een handige tip ten aanzien van datums: Een datum is in excel gewoon een getal waarbij het cijfers achter de komma het deel van een dag is. Dus 12:00 is 0.5.
Als je data dus echt als data hebt staan kun je deze gewoon van elkaar aftrekken en afronden etc.
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
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
Ik kom deze datumnotatie vaak tegen in logfiles (durag/sick). Vervangen zoals ik aangaf zet het ook om naar datum/tijd.quote:
[..]
dan is het dus een tekst en kun je idd mijn formule gebruiken.
Een handige tip ten aanzien van datums: Een datum is in excel gewoon een getal waarbij het cijfers achter de komma het deel van een dag is. Dus 12:00 is 0.5.
Als je data dus echt als data hebt staan kun je deze gewoon van elkaar aftrekken en afronden etc.
KritischeMassa heeft inderdaad gelijk. Zoeken en vervangen werkt prima! Daarna met control 1 de categorie op datum zetten en je hebt een normaal datumveld. Wel moet ik even testen of dit echt goed werkt want ik moet er draaitabellen van maken waar voor mijn werk financiele dingen aanhangen.
Bedankt!
Bedankt!
Gaap Goals rulezzz!
klopt maar dan moet je dus elke keer je ruwe data aanpassen terwijl je op deze manier een formule hebt die met je ruwe data gewoon aan de slag gaat.quote:
KritischeMassa heeft inderdaad gelijk. Zoeken en vervangen werkt prima! Daarna met control 1 de categorie op datum zetten en je hebt een normaal datumveld. Wel moet ik even testen of dit echt goed werkt want ik moet er draaitabellen van maken waar voor mijn werk financiele dingen aanhangen.
Bedankt!
Verder verdwijnt het getal achter de komma niet als je van een datum tijd notatie alleen de datum laat zien via format. Dit kan vervelend zijn bij vlookup functies en misschien ook wel met draiabellen.
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
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
Ach ik heb dat soort dingen in een importmacro gestopt, je kan er namelijk meteen integers vanmaken )hele dagen.quote:
[..]
klopt maar dan moet je dus elke keer je ruwe data aanpassen terwijl je op deze manier een formule hebt die met je ruwe data gewoon aan de slag gaat.
Verder verdwijnt het getal achter de komma niet als je van een datum tijd notatie alleen de datum laat zien via format. Dit kan vervelend zijn bij vlookup functies en misschien ook wel met draiabellen.
En als je persé een formule wil gebruiken zou ik kiezen voor
=INTEGER(SUBSTITUEREN(B5;".";"-"))
De `INTEGER` om alleen de datum over te houden
Zit wat eenvoudiger in elkaar
Ik zit met een probleempje. Ik wil twee ALS functies nesten, maar het lukt niet.
Ik heb nu dit staan : =ALS(E18="Boston";B26;B28;ALS(F18="Ja";B27;)).
Excel geeft dan de melding dat ik teveel argumenten heb gebruikt. Hoe los ik dit op ?
Ik heb nu dit staan : =ALS(E18="Boston";B26;B28;ALS(F18="Ja";B27;)).
Excel geeft dan de melding dat ik teveel argumenten heb gebruikt. Hoe los ik dit op ?
Himmelhoch jauchzend, zum Tode betrübt.
Glücklich allein, ist Herr Bok, die schiet. Boem.
Glücklich allein, ist Herr Bok, die schiet. Boem.
=ALS(E18="Boston";B26;ALS(F18="Ja";B27;B28)).quote:
Ik zit met een probleempje. Ik wil twee ALS functies nesten, maar het lukt niet.
Ik heb nu dit staan : =ALS(E18="Boston";B26;B28;ALS(F18="Ja";B27;)).
Excel geeft dan de melding dat ik teveel argumenten heb gebruikt. Hoe los ik dit op ?
- Ik heb het antwoord al ! -
[ Bericht 94% gewijzigd door OudeBok op 17-02-2012 20:23:10 ]
[ Bericht 94% gewijzigd door OudeBok op 17-02-2012 20:23:10 ]
Himmelhoch jauchzend, zum Tode betrübt.
Glücklich allein, ist Herr Bok, die schiet. Boem.
Glücklich allein, ist Herr Bok, die schiet. Boem.
KritischeMassa, moet ik jouw formule in cel B1 zetten als de te bewerken string in A1 staat?
Gaap Goals rulezzz!
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 efficientquote:
[..]
Dat is wel heel ingewikkeld vind je niet?
Wel grappig dat deze vraag voor de tweede keer van dezelfde user in dit deel voorkomt (zie post #29).
Of ging het nu om de opmaak >24 uur in [uu]?
Welke taal heb je?quote:
Ik heb de formule EXACT overgenomen en toch komt hij met een foutmeldig.
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.quote:
[..]
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
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!
Oooh, ik keek puur en alleen naar de 'uitkomst', het is inderdaad een string ja.quote:
[..]
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.
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!
Ik zou gebruik maken van de volgende functie:quote:
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.
=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 ]
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!
Ikzelf vind de =countifs( functie van excel2007 fantastisch, ideaal in grote tabellen en zeer vaak te gebruiken.quote:
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.
kun je beter sumproduct gebruiken, daar krijg ik nou een harde plasser vanquote:
[..]
Ikzelf vind de =countifs( functie van excel2007 fantastisch, ideaal in grote tabellen en zeer vaak te gebruiken.
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
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
In combinatie met jouw ava geeft dat een verontrustend beeld!quote:
[..]
kun je beter sumproduct gebruiken, daar krijg ik nou een harde plasser van
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
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?
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.
Ik gok een macro die door al je afbeeldingen loopt, maar dat zal KM vast beter uit kunnen leggenquote:
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?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Ja dat is de manierquote:
[..]
Ik gok een macro die door al je afbeeldingen loopt, maar dat zal KM vast beter uit kunnen leggen
Ik heb alleen nu geen tijd om het uit te leggen
Deze beter?quote:
[..]
In combinatie met jouw ava geeft dat een verontrustend beeld!
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
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
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 welquote:
[..]
kun je beter sumproduct gebruiken, daar krijg ik nou een harde plasser van
Onwaar.quote:
[..]
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
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
Nou ok... was wel wat nieuw voor me en de code kan waarschijnlijk beter (for each textbox...)quote:
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?
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 bouwenVoorbeeldsheet met hypergave smiley
[ Bericht 1% gewijzigd door #ANONIEM op 20-02-2012 20:19:50 ]
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:
Iemand een idee wat ik moet wijzigen?
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>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
| 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 |
Nope, die werkt niet
Er gebeurt daarmee niet veel, de tekst blijft in 1 kolom staan.
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>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
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>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
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>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
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
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.
de grootste schande van heel FOK! naast Fylax is Kano als mod.
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>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
Vul in B2:quote:
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
+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.
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,
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
Tot nu toe heb ik dit..quote:
| 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>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
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
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
Werkt niet..?
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
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 verderquote:
quote:
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 ]
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>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
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
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
Compileerfout: verwacht instructie einde.
Dat dus als ik 'm achter ChDir zet.
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>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
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
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
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
Wat doet die CreateBackup:=False?quote:
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 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
geen idee, deze zit er standaadr achter als je de save as dialoog opneemt.quote:
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
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
Hoe moet ik het pad en de bestandsnaam in de variabele 'bestandsnaam' doen?quote:
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 ]
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
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 ]
[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
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
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.quote:
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.
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 |
ja je kan natuurlijk een stukje code draaien dat elke keer als het tabblad wordt geselecteerd wordt gedraaid:quote:
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,
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...
Heb jij code om een gerunde macro te undo-en? Die wil ik wel!!!quote:
[..]
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...
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
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
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.quote:
[..]
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 ]
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
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?
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?
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)
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
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
Ik zal wel dom zijn maar is die 2e niet 200%??
(A1-B1)/B1
Nvm Zie het al
Maar die - slaat nergens op idd
[ Bericht 37% gewijzigd door DaFan op 23-02-2012 14:26:06 ]
(A1-B1)/B1
Nvm Zie het al
Maar die - slaat nergens op idd
[ Bericht 37% gewijzigd door DaFan op 23-02-2012 14:26:06 ]
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:
Ook zonder mijn toevoeging werkt het niet... nog tips?
) 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!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
"/Tijdspecificatie"quote:
Tot nu werkt alles prima, ook nadat ik (helemaal zelf!
M'n code is nu:
[ code verwijderd ]
Ook zonder mijn toevoeging werkt het niet... nog tips?
"\Tijdspecificatie" een idee?
Geen verschil..quote:
[..]
"/Tijdspecificatie"
"\Tijdspecificatie" een idee?
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
