Nathalia Anaya

Dante Amor respondió: H o l a: Te anexo la macro actualizada: Sub GrabarPacienteRevision() 'Act.Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("INGRESAR_CITA") Set h2 = Sheets("Revision") h1.Unprotect...

Elsa Matilde respondió: Este sería un modo: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$21" Then ContieneControl elseIf Target.Address = "$D$6" Then controlaWeb end if End Sub Y en un módulo tendrás tu subrutina 'controlaWeb'. No se si...

Dante Amor respondió: H o l a: Te anexo la macro actualizada Sub modificar2() 'Por.Dante Amor Application.ScreenUpdating = False Set h2 = Sheets("AGENDA") Set h3 = Sheets("REAGENDAR") Set h4 = Sheets("INGRESAR_CITA") ' If h3.[D4] = "" Then MsgBox "Número de Registro Único...

Dante Amor respondió: H o l a: Te anexo la macro actualizada Sub Buscar2() 'Por.Dante Amor Set h2 = Sheets("BASE") Set h3 = Sheets("INGRESAR_CITA") Set h4 = Sheets("AGENDA") h3.[D8:D24].ClearContents ' If h3.[D6] = "" Then MsgBox "Número de Identificación VACIO." & vbCrLf...

Dante Amor respondió: H o l a: Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Address(False, False) = "C14" Then [F6] = 0 [F7] = [C14] End If If Target.Address(False, False) =...

Dante Amor respondió: H o l a: Te anexo la macro para filtrar las hojas. Consideraciones que debes tomar en cuenta: 1. En la celda C3 poner una fecha 2. En la celda C2 poner el Título, por ejemplo, si en los encabezados de las 28 hojas en la celda A5 dice: "Fecha",...

Miguel Angel respondió: Pues esa no me funcionó pero esta si Sub ContieneControl() If Range("D21") Like "*Control*" Then MsgBox "Ojo." End If End Sub Ahora lo que necesito con ella es que sea automática es decir, que cuando yo escriba en la celda "D21" y de enter,...

Dante Amor respondió: H o l a Nathalia: Ya tengo tu correo, voy a revisar el archivo y en cuanto tenga una respuesta te la envío. S a l u d o s

Dante Amor respondió: H o l a : Te anexo la fórmula: SI(SUMA(CONTAR.SI(G2;{"*CXC*";"*TXC*";"*LXC*";"*PXC*"}))>0;"Correcto";"Incorrecto")