none
CREAR MACRO PARA EXCEL RRS feed

  • Pregunta

  •  

    Me podria alguien facilitar una macro que seleccione todas las celdas de una misma columna los multiplos de 4. Lo necesita mi padre para el curro y me ha pedido que lo poste  aqui.

     

    Muchisimas gracias

    jueves, 25 de octubre de 2007 22:32

Respuestas

  • Chico, encontre un ejemplo hace dias de como sobrear las celdas esta en la ayuda en linea de excel

    este es el codigo de la macro que proporciona microsoft, analizalo y creo que puedes construir lo que estas solicitando

    Option Compare Text
    Sub LoopRange2()

    'Indique a VBA que la variable MyCell variable es un intervalo
    Dim MyCell As Range
    'Repita usando For Each…Next en la selección
    For Each MyCell In Selection
    If MyCell.Value Like "*Book*" Then
    'Establezca el color de fondo de la celda como rojo
    MyCell.Interior.ColorIndex = 3
    ElseIf MyCell.Value Like "*Movie*" Then
    'Establezca el color de fondo de la celda como verde
    MyCell.Interior.ColorIndex = 4
    ElseIf MyCell.Value = "" Then
    'Elimine el color de fondo de la celda
    MyCell.Interior.ColorIndex = xlNone
    Else
    'Establezca el color de fondo de la celda como azul
    MyCell.Interior.ColorIndex = 5
    End If
    Next

    End Sub


    • Marcado como respuesta Ismael Borche miércoles, 6 de abril de 2011 15:01
    jueves, 29 de noviembre de 2007 16:53

Todas las respuestas

  • ¿seleccionar los números que sean múltiplos de 4, o los números que se encuentren en una celda con número de fila múltiplo de 4?

    viernes, 26 de octubre de 2007 18:26
  • Chico, encontre un ejemplo hace dias de como sobrear las celdas esta en la ayuda en linea de excel

    este es el codigo de la macro que proporciona microsoft, analizalo y creo que puedes construir lo que estas solicitando

    Option Compare Text
    Sub LoopRange2()

    'Indique a VBA que la variable MyCell variable es un intervalo
    Dim MyCell As Range
    'Repita usando For Each…Next en la selección
    For Each MyCell In Selection
    If MyCell.Value Like "*Book*" Then
    'Establezca el color de fondo de la celda como rojo
    MyCell.Interior.ColorIndex = 3
    ElseIf MyCell.Value Like "*Movie*" Then
    'Establezca el color de fondo de la celda como verde
    MyCell.Interior.ColorIndex = 4
    ElseIf MyCell.Value = "" Then
    'Elimine el color de fondo de la celda
    MyCell.Interior.ColorIndex = xlNone
    Else
    'Establezca el color de fondo de la celda como azul
    MyCell.Interior.ColorIndex = 5
    End If
    Next

    End Sub


    • Marcado como respuesta Ismael Borche miércoles, 6 de abril de 2011 15:01
    jueves, 29 de noviembre de 2007 16:53