Ayuda con Macro

29/09/2004 - 23:06 por Ricardo | Informe spam
Hola Grupo

tengo un pequeño problemilla. Tengo dos hojas
1- De Consulta y la otra
1- es la matriz
Tengo una macro que me trae la informacion de la matriz y
la trae perfectamente, pero la informacion que me trae es
solamente la de la fila que yo que pongo en el codigo, yo
quiero que me traiga si en la pantalla de consulta yo
pongo un numero X que ese numero lo busque en la pantalla
matriz y me traiga la informacion. Como establesco esa
consulta en mi macro?

les pongo mi macro

Sub Copias()
AWK = ActiveWorkbook.Name

Range("F15:F48").Select
Selection.ClearContents
Application.ScreenUpdating = False
Sheets("Pantalla").Select

If Range("F15").Value = "" Then
drw = 33
Else
If Range("F16").Value = "" Then
drw = 34
Else
Range("F15").Select
Selection.End(xlDown).Select
drw = ActiveCell.Row
End If
End If

Range("F15").ClearContents


'If Range("D6Pantalla").Value = "" Then


Sheets("Procedimiento").Select

For i = 28 To 146

Sheets("Procedimiento").Select
If Cells(5, i).Value = "1" Then ' EL 14 ES LA COLUMNA
N DE EXCEL

msg = Cells(4, i).Value ' EL 3 ES LA COLUMNA C LA
CUAL PONE LA INFROMACION QUE BUSCO

Sheets("Pantalla").Select

If Range("F15").Value = "" Then
wrw = 15
Else
If Range("F16").Value = "" Then
wrw = 16
Else
Range("F15").Select
Selection.End(xlDown).Select
wrw = ActiveCell.Row + 1
End If
End If

Cells(wrw, 6).Value = msg

End If

Next i

If Sheets("Pantalla").Range("F15").Value <> "" Then
Sheets("Pantalla").CommandButton4.BackColor = RGB
(245, 3, 3)
Else
Sheets("Pantalla").CommandButton4.BackColor = RGB
(115, 195, 3)
End If

Sheets("Pantalla").Select

Range("g31").Select

End Sub
 

Leer las respuestas

#1 Héctor Miguel
30/09/2004 - 19:41 | Informe spam
hola, Ricardo !

... tengo ... dos hojas ... de consulta y ... la matriz
... una macro ... la informacion de la matriz ... la trae perfectamente
... pero ... solamente la de la fila que yo que pongo en el codigo
... que me traiga si en la pantalla de consulta yo pongo un numero X que ... lo busque en la ... matriz [...]



[me parece que...] necesitas 'revisar' ->primero<- los pasos que esta 'dando' la macro :(
1.- tienes dos variables que ->no estas usando<- [AWK = ActiveWorkbook.Name y 'drw']
2.- haces un 'cambio' de hoja [Sheets("Pantalla").Select] y en ella el siguiente 'recorrido'...
a) si 'F15' esta vacio, asignas a la variable 'drw' el valor/fila de 33 <= drw NO se 'usa' en el codigo :(
b) si NO esta vacio, 'preguntas' si 'F16' esta vacio, asignas a la variable 'drw' el valor/fila de 34
c) al final de los 'If's' [invariablemente] ->limpias<- el contenido de 'F15' [Range("F15").ClearContents] <= OJO
3.- haces otro 'cambio' de hoja [Sheets("Procedimiento").Select] y un recorrido ->por columnas<- 'pero...'
a) 'comentas' acerca de las columnas 14 [N] y 3 [C] que es la de la informacion ->sin embargo<-...
b) el recorrido por las columnas ->inicia en la columna # 28<- [For i = 28 To 146] <= OJO [?]
c) [nuevamente] 'preguntas' si el rango 'F15' [de la hoja "Pantalla"] ->esta vacio<- lo cual...
SIEMPRE sera 'cierto/vacio' ->revisa el comentario 2.- c)<-
4.- por lo anterior... la macro...
-> SIEMPRE 'inicia' con el rango 'F15' [de la hoja "Pantalla"] ->vacio<- y...
-> NUNCA 'pasa' por las columnas 14 ni 3 [siempre inicia en la columna # 28]

¿cual es la fila que quieres 'personalizar'?
saludos,
hector.

Preguntas similares