Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketGem funktion
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Bjarne Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300 		Direkte link til dette indlæg Emne: Gem funktion
    Sendt: 24.Okt.2012 kl. 15:40

Har for længe siden udformet en sub rutine som har virket helt perfekt.

Er der en venlig sjæl som vil gennemse min Macro "BJ_Gem" funktion og se hvad der galt?Lamp
 
Den er kun gemt i
som tekst.
 
Har omformet funktionen til nyere Excel som giver en fejl.
En sikkerheds fil bliver godt nok oprettet på E-drev men kan ikke åbnes.
Dette gælder også C-drevet.
 
Når jeg ser på kompatibilitetsrapporten står der, at der funktioner som ikke understøttes af tidligere versioner af Excel. Ouch
//Bjarne
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 25.Okt.2012 kl. 10:10
Hej Bjarne,
 
Fejlen kommer fordi man tidligere kunne kode filtypen ".xls" ind i filnavnet som en tekst, men med de nye filtyper (xlsx, xlsm osv.) skal nu også bruge 'FileFormat'
Det er faktisk ikke svært og er en mere korrekt måde at gøre det på
 
Denne kodestump gemmer filen som xlsm
Filnavn = "C:\Testfil.xlsm"
ActiveWorkbook.SaveAs FilNavn, FileFormat:=52
 
Her er en liste over nogle af de forskellige FileFormats i Excel 2007 og nyere
 
51 = xlsx
52 = xlsm
50 = xlsb
56 = xls
 
Din kode bliver derfor:
 
Sub BJ_Gem()

' Makro oprettet 14-01-99 af Bjarne Jensen
' Makro rettet 25-07-01 kl. 14:16 af Bjarne Jensen
' Makro rettet 19-10-12 kl. 11:16 af Bjarne Jensen
' Makro rettet 25-10-12 kl. 10:01 af Allan Thustrup Mortensen
'
' Genvejstast: Ctrl+Skift+G
' 1) Først Gemmes der normalt på en Nøgle  (*.xlsm) og derefter som backup fil.
 
Sti = "E:\"
FilNavn = "Privatøkonomi " & Range("FiscalYear").Value
ActiveWorkbook.SaveAs Sti & FilNavn & ".xlsm", FileFormat:=52
 
' 2) Derefter gemmes der normalt på C-Drevet  (*.xlsm) og derefter som backup fil.
 
Sti = "C:\Dokumenter\Privatøkonomi\"
ActiveWorkbook.SaveAs Sti & FilNavn & ".xlsm", FileFormat:=52
Application.Quit
End Sub
Til top
Bjarne Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300 		Direkte link til dette indlæg Sendt: 25.Okt.2012 kl. 12:32
Clap
Hej Allan,
 
Igen en redningsmand.......Det virker bare.Clap
 
Jeg prøver nu at ændre i andre dele, hvoraf  "BJ_gem" er en del af.
Det er macroer som udføre en gemfunktion ved årskiftet. Overfører alle kontobeløb inden  felterne slettes i alle ark. Først derefter oprettes et nyt regnskabs år. "Privatøkonomi 2013"
 
Har foresten fået et lille problem med en tidligere formel du hjalp mig med;
 
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Target.Row < 11 Or Target.Column <> 5 Then Exit Sub
If Target.Value < 1000 Then Range("c" & Target.Row).Value = ""
If Target.Value < 999 Then Exit Sub
If Target.Value > 999 Then Range("c" & Target.Row).Value = Date
ActiveSheet.Protect
Range("G" & Target.Row).Select
End Sub
Når jeg bruger "slet felter" i macroen sletter den godt nok alle felter i konto nr. kolonnen, men nulstiller ikke dato felter i dato kolonnen eller  i bilag nr. kolonnen.
Programmet stopper med en fejlkode.
Ved "debug" står kurser ved: If Target.Value < 1000 Then Range("c" & Target.Row).Value = "" Mangler jeg noget her?
 
Sletter jeg derimod konto nr. felter manuelt slettes både bilag nr. og dato felter automatisk.
 
Håber du orker at se på dette
 
Med venlig hilsen
 
 
 
 
 
//Bjarne
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 26.Okt.2012 kl. 10:48
Hej Bjarne,
 
Har du låst arket med en kode?
 
//Allan
Til top
Bjarne Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300 		Direkte link til dette indlæg Sendt: 26.Okt.2012 kl. 11:50
Ouch
 
Ouch, Skammer mig.
 
Der ingen kode bare tomt felt. Når jeg gemmer beskyttes programmet automatisk.
Mange gange undskyld!!!
 
Sidder netop og arbejder på Økonomi programmet.
Har lige fundet udaf at der i og for sig ikke er en fejl. har sat slette funktion ind så den sletter datofelterne først og det ser ud til at virke.
Vil meget gerne sende hele programmet til dig hvor det ikke er låst.
Er næsten færdigt med det jeg kan finde ud af. Håber jeg får svar på nogle af de formler jeg har lagt ud.
 
Allan kan man kun have een "private Sub" i hvert ARK?
 
 Hilsen den skamfulde
 
//Bjarne
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 26.Okt.2012 kl. 14:36
Hej Bjarne,
 
Ingen grund til at skamme sig, vi er her for at hjælpe.
 
Private Sub angiver som makroen kan kaldes udefra, fra andre moduler eller ikke.
Der er umiddelbart ingen begrænsning, bortset fra de ikke må have samme navn.
 
Når du er færdig, kan du evt. lægge arket op i forummet så andre måske kan få glæde af det.
 
//Allan
 
Til top
Bjarne Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300 		Direkte link til dette indlæg Sendt: 26.Okt.2012 kl. 16:27
Smile
Tak igen Allan,
 
Såsnart en venlig sjæl kan hjælpe med svar på nogle af de formler jeg har lagt ud.
 
Se "Lille Macro del 3" så skulle programme være helt færdigt.
 
Er mine mine ønsker for uoverskuelige?
 
Hvis bare jeg kan få en ide om et par af dem, så kan jeg arbejde videre med de resterende formler.
//Bjarne
Til top
Bjarne Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300 		Direkte link til dette indlæg Sendt: 05.Nov.2012 kl. 11:46
Smile

Hej Allan,

 

Jeg er stort set gået helt i stå. Har prøvet utroligt meget uden resultat.

 

Selve Budget – Regnskab – gem – hensættelser og oprettelse af nyt år delen med udskrivning af kassekladden er klar.

Nogle af mine formler / macroer trænger helt sikker til en gennemgang men de virker.

 

Vil gerne oploade regnearket, men syntes at vi først skal slette ;

1) Lille Macro del 3 da ingen til syne ladende har et bud.

2) Celle med =I DAG() da jeg selv fandt løsningen og derved er intetsigende.

 

Mener at have læst, at jeg selv kan slette men kan ikke finde hvor.

 

Din formel =HVIS.FEJL(LOPSLAG(E18;Kontoplan!A:B;2;FALSK);"") er bare helt perfekt!

Vil meget gerne udvide den, så den samtidig henter budgettallet for kontoen i den respektive måned (kolonne) og sætter budgettallet ind i Celle” J3”.

Er det noget som kan lade sig gøre?

 

Oploader lige et billede med forklaring så du kan se, hvad jeg er ude efter.

Med venlig hilsen
//Bjarne
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk