Dante Amor

H o l a: Tienes que declarar al principio del formulario, como Public la variable rango: Te anexo los eventos para llenar el textbox US Private Sub CMB_DENOMINACION1_Change() 'Por.Dante Amor PonerUs 1 End Sub Private Sub CMB_DENOMINACION2_Change()...

H o l a: No veo cómo estás calculando la última fila, pero puedes volver a calcular la última fila, y con eso solamente tendrás hasta la última fila visible: uf2 = Range("E" & Rows.Count).End(xlUp).Row filas_visibles_TD_Opciones = Range("E2:E" &...

H o l a: Te recomiendo hacer un ciclo, ya que con find no vas a encontrar la coincidencia de día y de mes. Para encontrar una coincidencia de día y de mes tendrías que utilizar una fórmula matricial, pero aún así, si dos o más personas cumplen años...

H o l a: Antes de poner en ejecución las macros tienes que bloquear y desbloquear las columnas según lo requieras, para eso: Desprotege la hojaSelecciona todas las celdasEn formato de celdas, Proteger desactivar Bloqueada, AceptarSi tienes celdas...

H o l a: Esta es una opción, para que en un Menú de excel, se carguen todas tus hojas y puedas seleccionar la hoja a la que quieres ir: Para crear la pestaña y se carguen las hojas, ejecuta la siguiente macro. Pon la macro en un módulo: Sub...

H o l a: Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor If Not Application.Intersect(Target, Range("H:H")) Is Nothing Then If Target.Count > 1 Then Exit Sub 'ActiveSheet.Unprotect Password:="123"...

H o l a: Te anexo la fórmula unificada: =SI(F5="";"";SI.ERROR(BUSCARV(F5;Config.!B5:D1997;3;FALSO);SI.ERROR(BUSCARV("*"&F5&"*";Config.!D5:D1997;1;FALSO);"No hay coincidencias"))):) ;)

H o l a: En tu macro estás poniendo 2 diagonales en esta parte: ChDir ThisWorkbook.Path & "\..\" & "\Misceláneos" Antes de la M de Misceláneos tienes otra diagonal Podría ser así: ChDir ThisWorkbook. Path & "\..\Misceláneos" Otra opción es que pongas...

H o l a: Antes de comparar el medicamento, se tendría que separa el contenido de la celda. Por ejemplo: Si en la celda tienes: "Tramadol, Gabapentina y Yantil" Entonces se tiene que buscar "Tramadol" en los medicamentos, después se tiene que buscar...

H o l a: Para cambiar el separador de listas a punto y coma: Private Declare Function GetLocaleInfo Lib "kernel32" Alias _ "GetLocaleInfoA" (ByVal Locale As Long, _ ByVal LCType As Long, ByVal lpLCData As String, _ ByVal cchData As Long) As Long...