waarde plaatsen doormiddel van knop

[mrnico]

Ik heb een vraag ik wil een waarde van 1 cel door middel van het drukken op een knop plaatsen in een andere cel of wel de waarde overschrijven

kan iemand mij hier bij helpen snap redelijk wat van excel maar niks van macro's


Bekijk bijlage kopieren.xlsm

 

[Deadyoullbe]

Hallo mrncio,

Moet je de waarde altijd 2 kolommen naar rechts verplaatsen of wil je de waarde uit cel C3 verplaatsen naar de cel die je op dat moment geselecteerd hebt?

 

[mrnico]

Hallo mrncio,

Moet je de waarde altijd 2 kolommen naar rechts verplaatsen of wil je de waarde uit cel C3 verplaatsen naar de cel die je op dat moment geselecteerd hebt?

Ja altijd 2 kolommen

 

[Deadyoullbe]

Ja altijd 2 kolommen

Dan heb je 3 opties:
selecteer de cel waar je de waarde in wilt hebben staan, en kopieer dan de waarde uit de cel 2 kolommen links.
Sub kopieer()
ActiveCell.Value = ActiveCell.Offset(0, -2)
End Sub

selecteer de cel die je gekopieerd wilt hebben en plak het 2 kolommen naar rechts
Sub kopieer()
ActiveCell.Offset(0, 2).Value = ActiveCell
End Sub

of kopieer waarde uit cel B3 naar cel D3.

Sub kopieer1()
Range("D3").Value = Range("B3")
End Sub

 

[mrnico]

Dan heb je 3 opties:
selecteer de cel waar je de waarde in wilt hebben staan, en kopieer dan de waarde uit de cel 2 kolommen links.
Sub kopieer()
ActiveCell.Value = ActiveCell.Offset(0, -2)
End Sub


de onderste werkt inderdaad maar ik krijg hem alleen voor elkaar met 1 knop als ik meer knoppen wil gebruiken lukt het me niet

Sub kopieer()
Range("g11").Value = Range("e11")
End Sub
Sub kopieer2()
Range("g12").Value = Range("e12")
End Sub
Sub kopieer3()
Range("g13").Value = Range("e13")
End Sub
selecteer de cel die je gekopieerd wilt hebben en plak het 2 kolommen naar rechts
Sub kopieer()
ActiveCell.Offset(0, 2).Value = ActiveCell
End Sub

of kopieer waarde uit cel B3 naar cel D3.

Sub kopieer1()
Range("D3").Value = Range("B3")
End Sub

 

[ExcelAmateur]

Het QUOTEN is niet nodig, als je maar een persoon heb waar je mee communiceerd.
Plaats een voorbeeld, dat zal denk ik duidelijker zijn.

 

[mrnico]

hier het blad waar het over gaat mischien iets makkelijker

Bekijk bijlage vraag.xlsm

 

[ExcelAmateur]

mrnico,

Test dit eens.
Je had de code in het blad gezet in plaats van een module.

 

[mrnico]

bedankt allemaal het is gelukt