Makro, der kopier og Finder det der er kopierer.
Jeg har lavet en makro, der kopierer der hvor jeg står.Den skal nu gå over i en anden celle. Men makroen anvender den værdi den blev kopieret med første gang. Se rækken Cells.Find.
Sub Find_førværdi()
'
' Find_førværdi Makro
'
' Genvejstast:Ctrl+q
'
Selection.Copy
Windows("Grundark.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
' her skal der stå stå en funktion, der paster den værdi, der lige 'er blevet copy. Men den vælger den oprindelige værdi.
Cells.Find(What:="HVAD SKAL DER STÅ HER", After:=ActiveCell, LookIn _
:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub
Makro, der kopier og slår den værdi op, der er kopieret.