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

Saludos funciona ok para el rango indicado, estaba trtando de hacer lo mismo desde D53:D63 hacia las otras tablas, pero no funciona.

seleccione desde D2:G220 y tambien desde D53:D63  pro no funciona. Me podrias ayudar

Gracias

Sub CopiarFórmulas()
    Application.Calculation = xlCalculationManual

Application.ScreenUpdating = False
For Each celda In Selection
   If celda.HasFormula Then
      celda.Copy
      For x = 1 To WorksheetFunction.CountIf(Range("D:G"), "P") - 1
         celda.Offset(73 * x).PasteSpecial xlFormulas
      Next
   End If
Next
Application.CutCopyMode = False
    Application.Calculation = xlAutomatic

End Sub

Saludos inserte la macro para comprobacion borre las formulas de D126:D132; D199:D205 y ejecute la macro no funciona no copia, deberia copiar las formulas del rango D53:D59 en cada tabla.

Debo indicar que las otras formulas de D:D para cada tabla son diferentes, es por ello que no se puede realizar copiar desde D2:D74 hacia el final o ultima fila.

Gracias

Copiar Rango de Formulas con Intervalos 2.xls

Saludos estimados Foristas, me podrían ayudar en lo siguiente: tengo una Hoja con 1000 tablas de cálculos en sentido vertical cada una tiene 73 filas

Lo que sucede que a veces deseo modificar o corregir algún calculo y tengo que copiar en cada hoja.

Por ejm. si deseo copiar solo en rango D52:D59 con formulas en cada una tengo que ir a la celda D125 de la segunda tabla y luego a la celda D198, axial sucesivamente.

Podría haber mediante Vb alguna solución para evitar copiar manualmente ya se con formula o con macro

Gracias

Copiar Rango de Formulas con Intervalos.xls

Esta eliminado volver a subirlo para que sea de ayuda a los foristas.

Hay que intentar las veces que fuere necesario

Gracias

Revise y en un icono con macro estaba la vinculo

Gracias

Tema cerrado

Saludos estimados Foristas y Masters, me pueden ayudar en lo siguiente: tengo un libro con 50 hojas y al abrirlo me sale que hay vinvulos, he revisado las hojas buscando con buscar "[" "C:"y no me encuentra .
Alguna solución  o idea.
Gracias

Gracias pude resolver con el tema de este link

https://es.justexw.com/crea-tu-propio-complemento-de-excel-con-vba.html

Tema cerrado solucionado

Gracias

Saludos lo he guardado como Complementos de excel, y el icono se genera a los otros que existen en la carpeta.

Por seo que puedo activarlo con compelementos.

Lo que sucede es que no reconoce cuando abro un nuevo libro.

Las macros las puese en un modulo del libro macmc y el ThisWodeBook

Gracias

Saludos realizado lo siguiente: en un libro insete en un modulo las macros y lo guarde con un nombre mamc en :
C:\Program Files\Microsoft Office\OFFICE11\Macros
Luego le active mamc en herramientas/complementos
al abrir un libro nuevo no reconoce las fórmulas, revisando en VB no existe ninguna macro
Gracias

Saludos estimados Foristas, tengan la gentileza de apoyarme en una consulta, tengo algunas funciones las cuales tengo que insertarles en un módulo en cada libro nuevo.

Para evitar esto puedo hacer un complemento para que el excel quede personalizado y reconozca todos los libros creados.

Gracias

Gracias por el mensaje

sin mas tema cerrado

Gracias de todos modos si no tiene relacion disculpas

Saludos instale un complemento comprado 131NFe y es lo que me da error al abrir excel.

Gracias

Saludos me pueden ayudar con un problema que tengo al abrir excel 2003 sale el mensaje Se ha producido error "1004" eb tiempo de ejecución. Error por el método "Run" de el objeto"_Global"

Gracias