Milton Cordova

Saludos cordiales me olvide de indicar que esta macro debe trabajar en excel 2003 y al correr me sale se ha producido un error "438" en tiempo de ejecucion. El objeto no admite esta propiedad o método.

error en

miRango.RemoveDuplicates Columns:=1

gracias y disculpas por la consulta

saludos favor me pueden ayudar con esta macro que adjunto la cual me esta dando error en lo siguiente

Tengo un rango den la columna H con datos repetidos y con celdas en blanco, la macro me extrae los datos unicos y me pone en la columna N, pero hay un dato que se repite que es del 2200

Sub MAC()
Dim L As Range
With Range([H5], [H65536].End(xlUp))
.Offset(, 1).Cells(1).Clear
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Offset(, 6), Unique:=True
Set L = .Offset(, 6).Find(What:="", LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlNext)
If Not L Is Nothing Then L.Delete xlShiftUp
Set L = Nothing
End With
End Sub

Gracias por su ayuda

EXTRACCION Y PEGADO DE VALORES UNICOS.xls

Saludos siempre muy agradecido por la ayuda excelente.

Me sirve perfectamente es lo que necesitaba

Tema cerrado, solucionado

Gracias como siempre

Desde luego me parece la mejor opcion ubicar TRANSPORTE y regresar 2 filas, para esto como deberia ir ma macro finalmente para no molestar mas con estas  consulta que debe ser facil para ustedes que son Masters.

Gracias

Saludos Leopoldo, adjunto envió ejem. con 5 platillas según lo que me pides.

Se trata de un libro en el cual tengo una hoja con 500 platillas de 71 filas cada una.

Lo que deseo es ahorrarme el tiempo de ir insertando 5 filas en cada una de las 500 plantillas de una hoja de un libro.

las 500 plantillas van desde la fila 2 hasta la 35501 y cada una tiene 71 filas, o sea que

la primera al empezar desde la 2 va hasta la 72,

la segunda desde la fila 73-143,

la tercera 144-214 asi sucesivamente hasta la 35501.

la parte que  deseo insertar empieza en la primer plantilla en la fila 49, la segunda desde la 120 pero como se supone que se insertaron 5 filas en la segunda plantilla sería desde la fila 125, la tercera deberia insertarse desde la  pero debido a las filas insertadas en la primera y segunda debe insertarse desde la fila 201 y asi sucesivamente.

las plantillas estan con datos, no me permite subir ejemplo debido al peso.

En todo caso creo que se podría hacer mediante una macro para toda la hoja ya que la macro que envié solo funciona para la primer plantilla y tendría que ir creando para cada platilla una nueva macro.
Por esto me disculpo al parecer es cuestión de tiempo pero si se puede ahorralo que mejor.

Gracias disculpas por descripcion no clara sobre el tema enviado

INSERTAR FILAS 4.xls

En 17/11/2019 at 12:40 , Leopoldo Blancas dijo:

Hola  Milton Cordova,

Ya revise tu ejemplo y hay algo inconsistente en el, PODRIAS AYUDARME  con poner 5 formularios completos por favor, ya que trate de repetir los 2 que pusiste hacia abajo y no me da...y    por favor pon un recuadro en cada Formulario, para no tener la duda donde empieza y donde termina.

NOTA IMPORTANTE: Es un error llevar a acabo así la información, es mejor tratar la información en 1 Base de datos y con ella se genera el Formulario..., pero si insistes solo haz el favor que te pido.

Saludos.

 

 

 

En 17/11/2019 at 12:40 , Leopoldo Blancas dijo:

Hola  Milton Cordova,

Ya revise tu ejemplo y hay algo inconsistente en el, PODRIAS AYUDARME  con poner 5 formularios completos por favor, ya que trate de repetir los 2 que pusiste hacia abajo y no me da...y    por favor pon un recuadro en cada Formulario, para no tener la duda donde empieza y donde termina.

NOTA IMPORTANTE: Es un error llevar a acabo así la información, es mejor tratar la información en 1 Base de datos y con ella se genera el Formulario..., pero si insistes solo haz el favor que te pido.

Saludos.

 

 

 

Saludos estimado Hector adjunto un ejemplo de uno de los formularios con datos ya que al ser 500 formularios no se puede enviar debido al peso, el rango va hasta la fila 35501.

Corri la macro funciona perfecto solo para el primer formulario, esto equivale a hacerlo manualmente, por lo que te solicito muy gentilemnte puedas ayudarme para que esto haga para las 500 plantillas.

Gracias

INSERTAR FILAS 3.xls

Saludos es una hoja que tiene plantilla o de datos desde la celda C2:C72 desde C73:143, 144:214 y asi hasta la ultima que termina en 35501

INSERTAR FILAS vb3.xls

Saludos deseo insertar 5 filas en cada una de esta plantillas empezando desde la fila 49 luego la 122 y 195 así hasta el final.
Las plantillas están hasta la fila 35501
Gracias por su ayuda como siempre excelente

Saludos encontre esta ayuda

Application.CommandBars("Ply").Enabled = True

esto deshabilita todas las hojas lo que deseo es solo que se deshabiliten las hojas que deseo en el ejem. "CASA", "PEZ".

Gracias

Saludos estimados foristas, alguien me puede ayudar para revisar una macro que haga lo siguiente:

en un libro quiero que las Hojas "CASA" , "PEZ" , "total" crear otro ibro lo que es igual a copiar y mover a otro libro, lo que deseo que una vez que esto se realice las hojas esten bloqueadas con una clave "XX" y deshabilitar las funciones de copiado, pegado con clic drecho solo en las Hojas "CASA" , "PEZ" la hoja "total" solo bloqueada con "XX".  adjunto ejemplo

Sub ANEXO()
'
    Sheets(Array("CASA", "PEZ")).Select
    Sheets("PEZ").Activate
    
    Sheets(Array("CASA", "PEZ", "total")).Copy
    Sheets("CASA").Select
    ActiveSheet.Protect "XX"
    Range("B4").Select
        Sheets("PEZ").Select
    ActiveSheet.Protect "XX"
    Range("B4").Select

        Sheets("total").Select
    ActiveSheet.Protect "XX"
    Range("B4").Select

End Sub

Gracias

COPIA Y DESHABILITA funciones clci derecho.xls