on data add formula
On 1 okt, 16:45, Tom Ogilvy
wrote:
Dim res as Variant, rng as Range
res = Application.Match("Legbord",columns(1),0)
if not iserror(res) then
set rng = cells(res,1)
rng.offset(1,0).Entirerow.Insert
cells(res + 1,1) = rng.Value
cells(res + 1,3).Value = rng.offset(0,2)*2
End if
--
Regards,
Tom Ogilvy
"Jumparound" wrote:
Hi guys (and girls)
I got a simple question...
i got a table of data thats gatherd by a macro, now i want to add 1
more line to this table.
but im not sure how to do this...
The data im looking for is "Legbord" in collum A and it has a value in
collum C.
I want to add a new line after "Legbord" (which isnt the last entry in
my table) and multiply the value for "legbord" in collum C with 2. (in
collum C for the new line)
Does this make sense?
Could you please help me?
thanks!
Sjoerd- Tekst uit oorspronkelijk bericht niet weergeven -
- Tekst uit oorspronkelijk bericht weergeven -
Thanks Tom!
one quick question,
U use res = Application.Match("Legbord",columns(1),0)
What do i change when I want to insert the name "plankdrager" instead
in "legbord" in the newly created line?
|