Aikojen vertailu Excelissä

T:OMH

Moi
Seuraavan lainen ongelma nousi esille raportti dataa käsitellessäni...
Miten saisi laskettua päivämäärä erotuksen ja erojen kappalemäärän.
Pieni esimerkki joka toivottavasti selkiyttää enemmän.
Sarakkeessa G on pyydetty aloitus aika ja sarakkeessa J on toteutunut aloitus aika [ J-G = ohi menneet päivät] . Erotuksena pitäisi olla kpl ohimenneetpäivät ja ettei homma olisi liian helppo pitäisi vielä saada nuo työpäivät listattua "alueittain" ero : Mennyt ohi -1päivää ; 1-2 päivää ; 2-3 Päivää ja 4-> päivää ohi menneet...
Ja taulukossa on rivejä "vasta" reilu 32000kpl joten en viitsisi kauhean montaa copy / paste juttua tehdä joka riville... vaan hakusessa olisi VBA scripti/Makro tms hässäkkä.

4

612

Äänestä

    Vastaukset 4

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      tarkoititko todella , että ohi 1pv , 1-2 pv, 2-3 pv ja yli 4 pv?
      vaiko 1,2,3 yli 4 pv?

      no mai pen rai tossa sulle molemmat versiot
      eli tulostukset soluihin N1:N4

      moduuliin...
      Sub Aikaerot()
      Dim vika As Long
      Dim solu As Range
      Dim Aikaero As Long
      On Error Resume Next
      Range("N1:N4") = ""
      vika = Range("G65536").End(xlUp).Row
      For Each solu In Range("G1:G" & vika)
      Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
      Select Case Aikaero
      Case 1
      Range("N1") = Range("N1") 1
      Case 2
      Range("N2") = Range("N2") 1
      Case 3
      Range("N3") = Range("N3") 1
      Case Is > 3
      Range("N4") = Range("N4") 1
      End Select
      Next
      End Sub

      Sub Aikaerot2()
      Dim vika As Long
      Dim solu As Range
      Dim Aikaero As Long
      On Error Resume Next
      Range("N1:N4") = ""
      vika = Range("G65536").End(xlUp).Row
      For Each solu In Range("G1:G" & vika)
      Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
      Select Case Aikaero
      Case 1
      Range("N1") = Range("N1") 1
      Case 2
      Range("N1") = Range("N1") 1
      Range("N2") = Range("N2") 1
      Case 3
      Range("N2") = Range("N2") 1
      Range("N3") = Range("N3") 1
      Case Is > 3
      Range("N4") = Range("N4") 1
      End Select
      Next
      End Sub

      Keep EXCELing
      @Kunde

    • T:OMH

      Kiitos. Nopeasta vastauksesta.

      Ja ruokahaluhan kasvaa syödessä... Jos haluan lukea usealta välilehdeltä (Sheet 1, Sheet 2...Sheet n) ja palauttaa tuloksen vaikka Sheet OHI välilehdelle...

      Silloin lienee ainoa vaihtoehto lukea ensin välilehtien nimet ja sijoitta ne "yksitellen tuon rivin Vika=Range arvoksi?

    • kunde

      toivottavasti ei tuu ähkyolo ;-)

      Sub Aikaerot()
      Dim vika As Long
      Dim solu As Range
      Dim Aikaero As Long
      Dim taulukot
      Dim i As Long
      On Error Resume Next
      Sheets("Ohi").Range("N1:N4") = ""
      taulukot = Array("Taul1", "Taul2", "Taul3")
      For i = LBound(taulukot) To UBound(taulukot)
      vika = Sheets(taulukot(i)).Range("G65536").End(xlUp).Row
      For Each solu In Sheets(taulukot(i)).Range("G1:G" & vika)
      Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
      Select Case Aikaero
      Case 1
      Range("N1") = Sheets("Ohi").Range("N1") 1
      Case 2
      Range("N2") = Sheets("Ohi").Range("N2") 1
      Case 3
      Range("N3") = Sheets("Ohi").Range("N3") 1
      Case Is > 3
      Range("N4") = Sheets("Ohi").Range("N4") 1
      End Select
      Next
      Next
      End Sub
      Keep EXCELing
      @Kunde

      • T:OMH

        Kiitos Paljon,

        Nyt vain odotetaan laskenta tulosta....

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mulla on ikävä sua

      Pakko se on myöntää, mulla on ikävä sua 🥺💔.. En kyllä haluaisi sitä myöntää kun tämä tilanne on niin hankala. Oon yri
      Ikävä
      38
      1118

    2. Väleistä

      Minkälaiset välit sinulla on kaivattusi kanssa?
      Ikävä
      71
      848

    3. Nainen, olet ihanin maan päällä

      Ei ole toista. Olet ihanteellinen, kaikkien mittapuitteni täyttymys. Sisäinen kauneutesi sinetöi ulkoisen ja juuri se sa
      Ikävä
      40
      710

    4. Koska tulet minulle näkyväksi

      Koska astut piilostasi esiin? Miksi pysyttelet niin kaukana? Etkö voisi tulla päättämään tämän ikävöinnin? Saisin vihdoi
      Ikävä
      40
      686

    5. Poliis. Poliisi osoitti aseella Tampereella kun mies avasi oven

      Poliisi Poliisi osoitti aseella Tampereella, kun mies avasi siviili­poliisiauton oven Mies kuvasi keski­viikkoiltana bus
      Maailman menoa
      196
      561

    6. Sano rakkaallesi

      Suorat sanat! Mikä mieltä kaihertaa!
      Ikävä
      43
      499

    7. Romanttisinta

      Mitä hän on tehnyt sinulle?
      Ikävä
      46
      488

    8. jumala ei auta hittojakaan..

      kuka tahansa voi kirjottaa lapulle mitä vaan ja väittää että jumala olisi sen kirjoittanut... onko yksikään raamatun kir
      Sinkut
      204
      473

    9. Mikä on mielestäsi keskustelupalstan tarkoitus?

      Tuolla toisessa ketjussa kävi ilmi jotain minkä itse koen hieman hassuksi. Nykypäivänä yllättävän moni ilmeisesti kokee,
      Sinkut
      174
      462

    10. Onneksi en ole riippuvainen Kuhmo Oy:stä

      Lähinnä naurattaa, kun ylipainoiset, punakat kuljetus ja muutkin yrittäjät yrittävät lohdutella itseään uuden omistajan
      Kuhmo
      6
      447
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt