Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Pagina 2 van 4 EersteEerste 1 2 3 4 LaatsteLaatste
Weergeven resultaten 21 tot 40 van 73

Onderwerp: unieke waarden

  1. #21
    Senior Member
    Geregistreerd
    22 december 2019
    Locatie
    Brecht, België
    bedankt voor de mogelijke oplossingen
    de aantallen zouden moeten zijn, zie Blad1
    A1=215
    B1=29
    C1=224

    Met macro M2_snb, zie Inteelt_berekenen!N2064
    A1=214, A66 ontbreekt
    B1=28, B7 ontbreekt
    C1=222, C59 en C121 ontbreken

    Met macro M_snb, zie Inteelt_berekenen!O2064
    A1=215
    B1=29
    C1=223, C59 ontbreekt

    @snb, heeft u een vermoeden waarom C59 niet in de lijst staat?
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #22
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    't was bijna weekend, dus een slordigheidje
    Waarom geen pipe als separator ipv die stomme space, dat lijkt me meer stupid-proof
    Code:
    Sub M_snb()
      sn = range("C17:M2063")
      
      For Each it In sn
        c00 = Replace(c00 & " ", " " & it & " ", " ") & " " & it
      Next
      sn = Split(Application.Trim(c00))
      
      Cells(1, 20).Resize(UBound(sn)+1) = Application.Transpose(sn)   '<<<<<<<< +1
    End Sub
    Laatst aangepast door cow18 : 7 augustus 2022 om 10:18

  3. #23
    Senior Member
    Geregistreerd
    22 december 2019
    Locatie
    Brecht, België
    heb het in nieuwe macro gezet naar bij C1 ontbreekt nog steeds C59


    Code:
    Sub M3_snb()
    Range("N2065:N4110").ClearContents
      sn = Range("C17:M2063")
      
      For Each it In sn
        c00 = Replace(c00 & " ", " " & it & " ", " ") & " " & it
      Next
      sn = Split(Application.Trim(c00))
      
      Cells(2065, 14).Resize(UBound(sn) + 1) = Application.Transpose(sn) '<<<<<<<< +1
    End Sub

  4. #24
    Senior Member
    Geregistreerd
    21 juni 2022
    Deze formule vindt ook C59 (geen macro's benodigd)
    Code:
    =SORTEREN(UNIEK(XML.FILTEREN("<x><y>"&SUBSTITUEREN(TEKST.COMBINEREN(",";WAAR;N7:P428);",";"</y><y>")&"</y></x>";"//y");))
    Zie bijlage

    Ook is deze formule erg snel en geeft deze formule steeds de juiste aantallen.

    EDIT: Ik pas mijn formule op een verkeerd bereik toe. Op blad inteelt_berekenen zal mijn formule ook GEEN C59 vinden. C59 staat daar niet.
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door HansDouwe : 7 augustus 2022 om 11:49

  5. #25
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    @JEC, AlExcel,
    ik vind geen VSTACK/Vert.stapelen en heb nochtans Insider en heb net de updates vernieuwd.
    Zitten jullie nog een klasse hoger dan ik dan ?
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  Schermafbeelding 2022-08-07 100415.jpg‎
Bekeken: 13
Grootte:  20,1 KB  

  6. #26
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Ik heb geen insider versie. Ik wist alleen dat er een nieuwe functie was welke dit kon

  7. #27
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    C59 staat in Blad1, maar niet in de stamboom van C1 op "inteelt berekenen".
    By the way, hoe bereken je nu al je inteelt ?

    @JEC, ok, was toch maar me bezighouden op een zondagmorgen.
    Laatst aangepast door cow18 : 7 augustus 2022 om 11:49

  8. #28
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    @Hans, je kunt ook unieke waarden vinden via het xml pad

    Code:
    =SORT(FILTERXML("<x><y>"&SUBSTITUTE(TEXTJOIN(",";;N7:P428);",";"</y><y>")&"</y></x>";"//y[not(preceding::y=.)]"))
    Nog maar een VBA variant;

    Code:
    Sub jec()
     Dim ar, it, x As Long
     ar = Range("C17:M2063")
      
     For Each it In ar
        If it <> 0 And InStr("|" & sq, "|" & it) = 0 Then sq = sq & it & "|": x = x + 1
     Next
       
     Cells(1, 21).Resize(x) = Application.Transpose(Split(sq, "|"))
    End Sub
    Laatst aangepast door JEC. : 7 augustus 2022 om 13:37
    Gr,
    JEC

  9. #29
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    @cow18,

    Ik ben er wel in het bezit van, maar als niet iedereen het heeft heb je er weinig aan om te helpen.
    Ik heb hier.....
    https://www.helpmij.nl/forum/showthr...=1#post6333498
    ...het vert.stapelen al toegepast.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  10. #30
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Zou het niet handiger zijn je gegevens op te zetten als een database ?
    Mij lijken vier eigenschappen voldoende: naam, vader, moeder, generatie.
    En dat alles in een dynamische tabel.

    Daarna kun je gebruik maken van filters, sortering, draaitabellen en grafieken.
    Formules en macro's zijn dan nagenoeg overbodig.
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  11. #31
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Eens, het is eigenlijk gewoon een BOM(Bill of materials)
    Gr,
    JEC

  12. #32
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    @HSV, vert.stapelen kent hij niet (ook niet met intellisense), dus ik zal nog niet exclusief insider zijn ... . Op zich inderdaad geen probleem !
    Laatst aangepast door cow18 : 8 augustus 2022 om 13:15

  13. #33
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Nu wel als het goed is😬

  14. #34
    Senior Member
    Geregistreerd
    22 december 2019
    Locatie
    Brecht, België
    C1=224, was het aantal unieke waarden in het bereik "Dieren_Bib!C253:H393"
    op rij 286 stond C59, die werd niet gebruikt in de stamboom,
    Dus C1=223

    oplossingen verschijnen in "Inteelt_berekenen!N2064:Q2065"

    @cow18, voor het berekenen van het inteeltcoëfficiënt wil ik volgende formule gebruiken. Deze ga ik eerst manueel proberen in excel

    Fx=som((1/2(n1+n2+1))*(1+FA))
    Fx=de inteeltcoëfficiënt van dier x
    n1=aantal generaties van ouder 1 van x tot aan gemeenschappelijke ouder
    n2=aantal generaties van ouder 2 van x tot aan gemeenschappelijke ouder
    FA=inteeltcoëfficiënt. gemeenschappelijke ouder

    Wanneer er meerdere gemeenschappelijke voorouders zijn,
    dienen de inteeltcoëfficiënten bij elkaar opgeteld te worden.
    Bijgevoegde bestanden Bijgevoegde bestanden

  15. #35
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    die formule, die ziet er uit zoals ik dacht in een heel ver verleden, maar je gaat er een punthoofd van krijgen als je die toepast, want je moet alle paden aflopen dacht ik.

  16. #36
    Senior Member
    Geregistreerd
    21 juni 2022
    Ik blijf de oplossingen relatief ingewikkeld vinden om het aantal unieke waarden in een matrix te bepalen.
    Ik vind de vraag erg interessant en heb een gelijksoortige vraag gepost op https://www.excelforum.com/excel-for...-a-matrix.html
    Ik ben benieuwd of zij met eenvoudigere of andere oplossingen kunnen komen?
    Laatst aangepast door HansDouwe : 9 augustus 2022 om 08:55

  17. #37
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    De oplossing van Alex is hoe je dit het makkelijkst met een formule doet momenteel (alleen nog voor insiders)

  18. #38
    Senior Member
    Geregistreerd
    21 juni 2022
    Ja dat weet ik, maar die heb ik niet genoemd, omdat ik wil weten of er eenvoudigere of betere oplossingen zijn voor niet-insiders.
    Daarom heb ik in mijn post op Excelforum expliciet gemeld "voor 365 users". Dus niet 365 insiders users.

  19. #39
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Ahh oke, vandaar. Power Query is ook een snelle oplossing zoals al aangegeven bij Excelforum

  20. #40
    Senior Member
    Geregistreerd
    21 juni 2022
    Ja, dat is mooi resultaat die powerquery, maar ik weet alleen nog niet hoe ik die powerquery aan de praat krijg.
    Ik ben nog niet vertrouwd met Powerquery.
    Als jij dat wel weet, wil je dat dan posten op Excelforum? (als je daar een user bent)
    Want daar heb ik deze vraag ook uitstaan.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren