next empty cell

[kevin lazell]

hi guys/gals
i have the following line of code.

sheets("sheet3").range("t"&rows.count).end(xlup).offset(1,0)=range("f12")

i have messed around with it but cant get it to work, basically what i am after is
column t is empty, the first time the code runs i want the value of f12 to go to cell t1
the next time it runs the value of f12 should go to cell t2 then t3 etc continuing to t10.
the line of code is in sheets 5 through to sheet 24 and i select any 10 of those 20 sheets
at random any help would be appreciated
thanks
kev

 

[Colin Legg]

Hi Kev,

Something like this should do the trick for you...

Sub foo()
 
    With Worksheets("Sheet3")
        If IsEmpty(.Range("T1")) Then
            .Range("T1").Value = Range("F12").Value
        Else
            .Range("T" & .Rows.Count).End(xlUp).Offset(1, 0).Value = Range("F12").Value
        End If
    End With
    
End Sub

 

[kevin lazell]

hi colin
thank you very much for your response
your code worked very well
thanks again
kev