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

Waarde overnemen op blad 2

Status
Niet open voor verdere reacties.
M

marcel31281

Gebruiker
Lid geworden
30 okt 2015
Berichten
391
Beste forumleden,

Ik zou graag dat als ik op blad 1 een waarde selecteer, deze ook bij serienummer op blad 2 komt te staan
En dus iedere keer als ik van serienummer wissel deze op blad 2 automatisch mee verandert

Alvast bedankt voor het meedenken

Bekijk bijlage TEST FILE.xlsx
 
Met onderstaande code in bladmodule blad1.
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Columns(1)) Is Nothing Then
  Sheets("blad2").Range("c3:c4") = Application.Transpose(Target.Resize(, 2))
 End If
End Sub
 
Tuurlijk wel.

Selecteer een cel in de eerste kolom van de draaitabel en druk F9.
Ga naar blad2 en zie het resulaat.

Het bestand bevat geen macro's maar moet wel als zodanig worden opgeslagen.
 

Bijlagen

  • TEST FILE.xlsm
    12,3 KB · Weergaven: 33
Het bestand bevat wel degelijk een macro. Dat het een verstopte Excel4macro is, is dan weer wat anders.
 
Laatst bewerkt:
HSV zei:
De vraag was @VenA????
Klik om te vergroten...

Dat was dom van mij:eek: , ik had wat duidelijker moeten zijn... excuus

Ben bezig om een excel file met macros te laten werken op mijn tablet, echter lijkt het een onmogelijke missie te worden
 
Dat het voor een tablet is wist ik niet.

In principe is het een formule, maar valt onder het oude Excel4Macro van vroeger.
Dat zal niet werken op je tablet.
 
Waarom maak je geen validatielijstje in blad2; met vert.zoeken haal je het tweede gegeven op?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan