Incremento para una columna más
Elsa como está, espero que bien
Elsa Matilde, hice algo en tu macro que me salio bien, por lo menos resulto y funciona
'Para Tabla2 Sheets(HOJA).Select If HOJA = "Tabla2" Then On Error Resume Next 'evita error al calcular textos For I = 3 To 27 If I < 14 Or I > 17 Then 'solo se calcula en fila < 14 y > 17 VALOR = Cells(I, 4).Value Cells(I, 4).Value = VALOR * 1.1 VALOR = Cells(I, 7).Value 'AGREGADO Cells(I, 7).Value = VALOR * 1.05 'AGREGADO End If Next I Else
Quiero tu aprobacion o algo que no este bien dime como hacer
1 Respuesta
Respuesta de Elsa Matilde
1
Está muy bien. Calculas en col D y G del mismo modo que lo haces en la otra hoja en col B y C.
Entonces aprovecho para aligerarte aún más el código evitando así el uso de variables auxiliares:
If I < 14 Or I > 17 Then 'solo se calcula en fila < 14 y > 17 Cells(I, 4).Value = Cells(I, 4) * 1.1 Cells(I, 7).Value = Cells(I, 7) * 1.05 'AGREGADO End If
Sdos.
Elsa
