macro en chatGpt no funciona

2 envíos / 0 nuevos
Último envío
oskkk4
Imagen de oskkk4
Offline
última acción: Hace 9 meses 2 semanas
alta: 24/06/2020 - 04:45
Puntos: 180
macro en chatGpt no funciona

le pregunte a chat gpt como sumar ciertos valores rellenados con 3 colores diferentes y me los sumara en otra celda rellenada con el color rojo, me dio esta macro y me da valor de cero, le pregunte de 10 diferentes maneras y nunca me resolvio, siempre me dio cero, aqui envio el archivo y la macro dentro y aqui en texto.

Sub SumarColores()

 

    Dim ws As Worksheet

    Dim rng As Range

    Dim cell As Range

    Dim suma As Double

 

    ' Establecer la hoja de trabajo

    Set ws = ThisWorkbook.Sheets("Hoja1")

 

    ' Establecer el rango en la columna A desde la fila 1 hasta la última fila con datos

    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

 

    ' Inicializar la variable de suma

    suma = 0

 

    ' Recorrer cada celda en el rango

    For Each cell In rng

        If cell.Interior.ColorIndex = 3 Then

            ' Si la celda en la columna A tiene ColorIndex 3, sumar los valores de las celdas adyacentes con ColorIndex 6, 44 y 43

            suma = suma + SumarColoresAdyacentes(cell.Offset(0, 1), 6) + SumarColoresAdyacentes(cell.Offset(0, 1), 44) + SumarColoresAdyacentes(cell.Offset(0, 1), 43)

            

            ' Mostrar la suma en la misma celda con ColorIndex 3

            cell.Value = suma

            ' Reiniciar la variable suma para la próxima celda con ColorIndex 3

            suma = 0

        End If

    Next cell

 

End Sub

 

Function SumarColoresAdyacentes(rng As Range, colorIndex As Integer) As Double

    ' Función para sumar los valores de las celdas adyacentes con un ColorIndex específico

    Dim sumaParcial As Double

    Dim c As Range

 

    sumaParcial = 0

 

    ' Recorrer cada celda adyacente

    For Each c In rng.Resize(, 3).Cells

        If c.Interior.ColorIndex = colorIndex Then

            ' Si la celda tiene el ColorIndex deseado, sumar su valor

            sumaParcial = sumaParcial + c.Value

        End If

    Next c

 

    ' Devolver la suma parcial

    SumarColoresAdyacentes = sumaParcial

End Function

ahora tengo sumados los valores de los colores en la celda roja con una suma simple en excel, pero si ejecutan la macro veran que les pone 0

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 3 semanas 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Normal que no funcione, poco

Normal que no funcione, poco nos pasa por fiarnos a ciegas de chatgpt y similares.

Mira estas entradas del foro, hablan de contar celdas pero se haría similar si quisiéramos sumar los valores de esas celdas:

https://www.necesitomas.com/contar-celdas-colores

https://www.necesitomas.com/contar-celdas-colores-intervalo-fechas

 

 

------
Ya sé Excel, pero necesito más.