Jump to content

Marco Corrales

Members
  • Content Count

    117
  • Joined

  • Last visited

About Marco Corrales

  • Rank
    Advanced Member

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Exacto, eso era. Funciona perfectamente. Muchas gracias Alexander. Admin: favor cerrar el tema.
  2. Para ampliar, el userform que contiene los checkBox en mención, emerge cuando el usuario se posiciona en la siguientes celdas: If Target.Address = "$E$115:$H$115" Or Target.Address = "$I$115:$L$115" Or Target.Address = "$D$38:$F$38" _ Or Target.Address = "$G$38:$I$38" Or Target.Address = "$J$38:$L$38" Then If frm_dias_pago.Visible = False Then frm_dias_pago.Show End If End If Por lo que no siempre está activo o visible en la hoja. Lo comento por si eso fuese lo que está afectando el código que me enviaste.
  3. Hola Alexander. Gracias por tu ayuda! Sí, tienes toda la razón, pero es que el archivo es demasiado grande y contiene información confidencial de mi trabajo. Pero veo que comprendiste totalmente lo que necesitaba; sin embargo; cuando entra al For, se brinca el IF (no entra) y de una vez sale de la función. Que será? Ya que ni siquiera me da un error!
  4. Buenas tardes, gusto saludarles. Primero que nada comentarles que tengo toda la mañana investigando y recurro a ustedes en última instancia. Tengo el siguiente código: Private Sub lbl_aceptar_Click() If ActiveCell.Address = "$E$115" Then If check_box_1.Value = True Then Hoja1.Range("$E$115").Value = check_box_1.Caption ElseIf check_box_2.Value = True Then Hoja1.Range("$E$115").Value = check_box_2.Caption ElseIf check_box_3.Value = True Then Hoja1.Range("$E$115").Value = check_box_3.Caption End If End If If ActiveCell.Address = "$I$115" Then If check_box_1.Value = True Then Hoja1.Range("$I$115").Value = check_box_1.Caption ElseIf check_box_2.Value = True Then Hoja1.Range("$I$115").Value = check_box_2.Caption ElseIf check_box_3.Value = True Then Hoja1.Range("$I$115").Value = check_box_3.Caption End If End If End Sub Funciona muy bien, pero, me gustaría poder resumirlo y/o hacerlo "dinámico" con algo parecido a esto: Private Sub lbl_aceptar_Click() ActiveCell.Value = MSForms.CheckBox.Checked.Caption End Sub Es decir, que la celda activa, tome como valor el caption del CheckBox seleccionado. Pero no me funciona; lo he intentado de varias maneras, pero no lo logro. Creo que lo que necesito, salvo mejor criterio, es saber cuál de los checkBox fue seleccionado por el usuario. Quiero hacerlo general, para no tener que estar dando el nombre del CheckBox ni de la celda activa. El formulario tiene varios CheckBox. Les agradezco su ayuda.
  5. Va perfecto Leopoldo, muchísimas gracias. Antoni, cómo vas? Estoy de acuerdo con vos, siempre es mejor investigar para aprender mejor, en este caso ya había investigado sobre el Intersect, pero me comprometía otro funcionamiento, seguramente no lo había aplicado bien, por eso ya en última instancia recurro a ustedes y trato de ser muy especifico en mis consultas. Les agradezco muchísimo su tiempo y conocimiento. Buen día a todos, Admin: Favor cerrar el tema.
  6. Hola, gracias a ambos! Voy a probar y le comento. Le agradezco mucho,
  7. Buenos días, gusto saludarles. Tengo un problemita con la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next 'If Target.Address = "$B$160:$B$219" Then If Target.Value = "Hipoteca" Then mostrar_filas_hipoteca ocultar_filas_vacias ElseIf Target.Value = "Valores" Then mostrar_filas_valores ocultar_filas_vacias ElseIf Target.Value = "Prenda" Then mostrar_filas_prenda ocultar_filas_vacias ElseIf Target.Value <> "Hipoteca" Or Target.Value <> "Valores" Or Target.Value <> "Prenda" Then ocultar_filas_vacias End If If Hoja3.[R7].Value <> "" Then SiguienteFilaDisponible End If 'End If End Sub Otras de las macro que llama son: Public Sub mostrar_filas_hipoteca() For Each r In Range("$B$160:$B$219") If r.Value = "Hipoteca" Then r.EntireRow.Hidden = False End If Next End Sub La macro está directamente en la Hoja1 y las otras que llama, están en un módulo. El problema que tengo es que necesito que solo se active cuando está en el rango "B160:B219", pero eso no sucede así, ya que la macro corre en cualquier casilla en que le dé ENTER, de toda la hoja. Lo intenté con un IF, que aparece ahí comentado, pero tampoco funciona. Agradezco la ayuda que me puedan brindar. Saludes,
  8. Ya lo resolví, le pasé un parámetro a la clave, de esta manera: With Hoja7 Hoja7.Unprotect (s1234) Así llama el parámetro, ya que esa no es la clave real, y me desprotege la hoja que necesito. Les agradezco mucho toda la ayuda brindada. Administradores: ya podemos cerrar el tema. Gracias,
  9. ...ya se qué es, es que la Hoja7 está protegida y aunque tengo esta instrucción: With Hoja7 Desproteger (...) Sub Desproteger() ActiveSheet.Unprotect ("123") End Sub no desprotege la Hoja7, sino, la que está activa (ActiveSheet.Unprotect). ¿Cómo lo podré resolver?
  10. Buenos días Abraham. El problema es que el archivo es muy pesado y aquí en mi trabajo tenemos restringidas muchas paginas para compartir archivos. Les estaba alistando un archivo para poderlo subir, con menos peso y probándolo ya sin módulos ni hojas adicionales, la macro sí corrió desde otra hoja. Entonces no se lo que estará pasando...
  11. Buenos días Abraham. El problema es que el archivo es muy pesado y aquí en mi trabajo tenemos restringidas muchas paginas para compartir archivos. Les estaba alistando un archivo para poderlo subir, con menos peso y probándolo ya sin módulos ni hojas adicionales, la macro sí corrió desde otra hoja. Entonces no se lo que estará pasando...
  12. si corro la macro en la Hoja7 corre perfectamente, pero si estoy en la Hoja1, es donde me presenta el error...
  13. Buenos días. Aaquino, muchas gracias por tu consejo, así lo hice ya! Abraam me comentó eso y lo cambié, ahora está así: With Hoja7 With .Range("D23:D24").Font .ThemeColor = xlThemeColorDark1: .TintAndShade = 0 End With End With pero nada más pasa por el With .Range y se cae en el .ThemeColor... Abraham, se sigue cayendo ahí y no hay ningún modulo que se llame Hoja7, estoy trabajando en un modulo aparte y necesito hacer referencia a la Hoja7 sin que la seleccione, como bien me indicaron usted y Aaquino.
  14. Hola Abraham, muchas gracias por su respuesta. Lo hice así, pero me da el siguiente error: Error 1004 en tiempo de ejecución: Error definido por la aplicación y por el objeto. .ThemeColor = xlThemeColorLight1 Por qué será?
  15. Hola, gusto saludarles. Necesito realizar una modificaciones de formato en una hoja que está oculta, lo que quiero es que al estar oculta no tener que hacerla visible, seleccionarla, correr la macro y volverla a ocultar. Tengo el siguiente código: With Hoja7 With Range("D23:D24").Font 'encabezado .ThemeColor = xlThemeColorDark1: .TintAndShade = 0 End With With Range("D26:D43").Font 'cuerpo sin lo estreses que deben quedar más tenues .ThemeColor = xlThemeColorLight1: .TintAndShade = 0.499984740745262 End With With Range("D49:D51,D53:D54").Font 'CSD y Generación de divisas .ThemeColor = xlThemeColorLight1: .TintAndShade = 0.499984740745262 End With End With ...pero solamente funciona al estar la Hoja7 seleccionada. Les agradezco su colaboración,
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5