Lowe54
Solid State Member
- Messages
- 15
- Location
- United Kingdom
Hi,
I am currently trying to create a macro that takes the value of a percentage in one cell, and adds it to the column of another sheet
For example
I enter 3.4 in a cell formatted as percentage, click on a increase price button
and it adds that percentage to the values contained in a column of another sheet.
This is what my current code looks like
----------------------------------------------------
Public Sub increaseprice()
Option Explicit
'This module is responsible for increasing the prices of the sweets by a set percentage
Dim ssrange As Range
With Sheets("Sweet Data").select
Set ssrange = Range("B1:B" & .Range("A65536").End(xlUp).Row)
ssrange.Formula = _
"='Sweet Data'!B:B + 'PriceMod'!C5%"
End With
End Sub
-----------------------------------------------------------
Can this be done?
Any help is appreciated
Lowe54
I am currently trying to create a macro that takes the value of a percentage in one cell, and adds it to the column of another sheet
For example
I enter 3.4 in a cell formatted as percentage, click on a increase price button
and it adds that percentage to the values contained in a column of another sheet.
This is what my current code looks like
----------------------------------------------------
Public Sub increaseprice()
Option Explicit
'This module is responsible for increasing the prices of the sweets by a set percentage
Dim ssrange As Range
With Sheets("Sweet Data").select
Set ssrange = Range("B1:B" & .Range("A65536").End(xlUp).Row)
ssrange.Formula = _
"='Sweet Data'!B:B + 'PriceMod'!C5%"
End With
End Sub
-----------------------------------------------------------
Can this be done?
Any help is appreciated
Lowe54