Find Next Column

[sooty8]

Hi All

The Code below works OK and puts the info in the correct cell - my problem is I don't want it to go in the same cells every time I need it to find the next empty column always on row 1.

[VBA]
Private Sub Add_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("DATA")
ws.Cells(1, 10).Value = Tb5.Value
Sheets("DATA").Select
Range("J1:K1").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
End With
End Sub
[/VBA]

Regards

Sooty8

[Bob Phillips]

[vba]

Private Sub Add_Click()
Dim iRow As Long
Dim LastCol As Long
Dim ws As Worksheet
Set ws = Worksheets("DATA")
With ws

lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column)
.Cells(1, lastCol).Value = Tb5.Value
.Range("J1:K1").HorizontalAlignment = xlCenterAcrossSelection
End With
End Sub
[/vba]

[sooty8]

Hi Xld

Need help getting a syntax error message on the line in Red Below.

Private Sub Add_Click()
Dim iRow As Long
Dim LastCol As Long
Dim ws As Worksheet
Set ws = Worksheets("DATA")
With ws

lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column)
.Cells(1, lastCol).Value = Tb5.Value
.Range("J1:K1").HorizontalAlignment = xlCenterAcrossSelection
End With
End Sub

Regards

Sooty8

[austenr]

Try it w/o the ) at the end of that line.

[sooty8]

Hi Austenr


Tried all different ways of inserting your comment in the line

[VBA]lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column)
[/VBA]
No joy I'm afraid

Sooty 8

[mdmackillop]

lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

[Aussiebear]

Nothing like an errant space or two to blow you out of the water