Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help changing a macro - SImple change please help
I can record macros like a pro, but editing the code is not for me. see
below code Range("D1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("D1").Select Application.CutCopyMode = False With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Range("D1").Select ActiveCell.FormulaR1C1 = "Coordinator" Columns("G:G").Select Selection.Delete Shift:=xlToLeft Range("H26").Select ActiveWindow.SmallScroll Down:=-21 This is the part where I selected a cell, nameley D1 and removed the data validation. How can I change this to affect all of D:D? Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help changing a macro - SImple change please help
But then you added it again, but loaded the cell with Coordinator, which
seems pointless to me. What do you want do to D2 down? -- __________________________________ HTH Bob "Jeremy" <jeremiah.a.reynolds @ gmail.com wrote in message ... I can record macros like a pro, but editing the code is not for me. see below code Range("D1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("D1").Select Application.CutCopyMode = False With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Range("D1").Select ActiveCell.FormulaR1C1 = "Coordinator" Columns("G:G").Select Selection.Delete Shift:=xlToLeft Range("H26").Select ActiveWindow.SmallScroll Down:=-21 This is the part where I selected a cell, nameley D1 and removed the data validation. How can I change this to affect all of D:D? Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help changing a macro - SImple change please help
Oh, and what is being pasted into D1?
-- __________________________________ HTH Bob "Jeremy" <jeremiah.a.reynolds @ gmail.com wrote in message ... I can record macros like a pro, but editing the code is not for me. see below code Range("D1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("D1").Select Application.CutCopyMode = False With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Range("D1").Select ActiveCell.FormulaR1C1 = "Coordinator" Columns("G:G").Select Selection.Delete Shift:=xlToLeft Range("H26").Select ActiveWindow.SmallScroll Down:=-21 This is the part where I selected a cell, nameley D1 and removed the data validation. How can I change this to affect all of D:D? Thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help changing a macro - SImple change please help
try this - just before your data validation coding, change
Range("D1").Select to this Range("D:D").Select that should work (even though you don't need to select, but that's how you have it, so.......). :) susan On Jul 15, 8:32*am, Jeremy <jeremiah.a.reynolds @ gmail.com wrote: I can record macros like a pro, but editing the code is not for me. *see below code * * Range("D1").Select * * Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * * :=False, Transpose:=False * * Range("D1").Select * * Application.CutCopyMode = False * * With Selection.Validation * * * * .Delete * * * * .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ * * * * :=xlBetween * * * * .IgnoreBlank = True * * * * .InCellDropdown = True * * * * .InputTitle = "" * * * * .ErrorTitle = "" * * * * .InputMessage = "" * * * * .ErrorMessage = "" * * * * .ShowInput = True * * * * .ShowError = True * * End With * * Range("D1").Select * * ActiveCell.FormulaR1C1 = "Coordinator" * * Columns("G:G").Select * * Selection.Delete Shift:=xlToLeft * * Range("H26").Select * * ActiveWindow.SmallScroll Down:=-21 This is the part where I selected a cell, nameley D1 and removed the data validation. *How can I change this to affect all of D:D? Thanks |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help changing a macro - SImple change please help
hi,
instead of..... Range("D1").Select make it........ Range("D:D").Select but you are pasting something in D1 before you are removing the validation so either move the paste to after the removeal of validation or change the select to Range("D2:D65536") regards FSt1 "Jeremy" wrote: I can record macros like a pro, but editing the code is not for me. see below code Range("D1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("D1").Select Application.CutCopyMode = False With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Range("D1").Select ActiveCell.FormulaR1C1 = "Coordinator" Columns("G:G").Select Selection.Delete Shift:=xlToLeft Range("H26").Select ActiveWindow.SmallScroll Down:=-21 This is the part where I selected a cell, nameley D1 and removed the data validation. How can I change this to affect all of D:D? Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Changing Simple lines and Graphics into Graphs with data | Excel Discussion (Misc queries) | |||
Macro to Change Changing Date Format Data to Text | Excel Discussion (Misc queries) | |||
Should be simple: Lookup a picture from a folder based on a cell value changing | Excel Programming | |||
simple query changing set of numbers from positive to negative | Excel Discussion (Misc queries) | |||
How do I stop Excel from changing simple numbers to their 1/100th. | Excel Discussion (Misc queries) |