Opgelost Hulp gevraagd om een macro

[lsc.b]

Beste allemaal
Hellaas kan ik nu geen bestand mee sturen via mijn telefoon
Vandaar deze uitleg
Ik heb een reeks info staan in mijn sheet van kolom a tot k en regel 2 tot 50
Nu zocht ik een macro die de gegeven van kolom a tot en met e en regel 2 tot 50 de gegevens kopieert naar het volgende blad op regel 20 kolom b in kolom e staan namen waar de macro naar moet zoeken bijvoorbeeld kast
Dus de macro zoekt naar kast en de gegevens moet gekopieerd worden a t/m e
Wij zouden Dat voor mij kunnen maken sorry voor de lange uitleg en geen voorbeeld

 

[emields]

We hebben tijd om te wachten op een voorbeeld.

 

[lsc.b]

Ik helaas niet echt

 

[Haije]

Hoewel niet ideaal, is een screenshot beter dan helemaal niets.

 

[AHulpje]

Even recapituleren:
Er moet naar een opgegeven naam gezocht worden in kolom E in de rijen 2 t/m 50.
Als die naam gevonden wordt moeten de kolommen A:E van die rij gekopieerd worden naar een ander werkblad rij 20 en een kolom opgeschoven, dus B t/m F.
Goed gegokt?

 

[lsc.b]

Even recapituleren:
Er moet naar een opgegeven naam gezocht worden in kolom E in de rijen 2 t/m 50.
Als die naam gevonden wordt moeten de kolommen A:E van die rij gekopieerd worden naar een ander werkblad rij 20 en een kolom opgeschoven, dus B t/m F.
Goed gegokt?

Klopt helemaal

 

[cow18]

macros werken toch niet op een telefoon, dacht ik, dus die hoogdringendheid is een grapje ?

 

[lsc.b]

nee dan kan ik het door voeren op het werk morgen vandaar

 

[lsc.b]

dit is wat ik heb maar ik krijg nu teveel info zie mijn macro

 

[AHulpje]

Beetje aangepast:

 

[lsc.b]

thanks ik kan vooruit morgen

 

[AD1957]

Als het voorbeeldbestand representatief is.

Sub kopieer()
 Sheets("invoer").Range("B20").CurrentRegion.ClearContents '****indien nodig
 With Sheets("voorraad")
    i = .Cells(.Rows.Count, "b").End(xlUp).Row
    .UsedRange.AutoFilter 5, "Goed"
    .Range(.Cells(2, 1), .Cells(i, 5)).SpecialCells(12).Copy Sheets("invoer").Range("B20")
    .UsedRange.AutoFilter
 End With
End Sub

 

[snb]

Kijk eens naar de eenvoud van advanced filter in Excel.

 

[AD1957]

De kopregel moet je dan steeds verwijderen, of mis ik iets ?

 

[lsc.b]

Sorry vergeten te vermelden dat het opgelost is ik heb gekozen voor ahulpje bedankt hiervoor