16. marts 2020 - 22:51Der er
5 kommentarer og 3 løsninger
Knap på en anden fane til at gemme faktura på første fane
Hej, Jeg er ny i det med at lave knapper i Excel, har øvet mig en lille smule men forstår ikke mange af de forkortelser der bruges. Jeg har et regneark hvor første fane er udformet som en faktura. Her har jeg, Celle (H1) faktura nummeret og celle (C5) Kunde navnet Afgrænsningen på selve fakturaen er A1-I52 Min tanke var at jeg på fane 3 ("Opret"), hvor jeg indtaster de oplysninger der danner grundlag for faktura hovedet skulle befinde sig den knap der senere skulle gemme fakturaen i en bestemt mappe på mit drev. Jeg kan sagtens placerer knappen på faktura fanen (Fane 1)og den virker men hvis jeg prøver at lave en knap på fane 3 ("Opret") får jeg en fejl. jeg tænker at det muligvis er fordi den ikke ved hvad det er der skal gemmes da der ikke er nogen henvisning til fane 1 som kaldes "Faktura" Koden ser således ud. Private Sub CommandButton1_Click() Dim Path As String Dim FileName1 As String
Path = "F:\Johnny\Testexcel\Faktura\" (Drevet der skal gemmes på) FileName1 = Range("H1").Text (H1 er der hvor faktura nummeret står) Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:=Path & FileName1 & ".xlsx", FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True End Sub
Hvis den placeres på Fane 1 virker det. Placeres den på Fane 3 virker det ikke.
Jeg kunne endvidere godt tænke mig at tilknytte kunde navnet til faktura nummeret
FileName1 = Range("H1").Text Dette vil når du ikke henviser til arknavn blot tage H1 i det aktuelle ark, så når du flytter knappen til andet ark forsøger den at tage H1 der.
FileName1 = Sheets("navn på ark").Range("H1").Text vil være vejen frem.
Hvad mener du med tilknytte kundenavn til fakturanummer?
Dit faktura nr. er på Ark1 og det beskriver VBA-koden ikke, når den er placeret på Ark3 VVV FileName1 = Range("H1").Text (H1 er der hvor faktura nummeret står)
Supertekst Ideen med at koble faktura nummer og kunde navn sammen er en ide jeg senere har fået da jeg så i mappen med de gemte faktura så ville kunne se hvad der var hvad. Lige nu er der ikke nogen henvisning til kunde navnet. I denne tråd fik jeg løsningen til at knappen kunne være på en anden fane end der hvor fakturaen var. FileName1 = Sheets("navn på ark").Range("H1").Text Nu skal jeg så bare have koblet H1 og C5 sammen så de til sammen danner et faktura nummer
Hej Juul Denne del &" - " virker ikke men hvis jeg fjerner "-" så virker det. Jeg kan godt se at det jeg fjerner bevirker at de 2 felter der skal give faktura nummeret ikke adskilles med en - men det kan jeg leve med.
SUPER meget tak for input og hurtige samt nyttige svar. Tak for svar også til Kim1 samt Supertekst
Hej Juul SUPER. Det virkede, Tak for hjælpen. Roder lige nu med at danne et nyt faktura nummer når jeg trykker på en knap. Jeg sætter et valgt nummer ind i en celle på opretter arket, det vil så være det nummer jeg starter med, herefter skal systemet så hver gang jeg trykker på knappen ligge 1 til nummeret på faktura arket men i den celle hvor start nummeret stod skal det nye nummer så skrives således at det nu bliver det nye start nummer. Men mange af de videoer jeg kan finde vil kun vise hvorledes at første faktura starter med nr. 1 og der kommer så et nyt nummer hver gang jeg åbner arket igen, men det kan jo ikke være rigtigt at man skal lukke arket ned hver gang man skal danne en ny faktura, jeg har til nu lavet en "Reset knap" en "Print Faktura knap" og en "Gem Faktura knap" nu mangler jeg bare en "Nyt Faktura nummer knap" Fakturaen styres oprettelses mæssigt fra "Opretter Arket" her indtastes Kunde nr. Dato og faktura type herefter hopper man om på faktura arket og indsætter vare linjerne, når fakturaen er færdig hopper man tilbage og trykker på knapperne i en bestemt rækkefølge. Print + Gem + Reset + Nyt Faktura nr. og nu er man klar til næste faktura
Synes godt om
Ny brugerNybegynder
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.