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

 

copiar pega esa formula Luis Antonio  a ver si te funciona

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

saludos isidrod

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.

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

es todo lo pude hacer por ti subo el archivo

tiendas dias.xlsm

listo para ejecutar macros

tiendas dias.xlsm

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.

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

 solucionado?

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

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