Søge efter start/slut tid på dagen, ignorering af celler på grund af farveskala.

Hej Martin
Vil anbefale dig en ekstra kolonne som styrer farvelægningen.

Eks Kolonne L
Marker Række der skal farvelægges, brug betinget formatering =$L+rækken
vælg gælder for og området!

ved beregning
Hvis($L?<0,1;en celle;0)

betyder hvis celle L? er mindre end 0,1 så tag indhold af "en celle" ellers "0"

fore slår du arbejder lidt med det.

Jan

Hej Jan

Kunne jeg få dig til at lave et  meget kort Forkort eksempel?

Vil anbefale dig en ekstra kolonne som styrer farvelægningen.
"
Eks Kolonne L
Marker Række der skal farvelægges, brug betinget formatering =$L+rækken
vælg gælder for og området!

ved beregning
Hvis($L?<0,1;en celle;0)

betyder hvis celle L? er mindre end 0,1 så tag indhold af "en celle" ellers "0"

fore slår du arbejder lidt med det."

Selvfølgelig  hvis der skal noget ind i hjælpe arket  : -)
Så skal det selvfølgelig  det  : -)

så men kan ikke sådan lige
ignorer farveskala  fra  Hvid, baggrund 1,mørkere 5%  til  Hvid, baggrund 1,mørkere 50% i en søgning ?

kan godt se efter i en af  scenarie  er der brugt "Sort, Tekst 1, lysere 50%" den går selvfølgelig ikke  :-)

https://www.dropbox.com/s/m8rth2rxtshqq1d/betingetformatering.xlsx?dl=0

Tænker hvis nu den tager i F5:F33 og søger efter den tidligst tid og den kun må søge hvis farven er ”Hvidst baggrund 1” eller ”Ingen udfyldning”

og den søger i G5:G33 efter den seneste tid og den kun må søge i farven hvis den er  ”Hvidst baggrund 1” eller ”Ingen udfyldning”

se igen
https://www.dropbox.com/s/m8rth2rxtshqq1d/betingetformatering.xlsx?dl=0

Jeg takker har prøvet at sætte noget sammen
er man lidt ude i man selv lige skal tilføje noget i nogen "hjælpe celler" ud over men sætter en farve  på  :-)


https://www.dropbox.com/s/qq5pctweme2c1sp/Uge%2052%20Torsdag%2026-12-2019%20Martin_pr%C3%B8ve.xlsm?dl=0

https://www.dropbox.com/s/8kfpt1pv36c430d/uge%2052%20torsdag%2026-12-2019%20martin_pr%C3%B8ve.xlsm?dl=0

Godaften igen

#7  - skulle den tage højde  for hvis der var noget i L5:L33?

kunne man lad VB løbe cellerne igennem kolonne F5:F33 og G5:G33 og sætte et tegn ud for udfyldte  celler i kolonne Fx L eller noget i hjælpe ark 

og den må kun sætte tegn hvis  der ikke er ”Hvid baggrund 1” eller ”Ingen udfyldning”

når du skriver en procent del i L farver den rækken og den bliver ikke medregnet!!

man burde kun kunne farvelægge med betinget formatering da excel ikke kan få øje på farvelægningen!!

Når ja  :-) der kom den  :-)  #9

# 10  - Hmm så  VB kan ikke sådan se om en celle er udfyldt?

Sætter denne her ikke farve i nul eller i ”Hvid baggrund 1” eller ”Ingen udfyldning”

ws.Range("F5:F33").Interior.ColorIndex = 0

kunne man få denne her til at se farve?

som jeg skrev Excel kan ikke se det så når man bruger manuel satte farver skal man lave vba programmering for at se det!!

Interior.ColorIndex = 0 så vidt jeg husker ingen bagrundsfarve

men anbefaler hvis man kan at bruge betingetformatering til at ændre/tildele farver da man kan beregne på den celle der styrer den betingede formatering!!

Hej jan  😊

Nej Excel kan ikke finde / se farver med noget  formel værk, så man skal ud i noget VB

Jeg kommer lige med et 3 eksempler : 
Kunne VB  Analyserer  en celle?
Så hvis man siger den  Analyserer celle fx

Hvad er farven i B5 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”

Hvad er farven i C5 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”

Hvad er farven i B6 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”

Hvad er farven i C6 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”

Hvid, Baggrund 1, mørkere 25% B7,C7

Hvad er farven i B7 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”
Sætter et tegn i hjælpe ark

Hvad er farven i C7 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”
Sætter et tegn i hjælpe ark

Eller en anden model  :

Hvad er farven i B5 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”
Hvad er farven i C5 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”
Kopiere celle F5, G5 over i hjælpe ark fx N5,O5

