Put Values on Orizontal

[IoanZ]

Hy
I need some help

I use this vba code to put target valule in VERTICAL LINE

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C15:C89")) Is Nothing Then
Cancel = True
Cells(Range("A100").End(xlUp).Row + 1, 1) = Target.Value
End If
End Sub

which is VBA code to put target value in ORIZONTAL LINE.

Thank's.

 

[BarryL]

for the horizontal line, i assume you want row 1? or is it last row? also can you explain what you are expecting cancel to do in your abover code? try the below for the moment

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C15:C89")) Is Nothing Then
Cancel = True
Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1) = Target.Value
End If
End Sub

 

[IoanZ]

first row..

Works perfectly , thank's a lot