Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Problema con macro

05/09/2006 - 19:24 por Josema | Informe spam
Ayuda Hacer una pregunta
Hola grupo, quisiera que si tenéis un momento me revisarais esta macro:
Sub Valores()
'Valores menores de 5
For i = 1 To 10
If Cells(i, 1).Value = 5 Then
Cells(i, 2).Value = "Igual a Cinco"
Cells(i, 1).Resize(1, 2).Interior.ColorIndex = 4
End If
Next i
Tengo en la Columna A1:A10 los números del 1 al 10 y en B1:B10 quisiera que
cuando es igual a 5 escriba "Igual a cinco" y coloree las celdas.
Pues bien cuando lo ejecuto me dice: "No se puede ejecutar c´codigo en modo
de interrupción" y se pone en color amarillo la primera linea de la macro es
decir Sub Valores()
¿podéis ayudarme a corregir este código? Gracias por anticipado y un saludo
Josema
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Josema
06/09/2006 - 19:10 | Informe spam
Hola Abraham, perdona que no te haya contestado, pero es que en el Oubook no
veo este mensaje, he entrado en los grupos por el navegador y allí si que
esta, bueno cosas de la informática.
Gracias por tu información, consegui que funcionara. Ahora estoy siguiendo
"un poco más" y he abierto un hilo (que de a ver visto este) podiamos seguir
en él. ç
Lo he enominado Pregunta sobre For..Next. Ya sabes si e animas y
quieres ayudarme un poco se agradece.
Un saludo Abraham y muchas gracias por tus respuestas.
Josema

"Abraham" escribió:

Pues lo unico que veo que le falta es el END SUB

Sub Valores()
'Valores menores de 5
For i = 1 To 10
If Cells(i, 1).Value = 5 Then
Cells(i, 2).Value = "Igual a Cinco"
Cells(i, 1).Resize(1, 2).Interior.ColorIndex = 4
End If
Next i
End Sub

Abraham


Preguntas similares

 

Busqueda sugerida :