*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Recente berichten

Pagina's: [1] 2 3 ... 10
1
Excel / Re: Ophalen
« Laatste bericht door Sunnybat Gepost op Vandaag om 16:16:07 »
@SoftAid

ben de regels aan het bekijken maar waar ik

Code: [Selecteer]
ws.Range("A1:H150").Clear
moet plakken is me nog niet duidelijk  :love: :-[

heb het voor deze regel gedaan maar dat werkt niet

Code: [Selecteer]
strFile = "c:\test\test.csv"

2
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.
3
Excel / Re: Ophalen
« Laatste bericht door SoftAid Gepost op Vandaag om 15:24:30 »
Citaat van: Sunnybat op Vandaag om 15:14:34
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 :)             
4
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

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 Sub

5
Excel / Re: ScrollRow
« Laatste bericht door SoftAid Gepost op Vandaag om 14:59:54 »
Hallo Della,

Citaat van: Della Jordan op Vandaag om 14:46:25
Geen flauw idee waarom je zoiets zou willen?
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.

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 :)             
6
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
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.
7
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?
8
Excel / Re: Bestand voor genealogie
« Laatste bericht door Della Jordan Gepost op Vandaag om 13:57:58 »
En hierbij de volgende versie.
9
Excel / Re: Bestand voor genealogie
« Laatste bericht door BlackDevil Gepost op Vandaag om 13:52:28 »
@Della,

geen excuses nodig hoor  ;)

Mij gebeurd het ook wel eens dat ik iets verkeerd lees of begrijp omdat ik te snel ben ofzo...
Anderzijds is het ook best mogelijk dat er ergens op één of andere site door iemand anders verkeerde info werd vermeld...

Vandaar dus mijn gedachte 'dit moet ik eventjes rechtzetten'  ;D :thumbsup:

groetjes,
Bieke
10
Excel / ScrollRow
« Laatste bericht door Sunnybat Gepost op Vandaag om 13:49:36 »
Hoi,
ik gebruik deze macro in excel om de scroll van de muis na te maken zodat excel gaat scrollen van onder en weer terug naar boven en automatisch, maar het gaat een beetje
blokkerig is er misschien iets dat het een beetje vloeiend gaat


Code: [Selecteer]
Sub Start()
Dim min, max, kant
min = 10
max = 60
kant = 10
Application.ActiveWindow.ScrollRow = min
While Application.ActiveWindow.ScrollRow <= max
    Application.Wait Now + TimeValue("00:00:01")
        If Application.ActiveWindow.ScrollRow = min Then kant = 10
        If Application.ActiveWindow.ScrollRow = max Then kant = -10
    Application.ActiveWindow.ScrollRow = Application.ActiveWindow.ScrollRow + kant
Wend
End Sub
Pagina's: [1] 2 3 ... 10


www.combell.com