No me funciona la macro
Julio:
Disculpame, he seguido al pie de la letra tus indicaciones y en las en las celdas seleccionadas se me queda los textos que copie y no me permite poner los números, cuando le doy a F5, me sale una ventana pequeña que se titula "ir a:"
No se que sucede pero llevo 2 días intentándolo y no me funciona.
Te pido me ayudes a terminar de arreglar esta macro,
saludos de Osvaldo.
Disculpame, he seguido al pie de la letra tus indicaciones y en las en las celdas seleccionadas se me queda los textos que copie y no me permite poner los números, cuando le doy a F5, me sale una ventana pequeña que se titula "ir a:"
No se que sucede pero llevo 2 días intentándolo y no me funciona.
Te pido me ayudes a terminar de arreglar esta macro,
saludos de Osvaldo.
Respuesta de paramisolo
1
Vamos a ver he cometido un pequeño error, y siento que te haya llevado tanto tiempo decidirte a volver a consultarme, hay dos formas para ejecutar la macro, una es estando en la hoja pinchas en herramientas>macro>macros y te mostrará las que tiene ese libro pulsas en ella y después en ejecutar, también puedes hacer esto pulsas F11 y se abre el editor de VBA y SÍ pulsas F5 y se ejecuta ( esto es lo que no te dije el F11 antes del F5, disculpa) para cambiar el rango ya te lo dije pero vuelvo a ponértelo.
Sub Colores()
Range("Aquí pones tu rango por ej. B6:C5").Select
If ActiveCell.Font.color = RGB(0, 0, 255) Then
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Range("B2").Select
ActiveCell.PasteSpecial
End If
End Sub
Venga a ver si ahora no tienes problemas
>Un saludo
>Julio
*Siento decirte esta pregunta tambien tienes que puntuarla y finalizarla
Sub Colores()
Range("Aquí pones tu rango por ej. B6:C5").Select
If ActiveCell.Font.color = RGB(0, 0, 255) Then
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Range("B2").Select
ActiveCell.PasteSpecial
End If
End Sub
Venga a ver si ahora no tienes problemas
>Un saludo
>Julio
*Siento decirte esta pregunta tambien tienes que puntuarla y finalizarla
Vale, lo intentare y después si me queda alguna duda te lo hago saber, no te preocupes, que siempre finalizare tu pregunta,
saludos y te deseo lo mejor.
saludos y te deseo lo mejor.
