Macrohelp2
Me puedes explicar por favor esta parte dela macro porque tengo dudas acerca de ella
While Range("B" & x) <> ""
Sub Macro1()
'
' Macro10 Macro
' Macro grabada el 22/09/2004 por Check Plus
'
'
ActiveCell.FormulaR1C1 = "FECHACTADEP"
Range("F2").Select
xx = "=+VALUE(RIGHT(RIGHT(TRIM(RC[-5]),8),2)&""-""&MID(RIGHT(TRIM(RC[-5]),8),5,2)&""-""&MID(RIGHT(TRIM(RC[-5]),8),3,2))&RC[-4]&RC[-1]"
x = 3
While Range("B" & x) <> ""
Range("F" & x).Select
ActiveCell.FormulaR1C1 = xx
x = x + 1
Wend
Range(Selection, Selection.End(xlDown)).Select
Columns("F:F").Select
Range("F2").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("F1").Select
Application.CutCopyMode = False
End Sub
While Range("B" & x) <> ""
Sub Macro1()
'
' Macro10 Macro
' Macro grabada el 22/09/2004 por Check Plus
'
'
ActiveCell.FormulaR1C1 = "FECHACTADEP"
Range("F2").Select
xx = "=+VALUE(RIGHT(RIGHT(TRIM(RC[-5]),8),2)&""-""&MID(RIGHT(TRIM(RC[-5]),8),5,2)&""-""&MID(RIGHT(TRIM(RC[-5]),8),3,2))&RC[-4]&RC[-1]"
x = 3
While Range("B" & x) <> ""
Range("F" & x).Select
ActiveCell.FormulaR1C1 = xx
x = x + 1
Wend
Range(Selection, Selection.End(xlDown)).Select
Columns("F:F").Select
Range("F2").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("F1").Select
Application.CutCopyMode = False
End Sub
1 Respuesta
Respuesta de tavopz
1
Por lo que puedo ver, lo que pretende el ciclo While en la macro es que esta se ejecute revisando cada vez la celda de la columna B, hasta que encuentre una celda sin ningún valor.
Si te está presentando alguna falla, te sugeriría que revises algo que suele pasarme y es que cuando tomas un dato Integer y lo pasas a String queda con un espacio blanco al inicio, por lo que hay que cambiarlo como Ltrim(x), así que podría quedar:
While Range("B" & Ltrim(x)) <> ""
Range("F" & Ltrim(x)).Select
Si te está presentando alguna falla, te sugeriría que revises algo que suele pasarme y es que cuando tomas un dato Integer y lo pasas a String queda con un espacio blanco al inicio, por lo que hay que cambiarlo como Ltrim(x), así que podría quedar:
While Range("B" & Ltrim(x)) <> ""
Range("F" & Ltrim(x)).Select
