Looking for help with VBA macro
Closed
ecmike
Posts
2
Registration date
Thursday January 29, 2009
Status
Member
Last seen
January 31, 2009
-
Jan 30, 2009 at 04:16 PM
ecmike Posts 2 Registration date Thursday January 29, 2009 Status Member Last seen January 31, 2009 - Jan 31, 2009 at 01:53 PM
ecmike Posts 2 Registration date Thursday January 29, 2009 Status Member Last seen January 31, 2009 - Jan 31, 2009 at 01:53 PM
Related:
- Looking for help with VBA macro
- Vba case like - Guide
- Number to words in excel formula without vba - Guide
- Vba check if value is in array - Guide
- How to open vba in excel mac - Guide
- Vba color index - Guide
2 responses
undoneso
Posts
8
Registration date
Saturday November 15, 2008
Status
Member
Last seen
May 19, 2009
Jan 31, 2009 at 01:56 AM
Jan 31, 2009 at 01:56 AM
hi,
try this klink to get the user guide:
www.blackbaud.co.uk/files/support/guides/re7uk/vbaUK.pdf
you can learn everything you want.
try this klink to get the user guide:
www.blackbaud.co.uk/files/support/guides/re7uk/vbaUK.pdf
you can learn everything you want.
ecmike
Posts
2
Registration date
Thursday January 29, 2009
Status
Member
Last seen
January 31, 2009
Jan 31, 2009 at 01:53 PM
Jan 31, 2009 at 01:53 PM
Thanks for the tip. I would appreciate any advice on the following:
Sub elaseval()
For each cell in Range("B7:B50")
Range("cell.Value").Select
Selection.Copy
Sheets("Input").Select
Range("$E$7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Sensitivity").Select
Range("C" & cell.Row : "T" & cell.Row").Select
Selection.Copy
Range("C" & Cell.Row).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next Cell
End Sub
I am trying to apply this set of commands to each cell in the range B7:B50. For each cell that the commands are applied to, I need cell.Value to refer to the value in the cell and cell.Row to represent the row of the cell that is currently being used.
I would really appreciate any tips. Thanks.
Sub elaseval()
For each cell in Range("B7:B50")
Range("cell.Value").Select
Selection.Copy
Sheets("Input").Select
Range("$E$7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Sensitivity").Select
Range("C" & cell.Row : "T" & cell.Row").Select
Selection.Copy
Range("C" & Cell.Row).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next Cell
End Sub
I am trying to apply this set of commands to each cell in the range B7:B50. For each cell that the commands are applied to, I need cell.Value to refer to the value in the cell and cell.Row to represent the row of the cell that is currently being used.
I would really appreciate any tips. Thanks.