VBA tjek og kopier

lille rettelse:
Dvs. samle alle rækker med fejl øverst på Forsiden FRA Data siden.

Hej Krummel

Jeg har lavet et lille testprogram med optagne makroer.

Hvis du er intereseret så send lige en afskrift af 2 rækker fra dit data-ark

Jeg vil lige tjekke om min makro reagerer rigtigt med din "fejlvisning", og ikke kun når jeg skrive "fejl" i Kolonne C.

Send en række med data og formel i Kolonne C, og en række der viser "Fejlmeldingen" i kolonne C. Måske er det formlen der skal bruges til at finde rækker med fejl.

Der er ingen excel-fejlvisning i min kolonne c. Det er teksten "fejl" - altså ligesom når du skriver "fejl" i feltet.
Mit data ark er uden formler (det er kun tekst - downloaded fra en database).

Hej Krummel

Jeg har i min test skrevet ordet fejl, hvis det også er det du gør, så kan  mit testprogram nemt anvendes.

Jeg har skrevet det  så det kun undersøger rækkerne 11:30; men dette kan nemt ændres.

Jeg har kaldt fanebladene "Forside" og "Data".

For at vise rækkerne med fejl, har jeg oprettet 2 hjælpeark navngivet "HjArk1" og "HjArk2"

På "Forside" er der lavet en "Makro-knap" hvorfra makroen eksekveres.

Er du interesseret, så send din mail-adresse til mig på:

jem.varde@gmail.com

Så sender jeg filen.

Er det ikke blot en makro som denne du har brug for?

Sub Flyt()
Sheets("Forside").Range("D1:E1000").ClearContents
For x = 1 To 1000
If Sheets("Data").Cells(x, 3) = "Fejl" _
Or Sheets("Data").Cells(x, 3) = "fejl" _
Or Sheets("Data").Cells(x, 3) = "FEJL" Then
Sheets("Data").Range("A" & x & ":B" & x).Copy _
Destination:=Sheets("Forside").Cells(Application.CountA(Sheets("Forside").Range("D:D")) + 1, 4)
End If
Next
End Sub

Hej Jens48

Jeg følger tit dine svar på stillede spørgsmål. Igen må jeg sige, jeg er fuld af beundring for dine makroer.

Jeg har testet dit forslag. Det er ikke helt færdig. Du mangler en tæller for indsætningen af linjerne på forsiden. Den overskriver på linje 1.

#Jens48
Hvor er det bare elegant lavet - kort og præcist. gid jeg havde de skills :-)
Mange tak. Giv svar og få point.

#Mads
Du skal bare kommentere ud/slette eller ændre range:
Sheets("Forside").Range("D1:E1000").ClearContents
Også tak til dig - du få ret par point for besværet.

Hej

Jeg kan ikke få makroen til at vise flere rækker med fejl uden at indsætte en tæller.

Slut herfra

Du får et svar

Et forsøg mere

Hej Jens48

Jeg har opgivet at få din makro til at virke uden at indsætte en tæller.

Men virker den uden en tæller??.

Svar venligst

Tælleren består af

For x = 1 To 1000

Next

Hej Jens48

Den tæller kun gennemløbet,  men ikke hvor næste fejl skal sættes ind. Ved min test indsættes der kun den sidste fejl i 1. række, altså overskriver den hele tiden i 1. række.

Jeg har lavet en fuldstændig afskrift af dit program i en ny fil, men får den ikke til at virke som den skal, hvilket jeg ikke forstår.

Application.CountA(Sheets("Forside").Range("D:D")) + 1

tæller hvor mange celler der er skrevet i, i kolonne D og lægger 1 til

Hej Jens48

Tak for dit indlæg.

Jeg har skriver igen med håbet om at du vil svare igen.

Selv om jeg skriver nøjagtig som du viser, er der ting der ikke virker. Makrotekster bliver røde.

Din linje:
Sheets("Forside").Range("D1:E1000").ClearContents --har jeg været nødt til at skrive sådan:

Sheets("Forside").Select
Range("D1:E1000").Select
Selection.ClearContents

Så virker det.    Hvorfor det??

Jeg hat prøvet på at skille din linje:

Sheets("Data").Range("A" & x & ":B" & x).Copy _
Destination:=Sheets("Forside").Cells(Application.CountA(Sheets("Forside").Range("D:D")) + 1, 4)

Det kan jeg ikke finde ud af. Kan du eventuelt foreslå en deling der måske vil virke ??

Jeg arbejder med Exel 2010. Er det et problem ??