Copiar a pestaña segun texto escrito

[dff1403]

Hola, buenas noches,

Tengo el ejemplo adjunto, el cual me gustaria puedan colaborarme con lo siguiente:

1. al estar en la hoja Ordenes, en la columna BC cualquier fila y escriba la palabra Proceso se copie a la pestaña Proceso.

2. cuando me encuentre en la pestaña proceso columna BC cualquier fila y escriba la palabra Pendiente se "corte" y peque en la pestaña Pendiente.

3. y cuando me encuentre en la pestaña Pendiente columna BC cualquier fila y escriba la palabra Cerrado se "corte" y peque en la pestaña Cerrado.

Muchas Gracias por su amable apoyo.

Saludos,

ejemplo copiar a pestanas.zip

[dff1403]

Hola a todos, alguien que me pueda dar una mano?

Gracias de antemano.

Saludos

[bigpetroman]

Amigo, con esta macro en la hoja ORDENES, te hace lo que pides, copia los datos a la siguiente hoja

Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)

    'si la columna es BC y el cambio se realizo en una sola celda y el valor es Proceso, se pasa a la

    'otra hoja

    If Target.Column = Range("BC1").Column And Target.Cells.Count = 1 And Target.Value = "Proceso" Then

        Application.ScreenUpdating = False

        Application.EnableEvents = False


        'copiamos toda la fila de datos

        Range("A" & Target.Row & ":BC" & Target.Row).Copy

        'la pegamos al final del hoja T-PROCESO

        Worksheets("T-PROCESO").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll


        Application.ScreenUpdating = True

        Application.EnableEvents = True

        Application.CutCopyMode = False

    End If

End Sub[/CODE]

adaptala a las otras hojas para que realice todo lo que quieres, suerte

[dff1403]

Gracias Amigo, lo adaptare, pero... Para que de De Proceso "corte" no copie y se pegue en la siguiente? La única que debe copiar es de Órdenes a Proceso, un Saludo

[dff1403]

Ah, disculpa y esto se va generando uno debajo de otro?

[bigpetroman]

sip, el busca la ultima fila con datos y lo copia debajo de esa fila; para que corte, utiliza la grabadora de macros para hacerlo y luego ve el codigo, y sustituyes la parte de copiar por la parte de cortar, suerte

[dff1403]

no me sale estimado, lo he intentado y no lo puedo lograr con lo que es "cortar" de proceso a pendiente:( sorry!

[bigpetroman]

y donde te da el error?, cual es el problema?

[dff1403]

Es que no se como. Hacer que corte desde proceso a pendiente por más que pongo la grabadora

[bigpetroman]

esta es una macro grabada que corta un rango, lo pega en otra hoja y luego elimina el rango original

Sub Macro6()

'

' Macro6 Macro

'


'

    Range("A3:H3").Select

    Selection.Cut

    Sheets("Hoja2").Select

    Range("A3").Select

    ActiveSheet.Paste

    Sheets("Hoja1").Select

    Selection.Delete Shift:=xlUp

End Sub[/CODE]

pues no creo que sea muy dificil hacerlo, intentalo

[bigpetroman]

amigo, revisa el anexo, y recuerda darle al botón me gusta si te sirve la solución, espero que logres ver el botón

ejemplo copiar a pestanas2_SM.zip

[dff1403]

Muchas Gracias, disculpa lo la demora pero estuve desconectdo del mundo jejeje