Omar
12/19/2006 5:34:00 PM
Hi Mr. Guillet,
"celda" in spanish means cell. So, I declared this variable to assign
dynamically the cell which must contains the value "1", it depends of the
Select Case structure.
Private Sub btnNext_Click()
'''''''''''''''''''''''''''''''''''
' Declaración de variables
'''''''''''''''''''''''''''''''''''
Dim valor, renglon, valorCelda As Integer
Dim vacio As Boolean
Dim celda As String
'''''''''''''''''''''''''''''''''''
' Asignación de valores
'''''''''''''''''''''''''''''''''''
renglon = 3
vacio = False
celda = "IF" & renglon
'''''''''''''''''''''''''''''''''''
' Determinar renglón disponible
'''''''''''''''''''''''''''''''''''
Worksheets(2).Select
Do While vacio = False
'Range(celda).Select
valorCelda = CInt(Range(celda).Value)
If valorCelda = 0 Then
vacio = True
Else
renglon = renglon + 1
End If
Loop
'''''''''''''''''''''''''''''''''''
' 1.1
'''''''''''''''''''''''''''''''''''
Worksheets(1).Select
valor = CInt(Range("E16").Value)
Worksheets(2).Select
Select Case valor
Case 1
celda = "A" & renglon
Range(celda).Value = 1
....
Thank you
"Don Guillett" wrote:
> I meant
>
> Sheets("sheet9").Cells(worksheets(1).Range("e16"), 4) = 1
>
> --
> Don Guillett
> SalesAid Software
> dguillett1@austin.rr.com
> "Don Guillett" <dguillett1@austin.rr.com> wrote in message
> news:%23gehoV4IHHA.3264@TK2MSFTNGP02.phx.gbl...
> >
> > 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
> > dguillett1@austin.rr.com
> > "Omar" <Omar@discussions.microsoft.com> wrote in message
> > news:D2A678DD-0F6A-4472-85D5-FF1BA701B153@microsoft.com...
> >> 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.
> >
> >
>
>
>