Ander GS

Carlos Llerena, Adjunto enlace archivo excel con un ejemplo el desarrollo de tu consulta para su revisión. Rellena los Textbox automaticamente cuando se ingresa un valor en otro textbox. Espero que te sirva de ayuda y este acorde a tu necesidad....

Esteban Lagos, Adjunto código de dos macros como ejemplo para el desarrollo de tu consulta para su revisión. La macro MAcroX ejecuta la macro Reemplazar. Sub MacroX() Call Reemplazar Sheets("Hoja2").Select MsgBox "Se ejecuto la macro Reemplazar" End...

Jose García, Adjunto el código para el desarrollo de tu consulta para su revisión. Sub EncontrarCopiar() Sheets("GRUPOS").Select On Error Resume Next Fila = Worksheets("GRUPOS").Range("Z:Z").Find(What:=Worksheets("CREAR_GRUPO").Range("I11"), _...

Antonio Fernandez, Según lo que indicas en tu requerimiento, se adjunta el código para el desarrollo de tu consulta. Se trabajo con una macro de eventos de libro (ThisworkBook) utilizando el evento SHEETACTIVATE, así como se muestra en el recuadro:...

Javier Freyre, Adjunto fórmula para la solución de tu consulta y para su revisión. Según el ejemplo que muestras en la imagen debes de digitar o pegar la fórmula en las siguientes celdas 1. Para el caso de cancelados en la celda T784: [T784]...

Jose Segura, Adjunto el código para el desarrollo de tu consulta para su revisión. 1. Código para cortar la fila de la celda activa: Sub CortarFilaCeldaActiva() Fila = ActiveCell.Row Rows(Fila & ":" & Fila).Cut End Sub 2. Código para copiar la fila...

Esteban Lagos, Adjunto código de la solución de tu consulta para su revisión. Sub CondicionEjecutarMacro() On Error Resume Next Busca1 = Worksheets("Hoja2").Cells.Find(What:=Worksheets("Hoja1").Range("A1"), LookIn:=xlValues, MatchCase:=True) Busca2 =...

Adjunto código para la solución de consulta para su revisión. Sub DescombinarCeldas() For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & i).MergeCells = True Then Rango = Replace(Range("A" & i).MergeArea.Address(False, False), "A",...

Janeth Marquez, Adjunto código macros correspondiente a la solución de tu consulta para su revisión. Sub CompararFechas() UltimaFila = Range("R" & Rows.Count).End(xlUp).Row For i = 1 To UltimaFila If IsDate(Range("R" & i)) = True Then If Range("R" &...

Franciso Jaimes, Proporciono macros para el desarrollo de tu consulta. El primer código realiza la concatenación de apellidos y nombres de todos las filas El segundo código limpia o borrar el contenido de los resultados obtenidos por el primer...