*

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: ScrollRow
« Laatste bericht door SoftAid Gepost op Vandaag om 17:06:04 »
Hallo Della,

Sunnybat krijgt van mij het laatste woord, maar zijn openingsvraag luid toch heel anders dan dat wat jij voor ogen hebt:

Citaat van: Sunnybat op Vandaag om 13:49:36
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 vloeiender gaat ???

:) SoftAid :)             
2
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op Vandaag om 16:57:57 »
@Della  \o/ \o/ \o/ _/-\o_ _/-\o_ _/-\o_

En dit is echt gemeend hoor. wat een pracht van een bestand is dit nu al geworden zeg.

@SoftAid (Theo) Kan je deze misschien ook vastpinnen zodat ook andere stofvreters er evenveel met bewondering naar kijken en met plezier mee werken.
Graag de vermelding dat dit voor 99% te danken is aan Della Jordan. zou ik echt fijn vinden mocht dit vermeld worden.
Ale voor alle duidelijkheid als Della hier mee akkoord is!

Er zullen misschien nog wel verbetering mogelijk zijn maar voor mij is dit toch al schitterend! behoeft zeker geen handleiding!

nogmaals mijn oprechte dank voor al het geleverde werk tijd en energie! ( en je komische/gevatte opmerkingen  :D :D)


3
Excel / Re: ScrollRow
« Laatste bericht door Della Jordan Gepost op Vandaag om 16:53:41 »
Ik denk dat Sunnybat zoiets zoekt:
@ SoftAid, ik kon een grapje weer niet laten. 0:-)
Er zit 10 seconden tussen de presentaties, wat geduld.
4
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.
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
5
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").ClearContents
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"

6
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.
7
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 :)             
8
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")).ClearContents
    .TextFileParseType = xlDelimited
    'geef de scheidingstekens op:
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileCommaDelimiter = False
    .Refresh
End With
End Sub

9
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 :)             
10
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.
Pagina's: [1] 2 3 ... 10


www.combell.com