Hola, Buenas Noches, quisiera hacer lo siguiente en una macro:
En una tabla tengo en la fila 12 la siguiente fórmula:
=SI(C11=$D$3,$E$3,"")
=SI(D11=$D$3,$E$3,"")
=SI(E11=$D$3,$E$3,"")
=SI(F11=$D$3,$E$3,"")
=SI(G11=$D$3,$E$3,"")
=SI(H11=$D$3,$E$3,"")
En esa fórmula la única variable es la columna, que cambia a lo largo
de la fila, es decir, puse la fórmula =SI(C11=$D$3,$E$3,"") en la
celda C12 y la copie a lo largo hasta la columna AA12
Intenté poner el siguiente código, para hacer precisamente lo
anterior:
Sub validar()
If Hoja1.Range("C11") = Hoja1.Range("D3") Then
Hoja1.Range("C12").Value = Hoja1.Range("E3")
End If
If Hoja1.Range("D11") = Hoja1.Range("D3") Then
Hoja1.Range("D12").Value = Hoja1.Range("E3")
End If
If Hoja1.Range("E11") = Hoja1.Range("D3") Then
Hoja1.Range("E12").Value = Hoja1.Range("E3")
End If
If Hoja1.Range("F11") = Hoja1.Range("D3") Then
Hoja1.Range("F12").Value = Hoja1.Range("E3")
End If
End Sub
El problema es, que si son 50 columnas, tendría que escribir en el
código 50 veces lo mismo, variando el código en el rango a validar.
Cómo realizo el código para que haga lo que les explico, optimizar el
código.
Espero haberme explicado correctamente y que me puedan apoyar con sus
amables respuestas.
Leer las respuestas