🚀 go-pugleaf

Patrick
Geef volgende kode in (In de Worksheet Tab van Blad1)

Dim CelInhoud as String

Private Sub Worksheet_SelectionChange(ByVal Target as Range)
   CelInhoud = ActiveCell.Value
   Sheets("Blad2").Activate
   Do until Activecell = ""
        Activecell.offset(1,0).Select
   Loop
   Activecell.Formula = CelInhoud
   Sheets("Blad1").Activate
End Sub

PS In Blad2  Selecteer cel A1
      In Blad1  Telkens als u een cel selecteert wordt de waarde in Blad2
weggeschreven
Is het dat wat je verlangt?
Groeten
Paul

Patrick <pds@mail.be> wrote in message
news:W7Zt6.20078$tk.2047088@afrodite.telenet-ops.be...
> Hallo,
>
> Even een vraagje voor de specialisten.
> Hoe kan ik een macro maken waardoor ik een willekeurige cel met gegevens
> aanduid en deze in bv. een ander blad de gegevens zet in volgorde.
> Misschien even verduidelijken met een voorbeeld:
> blad1: cel C14 selecteren en moet deze in blad 2 op A1 komen.
> blad1: cel B4 selecteren en komt deze in blad 2 automatisch in A2.
> blad1: cel G19 selecteren en komt deze in blad 2 automatisch in A3
> enz....
>
> Eigenlijk moet de macro de gegevens die men selecteert in blad1, plaatsen
> in de eerst vrij zijnde cel van blad2 ongeacht de selectie in blad1.
>
> Is dit te realiseren in een excel macro ? (misschien programmeren in VB
van
> excel)
>
> Kan er iemand mij uit dit probleem helpen ?
>
> Met dank, Patrick
>
>
>
>
>
>