Nader
01-21-2008, 10:04 AM
First code:
This code is to print the data successively
RowCount = 6
Do Until IsEmpty(Cells(RowCount, 4))
RowCount = RowCount + 1
Loop
Cells(RowCount, 4) = TextBox1.Text
Second code:
I tried this code to delet the data successively, starting from the last data I inserted from the previous code
it menas if I inserted from the first code this data successively George > john > Tom.
the second code will delet starting from the Tom > John > george
RowCount = 'start from the last cell including value(not empty)
Do Until IsNull(Cells(RowCount, 4))
RowCount = RowCount - 1
Loop
Cells(RowCount, 4).Value = "" ' to delet the
But it didn't success with me may you help
http://www.xtremevbtalk.com/x_images/images/misc/progress.gif
This code is to print the data successively
RowCount = 6
Do Until IsEmpty(Cells(RowCount, 4))
RowCount = RowCount + 1
Loop
Cells(RowCount, 4) = TextBox1.Text
Second code:
I tried this code to delet the data successively, starting from the last data I inserted from the previous code
it menas if I inserted from the first code this data successively George > john > Tom.
the second code will delet starting from the Tom > John > george
RowCount = 'start from the last cell including value(not empty)
Do Until IsNull(Cells(RowCount, 4))
RowCount = RowCount - 1
Loop
Cells(RowCount, 4).Value = "" ' to delet the
But it didn't success with me may you help
http://www.xtremevbtalk.com/x_images/images/misc/progress.gif