If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Obtain row number of active cell
Hi i am having a problem with the following section of code within the larger
peice below it. DBaseRow = ActiveRow Cells(DBaseRow, 5) = TDMCAD The whole code is suppose to decect specific changes in the "DesignManager" Workbook and update the values in the "ProjectsMaster" Workbook but i am having problems obtaining the row address to use in the cell adresses to paste the values. This will no doubt be a simple answer but i am banging my head on the wall as you read this in frustration. Thanks in advance. Application.ScreenUpdating = False Application.DisplayAlerts = False DesignManager = ActiveWorkbook.Name Workbooks.Open Filename:="J:\ProSys\DataBase\Projects Master.xls", 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, 6).Value DMNotes = Cells(i, 10).Value Windows(ProjectsMaster).Activate Cells.Find(What:=ProjectID, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate DBaseRow = ActiveRow Cells(DBaseRow, 5) = DMCAD Cells(DBaseRow, 6) = DMType Cells(DBaseRow, 11) = DMNotes End If Next i |
#2
|
|||
|
|||
Obtain row number of active cell
Maybe
DBaseRow = ActiveCell.Row Cells(DBaseRow, 5) = TDMCAD Mike "Jive" wrote: Hi i am having a problem with the following section of code within the larger peice below it. DBaseRow = ActiveRow Cells(DBaseRow, 5) = TDMCAD The whole code is suppose to decect specific changes in the "DesignManager" Workbook and update the values in the "ProjectsMaster" Workbook but i am having problems obtaining the row address to use in the cell adresses to paste the values. This will no doubt be a simple answer but i am banging my head on the wall as you read this in frustration. Thanks in advance. Application.ScreenUpdating = False Application.DisplayAlerts = False DesignManager = ActiveWorkbook.Name Workbooks.Open Filename:="J:\ProSys\DataBase\Projects Master.xls", 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, 6).Value DMNotes = Cells(i, 10).Value Windows(ProjectsMaster).Activate Cells.Find(What:=ProjectID, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate DBaseRow = ActiveRow Cells(DBaseRow, 5) = DMCAD Cells(DBaseRow, 6) = DMType Cells(DBaseRow, 11) = DMNotes End If Next i |
#3
|
|||
|
|||
Obtain row number of active cell
Thanks for that, i knew it would be simple.
"Mike H" wrote: Maybe DBaseRow = ActiveCell.Row Cells(DBaseRow, 5) = TDMCAD Mike "Jive" wrote: Hi i am having a problem with the following section of code within the larger peice below it. DBaseRow = ActiveRow Cells(DBaseRow, 5) = TDMCAD The whole code is suppose to decect specific changes in the "DesignManager" Workbook and update the values in the "ProjectsMaster" Workbook but i am having problems obtaining the row address to use in the cell adresses to paste the values. This will no doubt be a simple answer but i am banging my head on the wall as you read this in frustration. Thanks in advance. Application.ScreenUpdating = False Application.DisplayAlerts = False DesignManager = ActiveWorkbook.Name Workbooks.Open Filename:="J:\ProSys\DataBase\Projects Master.xls", 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, 6).Value DMNotes = Cells(i, 10).Value Windows(ProjectsMaster).Activate Cells.Find(What:=ProjectID, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate DBaseRow = ActiveRow Cells(DBaseRow, 5) = DMCAD Cells(DBaseRow, 6) = DMType Cells(DBaseRow, 11) = DMNotes End If Next i |
#4
|
|||
|
|||
Obtain row number of active cell
your welcome
"Jive" wrote: Thanks for that, i knew it would be simple. "Mike H" wrote: Maybe DBaseRow = ActiveCell.Row Cells(DBaseRow, 5) = TDMCAD Mike "Jive" wrote: Hi i am having a problem with the following section of code within the larger peice below it. DBaseRow = ActiveRow Cells(DBaseRow, 5) = TDMCAD The whole code is suppose to decect specific changes in the "DesignManager" Workbook and update the values in the "ProjectsMaster" Workbook but i am having problems obtaining the row address to use in the cell adresses to paste the values. This will no doubt be a simple answer but i am banging my head on the wall as you read this in frustration. Thanks in advance. Application.ScreenUpdating = False Application.DisplayAlerts = False DesignManager = ActiveWorkbook.Name Workbooks.Open Filename:="J:\ProSys\DataBase\Projects Master.xls", 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, 6).Value DMNotes = Cells(i, 10).Value Windows(ProjectsMaster).Activate Cells.Find(What:=ProjectID, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate DBaseRow = ActiveRow Cells(DBaseRow, 5) = DMCAD Cells(DBaseRow, 6) = DMType Cells(DBaseRow, 11) = DMNotes End If Next i |
Thread Tools | |
Display Modes | |
|
|