• 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
95
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.
 
zoiets?
 

Bijlagen

  • cel overslaan.xlsm
    17,4 KB · Weergaven: 25
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

  • doorvoeren met telkens 1 lege rij.xlsx
    11,1 KB · Weergaven: 19
'k Had het verkeerd begrepen. zo dan.
 

Bijlagen

  • doorvoeren met telkens 1 lege rij.xlsm
    22,2 KB · Weergaven: 19
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