02. oktober 2012 - 08:45
Der er
1 løsning
Hjælp til simpel VBA-opgave
Hej - jeg vil gerne kopiere en række med data fra et sheet og indsætte i bunden af et andet sheet, hvor antallet af række skal kunne vokse.
I kolonne A (ud for den række jeg kopierer) vil jeg have datoen for hvornår rækken er kopieret. Jeg har lavet følgende forslag (der ikke duer) - hvem kan hjælpe?
Sub Kopier_til_tabel()
Sheets("Åbningsbalance").Select
Range("A100000").Select
Range("Selection.End (xlUp)").Select = Date
Sheets("Åbningsbalance_Stage1").Select
Range("B12:Q12").Select
Selection.Copy
Sheets("Åbningsbalance").Select
Range("B10000").Select
Selection.End (xlUp)
Selection.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub
02. oktober 2012 - 09:12
#1
Arrh - brugte optageren og kom frem til dette, som fungerer fint:
Sub hyhy()
'
' hyhy Makro
' Makro indspillet 02-10-2012 af Mr. T
'
'
Sheets("Åbningsbalance_Stage1").Select
Range("B12").Select
Selection.End(xlToRight).Select
Selection.End(xlToLeft).Select
Range("B12").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("ÅbningsBalance").Select
Range("B6").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.End(xlToLeft).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=now()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
