Hherth

Solo disponible en BuenasTareas
  • Páginas : 2 (418 palabras )
  • Descarga(s) : 4
  • Publicado : 21 de noviembre de 2009
Leer documento completo
Vista previa del texto
VARIABLES

Código del artículo: emerdent
Cantidad: seodental
Posición: flexident
Nombre del artículo: acriteeth
Valor del artículo: brillantina

CÓDIGO VB

Sub Salidas()
' Macro1Macro
Dim emerdent, seodental As Long
ActiveCell.Offset(-3, -1).Range("A1").Select
emerdent = ActiveCell
ActiveCell.Offset(0, 1).Range("A1").Select
seodental = ActiveCellActiveCell.Offset(3, 0).Range("A1").Select
Range("C7").Select
Sheets("ARTICULO").Select
Range("B4").Select
Do While ActiveCell "FIN"
If emerdent = ActiveCell Then
Dimflexidental, acriteeth, brillantina As String
ActiveCell.Offset(0, 1).Range("A1").Select
flexidental = ActiveCell
ActiveCell.Offset(0, 1).Range("A1").Select
acriteeth = ActiveCellActiveCell.Offset(0, 1).Range("A1").Select
brillantina = ActiveCell
ActiveCell.Offset(0, -3).Range("A1").Select
End If
ActiveCell.Offset(1, 0).Range("A1").Select
LoopSheets("Hoja1").Select
Range("C7").Select
ActiveCell.Offset(1, 5).Range("A1").Select
ActiveCell = flexidental
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = acriteethActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = brillantina
ActiveCell.Offset(-1, -7).Range("A1").Select
Sheets("KARDEX").Select
Range(flexidental).Select
Do While ActiveCell "FIN"ActiveCell.Offset(1, 0).Range("A1").Select
Loop
Selection.ClearContents
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = seodental
ActiveCell.Offset(0,1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-RC[-1]"
ActiveCell.Offset(1, -2).Range("A1").Select
ActiveCell.FormulaR1C1 = "FIN"
ActiveCell.Offset(1, 0).Range("A1").Select
End SubSub Entradas()
Dim emerdent, seodental As Long
ActiveCell.Offset(-3, -1).Range("A1").Select
emerdent = ActiveCell
ActiveCell.Offset(0, 1).Range("A1").Select
seodental =...
tracking img