Para luis variables publicas
Luis
De antemano te felicito por tus conocimientos. Te he hecho varias preguntas y me las has respondido rápida y eficazmente.
Ahora tengo otra pregunta
La variable publica que definí fila1 como integer
cuando la trato de utilizar en otra rutina no lleva el valor de la fila solicitada
He Hecho varios intentos y no me resulta.
Te aclaro con la fila1 saco toda la información hacia varios textbox1 hasta textbox58 y los debo ingresar a un userform, pero la fila1 no llevA NADA
TE AGRADEZCO TU RESPUESTA
HOGO20073
1 Respuesta
Public fila1 as Integer
Sub Auto_open()
ApplicationDisplayAlerts= False
dim fila1 as integer, hoja2 as scheets
sheets("Hoja2").visible=true
Msgbox("Elige un proyecto")
fila1=sheets("Hoja1").Range(("J1").value
ApplicationDisplayAlerts= True
End sub
Sub Listadesplegable1_AlCambiar()
ApplicationDisplayAlerts= False
If fila1 =2 then
SANITARIO.Show
Call limpiausersanitario
Else
‘muestra un formulario
SANITARIO.Show ' aquí muestro el formulario
Call llenadatos ‘ aquí pido llenar datos del formulario
End If
ApplicationDisplayAlerts
= True
End Sub
……………………………………….
Sub llenadatos()
NOTA: Aquí fila1 aparece vacía en todas
Sheets("Hoja2").Select
TextBox58 = Range("A" & fila1).Value
TextBox5 = Range("B" & fila1).Value
TextBox6 = Range("C" & fila1).Value
TextBox7 = Range("D" & fila1).Value
TextBox8 = Range("E" & fila1).Value
TextBox9 = Range("G" & fila1).Value
TextBox10 = Range("H" & fila1).Value
TextBox11 = Range("I" & fila1).Value
TextBox12 = Range("J" & fila1).Value
TextBox13 = Range("QUE" & fila1).Value
TextBox14 = Range("L" & fila1).Value
End Sub
Me podrías revisar la macro
De antemano muchas gracias
hugo20073
Te
he hecho varias preguntas y me las has respondido rápida y
eficazmente.Ahora tengo este problema con la variable publica fila1 la definí como Integer
La linea en la que declaras publica la variable fila1 tiene que estar dentro del objeto formulario y dentro de evento INITIALIZE para que la declare al arrancarlo. Sería así:
public fila1
Private Sub UserForm_Initialize()
fila1 = Sheets("Hoja1").Range("J1").Value
End Sub
Tu escribiste
La linea en la que declaras publica la
variable fila1 tiene que estar dentro del objeto formulario y dentro de
evento INITIALIZE para que la declare al arrancarlo. Sería así:
public fila1
Private Sub UserForm_Initialize()
fila1 = Sheets("Hoja1").Range("J1").Value
End Sub
Estimado amigo la cosa mejora pero no encuentro la parte que tu dices para poner la variable publica
Me refiero a que el renglón: public fila1 tiene que que estar junto con las macros del formulario y no en un módulo.
