Simple Macro Question
I was a bit hasty when replying. It now points out that it works.. when 'm'
is 0,00
As soon as i change it to 0,05 it gets a debug??
Gunti
"Gunti" wrote:
This is perfect, i've got exactly what i need. Thanks for taking the time and
effort to help me. :)
If you've got any time left i'd like to refer to an earlier question of
mine. If it is possible to have my macro activate when a formula recalculates
it's value. (In this case D33 changes from "" to "All-in" from it's formula.
Greetz,
Can't thank you enough
Gunti
"JLatham" wrote:
m = Worksheets("Invulblad").Range("AA47").Value
Range("M45").Formula = "=M43 * " & m & ""
Try it this way, 1st line OK, but change the second one to:
Range("M45").Formula = "=M43 * " & m
also change .Value to .Formula in the following lines to get what I think
you are after:
Range("m36").Value = "=m33*m34"
Range("m39").Value = "=m36*m37"
Range("m43").Value = "=m39+m40+m41"
those should read (again, I think)
Range("m36").Formula = "=m33*m34"
Range("m39").Formula = "=m36*m37"
Range("m43").Formula = "=m39+m40+m41"
same thing on down with lines that begin with
Range("m50").value =
Range("m53").value =
Range("m59").value =
Hope this helps get you to the next step.
"Gunti" wrote:
Mkay i'm being a retard. I put the code above my old code for M45 which was
'=175' :
I'm trying it again, however, and i'm getting an object code error!
Runtime error '1004', Application-defined or object-defined error.
Again, this is my code:
Private Sub Worksheet_Activate()
If Range("m32").Value < "" Then
Range("M33").Value = Range("O5").Value
Range("m34").Value = Worksheets("Invulblad").Range("N23").Value
Range("m36").Value = "=m33*m34"
Range("m37").Value = Worksheets("Invulblad").Range("AH9").Value
Range("m39").Value = "=m36*m37"
Range("m40").Value = Worksheets("Invulblad").Range("AE51").Value
Range("m41").Value = Worksheets("Invulblad").Range("K43").Value
Range("m43").Value = "=m39+m40+m41"
--------------------------------------------------------------
m = Worksheets("Invulblad").Range("AA47").Value
Range("M45").Formula = "=M43 * " & m & ""
-------------------------------------------------------------
Range("m46").Value = Worksheets("Invulblad").Range("AA48").Value *
Range("m43").Value
Range("m47").Value = Worksheets("Invulblad").Range("AA49").Value *
Range("m43").Value
Range("m48").Value = Worksheets("Invulblad").Range("AA50").Value *
Range("m43").Value
Range("m50").Value = "=m43+m45+m46+m47+m48"
Range("m51").Value = Worksheets("Invulblad").Range("AH25").Value
Range("m53").Value = "=MAX(m50:m51)"
Range("m55").Value = (Range("m53").Value /
Worksheets("Invulblad").Range("AA51")) - Range("m53").Value
Range("m57").Value = "=m53+m55"
Range("m59").Value = Worksheets("Invulblad").Range("Y59").Value
Else
If Range("m32").Value = "" Then
Range("m33:m59").Value = ""
End If
End If
End Sub
"Gunti" wrote:
Thanks alot both of you, for trying to help! I'm not getting it however. When
i use this:
m = Worksheets("Invulblad").Range("AA47").Value
Range("M45").Formula = "'=M43 * " & m & ""
The result is that i just see a number in cell M45 (175,-)
The result i want is indeed 175, but i want people to actually see that it
is Cell M43*0.05 (in this case AA47 = 0.05)
I've tried both options you guys gave, can't thank you enough for taking the
time to helping me anyway ;)
Gunti
"Gary''s Student" wrote:
If the goal is to have the macro create an equation:
Sub gunti()
v = Worksheets("Invulblad").Range("AA47").Value
Range("L45").Formula = "=" & v & "*L43"
End Sub
--
Gary''s Student - gsnu200820
"Gunti" wrote:
Hi,
I'm very new to creating macro's. I've got a (maybe stupid question).
I have the following situation:
Basiscly what i want (what i would make of it) is the following code:
Range("L45").Value = "Worksheets("Invulblad").Range("AA47").Value * L43"
I want cell L45 to say:
=0,05*L43
if AA47 on sheet 'Invulblad' is 0,05 and
=0,00*L43
if AA47 on sheet 'Invulblad' is 0,00
Any help appreciated,
Greets,
Gunti
|