Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
fill a cell with this..
hi all i have to fill cell A20 with ]Sheet1'!$B$999
where 999 is the value of cell A20. if u can describe the right syntax, that will help me a lot !! ty Sub A22() Dim aWB As Workbook Dim aWS As Worksheet Set aWB = ThisWorkbook Set aWS = aWB.Worksheets("Sheet1") aWS.Range("A22") = ]Sheet1'!$B$" & aWS.Range("A20").Value End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
fill a cell with this..
You left out an equal sign.
I'd use: aWS.Range("A22").formula _ = ]Sheet1'!$B$" & aWS.Range("A20").Value Or maybe... with aws.range("a22") .numberformat = "General" .formula = _ = ]Sheet1'!$B$" & aWS.Range("A20").Value end with (just in case A22 was formatted as Text.) ps. I wouldn't use an address as the name of the macro, either. pls123 wrote: hi all i have to fill cell A20 with ]Sheet1'!$B$999 where 999 is the value of cell A20. if u can describe the right syntax, that will help me a lot !! ty Sub A22() Dim aWB As Workbook Dim aWS As Worksheet Set aWB = ThisWorkbook Set aWS = aWB.Worksheets("Sheet1") aWS.Range("A22") = ]Sheet1'!$B$" & aWS.Range("A20").Value End Sub -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
fill a cell with this..
try this
aWS.Range("A22") = ]Sheet1'!$B$" & aWS.Range("A20").Value -- -John Please rate when your question is answered to help us and others know what is helpful. "pls123" wrote: hi all i have to fill cell A20 with ]Sheet1'!$B$999 where 999 is the value of cell A20. if u can describe the right syntax, that will help me a lot !! ty Sub A22() Dim aWB As Workbook Dim aWS As Worksheet Set aWB = ThisWorkbook Set aWS = aWB.Worksheets("Sheet1") aWS.Range("A22") = ]Sheet1'!$B$" & aWS.Range("A20").Value End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
fill a cell with this..
it doesn't work.
...but the = is shure correct :) "John Bundy" wrote: try this aWS.Range("A22") = ]Sheet1'!$B$" & aWS.Range("A20").Value -- -John Please rate when your question is answered to help us and others know what is helpful. "pls123" wrote: hi all i have to fill cell A20 with ]Sheet1'!$B$999 where 999 is the value of cell A20. if u can describe the right syntax, that will help me a lot !! ty Sub A22() Dim aWB As Workbook Dim aWS As Worksheet Set aWB = ThisWorkbook Set aWS = aWB.Worksheets("Sheet1") aWS.Range("A22") = ]Sheet1'!$B$" & aWS.Range("A20").Value End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
fill a cell with this..
OOOO it works...
but the macro named A22 didn't work..dont'know why... i changed the name and now its' ok ! "pls123" wrote: it doesn't work. ..but the = is shure correct :) "John Bundy" wrote: try this aWS.Range("A22") = ]Sheet1'!$B$" & aWS.Range("A20").Value -- -John Please rate when your question is answered to help us and others know what is helpful. "pls123" wrote: hi all i have to fill cell A20 with ]Sheet1'!$B$999 where 999 is the value of cell A20. if u can describe the right syntax, that will help me a lot !! ty Sub A22() Dim aWB As Workbook Dim aWS As Worksheet Set aWB = ThisWorkbook Set aWS = aWB.Worksheets("Sheet1") aWS.Range("A22") = ]Sheet1'!$B$" & aWS.Range("A20").Value End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto Fill Cell Based on Data in a different cell | Excel Discussion (Misc queries) | |||
remove fill in text from a cell from an unpopulated fill-in cell | Excel Worksheet Functions | |||
Code to copy cell borders and fill color from one cell to another | Excel Programming | |||
Cell fill color. Row to match specific cell. | Excel Programming | |||
Auto-fill cell based on adjacent cell information.. | Excel Worksheet Functions |