ExcelGuru

Hei!
Hvis du definerer området som en tabell, funker det helt automatisk
 
 
 
Vennlig hilsen Ketil

Hei!
Bruk denne formelen i A11 og dra den mot høyre. Dollartegnene låser celle A1 i formelen:)
=A5+A6+A7+A8-$A$1
 
Vennlig hilsen Ketil

Hei!
Ja, du kan legge en betinget formatering på alle kolonnene.
Hvis du markerer de aktuelle kolonnene og bruker 
"Bruk en formel for å bestemme..."
 
Vil formelen
=$B1="Fly"
 
Gjøre at alle linjer som inneholder ordet Fly i B-kolonnen får den bakgrunnsfargen du velger.
 
Vennlig hilsen Ketil

Hei og hei
Det ble litt fristende å komme med et forslag...
Her popper det opp en liten boks når du klikker i B-kolonnen.
Når du skriver i tekstboksen, vises alle navn som inneholder bokstavene du skriver.
Når du klikker og taster enter evt klikker OK, settes navnet inn i listen på første ledige rad.
Når et navn er valgt, settes en "x" til venstre for navnet i kundelisten slik at den ikke kommer opp i listboksen neste gang du søker.
Denne kolonnen ("M" i eksemplet) må du slette når du nullstiller arket.
Det er over 1000 navn i listen så du kan se om hastigheten blir ok.
 
http://www.excelguru.no/download/2473/
 
Vennlig hilsen Ketil

Hei!
Hvis du vet kolonnen som navnene står i, f-eks A, og navnet du søker etter står i B2, kan du bruke formelen
 
=ADRESSE(SAMMENLIGNE(B2;A:A;0);1)

Hei på deg.
Hvis C2 inneholder "Ramme", kan du bruke denne formelen:
=FINN.RAD($B2;INDIREKTE($C$2 &"!A$3:$F$6");2;USANN)
 
Vet ikke om du har bruk for det, men du kan bruke denne formelen til å finne navnet på fanen:
=DELTEKST(CELLE("filnavn");FINN("]";CELLE("filnavn");1)+1;100)
 
Vennlig hilsen Ketil

Bruk Hvisfeil(formel);"")
 
Da blir cella tom hvis formelen feiler
 
Vennlig hilsen Ketil

For å få til dette kan du bruke makroen under
Du kan laste ned eksempelfilen din her
http://www.excelguru.no/download/1646/
Makroen tøffer gjennom alle regnearkene bortsett fra Ark1 og plasserer alle unike artikler i A-kolonnen. Bytter du navn på Ark1, må du endre linjen Set Ark = Sheets("Ark1")
  Vennlig hilsen Ketil   Sub Transfer()   Dim s As Double   Dim a As Integer   Dim Ark As Worksheet   Dim R As Range      Set Ark = Sheets("Ark1")   Set R = Ark.Range("A:A")      For i = 1 To ActiveWorkbook.Worksheets.Count    If ActiveWorkbook.Worksheets(i).Name <> Ark.Name Then     With ActiveWorkbook.Worksheets(i)      x = 1: While .Cells(x, 2) <> ""       s = .Cells(x, 2)       a = 0       On Error Resume Next       a = Application.WorksheetFunction.Match(s, R, 0)        If a = 0 Then        l = l + 1        Ark.Cells(l, 1) = s       End If      x = x + 1: Wend     End With    End If   Next i End Sub

Hei!
Du kan finne sum for Andreas med denne formelen:
=SUMMER.HVIS.SETT(D:D;A:A;1;C:C;"Total:")
 
Den finner summen for "alle" linjer som har 1 i A-kolonnen og "Total:" i C-kolonnen - og det er jo bare en.
 
Vennlig hilsen Ketil

Bruk betinget formatering på kolonnen
Merk Celler Regler->Dupliserte verdier,
Da blir duplikatene lyserøde og fine
 
Vennlig hilsen Ketil

Her har du en liten funksjon som gir resultatet:
Se eksempel her: http://www.excelguru.no/download/1467/
 
Funksjonen ser slik ut:
 
Function LengsteTallRekke(R As Range, tall As Double) As Long  Dim x As Long  Dim Maks As Long    With R   For x = 1 To .Rows.Count    If .Cells(x, 1) = tall Then     a = a + 1     Else     If a > Maks Then Maks = a     a = 0    End If   Next x  End With    If a > Maks Then Maks = a    LengsteTallRekke = Maks End Function

Det finnes masse kraftfullt, vet du. Jeg har skrevet en liten snutt som ordner det:
 
Du kan laste ned regnearket her: http://www.excelguru.no/download/1167/
 
Koden ser slik ut:
Function SumKode(Ran As Range, HeadingRad, AntallTekst, Kodetekst, Kode)  Dim s As Double  Dim x As Integer  Dim y As Integer  Dim fk As Long  Dim tk As Long  Dim Rad As Long    fk = Ran.Column  tk = Ran.Columns.Count  Rad = Ran.Row    x = fk  While x <= tk   If UCase(Cells(HeadingRad, x)) = UCase(Kodetekst) Then    If UCase(Cells(Rad, x)) = UCase(Kode) Then     'Finn neste Antall etter denne      funnet = False      y = x - 1: While funnet = False And y - x < 5       If UCase(Cells(HeadingRad, y)) = UCase(AntallTekst) Then        s = s + Cells(Rad, y)       End If       funnet = True      y = y + 1: Wend    End If   End If  x = x + 1: Wend    SumKode = s   End Function

Hei!
I 2013 ligger denne på SHIFT+CTRL+Fnutt (Den til venstre for backspace - den som gir tegnet over a = à)

Hei på deg.
Jeg synes utfordringen din er morsom, og har laget et ark som gjør det du vil.
 
I de cellene som du vil skal arve formattering, bruker du formelen =COPYALL(), f.eks =COPYALL(B5) eller =COPYALL(Ark1!B5)
 
- Funksjonen COPYALL kopierer kun verdien i cellen du refererer til
- Hvert 15. sekund kjører en rutine som søker opp alle forekomstene av COPYALL() i alle faner og gir disse cellene samme format som COPYALL() refererer til. Mulig at det er mer hensiktsmessig å bruke en knapp hvis du har tusenvis av COPYALL'er
 
http://www.excelguru.no/download/874/
 
Vennlig hilsen
excelguru.no
 
Ketil Melhus

Hei på deg.
Har du Excel 2007 evt 2010?
 
Det er mange som har rapportert om akkurat denne utfordringen - spesielt i store regneark:
 
http://www.mrexcel.com/forum/excel-questions/545396-default-number-format-excel-2010-worksheet-randomly-changed-date-format.html
 
 
Vennlig hilsen
excelguru.no