Help!

Problemen met uw pc? De vrijwilligers van Oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Hulp bij posten

Recent

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

0 leden en 1 gast bekijken dit topic.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.479
  • 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 :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

Offline Georgyboy

  • Lid
  • *
  • Berichten: 70
  • 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

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

Offline emields

  • Lid
  • *
  • Berichten: 95
  • 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

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 835
  • 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

  • Lid
  • *
  • Berichten: 70
  • 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

  • Lid
  • *
  • Berichten: 70
  • 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: 17
  • 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

  • Lid
  • *
  • Berichten: 95
  • 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

  • Lid
  • *
  • Berichten: 70
  • 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

  • Lid
  • *
  • Berichten: 95
  • 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

  • Lid
  • *
  • Berichten: 70
  • 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