funciones en Microsoft Excel

16/05/2005 - 20:30 por Porthos | Informe spam

Hola, tengo un archivo excel con 3 hojas en cada hoja
existe una lista de 20 elementos y en una cuarta hoja
tengo un boton que con la función aleatoria puedo hacer
que genere un número y mediante este código.

Dim p As Integer
Private Sub CommandButton1_Click()
p = Int(Rnd() * (11 - 1) + 1)
If p = Range("A3") Then
Range("C3:I3").Value = Hoja2.Range("D16:J16").Value
Else
Range("C3:I3") = ""
End If
End Sub

trea sólo si la celda A3 coincide con el numero
generado pero como puedo hacerlo para que pueda buscar
aleatoriamente en toda la lista y más de un producto?

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Héctor Miguel

17/05/2005 - 07:16 | Informe spam

hola, Porthos !

... archivo excel con 3 hojas en cada hoja existe una lista de 20 elementos
... cuarta hoja ... boton que... mediante... codigo
... trae solo si la celda A3 coincide con el numero generado
... que pueda buscar... en toda la lista y mas de un producto?
Dim p As Integer
Private Sub CommandButton1_Click()
p = Int(Rnd() * (11 - 1) + 1)
If p = Range("A3") Then
Range("C3:I3").Value = Hoja2.Range("D16:J16").Value
Else
Range("C3:I3") = ""
End If
End Sub

[para estar en condiciones de 'analizar' la situacion]... 'tengo que'... formularte las siguientes preguntas
1.- cual es el rango de 'toda la lista' ?
2.- que 'relacion' existe entre 'Range("C3:I3")' y 'Hoja2.Range("D16:J16")' ?
es decir... cual es la relacion entre la fila 3 -de la hojaX- y la fila 16 de hoja2 ?
3.- en caso de que 'alguna' celda en 'A' ->NO 'coincida'<- con el aleatorio [p]...
se debe 'borrar' el contenido de las columnas 'C:I' ?
4.- algun otro 'detalle' que se hubiera quedado 'en el tintero' ? ;)

comentas?
saludos,
hector.

Responder a este mensaje

#2 Porthos

17/05/2005 - 20:08 | Informe spam

Hola Hector lo que pasa es que para este ejemplo sólo
era una prueba... no existe relación alguna entre las
hojas y el rango de las hojas varian entre 21 y 28
elementos, osea no todas las hojas tienen la misma
cantidad de elementos.

hola, Porthos !

... archivo excel con 3 hojas en cada hoja existe

una lista de 20 elementos

... cuarta hoja ... boton que... mediante... codigo
... trae solo si la celda A3 coincide con el numero

generado

... que pueda buscar... en toda la lista y mas de un

producto?

Dim p As Integer
Private Sub CommandButton1_Click()
p = Int(Rnd() * (11 - 1) + 1)
If p = Range("A3") Then
Range("C3:I3").Value = Hoja2.Range("D16:J16").Value
Else
Range("C3:I3") = ""
End If
End Sub

[para estar en condiciones de 'analizar' la