Find empty row and place value there

[errtu]

column A and B will have information, I want the macro to find the first empty row and place "Customer" in column C

Example one:

A-------------B------------ C
100-------- Mr X ---------Customer <=====text placed by macro


Example two:

A---------B------------C
100----- Mr X------ Customer
345----- Mr Y------- Customer<=====text placed by second activation

 

[VoG]

Try like this

Range("C" & Rows.Count).End(xlUp).Offset(1).Value = x

 

[errtu]

Try like this

Range("C" & Rows.Count).End(xlUp).Offset(1).Value = x

beautiful. thank you man.

2. to delete that last entry? I mean columns a, b and c? Not just C?

 

[VoG]

Try

Sub DelABC()
Dim LR As Long, i As Long
LR = Columns("A:C").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Rows(LR).Delete
End Sub

 

[Rick Rothstein]

2. to delete that last entry? I mean columns a, b and c? Not just C?

Maybe this...

Range("C" & Rows.Count).End(xlUp).Offset(,-2).Resize(,3).Clear

 

[errtu]

Im trying :

Sheets("DDE").Range("E" & Rows.Count).End(x1Up).Offset(1).Value = Sheets("User").Range("b3").cellValue

it aint working

 

[VoG]

Try

Sheets("DDE").Range("E" & Rows.Count).End(xlUp).Offset(1).Value = Sheets("User").Range("B3").Value

 

[errtu]

I get run-time error 1004
application defined or object defined error.

i am using:

Private Sub Al_Click()
Sheets("DDE").Range("C" & Rows.Count).End(xlUp).Offset(1).Value = "Al"
Sheets("DDE").Range("D" & Rows.Count).End(x1Up).Offset(1).Value = Sheets("User").Range("b3").Value
End Sub

ok i fixed it, i dont know what that is. is it an L or a number 1?

 

[VoG]

It is an L as in eXceL