[VBA] Detecting Empty Cell Solved

Question

Hello,

I'm sure it's something really simple but I'm stuck...

I would like to create a loop that counts the number of rows (Excel table) and, when it reaches an empty cell, which indicates the last row, saves the number of rows in a variable.
Thanks for this little help in advance.

Configuration: Windows XP Internet Explorer 8.0

onesdf · Accepted Answer

' Select the first cell of the table Range("A1").Select ' Loop while not empty Do While Not (IsEmpty(ActiveCell)) NbLigne = NbLigne + 1 Selection.Offset(1, 0).Select Loop

Doudou95 · Answer

Thank you very much, now I want to write a formula in each cell up to NbLigne-1 in column E. I need to use NbLigne, but I can't place it in
[Selection.AutoFill Destination:=Range("E2:E37"), Type:=xlFillDefault] because I can't replace E37 with NbLigne.
Sorry, I still don't quite understand VBA yet :) I'm used to C++ and even with C++ I have a hard time :D

Doudou95 · Answer

Thank you very much, it works perfectly now I will break it down to understand it and it's all good, you are not safe from other requests hehehe thanks again bix.

Solution :

' Select the first cell of the table
Range("A1").Select

' Loop while not empty
Do While Not (IsEmpty(ActiveCell))
' Input a formula in the cell referenced by
' the active row and column 5 (column E)
Cells(ActiveCell.Row, 5).Formula = "=MID(RC[1],VALUE(SEARCH(""("",RC[1]))+1,VALUE(SEARCH("")"",RC[1]))-VALUE(SEARCH(""("",RC[1]))-1)"
' Move to the next row
Selection.Offset(1, 0).Select
Loop

flo · Answer

In Excel  I want to enter information "text or number" in a cell on the condition that another cell is not empty, meaning it contains text or a number.

narval · Answer

Range("A65536").End(xlUp).Offset(1, 0).Row gives you the last row of a table in column A  otherwise use IsEmpty(range("A1")) with a loop

[VBA] Detecting Empty Cell

5 réponses

Texture issues in enshrouded

Canon mb5350 - cartridge replacement impossible

Football manager (club management game)

Select next line csh foreach

Win32 kamso then rootkit detection

Win32:spyware-gen [trj] detected by avast

Unknown video error on the freebox player

Make it or break it

How to open a cbr file

Please log in with manager privileges.