08. november 2019 - 21:20Der er
121 kommentarer og 1 løsning
Dato med det samme, ved opstart af min Kørselsrapport: -)
Hej Jeg har fået hjælp til Makro i en Kørselsrapport, hvor man kan trykke på celle A1 så popper der, et vindue op med dato hvor man kan indstilling dato hvor den ligger datoen ned i cellerne med dag og uge nr.
Kan det lad sig gøre når man lukker min Kørselsrapport( starter excel) at den med det samme, scanner computerens dato og sætter data ned cellerne hvor de skal ligge? (Det er bare en gang imellem hvor jeg ikke sat den rigtige dato på min Kørselsrapport: -( ) Ved ikke om det kræver lide Makro eller lidt formler?
På forhånd tak : -)
Dato med det samme, ved opstart af min Kørselsrapport(starter excel)
3C Dag = "Lørdag" 3D Dato = "09-11" 3E Ugenr. =”45” 3F År = "2019"
Ja det faktisk fedt hvis datoen kunne samlet i en celle ja : -) Så den kunne se sådan ud her fx B3 ="Dato - Lørdag d. 09-11-2019 Uge nr. 45" Kan man ikke få tekst med ind i cellen? Så den ligger ovenstående?
tænker om der er en måde jeg kunne overfør den nuværende makroen koden over til dig?
Jeg ved ikke om den kode er nok som stå i ”ThisWorkbook” Hvis der også skal tilpasses noget i det popop vindue ? som kommer frem når jeg trykker på celle 1A : -)
Så du kunne hjælpe med at implementere den nye kode i den gamle kode 😊 Hilsen Martin : -)
Nu har lige prøvet din kode helt ren : -) i et Excel
Under VBAProject Ark1
Private Sub Workbook_Open() Range("A1") = WorksheetFunction.Text(Date, "dd-mmm-yyyy") & " Uge " & WorksheetFunction.WeekNum(Date) End Sub
Selvfølgelig gemt sådan her "Excel-projektmappe med aktive makroer"
Når jeg har lukket alt Excel ned, og åbner igen for Excel så stå den samme dato på tros af jeg har justeret datoen på computeren der bliver bare ved med at stå den samme dato : --(
Prøv denne slette kode på en ActiveX knap, hvor du kan vælge ikke at udskrive knappen.:
Private Sub CommandButton1_Click() ' Denne makro sletter et forudvalgt område (B3 og A5:I33)i det aktive ark. ' Udskriften skal bekræftes i en meddelelsesboks. Dim bytAns As Long
bytAns = MsgBox("Du har anmodet om at slette: B3 og A5:I33" _ & vbCrLf & " Ønsker du det?", vbYesNo + vbQuestion, _ "Bekræft sletning.")
If bytAns = vbYes Then Range("B3, A5:I33").ClearContents Else Exit Sub End If End Sub
Du henter data til TextBox på samme måde som til din Label
'Til Label With LaChauffør .Caption = "Navn: " & ChName & " Vogn Nr. " & VognNum .Font.Size = 12 'Til TextBox End With With TextBox1 .Value = ChName End With With TextBox2 .Value = VognNum End With
Din OK knap skriver dato i celle AE3 Så du må ikke slette B3 ? Kode uden sletng af B3:
Private Sub CommandButton1_Click() ' Denne makro sletter et forudvalgt område (A5:I33)i det aktive ark. ' Udskriften skal bekræftes i en meddelelsesboks. Dim bytAns As Long
bytAns = MsgBox("Du har anmodet om at slette: A5:I33" _ & vbCrLf & " Ønsker du det?", vbYesNo + vbQuestion, _ "Bekræft sletning.")
If bytAns = vbYes Then Range("A5:I33").ClearContents Else Exit Sub End If End Sub
Kan godt se der er sket noget 😊 Det er virkelig dejligt at den Rens knap er lavet :-) Jeg takker 😉
Når nu jeg åbner kørselsrapporter så står der Mandag d.13-11-2013 uge 46 (Det kunne godt være der skulle en lille justering til på dagene)
Hvis jeg lukker for kørselsrapporten uden og uden at foretage mig noget som helst Og går ind manual og rater datoen på min computer
Og åbner igen for kørselsrapporten så stå den samme dato i B3 Der stå den nye dato i hjælpe cellerne AE2
AE3 er selvfølgelig ikke tom
Denne her ”Public Sub findNyRække()” er det den der skulle lave den scanning om der står noget i cellerne her : A5 - A33 B5 -B33 C5 -C33 D5 – C33 E5 – C33 F5-F33 G5-G33 H5 -H33 I5 -I33
Om den må rette i datoen? Hvis de er helt tomme?
Spørgsmål Når jeg starter et regneark op med makroer, ville den så alt tid run en makro?(Uden at man foretager sig noget som helst) Eller auto start?
Nogen gangen så kommer der sådan en gule bjælke op i toppen man skal godkende før man kan komme vider
Jeg bruger ikke chauffør nummer Kun navn og vogn nr.
Hilsen Martin _: ) Ps. Når man trykker OK i pop up vinduet så lukker det ikke
Når jeg trykker på A1 så kommer den med en fejl Compile error: Can´t find project or library
‘Dato vælger
Kan se “slet alt knap” sidder i samme vindue som pop-up vinduet til dato
Den gør det samme med at skrive den samme dato i B3 når man åbner og lukker for kørselsrapporten Selv efter jeg ikke har foretaget mig noget, kun rettet datoen manuelt på computeren: -(
Kan se AE2”=IDAG()” den føler fint med datoen på computeren når jeg retter på
Så meget kort fortalt
1. Hvis der stå nogen tegn i cellerne ("A5:I33") så må den ikke rør datoen : -)
2. hvis cellerne ("A5:I33") er helt tom så skal den sætte computerens dato i B3 med det samme når jeg åbne op for kørselsrapporten uden jeg skal foretage mig noget som helst: -)
”sikkerhedsadvarsel noget aktiv indhold er deaktiveret. Klik for at få flere oplysninger” ”aktivere indhold”
At markkrogen starter op? Når regnearket bliver startet op?
Og når den starter op uden nogen gul bjælke (Altså ligesom når man starter et almindelig regneark op uden makroer) fx i denne her Filtype ”Excel-projetmappe”
Tænker hvis det var for at få luksus kalenderen frem, så var jeg meget glad for den oprindelige type kalender med hvor bare dagene kom frem på den meget simpel måde : -)
Lige umiddelbart så kommer der en ny dato frem når jeg justere datoen på computeren : -) bare ved at lukke og åben for kørselsrapport uden at foretage mig noget som helst ;-)
indtil til det, jeg har prøvet indtil videre : --)
# 39 – Jan Det hjalp , nu laver den ikke om på datoen når man gemmer 😊
Tænker om det, er muligt at lave når man bruger slet / Rens knappen Er det så muligt at den også, kan lave ”Ingen udfyldning” i cellerne jeg bruger af og til farver.
#40 - Store-Morten Det kunne godt være, jeg skulle prøve : -) kigger på det i morgen : -)
Det er dejligt den også laver farven om nu :-) I er nogen helt hajer til det der :-)
Det har jeg da ikke tænkt så meget over det med datoen før : -) og den ku være forkert og alt muligt
Jeg tænker en måned tilbage fra computerens dato og en frem så fx 1-1- 2020 så hedder det december 2019 – og så hedder det februar 2020 noget i den stil Er det ikke noget den selv kan finde ud af ?
# Stor-Morten den laver fejl endnu når der trykkes på A1 Kan ikke nå at lave en skærmdump
# Jan Den ”OK” knap dur ikke : -) den lukker ikke kalender ned
Ang. Datoen er det ikke den fra den oprindelige kode? Du bruger i din version har egentlig ikke lagt mærke til den har lavet fejl
nu bliver jeg nødt til at smutte på job ☹ 😊 God dag til jer 😊
Men nu stå datoen stille igen, på tros af at A5:I33 er tom
Jeg prøvet at bruge rense knappen og gemme, og lukke Justere datoen på computeren åbnet kørselsrapport den igen så kom den og den justeret dato kom til at stå på, lukket ned igen at skiftet om til den rette dato og åbnet kørsel rapporten op igen så kom den rette dato : -)
Så tror den faktisk køre : -)
Jeg prøvet datoen 😊 fx d.31-2-2019 der kom Søndag d. 03-03-2019 i stedet 😊
Har kigget på computerens dato den kan , sagtens springe år frem og til Kunne man ikke scanne en måned tilbage og frem?
Så fx dato d. 1-1-2020 så tager den december og februar
Med en meget simpel og let kode : -) og ellers så tror jeg bare vi lukker den her 😊
Nu er jeg begyndt at tilpasse min kørselsrapport, hver gang jeg trykker på nogle formler så hopper den op i A5, så kan ikke rette sådan lige i dem : )
Er der noget jeg lige kan slå fra ? tænker jeg
Det bliver lidt spændende det med datoen i B3,
Det er når der kommer til at stå en dato i AE3 i hjælpe cellen
Der kommer til at stå en dato i AE3 lige så snart der kommer en rettelse i pop-up vinduet
Og hvis der gemmes tom i kørselsrapporten så ville den alt tid gå ud fra den dato som stå i AE3.
Så tænker det, den bør gøre først(uden jeg foretager mig noget som helst) det er at løbe alle cellerne igennem fra A5:I33 efter et synlig tegn når jeg åbner op for min kørselsrapport.
Hvis den ikke finder nogen synlige tegn, skal den tage computer dato og lægge den i AE3 hjælpe cellen
Og hvis der er synlige tegn i A5:I33 cellerne så skal den ikke gøre noget som helst : -)(og måske heller ikke hvis der stå noget i AE3)(tænker det er en form for en ekstra sikring)
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Sh.Name = "Kørselsrapport 1_2" And Target.Address = "$A$1:$I$1" Then Cancel = True
Load UserForm1 UserForm1.Show findNyRække End If End Sub
det er "findNyRække" der skal flyttes ind i if-sætningen
Private Sub Workbook_Open() Dim Area As Range, Cell As Range, Flag As Boolean Flag = True Set Area = Sheets(1).Range("A5:C33") For Each Cell In Area If Sheets(1).Range("AE3").Value <> "" Then If Cell.Value <> "" Then Flag = False End If End If Next If Flag Then Sheets(1).Range("AE3") = "" End Sub
Men hvis jeg skriver noget i cellerne E5 - F5 og lukker ned og og Juster på computerens dato åbner igen så er der justeret på datoen i kørselsrapporten Ville foretrækker pop-up vinduet som på den oprindelige version.
# Jan
Ja nu følger datoen efter computerens dato dejligt 😊 så er det løst: -)
Men det gør den også når man skriver noget i cellerne A5 - B5 og Juster frem og tilbage på computerens dato 😊 (ikke lås dato)
Har tænkt 4 scenarier igennem af 2 lidt forskellige forslag (så skulle den være der 😊)
Scenarier 1 (Tom kørselsrapport) 1 starter kørselsrapporten op 2 Undersøger IF Range("A5:I33") =”?” er tom for synlige tegn 3 (Tomt) = sætte computerens dato i hjælpecelle AE3 – B3 4 makroen foretager sig ikke mere
Scenarier 2 (synlige tegn i kørselsrapport) 1 starter kørselsrapporten op 2 Undersøger IF Range("A5:I33") =”?” et tegn er sat i fx G5 (klokkeslæt) 3 makroen foretager sig ikke mere
Anden forslag Scenarier 3 (Tom kørselsrapport) 1 starter kørselsrapporten op 2 Undersøger IF Range("A5:I33") =”?” er tom for synlige tegn 3 (Tomt) = makro programmering stå og afventer på synlige tegn i A5:I33 4 et synlig tegn sættes i Fx et F5(klokkeslæt) 5 der bliver sat computerens dato i hjælpecelle AE3 – B3 6 makroen foretager sig ikke mere
Scenarier 4 (synlige tegn i kørselsrapport) 1 starter kørselsrapporten op 2 Undersøger IF Range("A5:I33") =”?” et tegn er sat i fx A8 6 makroen foretager sig ikke mere
Den skulle jo nok blive ved med at satte en dato i hjælpecelle AE3 – B3 i scenarier 1 – 3 hvis man justere på pop-up vinduet
Der er ingen grund til at justerer på computerens dato!
Datoen i kørselsrapporten ændre sig hvis du har trykket på "Slet alt" Datoen i kørselsrapporten ændre sig ikke hvis du har sat en dato ved at trykke på "OK"
Når du åbner "Tomt" ark, sættes dags dato. (Flygtig) Når der er tastet i rapporten, sættes dags dato. (Fast her efter) Når du ændre dato med kalender og trykker: OK (Denne dato, fast her efter) Når du sletter alt i rapporten manuelt eller med knap sættes dags dato (Flygtig)
Tip: Når celle AI3 er tom følges computerens dato. Celle med rød tekst, kan slettes efter test.
#76 Det gør jeg som heller ikke : -) det er kun når jeg tester, der bliver justeret på computerens dato.
Ja det ser ud som om det virker nu😊
Men var det ikke muligt at få det pop op vindue tilbage, med den oprindelige dato vælger?
Ved godt datoen ikke var hel god. Kan godt se den du har lavet i AP Er det ikke muligt at tage dagens dato/den valgte dato plus minus en måned? Og lave det i makroen
Ellers må man bare lad den oprindelige dato vælge være i pop op vinduet : -)
Og du fik den til at virker det med datoen, i cellerne og fik tilføje en slette/rens knap fik lavet en konstant tekst i koden og man kunne lave om på tekst og vogn nr. i pop-up vindue
Jeg ved ikke hvor meget mere mod du har på denne opgave?
fordi jeg var meget glad for den oprindelige opstilling.
'Skriver dato for uge nr. beregning Range("AN3").Value = Format(ComboBox1.Value, "dd-mm-yyyy") 'Indlæser uge nr. LaUgeNr = "Uge Nr.: " & Range("AO2").Value End Sub
Det er som på h skærmdump den den laver :-( Er det muligt at man bruger noget af det fra Jans' forslag men det virkede jo sådan set meget godt , (Lige det bortset med i cellerne) som du fik til at virker : -)
Er det muligt man kan bruge noget af det fra Jans' forslag det virkede jo sådan set meget godt , (lige bortset fra det med i cellerne med datoen ) som du fik til at virke : -)
Det er ikke så godt at ændre på layoutet, da formler og kode ,nu skal til rettes til de nye placeringer. Jan bruger navn givne celler, hvilket jeg ikke gør.
Undgå flettede celler i arket. ( Burde ikke været opfundet ;-) )
Men, med nyt layout, min Pop op, formel og kode tilpasning, skulle nok kunne laves.
Der sker en fejl, når man skriver i C5 og gemmer og efterfølgende trykker på A1 så dukker der en fejl op
Tænker :
Start Ark - Tom Hente 'Standart ved ny start Kode Const Chauffør As String = "Martin" Const Vogn As Integer = 123 Ligges I hjælpe celler Chauffør = AH3 – Vogn = AI 3 Ses i celle A3 Vise Dagens dato i B3(automatisk)
Aktiveret pop-up (Fx der redigeres) Vong TexBox Henter AH3 gemmer i AH3 Chauffør TexBox Henter AI3 gemmer i AI3 Fast dato Ses i celle A3
---- Start Ark - Tom Hente 'Standart ved ny start Kode Const Chauffør As String = "Martin" Const Vogn As Integer = 123 Ligges I hjælpe celler Chauffør = AH3 – Vogn = AI 3 Ses i celle A3 Vise Dagens dato i B3(automatisk)
Sattes tegn i A5:I33 Fast dato ------
Start Ark - med tegn i A5:I33 Hentes fast dato i hjælpe celle , vises i B3 Hentes i hjælpe celler, Chauffør = AH3 – Vogn = AI 3 Ses i celle A3
Aktiveret pop-up Redigeres i Chauffør eller Vogn nr. ligges i AH3 , AI 3 Eller i dato En ny dato sattes
"Der sker en fejl, når man skriver i C5 og gemmer og efterfølgende trykker på A1 så dukker der en fejl op" Sker fordi du ikke har sat dato med "Pop op" men gør det med gem knap i excel! Har rette formel som fjerne uge nr. når denne ikke kan beregnes. (Formaterings fejl, med Excel gem knap)
Hjælpe celler: AH: hjælpe oplysning AL: Dato AL2: Datoen IDAG() ændre sig hver dag. AL3: Skrives der i når datoen gemmes. Bruges i Ark og Pop op. AL4: Datoen afhængig af gemt/gemt ikke. Bruges i Ark og Pop op.
AK, AL og AM: Navn, Nr. og Vogn. Røde = Faste (kan ændres)
AN2: Dato til Userform (ændres samme med dato vælger) AO2: Uge nr. til userform (ændres samme med dato vælger)
AO3: beregne op arket er Tom eller har Indhold
AP: Kalender til Userform (ændres samme med datoen, 1 md. tilbage og 1md. frem)
Hjælpe celler AH = Hjælpe oplysninger AI = Dagens dato AJ3 = Navn AK3 = Vogn nr.
Luger mig tror godt man kunne få makroen til at sætte const i AJ3, AK3 hvis A5:I33 er tom
Kode If ?? Range("A5:I33") ="" then AJ3 = Const Chauffør As String = "Martin" AK3 = Const Vogn As Integer = 123 Dagens dato
Eller If ?? Range("A5:I33") ="" then ikke er tom Så sker der ikke mere der : -)
Ved ikke om ovenstående funktion / kode kun køres en gang i This workbook? Eller om der er brug for endnu en hjælpe celle for at stoppe proceduren?
Det er heller ikke let alt tid bare at skrive sig ud af tingene : -) nogen gangen kunne det være letter med en snak over telefonen Fx : -)
Jeg takker mangen gangen for din indsats 😊
Og forslag: -) (Ja det er åbenbart noget af et projekt det her)
# Jan
Tak for dit bud
Det ser godt ud 😊
Som skrevet i et skærmdump så er det faktisk nok en god og simpel løsning med et hjælpe ark alligevel og især når man kan skjule : -)
Men har prøvet at teste lidt af : -)
Når man skriver noget i fx B5 og gemmer , lukker alt Juster datoen manual på min computer, og åben op for kørselsrapporten igen, så kommer den justeret dato frem i B3
Og når man gemmer uden makronerne i fil type =” Excel-projektmappe” som jeg sender til vognmanden så kommer der til at stå ="#NAVN?" i B3 når man åbner igen.
og når man rediger i pop-up vinduet fx i vogn eller navn og lukker for det, og åbne for det igen så kommer den ”Const” frem igen
tænker som skrevet tidligere den ”Const” kun må bruges hvis der ikke stå nogle tegn i Range("A5:I33") ="" then
"Og når man gemmer uden makronerne i fil type =” Excel-projektmappe” som jeg sender til vognmanden så kommer der til at stå ="#NAVN?" i B3 når man åbner igen."
mon det ikke pga at kun det ene ark bliver gemt?
"Når man skriver noget i fx B5 og gemmer , lukker alt Juster datoen manual på min computer, og åben op for kørselsrapporten igen, så kommer den justeret dato frem i B3"
er lavet så hvis der ikke står noget i Beregn!B2 tager den den aktuelle dato
og når du gemmer bliver Beregn!B3 blank hvis der ikke er noget i Kørselsrapport 1_2!A5:I33
Ja nu bliver A3 udfyldt _: ) ved start : -) Dejligt Og stadigvæk når der bliver redigerede i pop op vinduet og gem Så kommer den frem med det redigerede selvom A5:I33 er hel tom 😊
var ikke klar over at der var tilpasset i #102 :-)
Nu kan man se datoen når man gemmer uden VB Dejligt -: ) hvad skulle der mon til?
Har du den version mere hvor der ikke flettes celler? Hvor C er en en Celle : -)
Men den gør lige som i Store – Mortens bud når man rediger i pop op vinduet så kommer det redigeret frem igen når man gemmer lukker og åbne igen selv når cellerne A5:I33 er hel tomme : -)
Der skulle den hente den
Const NavnName As String = "Martin" Const VognNum As Integer = 11 Helt automatisk 😊
Jeg skal helt ind på A5 før den ikke retter på datoen eller på navne eller dato :-) Ellers er lige som om den resetter dato og henter Const 😊 når der gemmes
Det kunne være godt hvis feltet kunne udvides hel til I33
Private Sub BtnSlet_Click() If IsNumeric(Right(ws.Name, 1)) Then ws.Range("A5:C33").Value = "" CbDato.Value = "" End If End Sub .Interior.ColorIndex = 0
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.
