Procesos For Next o Do while

Alguien me podría ayudar busco que esta instrucción:

If Hoja1.Range("I11").Value <> "" Then
If Hoja1.Range("E11") = 0 Then
Hoja1.Range("J11").Formula = Range("K11") / Range("I11")
If Range("J11") < 0.059 Then
MsgBox "Porcentaje por debajo de lo autorizado PRECIO DE VENTA NO PUEDE ESTAR VACIO, Corregir", vbSystemModal, "ATENCION CORREGIR DATOS!!!"
Exit Sub
End If
End If

If Range("E11") <> 0 Then
Hoja1.Range("J11").Formula = Range("K11") / Range("I11")
If Range("J11") < 0.099 Then
MsgBox "Porcentaje por debajo de lo autorizado PRECIO DE VENTA NO PUEDE ESTAR VACIO, Corregir", vbSystemModal, "ATENCION CORREGIR DATOS!!!"
Exit Sub
End If
End If
End If

Se repita desde la fila 11 a la 20, y que haga esas fórmulas.

1 Respuesta

Respuesta
1

Prueba con lo siguiente

Sub Validar()
    For i = 11 To 20
        If Hoja1.Range("I" & i).Value <> "" Then
            If Hoja1.Range("E" & i) = 0 Then
                Hoja1.Range("J" & i).Formula = Hoja1.Range("K" & i) / Hoja1.Range("I" & i)
                If Range("J" & i) < 0.059 Then
                    MsgBox "Porcentaje por debajo de lo autorizado PRECIO DE VENTA NO PUEDE ESTAR VACIO, Corregir", vbSystemModal, "ATENCION CORREGIR DATOS!!!"
                    Exit Sub
                End If
            End If
            '
            If Range("E" & i) <> 0 Then
                Hoja1.Range("J" & i).Formula = Range("K" & i) / Range("I" & i)
                If Range("J" & i) < 0.099 Then
                    MsgBox "Porcentaje por debajo de lo autorizado PRECIO DE VENTA NO PUEDE ESTAR VACIO, Corregir", vbSystemModal, "ATENCION CORREGIR DATOS!!!"
                    Exit Sub
                End If
            End If
        End If
    Next
    MsgBox "Fin"
End Sub

[Si es lo que necesitas. No olvides valorar la respuesta

Dante Amor, te podría mandar mi archivo para ver si le puedes dar una revisada?

¿Pero ya probaste la macro?

¿Puedes decirme si le falta algo?

No entiendo por qué me vas a enviar el archivo, ay probé la macro y me pone las fórmulas en las celdas de la 11 a la 20

Si ya la probé y si lo hace, es que tengo varias dudas, por ejemplo cuando pongo el precio correcto en la celda L12 a L20, con la tecla enter que me mande un msgbox que me diga si quiero agregar otro cliente, y me posiciona en la celda B12, pero si le digo que no, que me guarde y envíe el archivo (este proceso el de guardado y envío ya lo tengo y esta probado)obviamente todo esto se repite de la fila 11 a la 20, o a lo mejor el usuario solo usa la 11, o puede usar tres o cuetro filas, no sé si me entiendas, de antemano gracias

Este es el código que tenia para el msgbox de Desea agregar otro cliente, pero solo me lo hace en la primera fila...

Dim Resp As Byte
If Hoja1.Range("E11") = 0 And Hoja1.Range("J11") > 0.099 Then
Else
End If
If Hoja1.Range("E11") <> 0 And Hoja1.Range("J11") > 0.059 Then
Else
End If
Resp = MsgBox("Agregar otro cliente?", vbYesNo + vbExclamation, "AVISO")
If Resp = vbYes Then
Hoja1.Range("B12").Select
Else
If Resp = vbNo Then
If Hoja1.Range("E11") = 0 And Hoja1.Range("J11") > 0.099 Then
Else
If Hoja1.Range("E11") <> 0 And Hoja1.Range("J11") > 0.059 Then
Else
End If
End If
Call Hoja1.Enviar
End If
End If

Tu petición original es esta:

Se repita desde la fila 11 a la 20, y que haga esas fórmulas.

Con gusto te ayudo con todas tus peticiones, valora esta respuesta y crea una pregunta nueva por cada petición.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas