1
Excel / Re: ScrollRow
« Laatste bericht door Della Jordan Gepost op Vandaag om 16:53:41 »Ik denk dat Sunnybat zoiets zoekt:
At Softaid, ik kon een grapje weer niet laten.
At Softaid, ik kon een grapje weer niet laten.
PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!
De vrijwilligers van Oplossing.be zoeken gratis met u mee!
-
ScrollRow
door Della Jordan
[Vandaag om 16:53:41] -
Ophalen
door Della Jordan
[Vandaag om 16:30:13] -
Bestand voor genealogie
door Della Jordan
[Vandaag om 13:57:58] -
Hoe kan ik de functie SOR...
door RedHead
[Vandaag om 07:21:38] -
Landenlijst
door RedHead
[Gisteren om 22:08:46] -
Vraagjes over de "quotNew Ou...
door Bart Nijs
[Gisteren om 18:53:19] -
Bereiken benoemen koppele...
door lco
[Gisteren om 12:21:43] -
mail antwoorden
door KAPE
[28 april 2024, 18:42:17] -
formule voor ophalen prij...
door lco
[28 april 2024, 13:01:58] -
PDF bestanden hernoemen i...
door SoftAid
[27 april 2024, 17:40:07]
Recente berichten
2
Excel / Re: Ophalen
« Laatste bericht door Della Jordan Gepost op Vandaag om 16:30:13 »Volgens jou vraag (voorbeeld) moet dit voldoende zijn.
Alles die op false staat is sowieso overbodig.
Alles die op false staat is sowieso overbodig.
Code: [Selecteer]
Sub CSV_Import()
Set ws = ThisWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\test\test.csv"
ws.Range("A1:H150").ClearContents
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150"))
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh
End With
End Sub
3
Excel / Re: Ophalen
« Laatste bericht door Sunnybat Gepost op Vandaag om 16:16:07 »@SoftAid
ben de regels aan het bekijken maar waar ik
moet plakken is me nog niet duidelijk
heb het voor deze regel gedaan maar dat werkt niet
ben de regels aan het bekijken maar waar ik
Code: [Selecteer]
ws.Range("A1:H150").ClearContentsmoet plakken is me nog niet duidelijk
heb het voor deze regel gedaan maar dat werkt niet
Code: [Selecteer]
strFile = "c:\test\test.csv"4
Excel / Re: ScrollRow
« Laatste bericht door Della Jordan Gepost op Vandaag om 15:36:04 »Citaat
En hoe doorbreek je zo een While-Wend -Lus? Ik kan Excel enkel geforceerd beëindigen met Taakbeheer.Met de heel weinige gegevens dat we hebben, het enige dat ik kan verzinnen is de escape toets een paar seconden indrukken.
5
Excel / Re: Ophalen
« Laatste bericht door SoftAid Gepost op Vandaag om 15:24:30 »Code: [Selecteer]Sub CSV_Import()
Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\test\test.csv"
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150")).Clear
'.......................
'.......................
End Sub
Dat heb ik ook niet voorgesteld. Je maakt er één lijn van:
Deze lijn is copiëren en plakken:
Code: [Selecteer]
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150"))Je kan daar niet .Clear achter zetten.Code: [Selecteer]
ws.Range("A1:H150").Clear moet voor de copy-past code staan, op een aparte regel.Volgens mijn bescheiden mening.
SoftAid 
6
Excel / Re: Ophalen
« Laatste bericht door Sunnybat Gepost op Vandaag om 15:14:34 »@SoftAid
ik krijg de melding
Deze eigenschap of methode wordt niet ondersteund door dit object
ik krijg de melding
Deze eigenschap of methode wordt niet ondersteund door dit object
Code: [Selecteer]
Sub CSV_Import()
Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\test\test.csv"
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150")).Clear
.TextFileParseType = xlDelimited
'geef de scheidingstekens op:
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileCommaDelimiter = False
.Refresh
End With
End Sub7
Excel / Re: ScrollRow
« Laatste bericht door SoftAid Gepost op Vandaag om 14:59:54 »Hallo Della,
dat heb ik ook geprobeert, maar dat geeft hetzelfde effect als
Weet niet hoe dat komt
? En hoe doorbreek je zo een While-Wend -Lus? Ik kan Excel enkel geforceerd beëindigen met Taakbeheer.
SoftAid
Geen flauw idee waarom je zoiets zou willen?
Om eens in te spelen op SoftAid zijn antwoordCode: [Selecteer]Application.Wait Now + TimeValue("00:00:001")In plaats van 1 seconde is dit één tiende van een seconde.
dat heb ik ook geprobeert, maar dat geeft hetzelfde effect als
Code: [Selecteer]
Application.Wait Now + TimeValue("00:00:01")Weet niet hoe dat komt
? En hoe doorbreek je zo een While-Wend -Lus? Ik kan Excel enkel geforceerd beëindigen met Taakbeheer.
SoftAid 8
Excel / Re: ScrollRow
« Laatste bericht door Della Jordan Gepost op Vandaag om 14:46:25 »Geen flauw idee waarom je zoiets zou willen?
Om eens in te spelen op softaid zijn antwoord
Ik vermoed echter dat je een soort presentatie wilt maken net zoals in powerpoint.
Om eens in te spelen op softaid zijn antwoord
Code: [Selecteer]
Application.Wait Now + TimeValue("00:00:001")In plaats van 1 seconde is dit één tiende van een seconde.Ik vermoed echter dat je een soort presentatie wilt maken net zoals in powerpoint.
9
Excel / Re: ScrollRow
« Laatste bericht door SoftAid Gepost op Vandaag om 13:58:22 »Hallo Sunnybat,
zit er een vraag verborgen in je topic,... (gevonden)
Verminder de variabele kant eens tot 5 (en -5) of minder, zelfs tot 1 (en -1).
Als je de timer dan nog lager kan krijgen dan "00:00:01" (dus snellere refresh) denk ik dat je het gewenste effect gaat krijgen.
Groeten,
SoftAid
PS, heb je mijn antwoord de vraag in het ander topic al kunnen testen?
zit er een vraag verborgen in je topic,... (gevonden
)Verminder de variabele kant eens tot 5 (en -5) of minder, zelfs tot 1 (en -1).
Als je de timer dan nog lager kan krijgen dan "00:00:01" (dus snellere refresh) denk ik dat je het gewenste effect gaat krijgen.
Groeten,
SoftAid PS, heb je mijn antwoord de vraag in het ander topic al kunnen testen?
10
Excel / Re: Bestand voor genealogie
« Laatste bericht door Della Jordan Gepost op Vandaag om 13:57:58 »En hierbij de volgende versie.
