Excel - DUDA MACRO

Pos: 140

Val: 18

DUDA MACRO

Publicado por AITOR (7 intervenciones) el 12/02/2019 12:23:42

Hola a todos

Soy nuevo programando y tengo una dudas con las macros de excel.

Tengo una tabla con muchos datos. Cada fila indica un aparato con sus características.

Lo que quiero hacer es que cuando un valor supere los límites que le indico (Hasta ahí si lo he hecho bien), ponga ese dato en color rojo(También me ha salido) y además toda la fila que contiene todos los datos del aparato me la copie y me la pegue en otra hoja(NO he sabido hacer este paso)

¿Alguien me podría ayudar a programar el paso para que cuando un dato supere el limite(Con que solo uno supere los limites me vale) ponga toda la fila en la hoja 2?.

Gracias a todos

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 4.908

DUDA MACRO

Publicado por Antoni Masana (2477 intervenciones) el 13/02/2019 11:22:51

Sube un ejemplo y te ayudo.

Saludos.
\\//_

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 140

Val: 18

DUDA MACRO

Publicado por AITOR (7 intervenciones) el 13/02/2019 13:46:56

Gracias Antoni.

Subo el archivo.

Yo lo que quiero es programar para que cuando una fila tenga un valor superior al indicado(he realizado la macro para que esos valores los marque en rojo), TODA la fila se copie y pegue en la hoja dos del archivo.

También me gustaría saber como poner para que el programa funcione hasta la ultima fila con datos. (Hasta ahora lo he puesto manual. Si se añade una fila, tengo que meterme en la macro y colocar la nueva fila)

Gracias por la ayuda

PD:La macro está dentro del archivo

OBJETOSV1.rar(12,1 KB)

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

DUDA MACRO

Publicado por Antoni Masana (2477 intervenciones) el 13/02/2019 14:06:39

Esto te resuelve el problema del numero de filas y hace más clara la lectura de la macro.

Sub Objeto()

    Dim i As Byte

    i = 2

    While Cells(i, 1) <> ""

        If Cells(i, 3) = "1" Then

           If Cells(i, 5) > 20 Then Cells(i, 5).Interior.ColorIndex = 3

           If Cells(i, 6) > 500 Then Cells(i, 6).Interior.ColorIndex = 3

        End If

        If Cells(i, 3) = "2" Then

           If Cells(i, 5) > 20 Then Cells(i, 5).Interior.ColorIndex = 3

           If Cells(i, 6) > 500 Then Cells(i, 6).Interior.ColorIndex = 3

        End If

    Wend

End Sub

Esto copia una fila a otra hoja y se consigue con la mágica opción de GRABAR MACRO.

Sub Macro1()

    Range("A11:G11").Select

    Selection.Copy

    Sheets("Hoja2").Select

    Range("A2").Select

    ActiveSheet.Paste

    Sheets("Hoja1").Select

End Sub

Ahora hay que hacer unos cambios para adaptarla a la que ya tienes. En este momento no puedo, seguiré más tarde.

Saludos.
\\//_

OBJETOS_Ver_2.zip(16,5 KB)

Valora esta respuesta

Comentar

Pos: 140

Val: 18

DUDA MACRO

Publicado por AITOR (7 intervenciones) el 13/02/2019 15:20:37

Gracias por la ayuda Antoni

Vale, cuando puedas me ayudas a resolver la macro para que copie y pegue cuando cumpla al menos una condición

Valora esta respuesta

Comentar

Pos: 140

Val: 18

DUDA MACRO

Publicado por AITOR (7 intervenciones) el 13/02/2019 15:24:01

Al correr la macro se queda pillado el excel. Puede que sea el ordenador? O es algo de la macro que hace que su ejecución sea muy lenta?

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

DUDA MACRO

Publicado por Antoni Masana (2477 intervenciones) el 13/02/2019 15:49:30

Hay un error como no podia ser de otra forma. Falta una linea

Sub Objeto()

    Dim i As Byte

    i = 2

    While Cells(i, 1) <> ""

        If Cells(i, 3) = "1" Then

           If Cells(i, 5) > 20 Then Cells(i, 5).Interior.ColorIndex = 3

           If Cells(i, 6) > 500 Then Cells(i, 6).Interior.ColorIndex = 3

        End If

        If Cells(i, 3) = "2" Then

           If Cells(i, 5) > 20 Then Cells(i, 5).Interior.ColorIndex = 3

           If Cells(i, 6) > 500 Then Cells(i, 6).Interior.ColorIndex = 3

        End If

        i = i + 1

    Wend

End Sub

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

DUDA MACRO

Publicado por Antoni Masana (2477 intervenciones) el 14/02/2019 07:46:23

Versión completa y corregida.

Saludos.
\\//_

OBJETOS_Ver_3.zip(18,6 KB)

Valora esta respuesta

Comentar

Pos: 140

Val: 18

DUDA MACRO

Publicado por AITOR (7 intervenciones) el 14/02/2019 09:54:43

Muchas Gracias por la ayuda.

No se si aquí se pueden dar estrellas o valoraciones, pero si se pueden te doy las máximas.

Valora esta respuesta

Comentar

Pos: 140

Val: 18

DUDA MACRO

Publicado por AITOR (7 intervenciones) el 14/02/2019 10:21:05

Una última duda que no se hacer y lo acabo de ver:

Cómo se pone para que si la Temperatura tiene un dato superior al que queremos (Por tanto ese valor está marcado en rojo) se copie también a la hoja 2?.

Veo que hasta ahora sólo se copian y pegan los valores de la columna Nº de usos.

Gracias y disculpa las molestias.

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

DUDA MACRO

Publicado por Antoni Masana (2477 intervenciones) el 14/02/2019 16:45:39

En las lineas 34 y 39 hay un Copia = True que hace que copie cuando se da la condición de colorer por el numero de Usos.
Si quieres que copie en el caso de la temperatura hay que añadir otro Copia = True en las líneas 33 y 38

Sub Objeto()

    Dim i As Byte, Copia As Boolean

    ' ---&--- Lo primero es limpiar ante de colorear

    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

    With Selection.Interior

        .Pattern = xlNone

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

    Range("A2").Select

    ' ---&--- Limpio la hoja2

    Sheets("Hoja2").Select

    Range("A2").Select

    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

    Selection.ClearContents

    Selection.Delete Shift:=xlToLeft

    Selection.Clear

    Range("A1").Select

    Sheets("Hoja1").Select

    ' ---&--- Coloreamos

    i = 2

    d = 2

    While Cells(i, 1) <> ""

        Copia = False

        If Cells(i, 3) = "1" Then

           If Cells(i, 5) > 20 Then Cells(i, 5).Interior.ColorIndex = 3:  Copia = True

           If Cells(i, 6) > 500 Then Cells(i, 6).Interior.ColorIndex = 3: Copia = True

        End If

        If Cells(i, 3) = "2" Then

           If Cells(i, 5) > 20 Then Cells(i, 5).Interior.ColorIndex = 3:  Copia = True

           If Cells(i, 6) > 500 Then Cells(i, 6).Interior.ColorIndex = 3: Copia = True

        End If

        ' ---&--- Copia la fila

        If Copia Then

           Range("A" & i & ":G" & i).Select

           Selection.Copy

           Sheets("Hoja2").Select

           Range("A" & d).Select

           ActiveSheet.Paste

           Range("A" & d).Select

           Sheets("Hoja1").Select

           d = d + 1

           Range("A" & d).Select

        End If

        i = i + 1

    Wend

    Application.CutCopyMode = False

    Range("A" & i).Select

End Sub

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 140

Val: 18

DUDA MACRO

Publicado por AITOR (7 intervenciones) el 15/02/2019 12:24:50

Muchas Gracias,

He metido este código a un excel de más de 2500 objetos y tengo varias dudas.

1. La variable Byte no funciona para tantos valores, ¿Pongo double?
2. No me funciona para valores decimales, ¿Como pongo para que me funcione?
3. Cuando una celda está vacía y no quiero que aplique la macro puse esto: and cells (i,127) <> "" ¿Está bien?

Aquí abajo dejo una línea del código. La duda 2 está en el 0.15 del código, que considera todos los valores de la celda 127 superiores a 0.15 y los marca a todos en rojo.Cuando no debería ser así.

If Cells(i, 15) = ">170" And Cells(i, 127) > 0.15 And Cells(i, 127) <> "" Then Cells(i, 127).Interior.ColorIndex = 3: Copia = True

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

DUDA MACRO

Publicado por Antoni Masana (2477 intervenciones) el 15/02/2019 14:01:58

Sobre el punto 1. El codigo correcto es

Sub Objeto()

    Dim i As Long, Copia As Boolean

Has 32767 con una variable Integer es suficiente, en caso de más líneas a de se tipo Long.

El segundo punto no lo acabo de entender. Envíame el libro y sobre la marcha haber si lo entiendo.

Una observación que puede ayudar a entender mejor el código: Cuando se trata de las primeras columnas es fácil identificar a que letra corresponde cada número, pero cuanto más a la derecha se desplaza uno ya la cosa se va complicando.

CELLS() Tiene dos parámetros el primero es la fila y el segundo la columna y esta ultima permite expresarla en número, que va muy bien cuando hay que hacer desplazamientos horizontales o texto.

Por ejemplo Esto: While Cells(i, 1) <> "" y esto While Cells(i, "A") <> "" funcionan igual.

Saludos.
\\//_

Valora esta respuesta

Comentar

Crear una parrilla de fechas para asistencia

ORDENAR DATOS, AÚN CON ALGUNAS CELDAS COMBINADAS