| Home |
| Search |
| Today's Posts |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Question about RANGE (easy one, or at least it should be)
I meant
Sheets("sheet9").Cells(worksheets(1).Range("e16"), 4) = 1 -- Don Guillett SalesAid Software "Don Guillett" wrote in message ... Not sure what "celda" is? But this one line idea may work. worksheets(2).range("celda")=cells(4,worksheets(1) .range("e16")) = 1 -- Don Guillett SalesAid Software "Omar" wrote in message ... Hi, I've got the next code: Worksheets(1).Select valor = CInt(Range("E16").Value) Worksheets(2).Select Select Case valor Case 1 celda = "A" & renglon Range(celda).Value = 1 Case 2 celda = "B" & renglon Range(celda).Value = 1 Case 3 celda = "C" & renglon Range(celda).Value = 1 Case 4 celda = "D" & renglon Range(celda).Value = 1 Case 5 celda = "E" & renglon Range(celda).Value = 1 Case 6 celda = "F" & renglon Range(celda).Value = 1 Case 7 celda = "G" & renglon Range(celda).Value = 1 Case 8 celda = "H" & renglon Range(celda).Select Range(celda).Value = 1 valor = CInt(Range(celda).Value) Case 9 celda = "I" & renglon Range(celda).Value = 1 Case 10 celda = "J" & renglon Range(celda).Value = 1 End Select I've been executing it with "valor" as 8; however, it always returns the 1004 error: an application error. (Amazing, isn't it?!!!) By the way, it's supposed that "Range(celda).Value = 1" writes, stores, -whatever- "1" in the cell, right? Well, guess what? It doesn't work. Which is the correct sentence to do that? Thanks in advance. Omar. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Easy VBA question | Excel Discussion (Misc queries) | |||
| Question about RANGE (easy one, or at least it should be) | Excel Programming | |||
| Easy Question | Excel Programming | |||
| new user with easy question? not easy for me | New Users to Excel | |||
| Easy VBA question: range control | Excel Programming | |||
Linear Mode
