Opgelost Active cel in macro laten plaatsen in ander tabblad

[RinuS2017]

Beste deskundige leden,

Ik wil uit een actieve cel op eerste tabblad ingevuld hebben in een vaste cel in het tweede tabblad. Dit zou mijn inziens met de bestaande knop in het document moeten lukken. helaas krijg ik dat niet voor elkaar. Zie graag enige hulp tegemoet.

Namen in het document zijn allen fictief (aap, noot, mies etc)

Alvast dank.

Rinus

 

[edmoor]

Doe het eens zo:

If ActiveCell.Row > 1 And ActiveCell.Column = 1 Then
    If ActiveCell.Value <> "" Then Sheets("Bon").Range("F2").Value = ActiveCell.Value
End If

 

[RinuS2017]

Beste Edmoor, dank voor het snelle antwoord. Helaas werkt de code niet.
De code ziet er als volgt uit:

Sub naarbon()
'
' naarbon Macro
' gaat naar bon op bald 4, nummer
' Range("R1").Value = ActiveCell.Address
'
' Sneltoets: Ctrl+Shift+B
'
Sheets("Bon").Select
Range("F2:K2").Select
End Sub

Sub naartabel()
'
' naartabel Macro
'
' Sneltoets: Ctrl+Shift+T
'
Sheets("Blad3").Select
Range("A2").Select
End Sub

Sub naarcel()
'
If ActiveCell.Row > 1 And ActiveCell.Column = 1 Then
If ActiveCell.Value <> "" Then Sheets("Bon").Range("F2").Value = ActiveCell.Value
End If

 

[edmoor]

De code die ik plaatste werkt prima.
Gewoon alleen dat achter die Bon knop plaatsen.
Dat is wat je vroeg.

 

[RinuS2017]

Halloa Edmoor,

de volgende code werkt wel,

Sub naarbon()
'
' naarbon Macro
' gaat naar bon op bald 4, nummer
' Range("R1").Value = ActiveCell.Address
'
' Sneltoets: Ctrl+Shift+B
'
If ActiveCell.Row > 1 And ActiveCell.Column = 1 Then
If ActiveCell.Value <> "" Then Sheets("Bon").Range("F2").Value = ActiveCell.Value

End If

Sheets("Bon").Select
Range("F2:K2").Select

End Sub
Sub naartabel()
'
' naartabel Macro
' naar overzicht
'
' Sneltoets: Ctrl+Shift+T
'
Sheets("Blad3").Select
Range("A2").Select
End Sub

Dank voor jouw hulp. Erg blij mee.

groet Rinus