Rellenar celda según valor de celda continua
Como puedo Hacer para que en un libro de excel si tengo en la columna A algunos nombres de compañías y quiero que en la columna B dependiendo del nombre les asigne un código, la col Cel se encuentra el teléfono de la Compañía, me sirve de guía para saber cuales filas ir llenando
intente hacerlo con el bucle IF pero me da un error de compilacion el Loop. Gracias!!
Sheets("Sheet1").Select
Range("C2").Select
Columns("c:c").Select
Selection.Insert Shift:=xlToRight
Range("f2").Select
Do While ActiveCell <> ""
If ActiveCell.Offset(o, -2).Value = "General Mills" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "252"
Else
If ActiveCell.Offset(o, -2).Value = "Zenith" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "250"
Else
If ActiveCell.Offset(o, -2).Value = "Optimedia" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "263"
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
intente hacerlo con el bucle IF pero me da un error de compilacion el Loop. Gracias!!
Sheets("Sheet1").Select
Range("C2").Select
Columns("c:c").Select
Selection.Insert Shift:=xlToRight
Range("f2").Select
Do While ActiveCell <> ""
If ActiveCell.Offset(o, -2).Value = "General Mills" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "252"
Else
If ActiveCell.Offset(o, -2).Value = "Zenith" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "250"
Else
If ActiveCell.Offset(o, -2).Value = "Optimedia" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "263"
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
1 Respuesta
Respuesta de Elsa Matilde
1
El problema no es el Loop, sino que te falta un End If.
Te dejo el bucle mejor presentado para que puedas observar dónde faltan los end if
Do While ActiveCell <> ""
If ActiveCell.Offset(o, -2).Value = "General Mills" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "252"
Else
If ActiveCell.Offset(o, -2).Value = "Zenith" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "250"
Else
If ActiveCell.Offset(o, -2).Value = "Optimedia" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "263"
End If
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
Te dejo el bucle mejor presentado para que puedas observar dónde faltan los end if
Do While ActiveCell <> ""
If ActiveCell.Offset(o, -2).Value = "General Mills" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "252"
Else
If ActiveCell.Offset(o, -2).Value = "Zenith" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "250"
Else
If ActiveCell.Offset(o, -2).Value = "Optimedia" Then
ActiveCell.Offset(o, -3).FormulaR1C1 = "263"
End If
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
Muchas gracias por tu respuesta, en este caso tengo 3 opciones para el if, ¿es por esa razón que van 3 end if seguidos?
Muchas gracias de nuevo
Muchas gracias de nuevo
Si, siguiendo tu ejemplo de 3 opciones está bien que utilices IF
Pero si vas a tener muchas más condiciones te conviene utilizar un Select Case:
Ej:
dato = ActiveCell.Offset(o, -2)
Select case dato
Case is = "General......."
ActiveCell.Offset(o, -3) = "252"
Case is = "Zenith"
ActiveCell.Offset(o, -3).FormulaR1C1 = "250"
'seguir con el resto de Case
End Select
PD) En la ayuda de excel podes encontrar algunos otros ejemplos.
Sdos
Elsa
Pero si vas a tener muchas más condiciones te conviene utilizar un Select Case:
Ej:
dato = ActiveCell.Offset(o, -2)
Select case dato
Case is = "General......."
ActiveCell.Offset(o, -3) = "252"
Case is = "Zenith"
ActiveCell.Offset(o, -3).FormulaR1C1 = "250"
'seguir con el resto de Case
End Select
PD) En la ayuda de excel podes encontrar algunos otros ejemplos.
Sdos
Elsa
