Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste Helpmij'ers,
Ik heb een code die informatie overbrengt (kopieert) naar een ander werkblad, vervolgens moet deze vanaf de naastliggende cellen een berekening maken. Dat werkt alleen wanneer ik op de betreffende regel bijvoorbeeld een klik geef, echter dient dit automatisch te gaan nadat de gegevens gekopieerd zijn.
De formule om de gegevens te transporteren (kopiëren) is:
De formule in het betreffende werkblad (Afschrijving) is:
Ik zoek dus een vervanger voor:
Het is dus de bedoeling dat de code wordt geactiveerd nadat de gegevens zijn gekopieerd.
Een reactie zie ik met veel belangstelling tegemoet.
Robert
Ik heb een code die informatie overbrengt (kopieert) naar een ander werkblad, vervolgens moet deze vanaf de naastliggende cellen een berekening maken. Dat werkt alleen wanneer ik op de betreffende regel bijvoorbeeld een klik geef, echter dient dit automatisch te gaan nadat de gegevens gekopieerd zijn.
De formule om de gegevens te transporteren (kopiëren) is:
Code:
Sheets("Afschrijving").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 4).Value = Array _
(Range("C" & ActiveCell.Row), Range("D" & ActiveCell.Row), Range("F" & ActiveCell.Row), Range("M" & ActiveCell.Row))
Application.Goto Sheets("Afschrijving").[a1].End(xlDown).Offset(0, 3) 'plaats cursor
De formule in het betreffende werkblad (Afschrijving) is:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("D" & Target.Row) <> "" And Range("E" & Target.Row) = "" And Range("C" & Target.Row) <> "Gebouwen" Then Range("E" & Target.Row) = Range("D" & Target.Row) * 0.1
If Range("D" & Target.Row) <> "" And Range("G" & Target.Row) = "" And Range("C" & Target.Row) <> "Gebouwen" Then Range("G" & Target.Row) = 5
Application.EnableEvents = True
End Sub
Ik zoek dus een vervanger voor:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Het is dus de bedoeling dat de code wordt geactiveerd nadat de gegevens zijn gekopieerd.
Een reactie zie ik met veel belangstelling tegemoet.
Robert