Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code snippet below. Is there a shorter way to do this type of thin
Range("A1").Value = "email"
Range("B1").FormulaR1C1 = "type" Range("C1").FormulaR1C1 = "employer_name" Range("D1").FormulaR1C1 = "employer_url" Range("E1").FormulaR1C1 = "employer_category" Range("F1").FormulaR1C1 = "employer_logo" Range("G1").FormulaR1C1 = "employer_bio" Range("H1").FormulaR1C1 = "first_name" Range("I1").FormulaR1C1 = "last_name" Range("J1").FormulaR1C1 = "address_1" Range("K1").FormulaR1C1 = "address_2" Range("L1").FormulaR1C1 = "city" Range("M1").FormulaR1C1 = "state" Range("N1").FormulaR1C1 = "zip" Range("O1").FormulaR1C1 = "password" |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
code snippet below. Is there a shorter way to do this type of thin
Since every cell is different, you do have to address each event, so the # of
lines probably can't shorten. But since there are no formulas to deal with, you could change all the FormulaR1C1 references to just Value, like the first line. -- "Actually, I *am* a rocket scientist." -- JB Your feedback is appreciated, click YES if this post helped you. "Solutions Manager" wrote: Range("A1").Value = "email" Range("B1").FormulaR1C1 = "type" Range("C1").FormulaR1C1 = "employer_name" Range("D1").FormulaR1C1 = "employer_url" Range("E1").FormulaR1C1 = "employer_category" Range("F1").FormulaR1C1 = "employer_logo" Range("G1").FormulaR1C1 = "employer_bio" Range("H1").FormulaR1C1 = "first_name" Range("I1").FormulaR1C1 = "last_name" Range("J1").FormulaR1C1 = "address_1" Range("K1").FormulaR1C1 = "address_2" Range("L1").FormulaR1C1 = "city" Range("M1").FormulaR1C1 = "state" Range("N1").FormulaR1C1 = "zip" Range("O1").FormulaR1C1 = "password" |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
code snippet below. Is there a shorter way to do this type of thin
Hi,
Maybe slightly better myarr = Array("type", "employer_name", "employer_url", _ "employer_category", "employer_logo", "employer_bio", _ "first_name", "last_name", "address_1", "address_2", _ "city", "state", "Zip", "Password") Range("B1:O1").Value = myarr Mike "Solutions Manager" wrote: Range("A1").Value = "email" Range("B1").FormulaR1C1 = "type" Range("C1").FormulaR1C1 = "employer_name" Range("D1").FormulaR1C1 = "employer_url" Range("E1").FormulaR1C1 = "employer_category" Range("F1").FormulaR1C1 = "employer_logo" Range("G1").FormulaR1C1 = "employer_bio" Range("H1").FormulaR1C1 = "first_name" Range("I1").FormulaR1C1 = "last_name" Range("J1").FormulaR1C1 = "address_1" Range("K1").FormulaR1C1 = "address_2" Range("L1").FormulaR1C1 = "city" Range("M1").FormulaR1C1 = "state" Range("N1").FormulaR1C1 = "zip" Range("O1").FormulaR1C1 = "password" |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
code snippet below. Is there a shorter way to do this type of thin
One way:
Range("A1:O1") = Array("email", "type", "employer_name", _ "employer_url", "employer_category", _ "employer_logo", "employer_bio", "first_name", _ "last_name", "address_1", "address_2", _ "city", "state", "zip", "password") or, better (at least, more flexible): Dim vArr As Variant vArr = Array("email", "type", "employer_name", _ "employer_url", "employer_category", _ "employer_logo", "employer_bio", "first_name", _ "last_name", "address_1", "address_2", _ "city", "state", "zip", "password") Range("A1").Resize(1, 1 + UBound(vArr) - LBound(vArr)).Value = vArr In article , Solutions Manager wrote: Range("A1").Value = "email" Range("B1").FormulaR1C1 = "type" Range("C1").FormulaR1C1 = "employer_name" Range("D1").FormulaR1C1 = "employer_url" Range("E1").FormulaR1C1 = "employer_category" Range("F1").FormulaR1C1 = "employer_logo" Range("G1").FormulaR1C1 = "employer_bio" Range("H1").FormulaR1C1 = "first_name" Range("I1").FormulaR1C1 = "last_name" Range("J1").FormulaR1C1 = "address_1" Range("K1").FormulaR1C1 = "address_2" Range("L1").FormulaR1C1 = "city" Range("M1").FormulaR1C1 = "state" Range("N1").FormulaR1C1 = "zip" Range("O1").FormulaR1C1 = "password" |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
code snippet below. Is there a shorter way to do this type of
thank you. Just trying to shorten code where possible.
I also just had an idea that seemed to also work. I changed line one to all the items separated by a comma, then used the text to columns command. the resulting macro code was shorter... "JBeaucaire" wrote: Since every cell is different, you do have to address each event, so the # of lines probably can't shorten. But since there are no formulas to deal with, you could change all the FormulaR1C1 references to just Value, like the first line. -- "Actually, I *am* a rocket scientist." -- JB Your feedback is appreciated, click YES if this post helped you. "Solutions Manager" wrote: Range("A1").Value = "email" Range("B1").FormulaR1C1 = "type" Range("C1").FormulaR1C1 = "employer_name" Range("D1").FormulaR1C1 = "employer_url" Range("E1").FormulaR1C1 = "employer_category" Range("F1").FormulaR1C1 = "employer_logo" Range("G1").FormulaR1C1 = "employer_bio" Range("H1").FormulaR1C1 = "first_name" Range("I1").FormulaR1C1 = "last_name" Range("J1").FormulaR1C1 = "address_1" Range("K1").FormulaR1C1 = "address_2" Range("L1").FormulaR1C1 = "city" Range("M1").FormulaR1C1 = "state" Range("N1").FormulaR1C1 = "zip" Range("O1").FormulaR1C1 = "password" |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
code snippet below. Is there a shorter way to do this type of
Thank you also. I will take this for a spin. I also appreciate the quick
response. "Mike H" wrote: Hi, Maybe slightly better myarr = Array("type", "employer_name", "employer_url", _ "employer_category", "employer_logo", "employer_bio", _ "first_name", "last_name", "address_1", "address_2", _ "city", "state", "Zip", "Password") Range("B1:O1").Value = myarr Mike "Solutions Manager" wrote: Range("A1").Value = "email" Range("B1").FormulaR1C1 = "type" Range("C1").FormulaR1C1 = "employer_name" Range("D1").FormulaR1C1 = "employer_url" Range("E1").FormulaR1C1 = "employer_category" Range("F1").FormulaR1C1 = "employer_logo" Range("G1").FormulaR1C1 = "employer_bio" Range("H1").FormulaR1C1 = "first_name" Range("I1").FormulaR1C1 = "last_name" Range("J1").FormulaR1C1 = "address_1" Range("K1").FormulaR1C1 = "address_2" Range("L1").FormulaR1C1 = "city" Range("M1").FormulaR1C1 = "state" Range("N1").FormulaR1C1 = "zip" Range("O1").FormulaR1C1 = "password" |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
code snippet below. Is there a shorter way to do this type of thin
Hmm... somehow .Value got deleted in the first example:
Range("A1:O1").Value = In article , JE McGimpsey wrote: One way: Range("A1:O1") = |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Shorter Code | Excel Programming | |||
Problem in WITH/END WITH code snippet | Excel Programming | |||
Code snippet storage | Excel Programming | |||
MaxRows 65536 in a sheet - A Code Snippet | Excel Programming |