Avatar billede jto1964 Juniormester
16. marts 2020 - 22:51 Der 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

Nogen der ved hvorfor ?
Avatar billede kim1a Ekspert
16. marts 2020 - 23:09 #1
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?
Avatar billede supertekst Ekspert
16. marts 2020 - 23:15 #2
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)
Avatar billede jto1964 Juniormester
18. marts 2020 - 10:22 #3
Kim1a
Tak for det hurtige svar, jeg manglede tydeligvis den connection imellem sheets og Range.
Prøver det af når jeg kommer hjem i dag.
Avatar billede jto1964 Juniormester
18. marts 2020 - 10:29 #4
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
Avatar billede Juul Forsker
19. marts 2020 - 09:24 #5
FileName1 = Sheets("navn på ark").Range("H1").Text &" - " Sheets("navn på ark").Range("C5").Text

Giver dig: H1tekst - C5tekst

Husk at brug din immediate (ctrl + G i dit vba vindue), der kan du hurtigt se hvad dit resultat vil blive, uden at skulle køre en makro

Skriv: ? Sheets("navn på ark").Range("H1").Text &" - " Sheets("navn på ark").Range("C5").Text
Avatar billede jto1964 Juniormester
21. marts 2020 - 16:41 #6
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

Tråden lukkes hermed.
Avatar billede Juul Forsker
21. marts 2020 - 17:04 #7
Kan se jeg lige har misset et & tegn.

FileName1 = Sheets("navn på ark").Range("H1").Text &" - " & Sheets("navn på ark").Range("C5").Text

Den skulle virke.

& samt “-“ virker på samme måde som i en celleformel
Avatar billede jto1964 Juniormester
21. marts 2020 - 17:37 #8
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
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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