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.
Plaats svp - een deel van - het importbestand.
Hoe kaler hoe beter.
Sub tst()
j = 1
With Sheets("import")
Do
For jj = 1 To .UsedRange.Rows.Count - j
If WorksheetFunction.Sum(.Cells(j, 3).Resize(jj)) > 990 Then Exit For
Next
sq = .Cells(j, 3).Offset(, -2).Resize(jj, 5)
Sheets.Add
Sheets(1).Cells(1, 1).Resize(UBound(sq), UBound(sq, 2)) = sq
j = j + jj
Loop Until j > .UsedRange.Rows.Count
End With
End Sub
g = (ldatum - pdatum)
If WorksheetFunction.Sum(.Cells(j, 5).Resize(jj)) > 990 Or g > 6 Then Exit For
Next
sq = .Cells(j, 4).Offset(, -3).Resize(jj, 5)
[code]
Dit gaat niet goed. zodra ik "or g > 6" weghaal werkt het goed.
Wat ik zou willen is dat de nieuwe sheet wordt aangemaakt wanneer het puntenaantal boven de 990 komt OF wanneer g de waarde van 6 haalt.
Ik verwacht dat er iets met .Resize(jj) gedaan moet worden, maar ik kom er niet uit.
Tips?
Waar staat
voor ? Wat is de inhoud van deze variabelen ?Code:g = (ldatum - pdatum)
Waar komt datum1 vandaag en waar komt datum2 vandaan ?
Dim f as date
f = InputBox("Met welke datum moet de blokindeling beginnen? Typ de notatie als d-mm-jjjj", "Datum")
j = 4
For jj = 1 To .UsedRange.Rows.Count - j
If WorksheetFunction.Sum(.Cells(j, 8).Resize(jj)) > 990 Or ((Sheets("Productielijst").Cells(j, 4).Value) - f) > 6 Then Exit For
Next
'Maak selectie
sq = .Cells(j, 8).Offset(, -7).Resize(jj, 8)
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.