Shortening an equation Help

[radar_jynx]

Hi i was wondering if its possible turn this equation into an array or some kind of simpler form.

t = Time()

If [F92,E93] = "" Then
[F92,E93] = Str(t)
ElseIf [F93] = "" Then
[G92,F93] = Str(t)
ElseIf [G93] = "" Then
[H92,G93] = Str(t)
ElseIf [H93] = "" Then
[I92,H93] = Str(t)
ElseIf [I93] = "" Then
[J92,I93] = Str(t)
ElseIf [J93] = "" Then
[J93] = Str(t)

 

[Andrew Poulsom]

You should really stick with your original thread:

http://www.mrexcel.com/forum/showthread.php?p=1872912#post1872912

Before attempting to simplify your code, what do you think:

If [F92,E93] = "" Then

is testing for null? I think you will find that it is only F92, not either or both.

 

[radar_jynx]

Sorry about that i wont do it again.

yeah "" is testing for null

and your rite i only need

if [E93] = "" then

for the first line , but is there a way i can make the letters incline in 3 particular ranges.

 

[Andrew Poulsom]

You can use the Cells property in a loop like this:

For c = 5 to 10
    With Cells(93, c)
        If .Value = "" Then .Value = Str(t)
        Exit For
    End With
Next c

That fills the first blank cell and stops.

 

[radar_jynx]

Thanks i figured it out