Macro Button for adding a column in a specific location

SeanOZ

New Member
Joined
Oct 31, 2019
Messages
13
Hi,

I am very much a beginner with excel, but wanting to add a button on my spreadsheet to add a column after a specific column.

The code I have put together is as follows:
Sub AddColumns()
Dim varUserInput As Variant
varUserInput = InputBox("Enter Column Letter where you want to add a column:", _
"What Column?")
If varUserInput = "" Then Exit Sub


MyRange = varUserInput
' Store the selected range in a variable.
Set MyRange = Selection
' Select the entire column.
Selection.EntireColumn.Select
' Insert Columns in all selected sheets.
Selection.Insert
' Reselect the previously selected cells.
MyRange.Select
End Sub

This does not work though.

I also want to add a button to bring up a box to ask me to delete a specific row and also one to delete a specific column so basically I will have 3 buttons.

I already have a button to add a specific row.

Thanks so much for your help in advance.

Sean
 

Some videos you may like

Excel Facts

Repeat Last Command
Pressing F4 adds dollar signs when editing a formula. When not editing, F4 repeats last command.

My Aswer Is This

Well-known Member
Joined
Jul 5, 2014
Messages
16,762
Office Version
2013
Platform
Windows
You have about three request here.

Try this to insert the column:
Code:
Sub AddColumns()
'Modified  11/1/2019  12:55:39 AM  EDT
On Error GoTo M
Dim varUserInput As Variant
varUserInput = InputBox("Enter Column Letter where you want to add a column:", _
"What Column?")
If varUserInput = "" Then Exit Sub
Columns(varUserInput).Insert
Exit Sub
M:
MsgBox "You did not enter a letter character into the InputBox" & vbNewLine & "Try again"
End Sub
 

SeanOZ

New Member
Joined
Oct 31, 2019
Messages
13
Thank you so much for all your help and your quick response to my question.

Kind regards,

Sean

You have about three request here.

Try this to insert the column:
Code:
Sub AddColumns()
'Modified  11/1/2019  12:55:39 AM  EDT
On Error GoTo M
Dim varUserInput As Variant
varUserInput = InputBox("Enter Column Letter where you want to add a column:", _
"What Column?")
If varUserInput = "" Then Exit Sub
Columns(varUserInput).Insert
Exit Sub
M:
MsgBox "You did not enter a letter character into the InputBox" & vbNewLine & "Try again"
End Sub
 

SeanOZ

New Member
Joined
Oct 31, 2019
Messages
13
Thank you so much for your help with my question.

Kind regards,

Sean
 
Last edited by a moderator:

My Aswer Is This

Well-known Member
Joined
Jul 5, 2014
Messages
16,762
Office Version
2013
Platform
Windows
Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.
Do you still need more help?



Thank you so much for your help with my question.

Kind regards,

Sean
 

Watch MrExcel Video

Forum statistics

Threads
1,102,063
Messages
5,484,488
Members
407,442
Latest member
infinia

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top