Copy value cells between sheets to update

Hi vietdieu,

What is the identifying factor basis which the values will move from Draft sheet to Draft Input sheet or is it always going to be the fixed reference as you have mentioned in draft sheet e.g. To E4 , To J4 etc.. ?

Regards,
DILIPandey

<click on below 'star' if this helps>

@dilipadey,
I guess that Draft sheet like an input form with Save Button which tranfer data to corresponding cells in Data Input sheet .
Each time confirm by button pressed, new record set is produced in next row of Data Input for next product (product2)
The only choice in my opinion is VBA.

Ok. So reference would be fixed and new data will keep on appending on the other sheet.

Yes only solution would be vba.

Reards,
DILIPandey

<click on below star if this helps>

As I'm total new to VBA so I tried to Record a macro that copy all the cell/range into the other sheet. Now for example, I copy the C7 from the Draft, instead of copying to E3 I will copy to the last row that have text, this is can be done by using COUNTA the Col C that input new product. So how can I modify the line Range("E3").Select
and the same with G3 and J3.

Please give me some help here,

Tks

Please Login or Register  to view this content.

@vietdieu
to move to cell (B4) next row of a last non-blank cell of B coulmn (B3) we use:

PHP Code: 

Range("B65000").Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Selection.Offset(1).Select 


The following code will produce a new record for new product at next row:

PHP Code: 

Sub CopyValue()
    Sheets("Draft").Select
    Range("C7").Select
    Selection.Copy
    Sheets("Data Input").Select
    Range("E2100").Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    Selection.Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  
    Sheets("Draft").Select
    Range("e10:f10").Select
    Selection.Copy
    Sheets("Data Input").Select
    Range("g2100").Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    Selection.Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("Draft").Select
    Range("e3:f3").Select
    Selection.Copy
    Sheets("Data Input").Select
    Range("j2100").Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    Selection.Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End Sub 


This code is recorded from Macro, without edition.