Isaac Reyes

Tratando de comprender tu pregunta, me imagino que Laperla es la hoja principal y todas las hojas hacen referencia a esa hoja. Si es así, cabe preguntarse si todas las hojas (excluyendo Laperla) tienen el mismo formato, osea, si en todas las hojas...

El código funciona perfecto, el problema está en que lo estás agregando en un módulo y no en una hoja. En el editor de código, al lado izquierdo, aparece el paner "Proyecto", dale doble clic a la hoja en que quieres trabajar y te aparecerá (al lado...

Creo que con las modificaciones pertinentes, esta macro te puede ser útil 'Copia todo el rango de celdas usadas en Hoja1 'a la primera hoja de un nuevo libro Sub copiarPegar() ' ' Macro1 Macro ' Macro grabada el 12/09/2009 por Isaac Reyes ' Dim Hojas...

Luego de cabecearme unas cuantas horas, no he podido llegar a un algoritmo que me de con la solución a tu interrogante. El problema es el siguiente: La solución planteada en el ejemplo que me muestras consideda la suma de dos números y si observas...

Supongamos que las fechas las tienes en las celdas A10 y A11 respectivamente, en tal cso tu código quedaría así: Sub ffffffff() ' ' ffffffff Macro ' ' Range("A9").Select Selection.AutoFilter ActiveSheet.Range("$A$9:$J$2041").AutoFilter Field:=1,...

La variable, al estar definida como Dim dentro del procedimiento, su tiempo de vida dura hasta que el procedimiento se acaba, por tanto debes definirla fuera, de tal forma que los otros procedimientos, o funciones también tengan conocimiento de él....

No sé si haya una forma corta de hacer lo que pides. De todas formas, aquí te dejo una macro que te puede sacar de apuros por el momento. Sub combinar() Set hojaObjeto = Hoja1 Set hojaColor = Hoja2 Set hojaDestino = Hoja3 k = 1 For i = 1 To...

El problema es sencillo, siempre que quieras asignar un objeto a una variable, utiliza Set, en tu código quedaría así: Sub DIBUJAR() Dim PTOXINICIO As Long Dim PTOYINICIO As Long Dim HCOST As Long PTOXINICIO = Sheets("MD").Range("C2").Value...

Debes poner esta macro en cada hoja que quieres que actúe de esa forma Private Sub Worksheet_FollowHyperlink(ByVal Enlace As Hyperlink) strNuevaHoja = Left(Enlace.SubAddress, InStr(1, Enlace.SubAddress, "!") - 1) Sheets(strNuevaHoja).Visible =...

Buen plato de tallarines me pusiste con tu pregunta, pero creo que capté lo que me quisite decir, y si no lo hice, me corriges. Creo que esto lo que querías lograr Sub Makro1() Dim myRow As Integer Range("a65536").End(xlUp).Offset(0, 2).Select myRow...