not finding first empty row in sheet from userform

**cfinch100** · 08-02-2013, 12:18 PM

hi
this code is supposed to find first empty row in sheet but it starts on row 9 and will only write to rows 9 and 10, have tried various threads and can not get any to work, have had one that writes to row 6 say then instead of next row it goes to row 12,any ideas please

  Set ws = ActiveWorkbook.Worksheets("REPAIRS")
       With Sheets("REPAIRS")
 
    
   
' ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).EntireRow.Select
     
     NEXTROW = .Range("A" & Rows.Count).End(xlUp).Row
   ' Application.ScreenUpdating = False
        With Me
      '  ws.Range("J" & c.Row).Value = Me.TextBox7.Value
        ws.Range("A" & c.Row).Value = Me.ComboBox1.Value 'looks up repairs
    '        .TextBox1 =
       ws.Range("e" & c.Row).Value = Me.TextBox7.Value
    
        ws.Range("C" & c.Row).Value = Me.TextBox6.Value
        
       ws.Range("B" & c.Row).Value = Me.TextBox1.Value
      ws.Range("d" & c.Row).Value = Me.TextBox11.Value
      ws.Range("f" & c.Row).Value = Me.TextBox3.Value
      ws.Range("g" & c.Row).Value = Me.TextBox4.Value
     ws.Range("H" & c.Row).Value = Me.TextBox5.Value

cheers colin

**Norie** · 08-02-2013, 12:22 PM

Colin

What's c?

Also, why aren't you using NEXTROW (+1)?

**cfinch100** · 08-02-2013, 12:37 PM

hi norie
tried using nextrow +1 but was not having any of it,not sure what I was doing with c.row but have found one of your old ones you gave me and works good

Set ws = Worksheets("repairs")
    'find first row in database
    iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
        .Range("B" & iRow) = TextBox1.Value
        .Range("h" & iRow) = TextBox5.Value
       ' .Range("F" & iRow) = txtWeekTotal.Value
        .Range("a" & iRow) = ComboBox1.Value
        .Range("d" & iRow) = TextBox11.Value
        .Range("f" & iRow) = TextBox3.Value

cheers for answering,try to go go through all code library before putting threads on missed this one
cheers colin

not finding first empty row in sheet from userform

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

not finding first empty row in sheet from userform

Re: not finding first empty row in sheet from userform

Re: not finding first empty row in sheet from userform

Thread Information

Users Browsing this Thread

Similar Threads

VBA And Finding The First Empty Row

Finding next empty Row

Finding next empty cell

Finding next empty empty cell in a range of columns

finding empty selection

Bookmarks

Bookmarks

Posting Permissions