Avatar billede Kriegbaum Juniormester
20. oktober 2017 - 11:30 Der er 7 kommentarer og
1 løsning

Faktura ud fra data i ordre

Hej

Jeg er ved at prøve at lave en faktura i excel.
Jeg har i dag en ordre i excel og det spiller bare :)

Mine ordre ligger gemt som enkle filer. fx. Ordre.018118 osv. i en mappe/undermapper

min tanke var at jeg kunne trække data ud af de lukkede ordre og over i en faktura.

Jeg har fundet en macro der måske kunne virke.

Workbooks("Ordre.018118").Sheets("Ordre").Range("B2:B13").Copy Range("B2")

Her er Ordre.018118 skrevet direkte i macroen. kunne man evt skrive den i en celle så marcoen kunne hente den der??

eller er der en anden måde der virker bedre ?

jeg takker på forhånd

God dag
Avatar billede ebea Ekspert
20. oktober 2017 - 11:40 #1
En anden måde, kunne være at du lavede en ny fane, hvor du lagde dine ordrer over i (Kolonner og rækker), efterhånden de effektueres. Derved kunne du bruge opslag til at hente de ting over til Faktura delen, som du skulle bruge.
Avatar billede Kriegbaum Juniormester
20. oktober 2017 - 11:46 #2
Ja jeg har tænkt lidt den retning.

Jeg tænkte bare fakturaen i en fil for sig selv. da det ikke er hver gang jeg skal skrive en faktura hvor der er en ordre. så den skal også kunne udfyldes manuelt :)
Avatar billede Jan Hansen Ekspert
20. oktober 2017 - 12:05 #3
Hvad med en userform med
Indtast ordrenr (valgfri)
Fakturanr. (finder automatisk næste)

Relevante felter der henter data fra ordren ( kan altid overskrives med andre data)

Send Knap der overfører data til faktura ark

Annuller/Slut knap

Når faktura data er overført, kan man gå til Udskriv_Faktura ark og skrive fakturanr som henter data over til udskrift. (evt. i ark med alle fakturadata lave det så når man klikker på et fakturanr ryger man over i Udskriv_Faktura hvor data hentes ind)

Jan
Avatar billede Kriegbaum Juniormester
20. oktober 2017 - 12:17 #4
Hej Jan

Det lyder meget rigtig :)

Jeg tænker at have en faktura "Master"
udfylde den
og så gemme den med fortløbende nummer

ved næste faktura, bruge Faktura " Master " igen som er tom

giver det mening :)
Avatar billede Jan Hansen Ekspert
20. oktober 2017 - 15:22 #5
Som du siger rigtig

1 Du har vel en Ordre_Master
2 efter udfyldning ligges data over i  Data_Ordre
3 Du kører userformen "Lav Faktura" og ligger data Over i Data_Faktura
4 du går til Faktura_Master og udskriver fakturaen

Altså du har 4 Ark to Master ark og to Data ark
Avatar billede Jan Hansen Ekspert
24. oktober 2017 - 17:24 #6
Hvad vi fandt frem til:


Option Explicit

Dim ws As Worksheet
Dim PathName As String
Dim FileName As String
Dim iCount As Integer
Dim Mounth As String
Const MyPath As String = "C:\Users\Desktop\Ordre\" ' Stien skal redigeres til den korekte sluttense med \

Sub CopyingRange()
    Set ws = ActiveSheet
    PathName = MyPath
    FileName = "Ordre.0" & ws.Range("A1").Value
    If Len(Dir(PathName & FileName & ".xls")) = 0 Then
        For iCount = 1 To 12
            Select Case iCount
                Case 1
                    Mounth = "Januar\"
                Case 2
                    Mounth = "Februar\"
                Case 3
                    Mounth = "Marts\"
                Case 4
                    Mounth = "April\"
                Case 5
                    Mounth = "Maj\"
                Case 6
                    Mounth = "Juni\"
                Case 7
                    Mounth = "Juli\"
                Case 8
                    Mounth = "August\"
                Case 9
                    Mounth = "September\"
                Case 10
                    Mounth = "Oktober\"
                Case 11
                    Mounth = "November\"
                Case 12
                    Mounth = "December\"
            End Select
            PathName = MyPath & Mounth
            If Not Len(Dir(PathName & FileName & ".xls")) = 0 Then Exit For
        Next iCount
    End If
    On Error GoTo myend
    Workbooks.Open PathName & FileName & ".xls"
    'Kode evt en private sub, der udfører det du vil
    Workbooks(FileName & ".xls").Close SaveChanges:=False
    Exit Sub
myend:
    If Not ws.Range("A1").Value = "" Then MsgBox ws.Range("A1").Value & " eksisterer ikke!!"
End Sub


Jan
Avatar billede Kriegbaum Juniormester
24. oktober 2017 - 20:18 #7
Mange tak for hjælpen Jan
Avatar billede Jan Hansen Ekspert
24. oktober 2017 - 20:21 #8
Velbekomme
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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