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.
Deze werkt ook wel trouwens:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Dim strFile As String Dim strPath As String Dim colFiles As New Collection Dim i As Integer strPath = "C:\Documents and Settings\user\" strFile = Dir(strPath) While strFile <> "" colFiles.Add strFile strFile = Dir Wend 'List filenames in Column A of the active sheet If colFiles.Count > 0 Then For i = 1 To colFiles.Count ActiveSheet.Cells(i, 1).Value = colFiles  Next i End If End Sub |
Hans probeer eens:
Anders weet ik het niet, kijk even of je je bestand ergens kan uploaden dan :)
| 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 30 31 32 33 34 35 36 | ' ' afbeeldinginvoegen Macro ' foto invoegen in opmerkingen vak ' ' Sneltoets: CTRL+a ' Dim myshape As Shape Range("C16").AddComment Range("C16").Comment.Visible = False Range("C16").Comment.Text Text:="Hans Degenkamp:" & Chr(10) & "" For Each myshape In ActiveSheet.Shapes With myshape.ShapeRange .Fill.Transparency = 0# .Line.Weight = 0.75 .Line.DashStyle = msoLineSolid .Line.Style = msoLineSingle .Line.Transparency = 0# .Line.Visible = msoTrue .Line.ForeColor.RGB = RGB(0, 0, 0) .Line.BackColor.RGB = RGB(255, 255, 255) .Fill.Visible = msoTrue .Fill.ForeColor.RGB = RGB(255, 255, 255) .Fill.BackColor.RGB = RGB(255, 255, 225) .Fill.UserPicture _ "C:\Documents and Settings\Hans\Mijn documenten\Mijn afbeeldingen\test macro\rondje.JPG" End With Next myshape |
Anders weet ik het niet, kijk even of je je bestand ergens kan uploaden dan :)
Om de een of andere reden doet ie 't niet.quote:Op dinsdag 17 november 2009 08:19 schreef DaFan het volgende:
Deze werkt ook wel trouwens:
[ code verwijderd ]
Maar hoe doe je dit via dos?
Laat maar Keppem: Dir > naam.txt
Good old Dos!
[ Bericht 18% gewijzigd door Twentsche_Ros op 17-11-2009 09:09:00 ]
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
Je moet achter colfiles ff (i ) zetten ipv 
En denk eraan dat je je pathstring afsluit met een backslash zoals ik ook heb.
dir > list.txt
Zet een tekstbestand in de map waar je nu werkt, met de inhoud van de map + grootte ed.
Met dir/s krijg je de volledige diepte van alle mappen te zien.
En denk eraan dat je je pathstring afsluit met een backslash zoals ik ook heb.
dir > list.txt
Zet een tekstbestand in de map waar je nu werkt, met de inhoud van de map + grootte ed.
Met dir/s krijg je de volledige diepte van alle mappen te zien.
Hartelijk dank!quote:Op dinsdag 17 november 2009 08:38 schreef DaFan het volgende:
Je moet achter colfiles ff (i ) zetten ipv
En denk eraan dat je je pathstring afsluit met een backslash zoals ik ook heb.
dir > list.txt
Zet een tekstbestand in de map waar je nu werkt, met de inhoud van de map + grootte ed.
Met dir/s krijg je de volledige diepte van alle mappen te zien.
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
Weer eens een leuke beginnersvraag: ik heb volgens mij perongeluk een toetsencombinatie gemaakt waardoor nu Excel anders functioneert.. als ik 10 cellen selecteer en op delete druk wordt alleen de eerst-geselecteerde sel geleegd.. Weet iemand welke optie ik terug moet zetten om te zorgen dat ik weer gewoon meerder cellen tegelijk kan legen?
OS en Excel versie/taal?quote:Op dinsdag 17 november 2009 11:18 schreef Maartel het volgende:
Weer eens een leuke beginnersvraag: ik heb volgens mij perongeluk een toetsencombinatie gemaakt waardoor nu Excel anders functioneert.. als ik 10 cellen selecteer en op delete druk wordt alleen de eerst-geselecteerde sel geleegd.. Weet iemand welke optie ik terug moet zetten om te zorgen dat ik weer gewoon meerder cellen tegelijk kan legen?
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]
Ctrl+shift al geprobeerd?quote:
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]
Dat verandert niets.. of bedoel je alleen om meerdere cellen te selecteren?quote:
Dat lukt namelijk wel, alleen als ik op delete/backspace druk wordt dat vervolgens uitsluitend op de eerst geselecteerde cel toegepast.
scroll lock staat uit?
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
quote:
Jezus, wat simpel eigenlijk..maar zoals gezegd, je moet maar net doorhebben welke knop je perongeluk hebt aangeraakt..
Wat is eigenlijk het nut van Scroll Lock.quote:Op woensdag 18 november 2009 00:23 schreef Maartel het volgende:
[..]
maar zoals gezegd, je moet maar net doorhebben welke knop je perongeluk hebt aangeraakt..
Behalve mensen pesten die 'm per ongeluk hebben ingedrukt.
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
http://en.wikipedia.org/wiki/Scroll_lock
Dat je het weetquote:Combat Arms, a Free-to-play Microtransaction based first person shooter, uses the scroll lock key to lock the movement of chat messages.
Ik wil in een macro een excelbestand openen en dan een macro starten die in dat bestand staat. Ik heb gegoogled en dit zou moeten werken:
Ik krijg echter de melding dan de macro Macro3 niet gevonden kan worden. De macro die ik wil aanroepen in het bestand staat in een module en de eerste regel is de volgende:
Lijkt mij dat Macro3 dus wel degelijk bestaat.
Weet iemand een (andere) oplossing?
| 1 2 | Application.Run ActiveWorkbook.Name & "!Macro3" |
Ik krijg echter de melding dan de macro Macro3 niet gevonden kan worden. De macro die ik wil aanroepen in het bestand staat in een module en de eerste regel is de volgende:
| 1 |
Lijkt mij dat Macro3 dus wel degelijk bestaat.
Weet iemand een (andere) oplossing?
heitieh
| 1 2 3 | Application.Run "'Map2.xls'!Macro1" |
Let op de aanhalingstekens! Dubbele aanhalingstekens, dan enkele om de bestandsnaam, dan uitroepteken, en dan macronaam.
Werkt ook:
| 1 2 3 | Application.Run ActiveWorkbook.Name & "!Macro1" |
Staan ze in dezelfde map?
Nee, de macro die deze aanroep moet doen staat in een bestand die in een andere map staat. Dus misschien is dat het, dan moet de bestandsnaam inclusief path. Ik zal het vanavond of morgen uitproberen.quote:Op woensdag 18 november 2009 17:02 schreef DaFan het volgende:
[ code verwijderd ]
Let op de aanhalingstekens! Dubbele aanhalingstekens, dan enkele om de bestandsnaam, dan uitroepteken, en dan macronaam.
Werkt ook:
[ code verwijderd ]
Staan ze in dezelfde map?
heitieh
Oja inclusief path sowieso. Als je dat niet gebruikt kijkt Excel alleen in de map waar het huidige bestand in staat.
Heb het al op andere manier werkend. Heb de macro gekopieerd in de eerste macro, dan kan ik em wel aanroepen en werkt op het actieve blad.
Weet niet waarom dat andere niet lukt.
Weet niet waarom dat andere niet lukt.
heitieh
Wil graag een exploding pie maken, maar snap er geen flikker van (2007, ENG). Het lukt me wel om een stuk uit de pie weg te krijgen, maar hoe kies ik wélke? Excel pakt er gewoon ééntje. De data is afkomstig uit een pivot table met drie hoofdwaarden, zeg A, B en C. Allen hebben een ondervedeling daaronder, maar ben alleen geinteresseerd in bijvoorbeeld A.
Zal proberen om het een beetje logisch neer te zetten:
Zoiets dus (compleet @ random):
Zal proberen om het een beetje logisch neer te zetten:
| 1 2 3 4 5 6 7 8 9 | 2, nummers 3, nummers B....1, nummers 2, nummers 3, nummers C....1, nummers 2, nummers 3, nummers |
Zoiets dus (compleet @ random):
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
ik zal morgen eens kijken, heb hier geen 2007.
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
