bakerman

Bestandslijst zonder Loop en AddItem.

Private Sub UserForm_Initialize()
    myDir = ThisWorkbook.Path & "\Word"
    sn = Split(CreateObject("wscript.shell").exec("cmd /c dir """ & myDir & _
                "\*.doc*"" /b").StdOut.ReadAll, vbCrLf)
    LB_00.List = sn
End Sub

@dotchiejack En met jouw oplossing krijg je foutmeldingen in de laatste 4 kolommen.

In Afgewerkte Mengers userform vervang de Private Sub Cmd_00_Click() door onderstaande.

Private Sub Cmd_00_Click()
If T_19 = "Ja" Then
    Set ws = Sheets("Vloeibare Chocolades - Analyses")
    T_00.Value = Application.Max([VCANrs]) + 1
Else
    Set ws = Sheets("Afgewerkte mengers")
End If
With ws
    iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
    .Cells(iRow, 1).Resize(, 21).Value = Array(T_00.Value, CDate(T_01.Value), T_02.Value, T_03.Value, T_04.Value, _
    T_05.Value, T_06.Value, T_07.Value, T_08.Value, T_09.Value, T_10.Value, T_11.Value, T_12.Value, T_13.Value, T_14.Value, _
    T_15.Value, T_16.Value, T_17.Value, T_18.Value, T_19.Value, T_20.Value)
End With
reset
End Sub

Vorr bv bereik A1:A10.

=COUNTIF($A$1:$A$10;A1)>2

Ik heb nog wat aanpassingen gemaakt aan je formules.

Indien je interesse hebt stuur me je email adres in een privébericht zodat ik je het bestand kan toesturen.

Anders lopen we het risico dat het verwijderd wordt door een Mod voordat je het kan downloaden.

Heb je dit geprobeerd ???

Kolom J zijn geen getallen maar tekst.

Als ik die formule toepas is het resultaat bij mij 0.

Je kolom S is tekst,geen getallen, waarmee je dus niet kan rekenen.(daarom krijg dan ook de #waarde)

Je zal dus steeds ergens de conversie moeten maken en rekenen met die getallen.

Voor je eerste vraag heb ik 2 hulpkolommen gebruikt op Blad1 (Q & R) icm een Somproduct formule op Blad2

De 2de vraag is op te lossen met een simpele Somproduct formule.

PD573.xlsx

Private Sub T_03_Change()
    If T_03 = vbNullString Then Exit Sub
    With BL5
        fRow = Application.Match(CDbl(T_03), .Columns(3), 0)
        If Not IsError(fRow) Then
            T_05.Value = .Cells(fRow, 5)
        End If
    End With
End Sub

Zal zoiets worden op voorwaarde dat op je blad Lijsten de nummers en soort overeenkomen per rij.

Private Sub T_03_Change()
    With BL5
        fRow = Application.Match(CDbl(T_03), .Columns(3), 0)
        If Not IsError(fRow) Then
            T_05.Value = .Cells(fRow, 5)
        End If
    End With
End Sub

Dit komt omdat in de code verwezen wordt naar Acrobat Reader.

Om dit op te lossen zal je de code (of het volledige bestand zonder vertrouwelijke informatie) moeten posten zodat wij het eens kunnen bekijken.

@ emielDS

Is het niet veiliger om met een variabel aantal rijnummers te werken. Je weet helaas niet hoe de volledige jaarplanner eruit ziet.

Sub week()
    nr = Application.WeekNum(Now())
    nr2 = Application.WeekNum(Now()) + 1
    rij = Application.Match(nr, [a:a], 0)
    rij2 = Application.Match(nr2, [a:a], 0)
    With Sheets("weekplanning")
        Range("a" & rij).Resize(rij2 - rij, 8).Copy .[a1]
    End With
End Sub

OK, volgende stap.

Het wachtwoord staat nu op blad Gegevens cel A1 zodat je niet steeds in de code moet om een nieuw wachtwoord in te stellen. Het 1ste wat je dus moet doen is blad Gegevens openen met het huidige wachtwoord, zet het nieuwe wachtwoord in cel A1 en verlaat Gegevens. Sla nu je bestand op. Het wachtwoord dat je nu intypt in de box wordt vergeleken met de waarde in Gegevens A1.

Blad Gegevens moet je niet meer onzichtbaar maken met de knop, maar dit gebeurt nu automatisch als je het blad verlaat.

In de grote tabel is nu ingesteld dat wanneer je 2 waarden invult op één rij dat die rij rood wordt. Hierdoor weet je dat je een dubbele waarde ingevuld hebt.

In de linker tabel wordt door de groene lijn aangegeven welke stem het hoogste breukdeel heeft.

In de rechter tabel staat in cel J24 het aantal stemmen dat uitgebracht moet worden. In cel J23 het aantal uitgebrachte stemmen.

Zolang beide getallen niet overeenkomen zal deze cel rood gekleurd blijven. Komen ze overeen kleurt de cel groen zodat je weet dat alle stemmen correct ingevoerd zijn.

Gerard48_GeheimStemmen2.xlsm

Probeer het eens met deze.

De werkwijze is uitgelegd in het bestand.

GeheimStemmen_Gerard48.xlsm

In B11

=INDIRECT(2013+KOLOM() & "!$C$37")

Begrijp je vraag niet goed.

De formule zet je gewoon in de bovenste cel waar je het resultaat wil en trek je dan gewoon door naar beneden.

In de veronderstelling dat je op Rij 1 begint.

=INDIRECT(2015+RIJ() &"!B41")

Heel heel heel graag gedaan en bedankt voor de feedback. :):)

