Ocultar Filas con Macro en excel 2007
Hola experto/a
Tengo que realizar una tabla excel para el trabajo. En la que quiero que si en la celda G22 aparece "BT", desaparezcan solo las filas (300:400), en cambio si en la celda G22 aparece "MT", desaparezcan solamente las filas (100:200).
La verdad que no tengo mucha idea de macros en excel, con lo que si me habláis en un lenguaje para torpes, os lo agradecería.
Muchas gracias de antemano y un saludo.
Tengo que realizar una tabla excel para el trabajo. En la que quiero que si en la celda G22 aparece "BT", desaparezcan solo las filas (300:400), en cambio si en la celda G22 aparece "MT", desaparezcan solamente las filas (100:200).
La verdad que no tengo mucha idea de macros en excel, con lo que si me habláis en un lenguaje para torpes, os lo agradecería.
Muchas gracias de antemano y un saludo.
{"Lat":41.5085772974394,"Lng":-3.33984375}
1 Respuesta
Respuesta de Cadipas spain
1
Tienes dos soluciones :
1.- Intentar tu adjuntar la macro que te envío, a tu hoja de excel
2.- Como dices que tienes pocos conocimientos, la otra opción es enviarme el fichero y te creo un pulsador que ejecute la macro, y de paso puedo vincular los cambios de valor de esa celda para que oculte o visualice las filas.
La macro en cuestión puede ser, para un botón que la active:
Private Sub CommandButton1_Click()
Dim ValorG22
Valor = Range("g22")
Select Case UCase(Valor)
Case "BT"
Rows("300:400").Hidden = True
Rows("100:200").Hidden = False
Case "MT"
Rows("300:400").Hidden = False
Rows("100:200").Hidden = True
Case Else
Rows("300:400").Hidden = False
Rows("100:200").Hidden = False
End Select
End Sub
Mi correos es [email protected]
Suerte
1.- Intentar tu adjuntar la macro que te envío, a tu hoja de excel
2.- Como dices que tienes pocos conocimientos, la otra opción es enviarme el fichero y te creo un pulsador que ejecute la macro, y de paso puedo vincular los cambios de valor de esa celda para que oculte o visualice las filas.
La macro en cuestión puede ser, para un botón que la active:
Private Sub CommandButton1_Click()
Dim ValorG22
Valor = Range("g22")
Select Case UCase(Valor)
Case "BT"
Rows("300:400").Hidden = True
Rows("100:200").Hidden = False
Case "MT"
Rows("300:400").Hidden = False
Rows("100:200").Hidden = True
Case Else
Rows("300:400").Hidden = False
Rows("100:200").Hidden = False
End Select
End Sub
Mi correos es [email protected]
Suerte
Hola, estoy intentando mandarte un mail pero me da error. Seguiré intentándolo.
Un saludo.
Un saludo.
Perdón, he tenido un fallo al escribir la dirección de correo y la correcta es:
[email protected]
[email protected]
Bajate el fichero que tiene tu nombre
http://cid-3d609d87423f2eeb.skydrive.live.com/browse.aspx/P%c3%bablico
http://cid-3d609d87423f2eeb.skydrive.live.com/browse.aspx/P%c3%bablico
Hace tiempo que no das señales, si has conseguido solucionar el problema, muy bien, si por el contrario, no has conseguido nada, amplia los fallos y se intentara buscar la solución.
Si das por terminada la pregunta, cierra la pregunta y valora la ayuda.
Si das por terminada la pregunta, cierra la pregunta y valora la ayuda.
Agradezco tu interés, pero al final lo he podido solucionar mediante el comando grabar macros.
Muchas gracias y un saludo.
Muchas gracias y un saludo.
Si das por terminada esta pregunta, te agradecerías que cerraras la pregunta y la valores.
