M
Matt.
Hi all!
I have a Form ComboBox called "Drop Down 15" on a worksheet called "Daily"
in a workbook called "DailyMaintenancePerformace". The source for the list
is on a worksheet called "Log". The source values are date values, which is
why I'm using a Form object and not the Toolbox object.
I would like to have the user choose a date, and then have various cell
values on the Daily sheet populated by cell values from the corresponding
date from the Log sheet. The code I'm using is attached at the end of this
note.
The error I'm getting is 424 - Object Required. I'm receiving the error on
the MsgBox line. I've done some online searching, but nothing is being
returned that I think is useful.
Any assistance greatly appreciated.
cheers,
Matt.
Sub DropDown15_Change()
MsgBox DailyMaintenancePerformance.xls!("Drop Down 15").Value
Sheets("Log").Select
Selection.Find(What:=DailyMaintenancePerformance.xls!DropDown15.Value, _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
iRow = ActiveCell.Row
iCol = ActiveCell.Column
Sheets("Daily").G9.Value = Cells(iRow, iCol + 1).Value
Sheets("Daily").G10.Value = Cells(iRow, iCol + 2).Value
Sheets("Daily").G11.Value = Cells(iRow, iCol + 3).Value
Sheets("Daily").G12.Value = Cells(iRow, iCol + 4).Value
Sheets("Daily").G15.Value = Cells(iRow, iCol + 5).Value
Sheets("Daily").G16.Value = Cells(iRow, iCol + 6).Value
Sheets("Daily").Select
End Sub
I have a Form ComboBox called "Drop Down 15" on a worksheet called "Daily"
in a workbook called "DailyMaintenancePerformace". The source for the list
is on a worksheet called "Log". The source values are date values, which is
why I'm using a Form object and not the Toolbox object.
I would like to have the user choose a date, and then have various cell
values on the Daily sheet populated by cell values from the corresponding
date from the Log sheet. The code I'm using is attached at the end of this
note.
The error I'm getting is 424 - Object Required. I'm receiving the error on
the MsgBox line. I've done some online searching, but nothing is being
returned that I think is useful.
Any assistance greatly appreciated.
cheers,
Matt.
Sub DropDown15_Change()
MsgBox DailyMaintenancePerformance.xls!("Drop Down 15").Value
Sheets("Log").Select
Selection.Find(What:=DailyMaintenancePerformance.xls!DropDown15.Value, _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
iRow = ActiveCell.Row
iCol = ActiveCell.Column
Sheets("Daily").G9.Value = Cells(iRow, iCol + 1).Value
Sheets("Daily").G10.Value = Cells(iRow, iCol + 2).Value
Sheets("Daily").G11.Value = Cells(iRow, iCol + 3).Value
Sheets("Daily").G12.Value = Cells(iRow, iCol + 4).Value
Sheets("Daily").G15.Value = Cells(iRow, iCol + 5).Value
Sheets("Daily").G16.Value = Cells(iRow, iCol + 6).Value
Sheets("Daily").Select
End Sub