Bliv gratis medlem
|
Hej Folkens !! Jeg har tidligere haft problemer med Excel, som i herinde kunne løse på ingen tid, så derfor prøver jeg nu igen. Jeg er på jobbet blevet sat til at udarbejde et ark i excel som skal fungere som bestillingsliste! Det i sig selv er jo ikke noget problem Arket er opbygget med flere ark og ser ens ud (Opsætning). Hver ark skal ud over være bestillingsliste også være huskeliste, så derfor figurerer der en del poster. Jeg har derfor lavet en kolonne med en formel som fortæller om der er bestilt antal ("Hvis formel" Tom eller Udfyldt) Så er det jeg får problemer: Jeg vil gerne lave et ark hvor alle rækker som indeholder feltet "Udfyldt" overføres til, så det bliver den aktuelle bestillingsliste!
På forhånd tak |
Du skal bruge lidt VBA programmering og jeg ville kode det sådan her:
ActiveWorkbook.Worksheets("Hvad dit art med alle information hedder").Activate
'Indikere at der arbejdes i worksheet 1, som derved aktiveres
With Worksheets("Hvad dit art med alle information hedder")
Cells(j, 5).Select
' Hvor 5 er den række som Udfyldt står i, det vil sige at det nok er en anden række end 5 hos dig.
by = ActiveCell.Value Like "*Udfyldt*"
If by = True Then
l = l + 1
'tæller så man ikke kopiere ind i den samme række i arket "Bestillingsliste"
Rows(j).Select
Selection.EntireRow.Copy
Sheets("Bestillingsliste").Select
Range("A2").Rows(l).Select
ActiveSheet.PasteSpecial
End If
Exit For
Next A
Det er vist det tætteste på jeg sådan kan komme med hensyn til at hjælpe dig :-)
Opret bruger