Hvad er farven i B6 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”
Hvad er farven i C6 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”
Kopiere celle F6, G6 over i hjælpe ark fx N6,O6

Hvid, Baggrund 1, mørkere 25% B7,C7
Hvad er farven i B7 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”
Sker ikke noget 

Hvad er farven i C7 den er = eller <> ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning”
Sker ikke noget 

En 3 model
Fx men kan med markere i kolonne kun fra A5:A33
Med fx den sædvanlig måde med at holde shift nede og køre op eller ned med piletasterne og vælge et område og der efter holde fx Ctrl+f nede så den fylder farve i cellerne fx B7:K7, B8:K8 og slette N7,O7 og N8,O8  i hjælpe ark

den virker nu meget godt den der  😊 hvis der ikke skulle tages hensyn til dagen før opgaver 😊 

Mindste tid (værdi)
=MIN(N5:N33)

Findes der mon også noget formel værk til den størst værdi 

til størst tid(værdi)
=???(O5:O33)

Hilsen Martin

Eller man laver en spejling af F5:F33, G5:G5 og ligger over i hjælpe ark fx N5:N33 og  O5:O33

Og sletter i de celler i hjælpe ark hvis der er > ”Interior.ColorIndex = 0”, ”Hvid, Baggrund 1” eller ”ingen fyldning” i B5:B33 eller i C5:C33

=Maks(O5;O33)

Tak Jan så er den del på plads  ;-)

Så er det bare om VB er i stand til analysere  om der er farver i en bestemt celle? Og måske hvilken farve er i en celle  😊

Prøv denne, virker ved: Dag slut gem
https://www.dropbox.com/s/t8whb6q7v7yq0yk/Master%20V4%20SM.xlsm?dl=0

Eller ved at kører: Hent_tid

Hej Store - Morten 

det ser spændende  ud  :-)
den laver Fejl  når man gemmer slut på dagen

kunne man ikke flytte cellerne over i Fx O, P så stå det ikke lige oven på hinanden  :-)
var det muligt  at lave sådan et flytte bar box :-)  som her  :-) 

https://www.dropbox.com/s/kedtdzkv71mxd2h/layout%20med%20UsserForm.jpg?dl=0

Store - Morten

If Range(c.Address).Interior.ColorIndex = -4142 Then

det ser ud som om den kan tage alle farver under 4142 og over  :-)
=MAKS(O5:O33)
=MAKS(P5:P33)
Jeg prøver at ligge noget op lidt sener

Ja, den tager alle uden bagrundsfarve, og finder Max. Og Min.

https://www.dropbox.com/s/q8ebahyxl73xowb/Master%20V5%20SM.xlsm?dl=0

Interior.ColorIndex = 0 Er også er farve.

#25
er knapperne væk?

#26
Interior.ColorIndex = 0  ja det er rigtigt  man har bare valgt at kalde  den "ingen fyldning "  :-)

Har lavet noget i hjælpe ark

https://www.dropbox.com/s/yhckoqeta01w2ui/Pr%C3%B8ve.xlsm?dl=0

Ville du ikke hellere have Userformen mem: Ctrl + s ?

"Interior.ColorIndex = 0  ja det er rigtigt  man har bare valgt at kalde  den "ingen fyldning"
Ja, men det er forkert ;-) for 0 er en farve.

Interior.ColorIndex = xlNone er "ingen fyldning"

"Ville du ikke hellere have Userformen mem: Ctrl + s ?"

Jo for hulen da  lige præcis  :-)  :-)

ja nul er også en farve  :-)

Ja, 2 er hvid så vi kan jo kalde 0 for gennemsigtig ;-)

For søren, der var ski noget der  :-)
huha det havde jeg ikke set der  :-)
Jeg takker  ;-)

Placeringen  på hjælpe arket har med vba kodning at gøre.

Har lavet noget igen  i hjælpe ark

https://www.dropbox.com/s/vclndd2exgdyfqj/Pr%C3%B8ve_2.xlsm?dl=0

"Placeringen  på hjælpe arket har med vba kodning at gøre. "

Ja det er rigtigt

Har du ikke hvad du skal bruge på Ark Kørselsrapport 1_2 ?
I cellerne A37 til G39

Har rettet lidt, så man ikke glemmer ved: Gem
Og rette ved: Slet alt

https://www.dropbox.com/s/b2t9nqzfflzbafb/Master%20V6%20SM.xlsm?dl=0

Dejligt lige mine ord , så den også henter tid ved Gem : -) og så man også selv kan hente  tiden  manuel uden at gemme  :-)

kan godt se der skal noget kode til at få at flytte det frem og tilbage 

men det kunne være godt at få flyttede det over i cellerne O, P i hjælpe ark 
så det bliver lidt mere overskueligt.

Har tilføjet hjælpe skrift på Hjælpe Ark.

