Hello. I am trying to make a simple function that will automatically fill in
data if a few Cells are not blank. I'd very much like to do this with a
function but if need be I'll struggle with working with Sub Code. I am
trying to keep this very readable in Microsoft Excel and I'd really only like
to pass in two variables if it is posssable. My code thus far (which doesn't
work because I am guessing Application.Indirect doesn't work) is:

Function AutoFill(RowNum, TrueFill)
If (Application.Indirect("Y" & RowNum)) < "" Then
AutoFill = TrueFill
Else
If (Application.indirect("B" & RowNum) = "") And
(Application.indirect("B" & (RowNum + 1)) = "") Then
AutoFill = "---"
Else
AutoFill = ""
End If
End If
End Function

Where RowNum is the Row Number without the column letter and TrueFill is
what will be filled into the cell if the certain cells are not blank. I need
the program to check if columns B and Y are filled with something on that row
as well as Column B of the next row. If any of you know of some code that
will help me do this I will be very greatful. Thank you for your time.

Mark

If you are trying to check the value in a cell then instead of :
Application.Indirect("Y" & RowNum)
try:
Range("Y"& RowNun).Value
--
Gary's Student


"Abode" wrote:

Hello. I am trying to make a simple function that will automatically fill in
data if a few Cells are not blank. I'd very much like to do this with a
function but if need be I'll struggle with working with Sub Code. I am
trying to keep this very readable in Microsoft Excel and I'd really only like
to pass in two variables if it is posssable. My code thus far (which doesn't
work because I am guessing Application.Indirect doesn't work) is:

Function AutoFill(RowNum, TrueFill)
If (Application.Indirect("Y" & RowNum)) < "" Then
AutoFill = TrueFill
Else
If (Application.indirect("B" & RowNum) = "") And
(Application.indirect("B" & (RowNum + 1)) = "") Then
AutoFill = "---"
Else
AutoFill = ""
End If
End If
End Function

Where RowNum is the Row Number without the column letter and TrueFill is
what will be filled into the cell if the certain cells are not blank. I need
the program to check if columns B and Y are filled with something on that row
as well as Column B of the next row. If any of you know of some code that
will help me do this I will be very greatful. Thank you for your time.

Mark

Thank you very much. That worked perfectly. Plus it led me to another
update in the code I probably would have asked help for anyway.

"Gary''s Student" wrote:

If you are trying to check the value in a cell then instead of :
Application.Indirect("Y" & RowNum)
try:
Range("Y"& RowNun).Value
--
Gary's Student


"Abode" wrote:

Hello. I am trying to make a simple function that will automatically fill in
data if a few Cells are not blank. I'd very much like to do this with a
function but if need be I'll struggle with working with Sub Code. I am
trying to keep this very readable in Microsoft Excel and I'd really only like
to pass in two variables if it is posssable. My code thus far (which doesn't
work because I am guessing Application.Indirect doesn't work) is:

Function AutoFill(RowNum, TrueFill)
If (Application.Indirect("Y" & RowNum)) < "" Then
AutoFill = TrueFill
Else
If (Application.indirect("B" & RowNum) = "") And
(Application.indirect("B" & (RowNum + 1)) = "") Then
AutoFill = "---"
Else
AutoFill = ""
End If
End If
End Function

Where RowNum is the Row Number without the column letter and TrueFill is
what will be filled into the cell if the certain cells are not blank. I need
the program to check if columns B and Y are filled with something on that row
as well as Column B of the next row. If any of you know of some code that
will help me do this I will be very greatful. Thank you for your time.

Mark

You are very welcome.
--
Gary's Student


"Abode" wrote:

Thank you very much. That worked perfectly. Plus it led me to another
update in the code I probably would have asked help for anyway.

"Gary''s Student" wrote:

If you are trying to check the value in a cell then instead of :
Application.Indirect("Y" & RowNum)
try:
Range("Y"& RowNun).Value
--
Gary's Student


"Abode" wrote:

Hello. I am trying to make a simple function that will automatically fill in
data if a few Cells are not blank. I'd very much like to do this with a
function but if need be I'll struggle with working with Sub Code. I am
trying to keep this very readable in Microsoft Excel and I'd really only like
to pass in two variables if it is posssable. My code thus far (which doesn't
work because I am guessing Application.Indirect doesn't work) is:

Function AutoFill(RowNum, TrueFill)
If (Application.Indirect("Y" & RowNum)) < "" Then
AutoFill = TrueFill
Else
If (Application.indirect("B" & RowNum) = "") And
(Application.indirect("B" & (RowNum + 1)) = "") Then
AutoFill = "---"
Else
AutoFill = ""
End If
End If
End Function

Where RowNum is the Row Number without the column letter and TrueFill is
what will be filled into the cell if the certain cells are not blank. I need
the program to check if columns B and Y are filled with something on that row
as well as Column B of the next row. If any of you know of some code that
will help me do this I will be very greatful. Thank you for your time.

Mark