• 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.

loop vba

Status
Niet open voor verdere reacties.

don42

Gebruiker
Lid geworden
25 apr 2014
Berichten
800
beste allemaal wie kan mij helpen met de volgende code?
Code:
Dim i As Integer
For i = 3 To 56
Data = [xlookup([COLOR="#FF0000"]d3[/COLOR],Sittard!$M$126:$M$141,Sittard!$N$126:$U$141)]
Cells(i, 5).Resize(, 8) = Data
Next i
het is de bedoeling dat er gelezen word in d3, d4, d5 enz (56x)

bvd
Don
 
Wijzig d3 eens in: Range("D" & i)
Of: Cells(i, 4)
 
Laatst bewerkt:
beide had ik al geprobeerd
geeft in alle cellen #naam?
 
Heb je wel een Excel versie die XLOOKUP ondersteund?
 
zeker heb 365 abonnement
Met:
Code:
Dim i As Integer
For i = 3 To 56
Data = [xlookup(d3,Sittard!$M$126:$M$141,Sittard!$N$126:$U$141)]
Cells(i, 5).Resize(, 8) = Data
Next i
krijg ik 56 gelijke regels
 
Laatst bewerkt:
Wat wil je ermee bereiken? En waarom geen voorbeeldbestand?

Van 3 tot 56 zal geen 56 gelijke regels opleveren.
 
Laatst bewerkt:
eigenlijk zoek ik dit:

Code:
Data = [xlookup(d3,Sittard!$M$126:$M$141,Sittard!$N$126:$U$141)]
Range("e3").Resize(, 8) = Data
Data = [xlookup(d4,Sittard!$M$126:$M$141,Sittard!$N$126:$U$141)]
Range("e4").Resize(, 8) = Data
Data = [xlookup(d5,Sittard!$M$126:$M$141,Sittard!$N$126:$U$141)]
Range("e5").Resize(, 8) = Data
enz enz 56 x
 
Gebruik VBA in plaats van Excelformules.
 
Ben er uit,

Code:
Dim i As Integer
For i = 3 To 56
Data = Application.WorksheetFunction.XLookup(Range("d" & i), Sheets("Sittard").Range("M126:M141"), Sheets("Sittard").Range("$N$126:$U$141"))
Range("e" & i).Resize(, 8) = Data
Next i

Dit werkt
bedankt voor het meedenken
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan