Andy Machin

Si te refieres solo a los datos, si se puede. Si con "cualquier cambio" te refieres a cualquier cosa como el color de una celda, el tamaño de una columna, y ese tipo de cosas visuales no (o al menos yo no se como se hace). Para igualar los datos lo...

Llama a esta macro en el evento Change del ComboBox Sub filterByPositivos() Dim pacientes As Worksheet: Set pacientes = Sheets("Pacientes") Dim uF As Integer Dim diagnostico As String, condicion As String uF = pacientes.Range("A" &...

¿Cuál es el resultado que esperas obtener? Creo que lo que quieres es sumar cantidad de horas, y recibir en el resultado pues eso, una cantidad de horas, no un horario. ¿Correcto? ¿Por qué usas VBA? Puedes sumar horas con la formula =SUM() Pero...

No se pueden "duplicar" los formularios. Tienes que exportarlo: NOTA: No puedes cambiar el nombre en la ventana de exportación o te dará error luego. Después que lo exportas, tienes que renombrar ese que quedó ahí en Excel por ejemplo...

Disculpa me quede dormido después de responderte jaja Cuando cargas un ComboBox lo puedes cargar con mas de una columna a la vez, de todas esas columnas, puedes asignar una como el texto que muestra visualmente al usuario, y otra con el valor real...

No me explico como, a menos que le hayas hecho la pregunta por privado :)

Prueba esta macro: Sub Calcular() Dim nValor As Integer Dim rCell As Range, rRng As Range Set rRng = Range("B4:B11") For Each rCell In rRng.Cells Select Case rCell.Value Case Is = 0 If rCell.Offset(0, 1).Value <> "" Then rCell.Offset(0, 2).Value =...

¿Ya no necesita ayuda? Bueno, de todas formas puede probar este código: Private Sub Worksheet_Change(ByVal Target As Range) h2 As Worksheet Set h2 = Sheets("Sheet2") 'para la columna A' If Target.Column = 1 Then h2.Range("A" & Target.Row).Value =...

Prueba este código, adapta lo que sea necesario: Sub FindFecha() Dim rCell As Range, rRng As Range Dim Sht1UF As Long, Sht2NF As Long Dim Sht1 As Worksheet, Sht2 As Worksheet Set Sht1 = Sheets("Sheet1") Set Sht2 = Sheets("Sheet2") Sht1UF =...

Ese código debería funcionar. De todas formas prueba este a ver (asumo que son fórmulas lo que hay en esas celdas) Sub Test2() Dim rCell As Range, rRng As Range Dim lRow As Long lRow = Range("A" & Rows.Count).End(xlUp).Row Set rRng =...