Solved: opmerking ophalen uit werkblad

[Ger]

Wie kan mij helpen? Ik krijg iedere maand een spreadsheet met gegevens. Middels opmerkingen geef ik aan wat de oorzaak is van bepaalde gegevens. Het spreadsheet dat ik iedere maand krijg geeft de cijfers weer van de lopende maand maar ook de verstreken maanden. Hoe krijg ik de opmerkingen die ik in de voorgaande maanden aan cijfers heb gehangen overgehaald naar het laatste spreadsheet.

In de bijlage vind je een voorbeeld. In test jan zijn enkele cijfers middels een opmerking toegelicht. In test feb zijn de cijfers van test jan zichtbaar en de nieuwe cijfers over februari. Hoe krijg ik de opmerkingen van test jan in test feb bij de cijfertjes?

Bedankt alvast voor de hulp.


Ger

[Ger]

Met de nodige hulp van anderen is het gelukt. Voor de geinteresseerde:


Sub OpmerkingenKopieeren()
Sheets("tm").Select
Range("A2").Activate
'On Error GoTo FoutAfh
Do Until IsEmpty(ActiveCell)
zkwrd = ActiveCell
Range(ActiveCell.Offset(0, 6), ActiveCell.Offset(0, 32)).Copy
Sheets("NSR").Select
Columns("A:A").Find(zkwrd, LookIn:=xlValues).Activate
Range(ActiveCell.Offset(0, 6), ActiveCell.Offset(0, 32)).PasteSpecial xlPasteComments
Sheets("tm").Select
ActiveCell.Offset(1, 0).Activate
Loop
Application.CutCopyMode = False
Range("A2").Activate
Exit Sub
FoutAfh:
Sheets("tm").Select
Application.CutCopyMode = False
MsgBox "Op blad NSR ontbreekt de sleutel: " & zkwrd
End Sub

[does84]

Dank je wel!!!

Die kan ik ook goed gebruiken!

[sunniva]

Perdón. He querido decir "formulario en tiempo de EJECUCIÓN"
Busco el botón para editar el post "Edit" pero por más que lo busco, no aparece.

[Ger]

as you can see on the flags it is dutch.

Ger

[Matt619]

Hoe krijg ik de opmerkingen van test jan in test feb bij de cijfertjes? : pray2:

[Ger]

Matt619,

wat is Uw vraag?

Ger

[Zenith88]

This is my first opportunity to visit this website.I want to show my admiration for your generosity in support of people that should have assistance with your question.

[ashleyrobbin]

Support you