Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sylvester, megagoed, bedankt!
Alleen selecties 143 t/m 193 en 695 t/m 734 hebben 19 waardes ipv. 20. Enig idee hoe dit komt?
Ik zal het topic in ieder geval op opgelost zetten.
Als ik later eventueel nog wat nieuwe finetuning heb, zal ik dat hieronder plaatsen of in een nieuw topic?
Cow ook nog bedankt voor alle effort!
Ben
Sub M_snb()
if [not(isref(nieuw!A1))] then sheets.add.name="nieuw" ' eenmalige aanmaak van werkblad 'nieuw"
sn=sheets("huidig").cells(1).currentregion ' inlezen van je baissgegevens
End sub
als je naar de oplossing kijkt, kan daar een stappen plan uit gehaald worden.Als jij het naar (implidiet) gewenste eindtoestand hebt kunnen programmeren, kun jij het waarschijnlijk wel stap voor stap beschrijven.
als iemand zijn gegevens onhandig aangeleverd krijgt, dan pas ik de macro aan.Mij ontgaat de zin van de dubbeling van gegevens in werkblad 'huidig' in kolom A 1n kolommen c t/m g.
Verwijder kolom c t/m g en werk alleen met kolom A.
Sub M_snb()
With Blad1.Cells(1).CurrentRegion.Resize(, 7)
.Sort Blad1.Cells(1, 7), , Blad1.Cells(1, 3), , , Blad1.Cells(1, 5)
y = 1
For j = 1 To .Rows.Count
x = (InStr(c00, Left(Blad1.Cells(j, 7), 5)) = 0 And c00 <> "")
If (Len(c00) = 200 And InStr(c00, Blad1.Cells(j, 7)) = 0) Or j - y = 29 Or x Then
Blad1.Cells(j + x, 8).Resize(, 3) = Array(Mid(c00, 2, 5), j - y + 1 + x, Mid(c00, 2) & Blad1.Cells(j, 7))
Blad1.Range(Blad1.Cells(y, 1), Blad1.Cells(j + x, 7)).Sort Blad1.Cells(y, 3)
c00 = ""
y = j + 1 + x
End If
If InStr(c00, Blad1.Cells(j, 7)) = 0 Then c00 = c00 & "/" & Blad1.Cells(j, 7)
Next
End With
End Sub
Sub M_snb()
MsgBox UBound(Filter(Application.Transpose(Blad1.Cells(1).CurrentRegion.Value), "TKL")+1)
End Sub
Sub M_snb()
With Blad1.Cells(1).CurrentRegion.Resize(, 7)
.Sort Blad1.Cells(1, 7), , Blad1.Cells(1, 3), , , Blad1.Cells(1, 5)
y = 1
For j = 1 To .Rows.Count
If (InStr(c00, Left(Blad1.Cells(j, 7), 5)) = 0 And c00 <> "") Or (Len(c00) = 200 And InStr(c00, Blad1.Cells(j, 7)) = 0) Or (j - y > 30) Then
Blad1.Cells(j - 1, 8).Resize(, 3) = Array(Mid(c00, 2, 5), j - 1 - y - (j - y < 31), Mid(c00, 2) & Blad1.Cells(j, 7))
Application.Range(Blad1.Cells(y, 1), Blad1.Cells(j - 1, 7)).Sort Blad1.Cells(y, 3), , Blad1.Cells(y, 5)
c00 = ""
y = j
End If
If InStr(c00, Blad1.Cells(j, 7)) = 0 Then c00 = c00 & "/" & Blad1.Cells(j, 7)
Next
end with
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.