[SOLUCIONADO] Asignar valor a una celda a partir del valor de otra

**tapiajav** · 12-08-2009 16:38

Hola, quiero automatizar una acción en una planilla a partir de una macro...necesito de ayuda para construirla ya que no tengo experiencia en VB, lo que me trajo hasta acá

...

Tengo una planilla con varias columnas (12) y la idea es que a través de la macro se construya una nueva columna al final de las ya existentes de la siguiente forma: se vaya revisando la columna 8, y en el caso de que en ésta diga "Recursos Humanos" (es una columna de texto), se asigne un 1 a la columna final, si dice "Planificación", asigne un 2 por ejemplo...así sucesivamente.

Si me ayudan con la estructura de la macro yo completo después las cadenas de carcateres y los números a asignar.

Ojalá me puedan ayudar....gracias!!!

**varela_b** · 12-08-2009 16:51

hola tapiajav

coloca este codigo en un modulo de VB y ejcutalo

Sub columna13()
Range("H1").Select

While ActiveCell.Value <> ""
If ActiveCell.Value = "Planificación" Then
ActiveCell.Offset(0, 5).Value = 2
Else
ActiveCell.Offset(0, 5).Value = 1
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub

suerte

**mjrofra** · 12-08-2009 17:04

Hola tapiajav,

bienvenido al foro.

me uno a Varela_b para ver si te podemos ayudar...

Iniciado por tapiajav

...
Si me ayudan con la estructura de la macro yo completo después las cadenas de carcateres y los números a asignar...

si las únicas condiciones no son las que has expuesto ("Planificación" = 2 y "Recursos Humanos" = 1), sino que tienes más categorías, quizás los mejor sea un select case, algo as:

Código:

Sub prueba()

    For Each Dato In Range("H1", Range("H" & Cells.Rows.Count).End(xlUp))
    
        Select Case Dato.Value
        
            Case "Planificación": Dato.Offset(, 5) = 1
            Case "Recursos Humanos": Dato.Offset(, 5) = 2
            'Case...
            
        End Select
        
    Next Dato
    
End Sub

puedes añadir tantas categorías como quieras de la misma forma, por ejemplo:

Case "Otro": Dato.Offset(, 5) = 3
Case "Otro2": Dato.Offset(, 5) = 5
...

y así sucesivamente.

**tapiajav** · 13-08-2009 15:34

me funcionó perfectamente!!

...muchas gracias a ambos por su ayuda!!

Tema: [SOLUCIONADO] Asignar valor a una celda a partir del valor de otra

LinkBack

Herramientas

Visualizar

[SOLUCIONADO] Asignar valor a una celda a partir del valor de otra

Respuesta: Asignar valor a una celda a partir del valor de otra

Respuesta: Asignar valor a una celda a partir del valor de otra

Respuesta: Asignar valor a una celda a partir del valor de otra

Temas Similares

[SOLUCIONADO] Asignar valor a una celda a partir de texto en otra

[SOLUCIONADO] Eliminar fila a partir de una celda con valor "0"

[SOLUCIONADO] Mover el valor de una celda a otra en funcion del valor de una tercera

Asignar un valor de otra tabla al registro si este cumple con condiciones.

Saber el valor de una celda, cuando el numero de la fila es el valor de otra celda

Marcadores

Marcadores

Permisos de Publicación