Macros para excel

IF THEN 1

‘DECLARO LAS VARIABLES

Dim TotalVenta As Double   ‘ DOUBLE SIGNIFICA QUE USA MUCHOS DECIMALES

Dim TotalConDescuento As Double 

Dim Descuento As Double 

Dim Iva As Double

‘INICIALIZO LAS VARIABLES

TotalVenta = 0

TotalConDescuento = 0

Descuento = 0

Iva = 0

‘EJERCICIO PARA PARTIR DE LA CELDA SELECCIONADA

TotalVenta = ActiveCell.Offset(0, -1) * ActiveCell.Offset(0, -2)

ActiveCell.Value = TotalVenta    ‘PARA PARTIR DE LA CELDA SELECCIONADA

If TotalVenta > 10000 Then

Descuento = TotalVenta * 0.1

End If

ActiveCell.Offset(0, 1).Value = Descuento   ‘ SE INDICA LA UBICACIÓN A PARTIR DE LA CELDA SELECCIONADA ANTERIORMENTE

TotalConDescuento = TotalVenta - Descuento

ActiveCell.Offset(0, 2).Value = TotalConDescuento

Iva = TotalConDescuento * 0.19

ActiveCell.Offset(0, 3).Value = Iva

IF THEN 2 (SE AGREGA OPCION EXTRA AL SI)

If TotalVenta > 10000 Then 'Esta es la parte que hace referencia a la PREGUNTA del SI

    Descuento = TotalVenta * 0.1 'Esta es la parte que hace referencia a la RESPUESTA VERDADERA del SI

Else

    Descuento = TotalVenta * 0.08 'Esta es la parte que hace referencia a la RESPUESTA FALSA del SI

End If 'Cierro la Funcion SI

ActiveCell.Offset(0, 1).Value = Descuento

IF THEN 3 ( SE INCORPORAN MAS OPCIONES AL IF CON AND o OR)

If (TotalVenta > 10000 Or ActiveCell.Offset(0, -1).Value > 100) And ActiveCell.Offset(0, -5).Value <> 33 Then

Descuento = TotalVenta * 0.1

End If 'Cierro la función SI o IF

ActiveCell.Offset(0, 1).Value = Descuento

Do White loop

Sub Ejercicio1()

'Primera Macro - Clausula Do While Loop

'---- Declaro las Variable a Utilizar en el ejercicio ----

Dim TotalVenta As Double

Dim Descuento As Double

Dim TotalConDescuento As Double

Dim Iva As Double

Dim Contador As Double 'Declaro la variable CONTADOR q permite realizar los ciclos

Contador = 2 'Este número depende de la fila donde comienza la macro dado el presente ejercicio

Range("f2").Select 'parte en esta posición

'---- Comienza la CLAUSULA DO WHILE LOOP ----

Do While Contador <= 501 'Repite las acciones 500 veces

    '---- Mejores Practicas de Excel - Inicializo las Variables a Uitlizar ----

    TotalVenta = 0

    Descuento = 0

    TotalConDescuento = 0

    Iva = 0

    '---- Comienzo a realizar el proceso o calculo o ejercicio -----

    TotalVenta = ActiveCell.Offset(0, -1) * ActiveCell.Offset(0, -2) 'Esta acción multiplica los valroes q necesito para el ejemplo

    ActiveCell.Value = TotalVenta 'Pega o muestra el valor del calculo anterior y lo escribe en la celda activa

    '---- Realizo el cálculo del SI ANIDADO o CLAUSULA IF THEN ----

    If TotalVenta > 10000 Then 'Esta es la parte donde se hace la PREGUNTA DEL SI

        Descuento = TotalVenta * 0.1 'Respuesta Verdadera de la pregunta

    End If 'Cierro la funcion SI o IF

    ActiveCell.Offset(0, 1).Value = Descuento 'Pega o muestra el valor calculdo en la CELDA de la DERECHA

    '---- Calculo las demas VARIABLES ----

    TotalConDescuento = TotalVenta - Descuento

    ActiveCell.Offset(0, 2).Value = TotalConDescuento

    Iva = TotalConDescuento * 0.19

    ActiveCell.Offset(0, 3).Value = Iva

    Contador = Contador + 1 'Acumula la variable

    Range("F" & Contador).Select 'TRUCO!!!

Loop

End Sub

 Sub Ejercicio2()

'Segunda Macro - Clausula Do While Loop

‘---- Declaro las Variable a Utilizar en el ejercicio ----

Dim TotalVenta As Double

Dim Descuento As Double

Dim TotalConDescuento As Double

Dim Iva As Double

Dim Contador As Double 'Declaro la variable CONTADOR q permite realizar los ciclos

Contador = 2 'Este número depende de la fila donde comienza la macro dado el presente ejercicio

Range("f2").Select 'parte en esta posición

'---- Comienza la CLAUSULA DO WHILE LOOP ----

Do While ActiveCell.Offset(0, -1).Value <> "" 'Repite las acciones hasta encontrar una celda en blanco

'---- Mejores Practicas de Excel - Inicializo las Variables a Uitlizar ----

    TotalVenta = 0

    Descuento = 0

    TotalConDescuento = 0

    Iva = 0

    '---- Comienzo a realizar el proceso o calculo o ejercicio -----

    TotalVenta = ActiveCell.Offset(0, -1) * ActiveCell.Offset(0, -2) 'Esta acción multiplica los valroes q necesito para el ejemplo

    ActiveCell.Value = TotalVenta 'Pega o muestra el valor del calculo anterior y lo escribe en la celda activa

    '---- Realizo el cálculo del SI ANIDADO o CLAUSULA IF THEN ----

    If TotalVenta > 10000 Then 'Esta es la parte donde se hace la PREGUNTA DEL SI

...