Excel - Kopier hvis betingelsesområdet er oppfylt

Utgave

Jeg vil kopiere data fra ark til annet hvis inntastingsområdet er oppfylt på et annet ark

  • Alle mine data er i ark kalt "insert" rad, G ark "insert" har navn på folk
  • I arknavn "Dom" rekkevidde B4: b17 har listen over navnene til laget
  • Hvis navnene som er oppført på Doms ark som vises i "insert" ark, vil jeg ha den raden kopiert til rad 75 og over i Doms ark

Løsning

"Row, G sheet" insert "har navn på folk"

G kan ikke være en rad bare en kolonne som antas i g kolonne Jeg måtte lage en prøveplate

Sett inn ark vil se slik ut fra kolonne A til H

col.G col H

 navnedata a 1 s 2 d 3 f 4 g 5 h 6 

Dom ark vil være slik

 col B row4 adgkwryuzcbmnp 

Jeg skrev makro kjøre makroen og se om dette er det du vil ha. Det ville vært mer nyttig hvis du hadde gitt et lite utdrag av innsats- og domblader. Hvis du vil, og kan endre makroen for å passe dine data.

Bedre lagre originaldokumentet SIKKERT VENNLIGT FOR RETRIEVAL OM DET GJELDER GANG.

 Sub-test () Dim cfind Som rekkevidde, c Som rekkevidde, x Som streng, dest Som rekkefølge, j Så lenge j = 1 Med regneark ("dum") For hver c I .Range ("B4: B17") x = c .Value med regneark ("insert"). UsedRange Set cfind = .Cells.Find (hva: = x, lookat: = xlWhole) Hvis ikke cfind er ingenting, så cfind.EntireRow.Copy End With .Range ("A75"). Offset (j, 0) .PasteSpecial j = j + 1 Neste c End med End Sub Sub Undo () Med regneark ("dom") Område (.Range ("A75"), .Cells (Rows.Count, "A" )). TotalRow.Delete End With End Sub 

Takk til Venkat for dette tipset.

Forrige Artikkel Neste Artikkel

Beste Tips