Hector Pacheco

Por lo que pude entender esto es lo que usted necesita: contador1 = 0 contador2 = 0 For Each c In Worksheets("Diario").Range("Q10:Q40") If c.Value <> "" Then Worksheets("Diario").Cells(100 + contador2, 17).Value = Worksheets("Diario").Cells(10 +...

Tu problema puedes resolverlo si incluyes la fecha dentro de la celda junto con la hora. Por ejemplo: Celda A1 = "23:00 26/10/2010" Celda A2 = "01:00 27/10/2010" La formula MAX(A1:A2) te dara como resultado el valor de la celda A2

Esto se resuelve escribiendo lo siguiente en el código de la Hoja que desee: Private Sub Worksheet_SelectionChange(ByVal Target As Range) TextBox1.Text = Target.Value End Sub Para que esto funcione no debe estar en modo de diseño en la Hoja Saludos

Esto se puede resolver con la fórmula "SI". En la celda "A1", de la Hoja2, debe colocar la siguiente fórmula: =SI($K$1="ejecutado";Hoja1!A1;"") Luego copia y pega la celda "A1" en las celdas desde "B1" en adelante. Saludos =)

Me parece que lo que quieres decir es poner una ruta en una fórmula ;) Si se puede hacer y es realmente sencillo. Solo tienes que abrir los Libros y luego vincular las celdas del Libro ACUMULADO con las celdas de los Libros FINAL tal cual como lo...

Esto no se puede hacer directamente en la hoja porque se crearía bucle cíclico infinito, pero si se puede hacer con un sencillo Macro y el edito VB: En el código de la Hoja1 colcas esto Private Sub Worksheet_Change(ByVal Target As Range) If Target =...

Puedes hacerlo de la siguiente forma: myDocument.Shapes("Line 1").Select Selection.Delete

Tengo una posible solución a tu problema. Cree un libro con tres hojas llamadas "Todos", "Activos" y "No Activos". Haciendo una selección de un campo de Status, en la joja "Todos", se puede intercambiar automáticamente todos los datos entre las hojas...

Modifique y probé su código y funciona bien. El problema que encontré es el uso de OptionButton. Enabled cuando en realidad debería utilizar OptionButton.Value. Pruebe con el siguiente código: Dim x As Control For Each x In Frame1.Controls If x.Value...