Gå til innhold

ExcelGuru

Medlemmer
  • Innlegg

    196
  • Ble med

  • Besøkte siden sist

Innlegg skrevet av ExcelGuru

  1. Hei på deg.

    De to regnearkene her viser hvordan du kan løse det.

     

    Artikkeloversikt:

    http://www.excelguru.no/download/1592/

    Artikkelpriser:

    http://www.excelguru.no/download/1595/

     

    Om Artikkeloversikt

    Her kan du velge mellom to artikler i nedtrekksmenyen slik du ønsker

    Da kommer artikkelnummer i kolonne B

    Hvis Prisoversikt ligger på samme katalog som Artikkeloversikt, vises Pris i C1, og du får frem priser i C-kolonnen.

     

    Hvis du lagrer eller avslutter ArtikkelOversikt, slettes innholdet i fanen Priser, og overskriften i C-kolonnen forsvinner.

    Hvis du ønsker å lese prisene fra Visma, blir prinsippet likt.

     

    Håper jeg har forstått deg rett...

     

    Og takk til deg, Zash

     

    Vennlig hilsen Ketil

  2. Jeg tester med søk og erstatt av filnavnet mellom klammeparenteser, f.eks  [fil1.xls] til [fil2.xls].

    Så lenge fil2.xls eksisterer, får jeg ikke opp noen feilmelding. Eksisterer ikke fil2.xls, popper explorervinduet opp.

    Bruker du Excel 2013?

     

    Vennlig hilsen Ketil

  3. Hei igjen. Jeg har laget to nye funksjoner.

     

    Visantall viser antall like tall på linjen - altså tall på rader over og under som er likt tall på linjen der formelen står

     

    AntallAvRekker viser hvor mange forekomster det er av f.eks 4 enere eller 2 toere.

     

    Og så er jeg steike nysgjerrig på hva du bruker det til!!!

     

    Nedlastingen er oppdatert ned de nye funksjonene :)

    http://www.excelguru.no/download/1467/

     

    Function VisAntall(Kolonne As Long, Rad As Long) As Long
     Dim x As Long
     Dim Maks As Long
     
     x = Rad: While Cells(Rad, Kolonne) = Cells(x, Kolonne) And x > 1
      Maks = Maks + 1
     x = x - 1: Wend
      
     x = Rad + 1: While Cells(Rad, Kolonne) = Cells(x, Kolonne)
      Maks = Maks + 1
     x = x + 1: Wend
      
     VisAntall = Maks
     
    End Function
     
    Function AntallAvRekker(r As Range, Tall As Double, Rekke As Long) As Long
     Dim x As Long
     Dim Antall As Long
      
     With r
      For x = 1 To r.Rows.Count
       t = .Cells(x, 1)
        If t = Tall Then
         a = a + 1
         Else
         If a = Rekke Then
          Antall = Antall + 1
         End If
         a = 0
        End If
       
      Next x
     End With
      
     If a = Rekke Then
      Antall = Antall + 1
     End If
      
     AntallAvRekker = Antall
     
    End Function
    • Liker 1
  4. 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
    • Liker 1
  5. Hei!

    Innså at jeg nok har misforstått dette med at du skal ha med flere tegn hvis "-" står tidlig i strengen.

    Denne returnerer de fem første tegnene før og etter "-" hvis "-" står tidligere enn i 5'te posisjon

    Hele strengen returneres hvis den er uten "-"

     

    Morsomt :)

     

    =HVISFEIL(HVIS(FINN("-";B2)>5;VENSTRE(B2;FINN("-";B2)-1);VENSTRE(B2;FINN("-";B2)-1)&DELTEKST(B2;FINN("-";B2)+1;6-FINN("-";B2)));B2)

    • Liker 1
  6. Håper noen kan hjelpe meg med dette! :-)

     

    Har en lang liste med varenummer som varierer i lengde fra 3 til 40 karakterer og som blant annet kan inneholde bindestreker i kolonne B.

     

    Jeg ønsker en formel i en annen kolonne som tar de første x karakterer fra innholdet i B uten bindestreker og lager en link som denne:

     

    http://medias.schaeffler.de/medias/en!hp.ds/;bNDgb42Hd8Sa?pattern=62062&x=14&y=4

     

    Det uthevede området i eksempelet er utledet av innholdet i B som i dette tilfelle er

     

    6206-2RSR

     

    VENSTRE eller DELTEKST blir vel en del av uttrykket, men hvordan flette de inntil f.eks. 5 første karakterene uten "-" inn i weblinken og få denne til å fungere?

     

    Noen som har tips? :-)

     

     

    Denne formelen returnerer delen av artikkelnummeret før en eventuell bindestrek:

    =HVISFEIL(VENSTRE(B2;FINN("-";B2)-1);B2)

     

     

     

    Vennlig hilsen Ketil

    • Liker 1
  7. Hei!

    Trenger litt bistand til å få hentet ut celleverdi der cellen er enten 0, 1 eller tom

    Hvis cellen er tom, returnerer den verdien 0 allikevel...

     

    Men denne koden så henter den de tomme cellene, men da får jeg #REF på 0 og 1 verdiene

    CODE
    =HVIS(FINN.RAD(A15;'Alle anbud'!$A$3:$H$4000;8;USANN)="";"";FINN.RAD(A15;'Alle anbud'!$A$3:$A$4000;8;USANN))

     

    =HVIS(FINN.RAD(A15;'Alle anbud'!$A$3:$H$4000;8;USANN)="";"";FINN.RAD(A15;'Alle anbud'!$A$3:$A$4000;8;USANN))

     

    Bytt til $H$4000 :)

  8. Ser ut som denne fungerer helt genialt :-)

    Men jeg ønsker å hente ut data fra 3 stk celler.

    Tipper det er denne linja jeg må endre til noe??

    Formel_Kolonne = 2

     

    Så fint at det virker. Ja, det er Formel_Kolonne som bestemmer hvilken kolonne formelen som skal endres ligger i. Er dette en engangsjobb funker vel det greit, ellers kan jeg mekke litt til så den endrer på tre kolonner i en smekk :)

     

    Formel_Kolonne=2 er B-kolonnen, Formel_Kolonne=3 er C-kolonnen osv

     

    Vennlig hilsen Ketil

  9. Hei på deg.

    Utfordringen din er at formelen ikke endrer navn når du kopierer den nedover i B-kolonnen.

    I dette eksemplet har jeg skrevet en liten snutt som bytter ut filnavnet i formelen ut fra anbudsnummeret i A-kolonnen

    Du kopierer først formelen helt ned, og så kjører du makroen.

     

    Eksemplet finner du her

    http://www.excelguru.no/download/1450/

     

    (Hvis du har de tre filene 1156.xlsx, 1157.xlsx og 1158.xlsx på samme område, funker eksemplet fint)

     

    Makroen ser slik ut:

    Sub Knapp1_Klikk()
     Dim Anbud As String
     Dim Formel As String
     Dim x As Integer
     Dim a As Integer
     Dim b As Integer
     Dim FilType As String
     Dim AnbudsNummer_Kolonne As Integer
     Dim Formel_Kolonne As Integer
     
     'Disse tre parametrene må du muligens endre...
     FilType = ".xlsx"
     AnbudsNummer_Kolonne = 1
     Formel_Kolonne = 2
     
     x = 1: While Cells(x, AnbudsNummer_Kolonne) <> ""
      Anbud = Cells(x, AnbudsNummer_Kolonne)
      Formel = Cells(x, Formel_Kolonne).Formula
      
      
      a = InStr(1, Formel, "[")
      b = InStr(1, Formel, "]")
      
      If a <> 0 And b <> 0 Then
         Formel = Left(Formel, a) & Anbud & FilType & Mid(Formel, b)
         Cells(x, Formel_Kolonne).Formula = Formel
      End If
     x = x + 1: Wend
    End Sub
  10.  

    Jeg skal holde oversikt over nye og eksisterende programvarer på en skole jeg jobber. Tenkte da å lage en oversikt med mulighet for å systematisere etter visse preferanser. (Se vedlagt bilde)

     

    Har laget en liten oversikt i word med VB-checkbox. Er det mulig å bruke dette til å systematisere - eller er det bortkastet arbeid?

     

     

    Jeg tror jeg hadde brukt Excel. Jeg synes det er bedre egnet til å systematisere slik du er i gang med.

     

     

    Vennlig hilsen Ketil

×
×
  • Opprett ny...