Next Available Line

[Legacy 436357]

Hi,

Can this code be edited so it puts the data on the next available line? I sometimes need to delete some data.

Thanks

Private Sub CommandButton1_Click()
Static xCount As Integer
    Application.EnableEvents = False
    
        Range("J3").Offset(xCount, 0).Value = Range("H6").Value
        Range("K3").Offset(xCount, 0).Value = Range("H3").Value
        Range("L3").Offset(xCount, 0).Value = Format(Now(), "HH:MM:SS")
        xCount = xCount + 1
    
    Application.EnableEvents = True
End Sub

 

[Legacy 436357]

What I mean is I will clear data from a row and run again. It posts to the row below the cleared row.

This will result many blank rows which is what I should not have.

Thank you

 

[Legacy 436357]

Thanks Fluff that works.

What your code is doing is it will paste to the first blank row which could be between rows which is fine.

I appreciate the help guys (or gals).

My next issue is to print my invoice to PDF.

 

[Fluff]

Glad we could help & thanks for the feedback

 

[DataBlake]

Thanks I have asked too much already. I will figure something out.

hopefully this is what you want.
wasn't trying to be rude, but you should really think about what the person helping you needs to know to complete what you want, or go with their request for example data to work with.
because i certainly do not know if this is exactly what you were looking for.

Dim ws As Worksheet
Set ws = ActiveSheet

    For Each cell In ws.Columns(10).Cells
        If IsEmpty(cell) = True Then cell.Value = Range("H6").Value: Exit For
    Next cell
    
    For Each cell In ws.Columns(11).Cells
        If IsEmpty(cell) = True Then cell.Value = Range("H3").Value: Exit For
    Next cell
    
    For Each cell In ws.Columns(12).Cells
        If IsEmpty(cell) = True Then cell.Value = Format(Now(), "HH:MM:SS"): Exit For
    Next cell

edit: fluff strikes again. use Fluff's if it works for you.

 

[Sam_D_Ben]

How about

Private Sub CommandButton1_Click()
   Dim NxtRw As Long
   Application.EnableEvents = False
   If Range("J3").Value = "" Then
      NxtRw = 3
   Else
      [COLOR=#ff0000]NxtRw = Range("J2").End(xlDown).Offset(1).Row[/COLOR]
   End If
   Range("J" & NxtRw).Value = Range("H6").Value
   Range("K" & NxtRw).Value = Range("H3").Value
   Range("L" & NxtRw).Value = Format(Now(), "HH:MM:SS")

   Application.EnableEvents = True
End Sub

Yeah this is cool,

Guess this has to be "J3" in [NxtRw = Range("J2").End(xlDown).Offset(1).Row]

 

[Fluff]

Guess this has to be "J3" in [NxtRw = Range("J2").End(xlDown).Offset(1).Row]

Nope it needs to be J2, try changing it to J3 & make J4 as blank & see what happens.

 

[Sam_D_Ben]

Oh Yeah Fluff, that works. I checked it.