jazznaura
12-18-2007, 02:58 PM
hi all,
just a quick question,
came i change the cell address part of the input box message so it display the name of the range.
thanks
Sub COPYTODATA()
Dim Cell As Range, Source As Range
Dim Response As String
Set Source = Sheets("input").Range("weeknumber, P2, tpnd, J5, P5, K8, C11, I11, C13, description, I13, M13, P13, E23, date, P23, E26, names, shift, C30, F57")
If Application.WorksheetFunction.CountA(Source) < Source.Cells.Count Then
For Each Cell In Source.SpecialCells(xlCellTypeBlanks)
Response = InputBox("Please enter the DATA missing from " & Cell.Address(0, 0))
If StrPtr(Response) = 0 Then Exit Sub
If Response = vbNullString Then COPYTODATA
Cell.Value = Response
Next
End If
Sheets("input").Select
Range("a1").Select
End Sub
just a quick question,
came i change the cell address part of the input box message so it display the name of the range.
thanks
Sub COPYTODATA()
Dim Cell As Range, Source As Range
Dim Response As String
Set Source = Sheets("input").Range("weeknumber, P2, tpnd, J5, P5, K8, C11, I11, C13, description, I13, M13, P13, E23, date, P23, E26, names, shift, C30, F57")
If Application.WorksheetFunction.CountA(Source) < Source.Cells.Count Then
For Each Cell In Source.SpecialCells(xlCellTypeBlanks)
Response = InputBox("Please enter the DATA missing from " & Cell.Address(0, 0))
If StrPtr(Response) = 0 Then Exit Sub
If Response = vbNullString Then COPYTODATA
Cell.Value = Response
Next
End If
Sheets("input").Select
Range("a1").Select
End Sub