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.
Maar eens even een leesbril kopen! En zelf even nadenken! De oplossingen staan er. Als je zelf niets doet. Of totaal geen notie hebt van wat je aan het doen bent, en telkens de vraag wijzigt, dan ben je hier helaas verkeerd.
Weer twee bijlagen en de code niet tussen tags. Dan houdt het echt wel op. Succes verder.
Sub test()
frow = Application.Match(16, Sheets("Steen1").Columns(1), 0) 'zoeken op welke rij 16 staat
frow2 = Application.Match(31, Sheets("Steen1").Columns(1), 0) 'zoeken op welke rij 31 staat
nrows = (frow2 - frow) + 1 'aantal rijen tussen 16 en 31, beide waarden inbegrepen
Sheets("Steen3").Cells(1).Resize(nrows, 12) = Sheets("Steen1").Range("A" & frow & ":" & "A" & frow2).Resize(, 12).Value
End Sub
Code:Sub test() frow = Application.Match(16, Sheets("Steen1").Columns(1), 0) 'zoeken op welke rij 16 staat frow2 = Application.Match(31, Sheets("Steen1").Columns(1), 0) 'zoeken op welke rij 31 staat nrows = (frow2 - frow) + 1 'aantal rijen tussen 16 en 31, beide waarden inbegrepen Sheets("Steen3").Cells(1).Resize(nrows, 12) = Sheets("Steen1").Range("A" & frow & ":" & "A" & frow2).Resize(, 12).Value End Sub
PS.:
Lees ook eens even deze link door, zodat je begrijpt waar de reactie van VenA vandaan komt (misschien een iets te sterke reactie , maar toch)
http://www.helpmij.nl/forum/showthr...-de-helpers-in-deze-sectie-van-dienst-te-zijn
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.