Formula para recorrer celda con condicional

[Luis Antonio Torres]

Estimados amigos,

 

Buenas tardes, por favor alguien me podría dar una mano con una fórmula/macro para recorrer una columna validando la columna de al lado.

Por ejemplo en la columna A tengo que escribir la fórmula dependiendo de la columna B

Validando que mientras no exista en columna b otra tienda en columna a quede el mismo nombre de tienda

así más o menos:

 

y que pueda quedar así dependiendo de la columna b, puede haber más días.

De antemano muchas gracias por su ayuda. Adjunto archivo.

https://drive.google.com/file/d/1y7ux28jiCreITudkEmtS8rqbAAT7ARRL/view?usp=sharing

 

[isidrod]

copiar pega esa formula Luis Antonio  a ver si te funciona

=SI(IZQUIERDA(B2,1)="T",B2,A1)

saludos isidrod

[Luis Antonio Torres]

Hace 2 horas, isidrod dijo:

copiar pega esa formula Luis Antonio  a ver si te funciona

=SI(IZQUIERDA(B2,1)="T",B2,A1) 

saludos isidrod

Hola, muchas gracias por tu respuesta me funcionó como lo esperaba. Obviamente la celda A1 la referencié a B1 para que pueda continuar la fòrmula.

Hay la posibilidad de hacerla con una macro?

 

Gracias nuevamente.

[isidrod]

En 19/7/2019 at 20:52 , Luis Antonio Torres dijo:

 

Hay la posibilidad de hacerla con una macro?

 

Gracias nuevamente.

si hay solo grabando esa formula y insertas un modulo y pegas este código

Sub Macro1()

With Worksheets("Hoja1").Range("A2:A" & Range("B65536").End(xlUp).Row)
   .FormulaR1C1 = "=IF(LEFT(RC[1],1)=""T"",RC[1],R[-1]C)"
    
    .Value = .Value
    End With
    
End Sub

ahí esta a ver si te funciona

saludos isidro

[isidrod]

es todo lo pude hacer por ti subo el archivo

tiendas dias.xlsm

[isidrod]

listo para ejecutar macros

tiendas dias.xlsm

[Luis Antonio Torres]

Hace 42 minutos , isidrod dijo:

listo para ejecutar macros

tiendas dias.xlsm 20 kB · 0 downloads

Hola @isidrod realmente muchas gracias por tu ayuda. Me sirvió muchísimo.

Solamente al código he incluído lo siguiente:

 

Sub Macro1()

If Range("A1").Value = "" Then 'valida que haya texto en la celda "A1" para que pueda realizarlo.
Range("A1").FormulaR1C1 = "=+RC[1]"


With Worksheets("Hoja1").Range("A2:A" & Range("B65536").End(xlUp).Row)
    .FormulaR1C1 = "=IF(LEFT(RC[1],1)=""T"",RC[1],R[-1]C)"
    .Value = .Value
    End With
End If
End Sub

Muchas gracias de nuevo por tu valiosa ayuda.

[isidrod]

no se que es lo quieres hacer, con lo que te pase ya quedo.

 solucionado?

[isidrod]

Sub Macro3()

If Range("A1").Value = "" Then 'valida que haya texto en la celda "A1" para que pueda realizarlo.
Range("A1").FormulaR1C1 = "=+RC[1]"
End If

With Worksheets("Hoja1").Range("A2:A" & Range("B65536").End(xlUp).Row)
    .FormulaR1C1 = "=IF(LEFT(RC[1],1)=""T"",RC[1],R[-1]C)"
    .Value = .Value
    End With

End Sub

así funciono en mi equipo

[Gerson Pineda]

Holas!

Aquí mi versión con Vba, no importa como se llame la tienda, es decir si comienza o no, con "t" 

 

Saludos 

Relleno de columna Vba_GP.zip