Agregar Loop a macro hasta que se cumpla condicion
publicado
Necesitaria su ayuda para agregarle un loop a esta macro que haga que mientras H36 sea "Bajo" se copie el valor de K36 en C36, si el valor de H36 es "alto" se copie L36 en C36 y si el valor de H36 es "Bien" termine la macro.
El resto funcion abien pero yo mismo no pude agregarle el loop, les dejo masomenos lo que tengo
Sub Porcentajes()
Application.Calculation = xlCalculationAutomatic
If Range("h36").Value = "Bajo" Then
Range("k36").Copy
Range("c36").PasteSpecial xlPasteValues
End If
If Range("h36").Value = "Alto" Then
Range("l36").Copy
Range("c36").PasteSpecial xlPasteValues
End If
If Range("h36").Value = "Bien" Then Exit Sub
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Necesitaria su ayuda para agregarle un loop a esta macro que haga que mientras H36 sea "Bajo" se copie el valor de K36 en C36, si el valor de H36 es "alto" se copie L36 en C36 y si el valor de H36 es "Bien" termine la macro.
El resto funcion abien pero yo mismo no pude agregarle el loop, les dejo masomenos lo que tengo
Sub Porcentajes()
Application.Calculation = xlCalculationAutomatic
If Range("h36").Value = "Bajo" Then
Range("k36").Copy
Range("c36").PasteSpecial xlPasteValues
End If
If Range("h36").Value = "Alto" Then
Range("l36").Copy
Range("c36").PasteSpecial xlPasteValues
End If
If Range("h36").Value = "Bien" Then Exit Sub
End Sub