clear the file now available msgbox

J

Jive

The code so far is as below;

Sub Update_To_DBase()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
DesignManager = ActiveWorkbook.Name
Do
Set wb = Workbooks.Open(Filename:="J:\ProSys\DataBase\Projects
Master.xls", Password:="*****")
If wb.ReadOnly Then Application.Wait Now + TimeSerial(0, 0, 1)
Loop Until Not wb.ReadOnly
ProjectsMaster = ActiveWorkbook.Name
Windows(DesignManager).Activate
For i = 1 To 1000
If Cells(i, 12) = True Then
ProjectID = Cells(i, 1).Value
DMCAD = Cells(i, 5).Value
DMType = Cells(i, 13).Value
DMTarget = Cells(i, 8).Value
DMNotes = Cells(i, 10).Value
Windows(ProjectsMaster).Activate
Range("A1").Activate
Cells.Find(What:=ProjectID, After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
DBaseRow = ActiveCell.Row
Cells(DBaseRow, 5) = DMCAD
Cells(DBaseRow, 6) = DMType
Cells(DBaseRow, 8) = DMTarget
Cells(DBaseRow, 11) = DMNotes
Windows(DesignManager).Activate
End If
Next i
Windows(ProjectsMaster).Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows(DesignManager).Activate
Update_From_DBase
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top