Forfatter |
Emne Søg Emne funktioner
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Emne: betalig af feriepenge Sendt: 14.Okt.2016 kl. 16:54 |
Så er jeg kommet lidt videre. =LOPSLAG(A4;'1'!B7:G35;6;FALSK) den del fungerer, men der skal også laves en sortering og sammentælling, har lavet dette forsøg på sortering, =LOPSLAG(A3;'1'!B7:G34;6;FALSK)=HVIS('1'!C7;)=Opgaver!B3 og en del andre, men uden held desværre. Er der nogen som kan se hvad der er galt.
venlig hilsen Henrik Nielsen
|
|
|
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 13.Okt.2016 kl. 19:54 |
Hej igen og tusind tak for hjælpen, nu er jeg så nået så langt at jeg skal til at tælle timer sammen på hver enkelt projekt. det skulle gerne være således sum at celler i G sammentælles hvis f.eks. ('1'!B7)= (Projekter!A3) venlig hilsen Henrik Nielsen
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5489
|
Sendt: 03.Okt.2016 kl. 22:29 |
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
Sendt: 03.Okt.2016 kl. 18:01 |
Kolonnerne E:F:G er formateret rigtigt hele vejen ned, men du kan ikke have Kl: med i formateringen. Excel tror Kl: er en del af koden og så kan den ikke finde ud af at trække de to tidspunkter fra hinanden.
Det eneste jeg har ændret i VBA er en enkelt linje.
Denne linjeTarget.Value = Format(DateTime.Now, "d. mmmm yyyy kl: hh:mm")
Er ændret til Target = Format(DateTime.Now, "mm-dd-yyyy hh:mm") |
Jeg har ladet linjen stå i VBA. Den er grøn og du kan selv slette den.
Bemærk at d. mmmm yyyy er ændret til mm-dd-yyyy i formlen. Det er fordi datoen i VBA skal skrives i engelsk format (måned-dato-år), for at VBA kan finde ud af det.
Hvis man ikke skriver datoen i engelsk format, vil 3/10 (3. okt) blive til 10/3 (10. mar) i cellen. Datoformatet rettes herefter til i cellen, så den vises i dansk format. Dette med datoformatet i VBA, havde jeg glemt i farten
|
Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o)
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 03.Okt.2016 kl. 15:54 |
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
Sendt: 03.Okt.2016 kl. 13:31 |
Jeg ved ikke om du vil have den til at hoppe en celle til højre, hvis der står dato/tid i cellen. Eller om den skal beskytte cellen, når der dobbeltklikkes på den. Men dette vedhæftede eksempel hopper til højre - Altså ingen beskyttelse. Download, åben og test det. Download KLIK HERIb
|
Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o)
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5489
|
Sendt: 03.Okt.2016 kl. 10:46 |
prøv at upload dit ark så vi kan se på det....
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
|
Sendt: 03.Okt.2016 kl. 09:04 |
Tryk på [Tak] knappen, ud for de indlæg, som du kan bruge - så får de vist hver 2 point hver.
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 02.Okt.2016 kl. 22:17 |
Hej igen
hvordan tildeler man alle de behjælpelige herinde point.
Henrik
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 02.Okt.2016 kl. 22:07 |
hej
har rodet med at formaterer cellerne til [t]:mm men kan ikke få den til at tælle timer, det kan dog godt lykkedes hvis det kun er tiden som står i de celler som skal tælles samme, men når datoen kommer på så vil den ikke.
bruger excel 2016
venlig hilsen Henrik Nielsen
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
Sendt: 02.Okt.2016 kl. 19:43 |
Henrik
Jeg har prøvet forskellige ting, der låser cellen, når der dobbeltklikkes på den og tror jeg har fundet en måde.
Denne kode forudsætter dog at hele arket er beskyttet, men de celler der må skrives i, er ubeskyttede. Når der dobbeltklikkes på en celle, vil den så også blive beskyttet.
Hvis du ikke ved, hvordan du beskytter et ark og lader celle være ubeskyttede, må du skrive tilbage.
Hvis du bruger et password, når du beskytter hele arket, ser koden lidt anderledes ud, forstået på den måde, at så skal password indskrives i koden. Her kommer begge koder.
Kode uden Password, når arket beskyttes
Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '--------------------------------------------------------- ' Hvis cellen ikke er tom, hopper den til cellen til højre '--------------------------------------------------------- If Not IsEmpty(Target) Then ActiveCell.Offset(0, 1).Select ' Hvis den skal hoppe ned bruges (1, 0) End If
'----------------------------------------------------- ' Hvis cellen er tom, indsætter den dato og klokkeslæt '----------------------------------------------------- If IsEmpty(Target) Then Cancel = True Target = Date Target = Format(DateTime.Now, "d. mmmm yyyy hh:mm")
'----------------------------------------------------------------- ' Låser først hele arket op - Låser cellen - Låser hele arket igen '----------------------------------------------------------------- ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End If End Sub
---------------------------------------------------------------------------------------------------------------------------------
Kode med Password, når arket beskyttes Password du beskytter hele arket med, skal være fuldstændig identisk med password i koden. Password i koden indsættes de to steder i koden med rødt.
Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '--------------------------------------------------------- ' Hvis cellen ikke er tom, hopper den til cellen til højre '--------------------------------------------------------- If Not IsEmpty(Target) Then ActiveCell.Offset(0, 1).Select ' Koden der hopper til højre - Hvis den skal hoppe ned bruges (1, 0) End If
'----------------------------------------------------- ' Hvis cellen er tom, indsætter den dato og klokkeslæt '----------------------------------------------------- If IsEmpty(Target) Then Cancel = True Target = Date Target = Format(DateTime.Now, "d. mmmm yyyy hh:mm")
'----------------------------------------------------------------- ' Låser først hele arket op - Låser cellen - Låser hele arket igen '----------------------------------------------------------------- ActiveSheet.Unprotect Password:="HER SKRIVES PASSWORD" Target.Locked = True ActiveSheet.Protect Password:="HER SKRIVES PASSWORD" End If End Sub
Se om det virker
Ib
|
Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o)
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
Sendt: 02.Okt.2016 kl. 18:44 |
Henrik Jeg har rodet en del med tidspunkter, dog uden at have fundet de helt vise sten. Men måske virker dette.- Højreklik på alle de celler, hvor Facit af din beregning mellem de to datoer og tidspunkter står i. - Vælg Formater celler i dropdown popup'en. - Åben fanen Tal i popup vinduet. - Vælg Brugerdefineret nederst. - Her har du nu mulighed for at vælge en masse formater eller selv skrive dem.
Prøv formatet [t]:mm - Med firkant parantes omkring t Det vil beregne det samlede antal timer der er gået mellem de to datoer og klokkeslæt. F.eks. fra 1. jan 2016 kl. 08:00 til 2. jan 2016 kl. 09:00 = 25:00 = (25 timer)
Hvis du i stedet prøver tt:mm vil det kun vise 1 time, da det er forskellen mellem kl. 08:00 og 09:00, selvom de ligger på forskellige datoer. Prøv dig frem
|
Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o)
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
Sendt: 02.Okt.2016 kl. 17:35 |
Excelent Jeg fandt koden på nettet HER, hvor det ikke er rykket ind og har, som du ganske rigtigt skriver, lavet indrykning med TAB. Måske virker det i xl2016, hvis man i stedet bruger indryknings værktøjet i VBA, men det kan jeg af gode grunde ikke teste Ib
|
Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o)
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 01.Okt.2016 kl. 11:45 |
det hele virker nu, kan dog ikke trække starttid fra sluttid længere, har prøvet forskellige formateringer, har fjernet sekunder da det ikke er nødvendigt.
venlig hilsen henrik nielsen
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 01.Okt.2016 kl. 11:13 |
fantastisk forum, det jeg også søger er når dato og tid er indsat, må der ikke efterfølgende kunne skrives/rettes i cellen
venlig hilsen henrik Nielsen
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 01.Okt.2016 kl. 10:29 |
Ret "G1:G20" til aktuel og evt også A1 hvis markør skal hoppe andetsteds
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 01.Okt.2016 kl. 10:27 |
Ovenstående forhindrer at du dobbeltklikker i celle som ikke er tom Indsæt følgende kode i samme modul som får markør til at hoppe til A1 hvis celle ikke er tom
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("G1:G20")) Is Nothing Then Exit Sub If Target <> "" Then Range("A1").Select End Sub
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 01.Okt.2016 kl. 09:47 |
Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("G1:G20")) Is Nothing Then Exit Sub If Not IsEmpty(Target) Then Exit Sub Target = Date Target.Value = Format(DateTime.Now, "d. mmmm yyyy hh:mm:ss") End Sub
Ovenstående kode tillader dobbeltklik i G1:G20 hvis tom celle Ret til aktuel
Gnaske hvis jeg indsætter din kode i min Excel 2016 DK markeres kode linjerne med rød, dog ikke start og end sub Jeg går ud fra du laver indrykninger med Tabulator tasten ? Ved ikke hvorfor disse fortolkes forkert i xl2016
Måske Allan har de vise sten :-)
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
Sendt: 30.Sep.2016 kl. 11:08 |
Mht. at linjerne står lige under hinanden, har ingen betydning overhovedet. Man forskyder kun linjerne for bedre at have overblik over koden og hvordan den hænger sammen.
Man må bare ikke ændre på linjerne, ved foreksempel at skrive hele koden i en lang linje. Linjerne skal bare være indelt som de er.
Ja, det kan nok lade sig gøre at låse en celle, når den forlades. Jeg ved bare ikke lige hvordan.
|
Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o)
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 30.Sep.2016 kl. 10:24 |
Hej igen
jeg har flyttet på koden så linjerne står under hinanden, så nu virker det. tusind tak
kan det så også lade sig gøre at cellen låses samtidig med, så der ikke efterfølgende kan ændres på tidspunktet.
Henrik
|
|