Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to copy data to next available row
To all,
I have the following code that is working well and copies information from 1 sheet to another, but what I want to change it slightly so that if the value in DBWks.Cells(MLRow, 3) matches that in NewFormWks.Cells(7, 4) a message box pops up and stats that the record is duplicated. if this is the case the sub should be exited. Can anyone help?? MLRow = 4 'MasterList Start Row Do Until ThisWorkbook.Sheets("Data Base").Cells(MLRow, 3) = "" If DBWks.Cells(MLRow, 3).Value = NewFormWks.Cells(7, 4).Value Then DBWks.Cells(MLRow, 2).Value = NewFormWks.Cells(5, 7).Value 'Division DBWks.Cells(MLRow, 3).Value = NewFormWks.Cells(7, 4).Value 'Contract No DBWks.Cells(MLRow, 4).Value = NewFormWks.Cells(7, 7).Value 'Branch MLRow = 5 Exit Do End If MLRow = MLRow + 1 If DBWks.Cells(MLRow, 3).Value = "" Then DBWks.Cells(MLRow, 2).Value = NewFormWks.Cells(5, 7).Value 'Division DBWks.Cells(MLRow, 3).Value = NewFormWks.Cells(7, 4).Value 'Contract No DBWks.Cells(MLRow, 4).Value = NewFormWks.Cells(7, 7).Value 'Branch End If Loop |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to copy data when data is detected in another column(s). | Excel Worksheet Functions | |||
Cyclic Data Macro Q | Free Copy Macro | Excel Programming | |||
Copy data in a macro. | Excel Discussion (Misc queries) | |||
Macro to copy data | Excel Programming | |||
Macro to copy data | Excel Programming |