looking for the empty cell

Posted to microsoft.public.excel.programming

evgny[_2_] evgny[_2_] is offline

external usenet poster

Posts: 28

looking for the empty cell

You can try this.

Private Sub TextBox1_Change()
If TextBox1 < "" Then

Dim colA As Double
colA = Cells(Rows.Count, "A").End(xlUp).Row + 1

ActiveSheet.Range("A" & colA).Value = TextBox1.Value
TextBox1 = ""
End If
End Sub

Regards
Yngve

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
When is a cell empty and how do I empty it.	C Brandt	Excel Discussion (Misc queries)	5	August 13th 07 05:37 PM
Leaving an empty cell empty	GRL	Excel Discussion (Misc queries)	4	April 22nd 06 05:47 PM
why a reference to an empty cell is not considered empty	Nicoscot	Excel Discussion (Misc queries)	10	March 10th 06 05:36 AM
Empty cell and a the empty String	JE McGimpsey	Excel Programming	0	September 13th 04 04:12 PM
VBA to copy to empty cell directly below a cell when analogous cells in different column have same value as each other?	Steven Rosenberg	Excel Programming	0	August 5th 03 06:10 AM

All times are GMT +1. The time now is 08:35 AM.

Menu

About Us