Ga naar inhoud

Aanbevolen berichten

Geplaatst:
1 uur terug, dotchiejack zei:

Een lijntje code in the Thisworkbook Sectie


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sheets("Herinnering").[A2:B10] = Sheets("factuur").[A2:B10].Value
End Sub

Range aanpassen, deze range is volgens uw voorbeeld.

Verander iets in het tabblad factuur en ga naar tabblad herinnering.

voorwaarden overnemen.xlsm 17 kB · 4 downloads

Range aangepast aan behoefte, echter werden de gewijzigde waarde niet over genomen.
 

Geplaatst:
Quote

Andersom is niet noodzakelijk maar zou wel leuk zijn.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
        Case "Herinnering"
            Sh.[A2:B10] = Sheets("factuur").[A2:B10].Value
        Case "factuur"
            Sh.[A2:B10] = Sheets("Herinnering").[A2:B10].Value
    End Select
End Sub

 

Geplaatst:
2 uren geleden, bakerman zei:

Het werkt wel maar je moet EERST werkblad factuur volledig invullen vooraleer je werkblad Herinnering selecteert.

 

Daarna werkt het tweewegs.

Macro's inschakelen vraagt hij bij openen.

Heb het toegepast op mijn document, daar werkte het pas nadat ik opgeslagen, gesloten en weer geopend had.

Bedankt voor jullie hulp.

Gast
Dit topic is nu gesloten voor nieuwe reacties.
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.