Jump to content

Milton Cordova

Members
  • Content Count

    286
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Milton Cordova

  1. 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
  2. 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
  3. Saludos siempre muy agradecido por la ayuda excelente. Me sirve perfectamente es lo que necesitaba Tema cerrado, solucionado Gracias como siempre
  4. 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
  5. 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
  6. 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
  7. 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
  8. 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
  9. 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
  10. 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
×
×
  • Create New...

Important Information

Privacy Policy