fouten zoeken en wegzetten

[Danielle22]

Hallo allemaal,

Ik gebruik al enige tijd deze macro (zie bijlage). Ik heb dit een keer gemaakt (na veel zoekwerk) voor het opsporen van fouten. Dus de macro zoekt de fout en kopieert dat naar blad 2.

Ik heb even een eenvoudig bestandje toegevoegd, in de praktijk voer ik hier hele grote tekst bestanden in en de macro zoekt dan de foute meldingen eruit.

De macro zoekt in blad 1 in kollom B naar de letter F. Als die een letter F tegenkomt dan kopieert hij de informatie (bijvoorbeeld de rijen 1 t/m 8 (heb ik gemarkeerd) naar blad 2. En zo kijkt die steeds verder. Maar op dit moment doet die niks.

Weet iemand waar het probleem aan kan liggen?

Alvast heel erg bedankt voor de informatie.

Met vriendelijke groet,

Danielle

 

[HierEnNu]

De macro werkt prima. Maar verwacht je dat de fouten in je voorbeeldbestand verschijnen vanaf cel A3?

groeten,

M.

 

[Roncancio]

Sub Macro3alles()
   Fout8
End Sub

Sub Fout8()
Dim x As Double
    x = 8
    Sheets("Blad2").Range("3:65536").ClearContents
    Do Until Sheets("Blad1").Cells(x, 2) = ""
        If Sheets("Blad1").Cells(x, 2) = "F" Then
            Sheets("Blad1").Cells(x, 2).CurrentRegion.Copy Destination:=Sheets("Blad2").Range("A65536").End(xlUp).Offset(2, 0)
        End If
        x = x + 10
    Loop
End Sub

Zoals al door HierEnNu is opgemerkt werkt de macro prima maar worden de gegevens op een verkeerde plek neergezet.

Ik heb de macro aangepast.
Het belangrijkste is dat van blad 2 de gegevens vanaf rij 3 worden verschoond zodat daar steeds de nieuwe foutmeldingen worden neergezet.
Verder hoef je geen Application.Run te gebruiken om een macro te starten. Slechts de macronaam is voldoende.
Ook heb ik de Select uit de code gehaald.

Ipv Cells(x,2) kan je ook Range of de kolomletter gebruiken. Dus:
Range("B" & x)
Cells(x,"B")

Met vriendelijke groet,


Roncancio

 

[Danielle22]

Hallo,

Oke top!

De macro loopt weer. Heel erg bedankt voor jullie hulp.

Groetjes,

Danielle