Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Macro verkorten / verbeteren  (gelezen 99928 keer)

0 leden en 1 gast bekijken dit topic.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Macro verkorten / verbeteren
« Reactie #15 Gepost op: 09 juni 2019, 22:07:33 »
krijg melding : compileerfout : End With

betekend hier dat je twee "loops" met "With" bent opgestart, maar er maar één hebt afgesloten met  "End With"
Dus, als je:
With .....
       [code]
        With ....
       [code]
End With
End With

Spijtig dat men je de foutmelding niet uitlegt, want zo leer je er niet uit....

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Macro verkorten / verbeteren
« Reactie #16 Gepost op: 09 juni 2019, 22:17:49 »
Ben blij dat ik de eerste regels reeds begrijp die Emields heeft gemaakt

Mijn 1° bestandje werkte perfect zoal Emields had gemaakt.
op werkelijke bestandje loop ik vast.

Heb te weinig kennis daarvoor, sorry

Maar toch wil ik desondanks door doen met VBA en hoop in de toekomst ook eens iemand daarmee te kunnen helpen,

ipv van steeds de vraagsteller te zijn


Alvast bedankt

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Macro verkorten / verbeteren
« Reactie #17 Gepost op: 09 juni 2019, 22:27:28 »
Ingevoegd bestandje

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: Macro verkorten / verbeteren
« Reactie #18 Gepost op: 10 juni 2019, 09:28:17 »
Blijkbaar is het iets met de waarde op het TXT bestand blad, nu geen tijd maar zal later eens kijken.

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Macro verkorten / verbeteren
« Reactie #19 Gepost op: 10 juni 2019, 10:10:28 »
Hoi,

Heb er hier vlug ook eens naar gekeken, en het is zonder meer duidelijk dat de fout wordt veroorzaakt door "=====================" in A114. Dat wordt door Excel als een formule beschouwd.

In een eerste reactie had ik hier geschreven
Citaat
Als je met die macro telkens heel exact hetzelfde wil doen...
Ik vrees dat dit naderhand uit het oog is verloren, want zelfs zonder die A114 komen er met de huidige macro vermoedelijk toch te veel lijnen in je resultaat ?

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Macro verkorten / verbeteren
« Reactie #20 Gepost op: 13 juni 2019, 09:12:04 »
Bedankt voor de reacties

Kan er momenteel niet verder naar kijken
Zou dit eind volgende week verder kunnen testen.
Goed weekje verlof 😊

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Macro verkorten / verbeteren
« Reactie #21 Gepost op: 18 juni 2019, 17:11:23 »
Bedankt voor het verder kijken

zelf een stukje toegevoegd via macro opname om
" ==========" te verwijderen

Lukt mooi op deze manier, denk dat de code beter kan :)


'
' Verwijder Macro
' Verwijder =========
'

'
    Cells.Select
    Selection.Replace What:="=", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False





'
' Verwijder Macro
' Verwijder =========
'

'
    Cells.Select
    Selection.Replace What:="=", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False


[blad1!b1] = ['TXT Bestand'!a11].Value
[blad1!a3] = ['TXT Bestand'!a15].Value
[blad1!a4].Resize(2) = ['TXT Bestand'!a17:a18].Value
[blad1!a7] = ['TXT Bestand'!a62].Value
x = Range(Sheets("TXT Bestand").Range("a64"), Sheets("TXT Bestand").Range("a64").End(xlDown)).Rows.Count
With Sheets("blad1")
    .Range("a8").Resize(x) = ['TXT Bestand'!a64].Resize(x).Value
    .Range("A3:A52").TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(42, 1), Array(53, 1), Array(58, 1), _
        Array(65, 1), Array(71, 1), Array(83, 1), Array(84, 1)), TrailingMinusNumbers:=True
    .Range("D:E,H:I").Delete Shift:=xlToLeft
    .Range("B8").End(xlDown).Offset(1, -1).Resize(20).ClearContents
    .Columns("A:E").Columns.AutoFit
End With
End Sub

Offline Ntr

  • Lid
  • *
  • Berichten: 20
  • Geslacht: Man
  • Oplossing.be
Re: Macro verkorten / verbeteren
« Reactie #22 Gepost op: 18 juni 2019, 18:11:27 »
  Sheets("TXT bestand").UsedRange.Replace "=", ""

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: Macro verkorten / verbeteren
« Reactie #23 Gepost op: 18 juni 2019, 18:29:49 »
zeer goed gedacht maar je gebruikt beter de volgende code

Sheets("TXT bestand").UsedRange.Replace "*==*", ""als je maar 1 = gebuikt zal hij alle gelijkheidstekens verwijderen bij *==* verwijderd hij de gelijkheidstekens allemaal als er 2 of meer na elkaar staan.

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Macro verkorten / verbeteren
« Reactie #24 Gepost op: 18 juni 2019, 19:33:02 »
Zie wel dat het beter kon  :)

Bedankt dat ik van jullie experts mag leren  :thumbsup:

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: Macro verkorten / verbeteren
« Reactie #25 Gepost op: 18 juni 2019, 19:41:48 »
Het is met zelf proberen dat je meest leert.

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Macro verkorten / verbeteren
« Reactie #26 Gepost op: 18 juni 2019, 20:05:25 »
Hey Emields fijn van JE om te helpen

Ook bedankt Softaid, RedHead en Putifo  :thumbsup:

Groeten Georgyboy

 


www.combell.com