Esta es una pregunta de seguimiento de este hilo . ¿Puedo preguntar si es posible actualizar el valor de una celda después de usar un filtro automático ? Entonces, el flujo en el que estoy pensando es que filtrará los datos y luego actualizará la celda P9 donde este es el resultado de la primera fila del filtro, con el valor de 1.

A continuación se muestra el código que estoy tratando de modificar. Este código es similar a este hilo, pero esta vez necesito actualizarlo en lugar de eliminarlo.

For Each ws In Sheets(Array("N-Q1", "N-Q2", "N-Q3", "N-Q4", "N-D", _
"JK-Q1", "JK-Q2", "JK-Q3", "JK-Q4", "JK-D", "SK-Q1", "SK-Q2", "SK-Q3", "SK-Q4", "SK-D"))    
   With ws.Cells(8, 3).CurrentRegion
     .AutoFilter 2, LRN
     ws.AutoFilterMode = False
   End With         
Next ws

0
cjvdg 12 mar. 2021 a las 09:41

1 respuesta

La mejor respuesta

Aquí está la solución que hice

For Each ws In Sheets(Array("N-Q1", "N-Q2", "N-Q3", "N-Q4", "N-D", _
    "JK-Q1", "JK-Q2", "JK-Q3", "JK-Q4", "JK-D", "SK-Q1", "SK-Q2", "SK-Q3", "SK-Q4", "SK-D"))
    
    lastRow = ws.Cells(Rows.Count, "C").End(xlUp).Row
        
    For r = 9 To lastRow
        
        If ws.Cells(r, 3) = CStr(ThisWorkbook.Sheets("HOME").Range("K11").value) Then
            If ws.Cells(r, 16) = "0" Or ws.Cells(r, 16) = "" Then
                ws.Cells(r, 16) = "1"
                Debug.Print "STUDENTS: " & ws.Cells(r, 3) & "  Verified!"
            Else
                Debug.Print "STUDENTS: " & ws.Cells(r, 3) & "  Already Verified!"
            End If
        End If
    
    Next r
    
    Next ws
0
cjvdg 15 mar. 2021 a las 01:04