PS.: Sla toch maar een kopie van je lege bestand ergens veilig op want die formules maak ik waarschijnlijk geen 2de keer.;)

Bert,

Heb even cel U23 gebruikt als helpcel en de formule in cel T23 wat aangepast zodat we niet onmiddellijk de formule in L23 moeten aanpakken.

Wijzig of verwijder de waarde maar eens in J23 en zie wat er gebeurt. Is dit wat je zoekt ?

BP Drukverlies berekening GAS_Overrule.xlsx

Bert,

Op rij 23 heb ik een andere afrondingsmethode gebruikt.

Op rij 24 heb ik alle parameters gelijkgesteld met rij 23 (echter met de oude afrondingsmethode).

Er treden nu drukverschillen op in de overige berekeningen. Komen deze meer overeen met de werkelijkheid ?

Als ik het goed begrijp zoek je voor je 2de vraag een omgekeerde formule ? Dus als je een bepaalde diameter invult dat het overeenkomstige drukverlies opgezocht word in de tabel ?

Bv. in rij 23 heb je nu bij een gasdebiet van 3.63 DN25 en 0.0249 als uitkomst. Vul je nu DN32 in in cel J23 dat je dan 0.0061 zou terugkrijgen in cel L23.

BP Drukverlies berekening GAS_Afronding.xlsx

Probeer deze eens op je onbewerkte tekst.

Sub test()
    Dim a, i As Long, txt As String, m As Object
    With Range("a2", Range("a" & Rows.Count).End(xlUp))
        a = .Value
        With CreateObject("VBScript.RegExp")
            .Global = True
            .IgnoreCase = True
            .Pattern = "\d{1,2}\.\d{1,2}\.\d{4}|blz(\s)+\d+(\s)+\(\d+\)"
            For i = 1 To UBound(a, 1)
                For Each m In .Execute(a(i, 1))
                    txt = txt & IIf(txt <> "", ",", "") & m
                Next
                a(i, 1) = txt: txt = Empty
            Next
        End With
        .Columns(3).Value = a
    End With
    Range("c2", Range("c" & Rows.Count).End(xlUp)).TextToColumns Range("C2"), Comma:=True
End Sub

Als ik je vraag goed begrepen heb ?

BertP_Drukverlies berekening GAS_Validation.xlsx

Deze werkt afhankelijk van de keuze v/h materiaal in de combobox. Kolom C is verborgen.

Hou er wel rekening mee dat ik op Blad PE een extra rij heb ingevoegd bovenaan en 2 rijen omgewisseld heb zodat de layout exact is als de beide andere werkbladen.

Om dit te doen moest ik echter de formules omzetten in waarden dus die moet je even terugzetten.

BertP_Drukverlies berekening GAS_Sheetformula.xlsx

Hoe gaan deze iets kortere formules ?

BertP_Drukverlies berekening GAS_3sheets.xlsx