Avatar billede JTTM Nybegynder
07. februar 2012 - 06:52 Der er 7 kommentarer og
1 løsning

Bestillingsliste i excel

Jeg skal lave en bestillingliste i excel, med varenummer, tekst og antal.
Jeg kan godt lave den så den henter antal fra andre ark i excel,
men jeg vil gerne lave så der kun er varenummer, tekst og antal
på det jeg skal bestille,nu er min bestillingsliste et ark, hvor jeg sender alle varer med min bestilling også dem med 0 stk. i antal
Avatar billede supertekst Ekspert
07. februar 2012 - 11:45 #1
Har du prøvet at anvende en opslagsfunktion?
Går ud fra, at du har samtlige varenumre og tekster på et ark

og så velkommen til Eksperten.
Avatar billede JTTM Nybegynder
08. februar 2012 - 07:41 #2
jeg har samtlige varenumre og tekster på et ark
kolonne A varenummer kolonne B varetekst kolonne C antal kolonne A+B+C skal overføres til andet ark hvis kolonne C er >= 1

har du en formel ??
Avatar billede supertekst Ekspert
11. februar 2012 - 12:47 #3
Kan du bruge en makro?
Avatar billede JTTM Nybegynder
21. februar 2012 - 10:06 #4
Har ikke rigtig arbejdet med makro, men plejer nemt, at kunne
finde ud af nyt, hvis jeg får nogle hint, jeg arbejder i excel 2010
Avatar billede supertekst Ekspert
21. februar 2012 - 10:14 #5
Vender tilbage senere..
Avatar billede supertekst Ekspert
21. februar 2012 - 13:38 #6
Rem Denne VBA-koden indsættes under Ark1 / Højreklik / Vis Programkode /
Rem Fra Ark1 / Alt+F8 / Markerede makronavn "opbygBestillingsListe" / AfSpil
Rem ELLER Forbind med en knap
Rem =========================
Dim arkBestilling As Worksheet
Dim RækBL As Integer

Dim arkVareliste As Worksheet
Dim antalRækVL As Integer, ræk As Integer
Public Sub opbygBestillingsListe()
    Application.ScreenUpdating = False
   
    Set arkVareliste = ActiveWorkbook.Sheets(2)
    Set arkBestilling = ActiveWorkbook.Sheets(1)
    RækBL = 1
   
    arkVareliste.Activate
    With ActiveSheet
        antalRækVL = ActiveCell.SpecialCells(xlLastCell).Row
            For ræk = 1 To antalRækVL
                If .Range("C" & ræk) > 0 Then
                    .Range("A" & ræk & ":" & "C" & ræk).Select
                    Selection.Copy
                   
                    arkBestilling.Activate
                    ActiveSheet.Range("A" & RækBL).Select
                    ActiveSheet.Paste
                    RækBL = RækBL + 1
                   
                    arkVareliste.Select
                End If
            Next ræk
    End With
   
    Application.CutCopyMode = False
    arkBestilling.Activate
End Sub


Hvis du vil se min model - så send en mail - @-adresse under min profil.
Avatar billede supertekst Ekspert
28. februar 2012 - 16:19 #7
Noget nyt???
Avatar billede JTTM Nybegynder
29. februar 2012 - 07:28 #8
hej har desværre ikke haft tid til, at begynde på det endnu, jeg vender tilbage, når jeg er begyndt, hvis jeg løber i problemer
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester