Buscar una cadena de texto de una celda y moverlo

Hola Javier B.

Gracias por responder tanto rápido. Voy a revisarlo y te aviso.

JaimeL

"luka" wrote:

> Hola de nuevo JaimeL
> Ya he encontrado la opción de coger solo la izquierda
> Ya le he quitado el espacio y he añadido una nueva línea que es un If
> Te la he puesto con marcas
> Ya dirás si te vale
>
> Saludos
> Javier B.
>
> > > With Worksheets(1).Range("a1:a50")
> Set c = .Find("Total", LookIn:=xlValues)
> If Not c Is Nothing Then
> firstAddress = c.Address
> Do
> z = c.Value
> > If Left(z, 5) = "Total" Then c.Offset(, 6).Value = c.Value <==> > Set c = .FindNext(c)
> Loop While Not c Is Nothing And c.Address <> firstAddress
> End If
> End With
> ==> >
>
> luka escribió:
> > Hola JaimeL
> > modificando la fórmula que trae la ayuda de excel para Find he hecho esto
> > Despues de Total he puesto un espacio porque no se (todavía, que todo
> > llegará) sacar por código los valores a la izquierda de una cadena, y en
> > las pruebas que he hecho, me movia tanto los Total como los subtotal.
> >
> > Saludos,
> > Javier B.
> >
> > > > > With Worksheets(1).Range("a1:a50")
> > Set c = .Find("Total ", LookIn:=xlValues)
> > If Not c Is Nothing Then
> > firstAddress = c.Address
> > Do
> > c.Offset(, 6).Value = c.Value
> >
> > Set c = .FindNext(c)
> > Loop While Not c Is Nothing And c.Address <> firstAddress
> > End If
> > End With
> > > > >
> >
> > JaimeL escribió:
> >> Hola a todos:
> >> Espero que alguien me pueda ayudar con mi problema.
> >> Tengo una hoja en excel donde tengo una base de datos (Periodo, No. de
> >> identidad, nombre y apellido, fecha, No. de documento, Valor de venta,
> >> IG, precio de venta, etc)
> >>
> >> Estoy creando una macro que me permite sumar por periodo (usé la
> >> función subtotal y en esta parte no tengo problema). Luego quiero que
> >> me busque en las celdas que contenga la palabra "Total" (estas celdas
> >> dice: Total enero, Total febrero, etc) y una vez encontrado esta celda
> >> que contenga dicha palabra, me lo mueva a 6 columnas a la derecha de
> >> la misma fila.
> >> He tratado de hacer que funcione con cells.find pero no logro que me
> >> funcione bien.
> >> Espero que me pueda ayudar.
> >> Gracias
> >> Jaime
> >>
> >>
>