recall records
 

Hi all.

I use rondebruin`s


VBA:
Sub copy_1_Values_PasteSpecial()
Dim sourceRange As Range
Dim destrange As Range
Dim Lr As Long
Application.ScreenUpdating = False
Lr = LastRow(Sheets("Sheet2")) + 1
Set sourceRange = Sheets("Sheet1").Range("A1:C10")
Set destrange = Sheets("Sheet2").Range("A" & Lr)
sourceRange.Copy
destrange.PasteSpecial xlPasteValues, , False, False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

to put values into multippel worksheets,
her is a part of the mani sheet
Columns C:C go`s to one sheet, 3 first cells in C:C and E:E to next
sheet
columns B:B and D:D are info.
(B:B) (C:C) (DD)
(E:E)
Kunde STX SD100 2
Ordrenr. 4100 SD125 4
Klasse DNV SD150 6
Agg 125/180 SD200 8
Agg 250 SD250/300 10
Agg 355 SD350 20
Agg 500 5 Lengde. 18
Agg Andre TK80 1
LEV.TID 21.04.2006 TK150 2
DEFUSOR 15
LEV.TID 21.08.2006

the quis is what is the best metode to recall an input if I want to do
som changes. ps. Ordrenr. is unike.

Regards fetnis