Tengo problemas para repetir un ciclo
Quiero que este ciclo se repita tantas veces como haya datos en una columna de excel.
P ej
ColA ColB ColC ColE
1
2
3
y que se llenen las columnas a, b y c
este es el codigo que quiero que se repita
'Este ciclo se tiene que repetir n veces dependiendo del tipo, es la parte que no me queda
Sheets("FORMATO").Select
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "1"
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = "WALDOS"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CbxOrigen.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CbxDestino.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Catalogos").Range("k5")
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "001"
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = TxtDist.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "km"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TextBox3.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "Tarifa1"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "TAR"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = DTPicker1.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = DTPicker2.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
P ej
ColA ColB ColC ColE
1
2
3
y que se llenen las columnas a, b y c
este es el codigo que quiero que se repita
'Este ciclo se tiene que repetir n veces dependiendo del tipo, es la parte que no me queda
Sheets("FORMATO").Select
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "1"
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = "WALDOS"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CbxOrigen.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CbxDestino.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Catalogos").Range("k5")
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "001"
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = TxtDist.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "km"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TextBox3.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "Tarifa1"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "TAR"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = DTPicker1.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = DTPicker2.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "0"
1 respuesta
Respuesta de Elsa Matilde
1