Dante Amor

Prueba la siguiente: Sub copiarceldas() Sheets("Hoja1").Range("A1:E10").Copy Sheets("Hoja2").Range("A" & Rows.Count).End(3)(2) End Sub

Puedes poner las celdas que quieres copiar. Solamente pusiste la celda A46. Y a partir de cuál fila quieres pegar. Supongo que empieza en la fila 5, el siguiente pegado deberá ser en la fila 6.

Revisa en esta respuesta, ahí viene cómo guardar un word a pdf Guardar Documentos de Word a PDF con Macro

Siguiendo con tu mismo ejemplo para el artículo 223366 La tienda 194 le sobra 1 La tienda 202 le faltan 6 La tienda 203 le faltan 9 La tienda 205 le faltan 5 Entonces, cuál criterio o criterios se deben aplicar para distribuir la pieza sobrante de la...

Utiliza la siguiente macro: Sub Reemplazar() Dim i As Long With Sheets("Reemplazar") For i = 1 To .Range("A" & Rows.Count).End(3).Row Sheets("2020").Range("DR:DR").Replace .Range("A" & i).Value, .Range("B" & i).Value, xlWhole, , False Next End With...

[Ho la y bienvenido a TodoExpertos! Es difícil trabajar con celdas combinadas, y tú tienes las celdas de la columna "EX" combinadas. Pero además tienes un filtro en la columna "EG". Necesito ver la hoja sin filtros y ver también los números de filas....

Agrega la siguiente línea para hacer visible nuevamente: Application.Visible = True

Prueba lo siguiente: Sub PegarDatos() Dim c As Range, r As Range With Sheets("Hoja1") For Each c In .Range("C4", .Range("C" & Rows.Count).End(3)) If c.Value = .Range("T1").Value Then If r Is Nothing Then Set r = .Range("D" & c.Row & ":P" & c.Row)...

Con formato condicional Seleccionar la columna E En el menú Inicio, Formato condicional, Resaltar reglas de celdas, Duplicar valores, Seleccionar el color para los duplicados y Aceptar. Si quieres consultarlos, puedes hacer un autofiltro por el color.

El nombre de archivo no puede llevar los caracteres / : Por eso estoy poniendo el guión bajo. Asegura que exista la carpeta: "D:\Jose\factura\" Prueba lo siguiente. Sub Enviar_Correo_PDF() Dim olApp As Object Dim olMail As Object Dim RutaTemporal As...