For i = 8 To j
Cells(i, "B").Select
If ActiveCell.Value > 0 Then
h = Cells(i, "C").Value
Cells(i, "k").Select
ActiveCell.FormulaR1C1 =...
Cells(i, "B").Select
If ActiveCell.Value > 0 Then
h = Cells(i, "C").Value
Cells(i, "k").Select
ActiveCell.FormulaR1C1 =...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí