Dante Amor

Algunas recomendaciones a tu código: 1. Si haces referencia a la hoja, no es necesario hacerla visible: Hoja10. Cells(otroRegistro, 1).Value = CDate(Textfecha) 2. Si estás buscando la siguiente fila disponible, te recomiendo utilizar esta...

[Ho la Iris y bienvenida a TodoExpertos. Te muestro otra opción. Puedes cambiar esta línea: If Cells(i, 1) <> "" Then Por esta, utilizando la propiedad DataBodyRange de la tabla: If TablaOrigen1.DataBodyRange(i, 1) <> "" Then De esa manera el...

Con gusto te ayudo a reemplazar la fórmula con algo que se conoce como arreglos o matrices. Todos los datos se cargan en memoria en las matrices, se realizan todos los cálculos en memoria y en un solo paso se ponen todos los datos en la hoja....

Prueba pasar el valor: Workbooks("libro2"). Sheets("HojaX"). Range("C59").Value = Workbooks("libro1"). Sheets("Hoja1"). Range("A2") Cambia los datos de ejemplo libro, hoja por los nombres reales de tus archivos y hojas.

Prueba la siguiente macro. - Los dos archivos deben estar abiertos. - Pon la macro en el libro destino. - Cambia en la macro el nombre del libro que contiene la información en esta línea: Set wb2 = Workbooks("Libro2.xlsx") - La macro tomará los datos...

Puedes revisar mis respuestas en este mismo foro, tengo varias para enviar correo, tal vez alguna te ayude. Algunos ejemplos: Macro para envíar correos masivos con adjuntos diferentes Planilla Excel exportar a PDF y enviar por Mail Como crear un...

Aquí un par de ejemplos donde mi respuesta fue la correcta, y tú recibiste valoración sin aportar: Macro para incrementar numero y guardar como PDF Como Sumar Fechas más Días en Userform Y existen más ejemplos como los anteriores. En esos casos no...

Nuevamente tus burlas. No entiendes. Cómo es posible, según tú, que mis macros sean copia de tus macros o similares. Mi programación es diferente a la tuya. Tengo miles de respuestas en excel que solamente yo las respondí. Si no entiendes mis macros...

Cuando utilizas el método Find y FindNext, excel almacena en memoria las siguientes referencias, pero cuando eliminas una fila, como es este el caso, excel pierde la referencia de la fila, porque la fila fue eliminada y la siguiente fila se recorrió,...

Te anexo la macro para copiar los datos: Sub CopiarDatos() Dim sh1 As Worksheet, sh2 As Worksheet Dim f As Range Dim i As Long Dim cont As String ' Set sh1 = Sheets("FORMATO") Set sh2 = Sheets("RESUMEN") cont = sh1.Range("D21").Value If cont = ""...