Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
on data add formula
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
on data add formula
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
on data add formula
On 2 okt, 09:32, Jumparound wrote:
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?- Tekst uit oorspronkelijk bericht niet weergeven - - Tekst uit oorspronkelijk bericht weergeven - Oke, i treid some things... this is what i got (it very ugly :( ) ========================== oRange.Offset(1, 0).EntireRow.Insert Cells(res + 1, 1) = oRange.Value Cells(res + 1, 3).Value = oRange.Offset(0, 2) * 2 Cells(res + 1, 1).Value = "Plankdrager" ========================== i just copy "plankdrager" over the "legbord" cell... Many thanks for your help! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formula to sum data from a data range | Excel Discussion (Misc queries) | |||
Formula to capture historical data from data that changes daily | Excel Discussion (Misc queries) | |||
Formula to capture historical data from data that changes daily | Excel Worksheet Functions | |||
Any cell containing formula seen as data instead of formula | Excel Worksheet Functions | |||
DATA VALIDATION - for data which is the result of a formula | Excel Programming |