Lucas Rios

Espero estés realmente bien. ¿Cómo haces los movimientos entre hojas? ¿Utilizas Hipervínculos o macros? A que te referís con regresar una por una. Con un simple VOLVER en cualquier parte de la hoja podrías generar un hipervínculo a por ejemplo, una...

Espero estés realmente bien. Te paso un linck a un archivo de descarga que tiene una solución que podría funcionarte. https://www.dropbox.com/s/0qec28a9kjhyi9x/Comprobar%20y%20Copiar.xlsm Ademas, pego en el presente mensaje el código utilizado. Sub...

Espero estés realmente bien. El error de intervalo 9 se produce porque no encuentra lo que esta buscando. Sinceramente no encuentro ninguna linea incorrecta (Dan no se equivoca!) ¿Le preguntaste a èl? Bendiciones! Lucas.

Espero estés bien. Te cuento que no puedes lograr lo que tu estas diciendo ya que deberías meterte con códigos propios de Windows. Pero, ¿por qué no le pones contraseña al archivo y solo le das la contraseña a tu amigo? Con un poco de responsabilidad...

Espero estés realmente bien. ¿Por qué no creas una nueva columna de "Columna de Datos Positivos" y luego la traes a la TD? Bendiciones! Lucas.

Espero estés realmente bien. Te cuento que de forma predeterminada no viene. Pero si lo puedes "crear" mediante el uso de macros. Por ejemplo si quieres que la celda activa se te pinte de amarillo puedes poner un código que sea el siguiente. Sub...

Espero estés realmente bien. ¿Cómo determinas donde están los subtotales? ¿Eso es siempre estático en la fila 4? ¿El libro tiene mas filas que las que vos mencionas?

Espero estés realmente bien. Te cuento que la primer parte la podrías hacer con la siguiente macro: Sub Macro1() ' ' Macro1 Macro ' ' Range("B3:G3").Select Selection.Copy Range("I3").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,...

Espero estés realmente bien. Para poder hacer esto que estas solicitando, deberías copiar y pegar cada valor: Por ejemplo: ThisWorkbook.Sheets(1).Range("d5").Select Selection.Copy ThisWorkbook.Worksheets("Datos").Cells(NewRow, 1).Select ActiveSheet....

Espero estés bien. Te paso un código que evalúa el valor de la celda B1 y crea una lista con tres nombres. Sub LlenarLista() If Range("B1") = "OK" Then Range("A1").Select With Selection.Validation .Delete .Add Type:=xlValidateList,...