Luis Mondelo

Te mando mi solución. Con esta macro todo resuelto: Sub ejemplo()'por luismondeloSheets("hoja1").SelectRange("b1").CopySheets("hoja2").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial...

Te dejo un ejemplo que he creado en el siguiente link. http://es.tbox.ws/2AZ2kC Por favor recuerda finalizar la consulta, esto es importante

Te mando mi solución: -Declaramos la viable n como pública -Puedes dibujar un botón y adjudicarle la macro "contador" -También puedes dibujar otro botón para limpiar la variable ejecutando la macro "limpiar" Por favor recuerda finalizar la consulta,...

He creado un ejemplo que te puede ayudar. Dime tu mail y te lo mando

Te mando una solución, sigue mis pasos: -Marca con el ratón todo el rango de celdas que están mal -Después ejecuta esta macro: Sub ejemplo() For Each celda In Selection Application.SendKeys "{F2}{ENTER}" Next End Sub Si ha funcionado, recuerda...

Aparentemente lo que cuentas se puede hacer, pero indudablemente tengo que ver los datos y que lo expliques detalladamente con un ejemplo: [email protected]

Te mando un ejemplo, sigue mis pasos: -Dibuja un userform y dentro de él dibuja un textbox y un botón -Después copia esta macro dentro del userform y prueba a introducir datos en el textbox y luego pulsa el botón. Private Sub CommandButton1_Click()...

Para solucionarlo necesitas cerrar u ocultar el formulario activo para ver el siguiente, por ejemplo: si tenemos abierto el userform1 y abrimos el userform2 lo haríamos así: (Tenemos visible el userform1) Unload me --->con esta sentencia cerramos el...

Te mando mi solución, sigue mis pasos: -Primero marca con el ratón las celdas de esa columna que quieres analizar -Después de que estén marcadas las celdas anteriores ejecuta esta macro: Sub prueba() 'por luismondelo For Each celda In Selection If...

Te mando mi solución, nos imaginamos que tienes esos datos en la columna A desde A1 hacia abajo. Nos posicionamos en la B1 y escribes esta fórmula: =NSHORA(IZQUIERDA(A1;2);EXTRAE(A1;HALLAR(":";A1)+1;2);EXTRAE(A1;HALLAR(":";A1;HALLAR(":";A1)+1)+1;2))...