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

verwijzingen doorvoeren met telkens een lege rij er tussen

Status
Niet open voor verdere reacties.

harrybrinkman

Gebruiker
Lid geworden
7 nov 2019
Berichten
117
Besturingssysteem
Windows 11 home
Office versie
Ms Office 365
Toppers,

Ik heb artikelnummers staan in cellen A3 t/m A400, nu wil ik op een ander blad verwijzen naar dat lijstje maar dat telkens met een lege rij ertussen. Nu moet ik handmatig al die linkjes maken want als ik =A3 invoer op een nader blad en sleep dat naar beneden dan staat er uiteraard =A4 Maar ik wil juist dat ie dat pas 1 rij verder naar beneden doet, Zoals:
Blad1 A3 is Blad 2 A3
Blad1 A4 is Blad 2 A5
Blad1 A5 is Blad 2 A7
Blad1 A6 is Blad 2 A9 etc.etc.

weet iemand raad behalve het handmatig intikken :(

Alvast bedank,

Mvrgr Harry
 
met een voorbeeld te plaatsen kan er veel opgelost worden.
 
voorbeeld uploaden

Helaas staat de beveiliging van ons bedrijfsnetwerk geen upload van bestanden buiten het bedrijfsnetwerk toe.
 
toch een voorbeeld

EmielDS,

Niet helemaal, Ik heb op een prive pc even een voorbeeldje gemaakt, mogelijk dat je nu snapt wat ik bedoel
 

Bijlagen

of met een formule
Code:
=ALS(REST(RIJ();2)=1;INDEX(Blad1!$A$1:$A$10;INTEGER(RIJ()/2)+1);"")
 
Allebei bedankt

EmielDS en V&A

Allebei heel erg bedankt, dit is precies wat ik zocht.

mvrgr,
Harry Brinkman
 
Het kan ook met VBA

bv
Code:
Sub VenA()
  ar = Sheets("Blad1").Columns(1).SpecialCells(2)
  ReDim ar1(1 To UBound(ar) * 2, 0)
  For j = 1 To UBound(ar)
    ar1(j * 2 - 1, 0) = ar(j, 1)
  Next j
  Sheets("Blad2").Cells(1).Resize(UBound(ar1)) = ar1
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan