Jump to content

Harald Staff

Medlemmer
  • Content Count

    2417
  • Joined

  • Last visited

Community Reputation

143 :)

1 Follower

Profile Information

  • Kjønn
    Mann

Recent Profile Visitors

10955 profile views
  1. Hei igjen Jeg overskuer ikke helt hvordan dette virker, verken mot regneark eller mot skjemaet internt. Men slik kan du skrive i en flerkolonnes listbox: Me.lstBarn.List(3, 2) = "Harald" Beste hilsen List(3, 2)
  2. Hei Nei si det... Vrient å vite uten det helt store bildet. Jeg laget en nummerrekke i A i Sheet1 som test, og skrellet ned koden din til dette: Sub Test() Dim FinnVerdi As Range Set FinnVerdi = Sheet1.Range("A1:A1000").Find(what:=9, LookIn:=xlValues, LookAt:=xlWhole) MsgBox FinnVerdi.Row FinnVerdi.Offset(0, 1).Value = "Harald" FinnVerdi.Offset(0, 2).Value = "Fin fyr" End Sub Det funker, også når Sheet1 ikke er aktivt ark. With - end With gjør ingenting slik du har skrevet det, så fjern det. Herfra kan jeg bare gi deg et par tips om feilsøking. Først, skriv alltid Option Explicit øverst i alle modulene dine. Excel blir mye strengere på å deklarere variabler (som du har inne allerede ser det ut som), men du får mye mer kvalifiserte feilmeldinger i retur. Gå Tools - Options og hak av for Require variable declaration, så gjør editoren dette automatisk fra nå av. Så har jeg lagt inn en MsgBox midt i prosedyren for å stoppe koden på et kritisk punkt og vise en viktig variabel. Gjør dette mange steder nedover i koden, så ser du hvor langt ting virker og hvor ting begynner å svikte. Fjern dem igjen når alt funker. Lykke til. Beste hilsen Harald
  3. Bra du fant ut av det. "Format(Dt" gjør om datoen til String igjen. La regnearket håndtere formatering. Beste hilsen Harald
  4. Hei Problemet ditt er at du forutsetter at skrivinndato er en dato. Det er det ikke nødvendigvis, jeg gjetter på at det er en tekst, en String. Hvis du konverterer med Datevalue så kan folk skrive inn på de fleste vanlige måter (det er mange). Prøv denne: Sub Test() Dim Dt As Date Dim skrivinndato As String On Error Resume Next skrivinndato = InputBox("Skriv dato:", "Test") Dt = DateValue(skrivinndato) If Dt < DateSerial(2019, 1, 1) Then MsgBox "Ikke godkjent" Else MsgBox Format(Dt, "dd.mm.yyyy") End If End Sub Den skal spise ting som 1.9.2019 1.9.19 1.sept 2019 1.september 01.09.19 01.09.2019 osv osv, men ikke 01092019 20190901 Beste hilsen Harald
  5. Hei Jeg beklager. Det er umulig. Ikke legg noe i et Exceldokument du sender fra deg som du ikke vil at andre skal se. Du kan operere med så mye skjulte kolonner og ark du vil, de er grusomt tilgjengelige allikevel. Jeg kan dele en makro som får et dokument til å selvdestruere hvis du vil. Men det krever at fila er i xlsm-format og at brukeren har aktivert innhold/makroer, så ikke særlig pålitelig det heller. Beste hilsen Harald
  6. Det er vrient å veilede videre uten å vite hva du kan. Men #VERDI betyr gjerne at du har feil datatype ett eller annet sted, for eksempel å prøve å gange et tall med en bokstav. Alternativt at du prøver på noe umulig, som innledningsvis. #NAVN betyr at Excel ikke kjenner igjen funksjonen du har satt inn, typisk problem ved å lime inn engelske løsninger i norskspråklig Excel. #REF betyr at en formel henviser til noe som ikke finnes, type =A5+A8, og så slette rad 8. Hvis dette seriøst gjelder fire ark, kan du ikke bare ha en ANTALL.HVIS i hvert av dem og summere? Beste hilsen Harald
  7. Hei Celleområder over flere ark heter 3D-referanser (3D references, i tilfelle du vil google). Ikke alle regnearkfunksjoner støtter disse, så her du må nok gjøre opp for ett og ett ark først. Beste hilsen Harald
  8. Hei igjen RA Dette er det rareste... Du kommer i utgangspunktet rundt problemet ved å definere navnet som et dynamisk område, slik https://www.excel-easy.com/examples/dynamic-named-range.html Norske navn er FORSKYVNING og ANTALLA i denne løsningen. Så kan man bruke området, her Prices, som et listeområde i datavalidering =Prices Eller man kan definere Prices hardkodet A2:A1000, og så sette listeområdet via INDIREKTE. Med teksten Prices i C1, listeområde i datavalidering D1 =INDIREKTE(C1) Men!!! Når jeg prøver kombinere disse, altså at INDIREKTE peker mot et navngitt område som defineres via FORSKYVNING, da nekter Excel å samarbeide. To halve fungerende løsninger som ikke lar seg kombinere. Jeg begriper det virkelig ikke. Da er vi kanskje over på VBA, at det navngitte området omdefineres når du endrer innhold. Jeg kommer ikke på noe annet. Beste hilsen Harald
  9. Jeg skal vel nevne at vi har brukt Clikapad og ppvote til publikumsavstemninger i tv-produksjon tidligere. Der kan du (eller operatøren) forfatte underveis i marsjens gang. Her kan du leie utstyr og evt også ekspertoperatør https://3dmedia.no/mentometer Beste hilsen Harald
  10. Jeg tror Kahoot skal funke. Lav brukerterskel for medlemmene dine, og ingen app-installasjon nødvendig hvis jeg husker riktig.
  11. Hei igjen Dette får jeg ikke helt til, og formelen din virker ikke "as is" hos meg. Skjønner hvor du vil, og det finnes kanskje en løsning med matriseformler, som ikke er min sterke side, Den vanligeløsningen er betinget formatering, som du kanskje kan fylle tusen rader med via en modifisert innspilt makro. Men tusen betingede formateringer kommer til å gjøre arket ditt utålelig tungt og tregt. Jeg ville nok tenkt enten en hjelpekolonne pr enhet, eller en sjekk i Worksheet_change. Beklager at jeg ikke fik til dette. beste hilsen Harald
  12. Fine greier, RA. Bare moro dette. Takk for tilbakemeldinger! Beste hilsen Harald
  13. Hei igjen Litt mer fikling var det jo, som alltid :-) Demo ned t.o.m. rad 20: HJELPEMIDDLER2.xlsx Beste hilsen Harald
×
×
  • Create New...