Dante Amor

H o l a: Suponiendo que tus datos están en la columna "B" y empiezan en la fila 2, el resultado quedará en la columna C Utiliza cualquiera de las 2 macros siguientes: Sub Macro2() 'Por.Dante Amor u = Range("B" & Rows.Count).End(xlUp).Row With...

H o l a: Te anexo la macro actualizada Sub rest() ActiveWorkbook.Worksheets("LISTADO").Sort.SortFields.Clear ActiveWorkbook.Worksheets("LISTADO").Sort.SortFields.Add Key:=Range("B2:B530" _ ), SortOn:=xlSortOnValues, Order:=xlAscending,...

H o l a: Ejecuta la siguiente macro: Sub GuardarArchivo() 'Por.Dante Amor Set l1 = ThisWorkbook nombre = l1.Name l1.SaveCopyAs "C:\Documentos\" & nombre l1.SaveCopyAs "F:\Demetrio\" & nombre End Sub El archivo que contiene la macro se guardará en las...

H o l a: Para esta macro: " Necesito una macro que busque en una columna la celda que contiene datos los copie y los pegue en una celda específica " Puedes poner una par de imágenes explicando lo que tienes y cuál es el resultado que esperas.

H o l a: Te anexo la macro, cambia en la macro "final" por el nombre de tu hoja que va a contener el resultado. Sub CopiarContenido() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Final") h1.UsedRange.Offset(1, 0).ClearContents...

H o l a: Te anexo la macro actualizada Private Sub CommandButton2_Click() 'Act.Por.Dante Amor If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or...

H o l a: ¿Qué tienes en la celda C17? Pon un ejemplo de lo que tienes en la celda C17 Cambia en la macro esta línea h3.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Documents and Settings\Administrador\Escritorio\Recibos de Pago\Empleados...

H o l a: Te anexo la macro, solamente queda un detalle, en el asunto estoy poniendo el texto: Dirigido a: y Pago a: Dime si es correcto o pon un ejemplo de lo que debe estar en el asunto, ya que el destinatario lo estoy tomando de la columna F. Sub...

H o l a: Te anexo la macro actualizada: Private Sub CommandButton1_Click() 'Por.Dante Amor If validar = False Then Exit Sub For i = Val(TextBox2) To Val(TextBox3) sheets("Tabla").Cells(Val(TextBox1) + 2, i + 2) = "X" Next End Sub Prueba y me...

H o l a: Quieres decir que el campo "Vincular con la celda", pones por ejemplo la celda "D4", le das Aceptar, ¿regresas al Formato y el campo "Vincular con la celda" está vacío? ¿O qué pasos estás haciendo?