Code Not Working with Click Box
Hello,
The code below works perfectly well until I assign it to a click button. Working Code: Sub TransposeValues() Sheets("VAV List").Select Range("A2:A3").Select Selection.Copy Sheets("Sheet1").Select Range("C3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True End Sub Once assigned to a click button, I get an error saying "Select Method of Range Class Failed" with Range("C3").Select highlighted as the culprit. Not Working Code: Private Sub CommandButton1_Click() Sheets("VAV List").Select Range("A2:A3").Select Selection.Copy Sheets("Sheet1").Select Range("C3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True End Sub Please help Thanks |
Code Not Working with Click Box
This worked for me:
Sub TransposeValues() Sheets("VAV List").Range("A2:A3").Copy Sheets("Sheet1").Range("C3").PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=True End Sub "Mr. Matt" wrote: Hello, The code below works perfectly well until I assign it to a click button. Working Code: Sub TransposeValues() Sheets("VAV List").Select Range("A2:A3").Select Selection.Copy Sheets("Sheet1").Select Range("C3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True End Sub Once assigned to a click button, I get an error saying "Select Method of Range Class Failed" with Range("C3").Select highlighted as the culprit. Not Working Code: Private Sub CommandButton1_Click() Sheets("VAV List").Select Range("A2:A3").Select Selection.Copy Sheets("Sheet1").Select Range("C3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True End Sub Please help Thanks |
Code Not Working with Click Box
Did it work when assigned to a click box?
"JLGWhiz" wrote: This worked for me: Sub TransposeValues() Sheets("VAV List").Range("A2:A3").Copy Sheets("Sheet1").Range("C3").PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=True End Sub "Mr. Matt" wrote: Hello, The code below works perfectly well until I assign it to a click button. Working Code: Sub TransposeValues() Sheets("VAV List").Select Range("A2:A3").Select Selection.Copy Sheets("Sheet1").Select Range("C3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True End Sub Once assigned to a click button, I get an error saying "Select Method of Range Class Failed" with Range("C3").Select highlighted as the culprit. Not Working Code: Private Sub CommandButton1_Click() Sheets("VAV List").Select Range("A2:A3").Select Selection.Copy Sheets("Sheet1").Select Range("C3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True End Sub Please help Thanks |
All times are GMT +1. The time now is 05:17 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com