Valero Angel Serrano Mercadal

Es una buena macro, la he probado. Me deja elegir 10 columnas, después da el error que dices. Esas 10 filas equivales a 40 áreas ya que cada línea tiene 4 áreas distintas. He probado haciendo que hubiera una área por fila y entonces me ha dejado 34....

No no se puede hacer. Porque esa macro que dices tendría que ejecutarse y si el otro ordenador no tiene habilitadas las macros no la puede ejecutar. Si pudiera hacerse sería una puerta de entrada a cualquier suerte de códigos maliciosos. Es incomodo...

Debes insertar esta macro en la hoja donde están esas celdas Private Sub Worksheet_Change(ByVal Target As Range) Dim celdas As Variant Dim i As Integer celdas = Array("C9", "E9", "N9", "L9", "C10", "C11", "C16", _ "C17", "C18", "F11", "I11", "B12",...

No adjuntas la macro, asi no se puede saber que líneas hay que cambiar. Lo mejor será si me mandas el fichero. MI correo es [email protected] Pon como asunto el título de la pregunta y si puede ser que el fichero también tenga un nombre alusivo tal...

He intentado entender la macro y más o menos lo consigo, pero es muy difícil captar todos los detalles sin un fichero de prueba. ¿Podrías mandarme el libro? Mi correo es ValeroASM#gmail.com Pon como asunto el título de la pregunta y como nombre del...

¡Qué horror! Estaban todas las líneas pegadas en una, pero las separé. He visto que funciona a la perfección, me las ordenó y puso en columnas de 10. Se puede mejorar el método para que haga la mitad de comparaciones. Tras la primera pasada la hoja...

Prueba con esta macro. Insértala en la misma hoja donde hagas la introducción de los datos Private Sub Worksheet_Change(ByVal Target As Range) Dim TargetCodigo, Rango, Rango2 As Range Dim Lugar As String If Not Intersect(Range("B:B"), Target) Is...

He intentado probar la macro pero no funciona, seguramente necesita otras macros o definiciones q

Existen unas macros llamadas Auto_Open() y AutoClose() que sirven para que se ejecuten las acciones que queramos bien al abrir o bien al cerrar el libro. Deben ser escritas en un modulo, no en las hojas ni en ThisWorkbook. Entonces supongamos que el...

Aquí tienes una macro muy simplificada con lo que pides, las celdas que se pasan soon A1 y B1 Sub pasardatos() If Worksheets("Hoja1").Cells(1, "A") <> "" And Worksheets("Hoja1").Cells(1, "B") <> "" Then Worksheets("Hoja2").Cells(1, "A") =...