DNS SHANGHAI
Board Regular
- Joined
- Mar 5, 2004
- Messages
- 60
SLIPPERS TEST 2 W PASTEVALUE.xls | ||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | |||
2 | MODEL | DESCRIPTION | TYPE | SIZES | COLORS | PACKPERCTN | CTNSIZE | CTN | WEIGHT | |||||||||||||||||
3 | CODE | NUMBER | OFMODEL | 1 | 2 | 3 | 4 | 5 | 6 | 1 | 2 | 3 | 4 | 5 | 6 | PRS | DZN | L | B | H | CBM | NW | GW | |||
4 | 1111 | 60 | 5 | 0.23 | 0.23 | 0.23 | 0.01 | 12 | 14 | |||||||||||||||||
5 | 2222 | 0 | ||||||||||||||||||||||||
6 | 3333 | 0 | ||||||||||||||||||||||||
7 | 444 | 0 | ||||||||||||||||||||||||
8 | 5555 | 0 | ||||||||||||||||||||||||
9 | 6666 | 0 | ||||||||||||||||||||||||
10 | 777 | 0 | ||||||||||||||||||||||||
11 | 0 | |||||||||||||||||||||||||
DATABASE |
Hi Masters of the Board,
I have this problem.
I have the code from Dan to copy from DATABASE TO WORKSHEET.
from B:Y to worksheet Col A:X
Then Copy paste special Database Col Z:AE to WORKSHEET Col Y:AD.
The problem is that I need to paste only value for the Copy paste special and not the formula.
My code is pasted below.
It tells me that it is error whenever I typed something in Database cheet.
Please help.
Thanks
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then Exit Sub
If Target.Column<> 32 Then Exit Sub
If Target.Column = 32 Then
MyRow = ActiveCell.Row
Range("B" & MyRow & ":Y" & MyRow).Copy Sheets("WORKSHEET").Range("A65536").
Range("z" & MyRow & ":AE" & MyRow).Copy: PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Copy Sheets("WORKSHEET").Range(Z65536"). End(xlUp).Offset(1)
End If
End Sub