Eduard Caballero

Prueba esto a ver si hace lo que quieres Sub entero() Dim numero As Integer Sheets(1).Range("A1").Select Do While Not IsEmpty(ActiveCell) numero = Right(ActiveCell, 1) If numero = 0 Then ActiveCell.Select With Selection.Interior .Color = 255...

En mi skydrive hay un ejemplo que hace lo que quieres. https://skydrive.live.com/?cid=e5f28d555f68f3cc Sino aqui y se llama factura https://skydrive.live.com/?cid=e5f28d555f68f3cc#cid=E5F28D555F68F3CC&id=E5F28D555F68F3CC%21169

Se me ocurre lo siguiente Te vas al primer titulo, seleccionas la celda y le colocas un nombre a la celda en el cuadro de nombres Luego te vas a la opción hipervínculo y seleccionas lugar de esta mismo documento y allí te aparecerán los nombres que...

Con macros puedes hacer eso con este código Private Sub Worksheet_Change(ByVal Target As Range) datos = "B5" If Not Application.Intersect(Target, Range(datos)) Is Nothing Then 'mostramos un mensaje Range("c5") = Date Range("d5") = Time End If End Sub...

No entiendo ese orden de copiado. ¿Primero qué la ubique en G después en DE y luego en C? Eso no tiene orden lógico, así no lo puedo programar

El el foro tienes varias opciones http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/2597113/eliminar-filas-vacias-ii...

Suponiendo que la palabra casa esta en la celda b3 puedes aplicar esto =MAYUSC(DERECHA(B3;3))

Prueba así Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("citas").Range("G2") = Date ActiveWorkbook.Save End Sub

Puedes usar lo siguiente. Supondré que lo quieres insertar en la celda vacía de la columna B en la hoja1 Private Sub CommandButton1_Click() Sheets(1).Select Range("B65000").End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveCell = TextBox1 End Sub

Prueba esto. Coloque en a2:b2 el primer horario y en a3:b3 el segundo horario. La hora a buscar en la c2 y la fórmula siguiente en la D2 =SI(Y(C2>A2;C2<B2);"1er Turno";SI(Y(C2>A3;C2<B3);"2do Turno";"3er Turno"))