ageordieinneed
New Member
- Joined
- Jun 20, 2019
- Messages
- 21
hi all been awhile since been on here so be kind,
making darts scorer but my code is debugging trying to copy input from h14 and pasting it to w6:w4 then down the column next empty cell down,so every time you input a value it goes down the column and the same with p14 y6:y34 ?
the code is
Sub Macro2()
'
' Macro2 Macro
'
'
Range("H14:J16").Select
Selection.Copy
Range("W6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.UnMerge
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("w6:w34" & Rows.Count).End(xlUp).Offset(1).Select
End Sub
hope this helps
cheers
making darts scorer but my code is debugging trying to copy input from h14 and pasting it to w6:w4 then down the column next empty cell down,so every time you input a value it goes down the column and the same with p14 y6:y34 ?
the code is
Sub Macro2()
'
' Macro2 Macro
'
'
Range("H14:J16").Select
Selection.Copy
Range("W6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.UnMerge
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("w6:w34" & Rows.Count).End(xlUp).Offset(1).Select
End Sub
hope this helps
cheers