Elsa Matilde

Te dejo la macro ajustada y comentada para que puedas hacer el seguimiento y modificar eventualmente algunos detalles que remarco a continuación: Private Sub CargaInfo_Click() Dim RutaArchivo As String Dim nombre As String 'nombre de la hoja activa...

¿Las cifras a comparar están en col Z? ¿Dónde se encuentra en rango a comparar? ¿La misma cifra debe ser comparada con los 2 primeras cifras .. y también con las 2 últimas? Deja un ejemplo resuelto para poder comparar resultados y así dejarte la...

Respondiendo a tu consulta inicial, esta macro lo resuelve: Sub detecta() 'x Elsamatilde Application.ScreenUpdating = False Sheets("hoja1").Select 'guarda el rango ocupado en Hoja1 rgo = ActiveSheet.UsedRange.Address 'quita colores anteriores...

No busques a Elisa ;) ... soy Elsa y con gusto aclararé un poco más a lo ya comentado por Julián. Parto de tu comentario: '..tengo un botón que me presenta la información capturada con anterioridad(consulta).' Entonces en la misma macro de ese botón...

Tenés problemas de sintaxis que intentaré explicar. Si una celda cualquiera tiene un nombre de rango, por ejemplo DatosB2 está bien que lo incluyas en el range entre comillas de este modo: Do While Range("DatosB2").Offset(i, 0) <> "" Pero viendo que...

Esta consulta se parece a la anterior. Debieras leer los comentarios que dejé allí para saber cuál es la instrucción que encuentra la primer fila disponible y como pasar cada campo. En este nuevo caso habrá que anteponer el nombre del libro. Pero...

En mi canal dejé 2 videos con ejemplos de filtros: N° 35 (Filtro avanzado) y N° 36 (Filtro dinámico). Si luego necesitas ayuda para adaptarlo a tu libro contactame nuevamente.

Seguramente estás repitiendo estructuras como If... else... o la hoja destino tiene macros que también se ejecutan al mismo tiempo. Enviame el libro (o por lo menos el userform y las hojas involucradas). Mis correos aparecen en el banner de mi sitio:...

Dice un refrán que una imagen vale más que mil palabras... Te invito a mirar el video 47 de mi canal donde explico los eventos Activate y Deactivate de las hojas (puedes descargar el libro con los ejemplos desde el blog)

¿Porqué no intentas cambiando esta línea: .DataBodyRange(Uf, 1) = Format(ListBox1.List(I, 0), "mm-dd-yyyy") por esta otra: .Range("A" & Uf) = Format(ListBox1.List(I, 0), "mm-dd-yyyy") Si esto resuelve tu consulta no olvides valorarla.