Ja det ser godt ud  ;-)  alt sammen ;-)

Og det ville være helt umulig at få rykkes hel  arrangementet  over i P, Q

og den analysere efter farvenuancer i A5:A33 og B5:B33  :-)

https://www.dropbox.com/s/scgrwz43wgebkbg/Master%20V7%20SM.xlsm?dl=0

#40
Store - Morten den kan ikke indlæse

Hvordan indlæse?

og den analysere efter farvenuancer i F5:F33

Nu kunne det lad sig gøre :-)
huha så hopper den der over  ;-)  er det med denne her ".Offset(0, 9)" 


og et sidste skud i skud i bøssen

om  den analysere efter farvenuancer i A5:A33 og B5:B33  :-) 

Ellers er det et meget flot arbejde :-)

Prøv nu.

hmm tror lige jeg prøver at Genstart den ville heller ikke opload

den skriver sådan her :


"Der opstod en fejl under download af din fil."

uha så lykkes  :-)
nu tager den alle celler  :-)
er det denne her der tager 5 celler der hen af ?

If Range(c.Address).Offset(0, -5).Interior.ColorIndex = -4142 And _

Nej, ikke helt, men den kikker på 5 celler til venstre for kolonne F

Hej Morten

Den laver fejl når man justeret på dato og datoen stå forkert?

https://www.dropbox.com/s/t3bmz86eo95p6vx/Fejli.jpg?dl=0

https://www.dropbox.com/s/mkxxkitrniiiaeh/Fejl%20i%20dato%20-%20pop%20v.jpg?dl=0

Dobbelt klik for Pop up rettet.

Hej Morten 

Den pop  fin op nu  :-) Takker
men den kan ikke rette dato i tom ark? 
kun hvis der stå noget i
man kan se den lige retter hurtig og tilbage igen

Ja, det var hvis man glemte at trykke: Ok efter man havde trykket på: Slet alt.

Har fjernet det.

Oki :-)  det hjælper på det men den bytter om på dato

og den gør "Fast dato " på tom ark 
når der er  justeret på dato. (men det betyder ikke så meget)

https://www.dropbox.com/s/rwvoj6vt6puvkvf/Bytter%20om%20p%C3%A5%20dato.png?dl=0

https://www.dropbox.com/s/wzru07jxc861wb4/Hj%C3%A6lpe%20ark.jpg?dl=0

"og den gør "Fast dato " på tom ark "
Ja, det har jeg jo lige slået fra. Se #52
pga. #51
"men den kan ikke rette dato i tom ark?"

Oki Morten det er også helt fint  ;-) det med fast dato

men det der med  om byttering af dato?
så uge nr. stå Rigtigt ? kunne det rettes ?

Ang. Dato, er vi tilbage til:
https://www.computerworld.dk/eksperten/spm/1031401
"Det er når dato skal ind i vba laves den om til Amerikansk format 12/25/2019"

Oki  Morten  :-) vi må køre på de  amerikanske tilstande  :-) 

Hilsen Martin

Kan du dele dit ark med fejlen, jeg får den ikke?

Jo tænker køre pop-ven ikke bare op og ned i cellerne L?  og henter L ind

jo de ligger her :-)

https://www.dropbox.com/s/brmsy0mic4trqq8/Dato%20fejl%20uge%20nr.jpg?dl=0

https://www.dropbox.com/s/5c6sis31cid4tmu/Master%20V7%20SM%20%283%29.xlsm?dl=0

Ikke når dato er fast, så hentes den i C3

hmm er det tekst form eller er det i dato form?
den henter i pop op?
Eller hvordan forgår det mon?

laver den samme fejl  hos dig ? den jeg lige har lagt  op?

Ja, jeg får fejlen.

Formatet cykler frem og til bage ;-(

kan se L cellerne kan jeg godt lave i en anden celle som en tekstform

men den går ikke i celle C2-C4 der sker
43802
43802
43827

Det er meget de køre sådan frem og tilbage 
tænker pop - ven er det ikke bare en der læser tekstform?

Nej, ikke dato feltet. Det for det i Datoform.

Så prøver vi V8:
https://www.dropbox.com/s/mr4t2fk8o8l3oni/Master%20V8%20SM.xlsm?dl=0

Hej Morten
nu tror jeg den der er  :-)
Hvad skulle der til ?
Er pop-ven  dato fom ?

En ekstra hjælpe celle, der laver dato om til tekst, til indlæsning.

Tilføjet Pop up.
Ret Navn/Nr. --> Ark er tomt, fast dato Ja/Nej.
https://www.dropbox.com/s/fvsfajqf6qxe2nx/Master%20V9%20SM.xlsm?dl=0

det kan jeg se
så nu er det måske rent tekst pop-ven henter ind nu?

Jeg takker :-)