finding row 7

  • Thread starter Thread starter antonov
  • Start date Start date
A

antonov

Hello everybody,
I have this code, which works fine... but I need the application to start
looking for the first empty row starting from row 7... how can I do that?

Private Sub CommandButton1_Click()

Range("A7").Select

Do

If IsEmpty(ActiveCell) = False Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True
Dim rng As Range
ActiveCell.EntireRow.FillDown
On Error Resume Next
Set rng = ActiveCell.EntireRow.SpecialCells(xlConstants)
On Error GoTo 0
If Not rng Is Nothing Then
rng.ClearContents
End If

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("GiM")

iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 
Hi Tom,
when I click on the command button the first code (you gave me) will copy
the formulas down to the next row... but the second part of the code will
input the data contained in the userform in row 3 (which is the first empty
row). But I need the data to be input starting from row 7
 
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("GiM")

iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
If iRow < 7 then iRow = 7
 
I am trying to use the whole formula but there is one problem:
some of the cells contain formulas and when I run the userform all the
formula disappear... is there a way around it?
 
I would assume the solution would lie in adjusting your code to avoid doing
whatever it is doing.

Formulas don't disappear on there own, so identify the code that clears the
formulas and adjust it.
 
Back
Top