Luis Mondelo

En el siguiente enlace te dejo un archivo con un ejemplo programado http://share.cx.com/kstmBD No olvides finalizar la consulta

¿Tomo nota y te lo preparo... Pero... necesitas una macro obligatoriamente? Esto se puede hacer con tablas dinámicas

Te mando mi solución con esta macro: Sub proceso() 'Por luismondelo For x = 1 To Sheets.Count Sheets(x).Select rango1 = "d1:d" & Range("d65000").End(xlUp).Row rango2 = "e1:e" & Range("e65000").End(xlUp).Row Range("h1").Value =...

Si lo he entendido bien tienes que poner esta fórmula en la celda B1 de la hoja2 =BUSCARV(A1;Hoja1!$A$1:$C$19;3;VERDADERO) he puesto un rango de ejemplo de la hoja1 A1:C19 Recuerda finalizar la consulta

Claro, mándame el archivo con los datos y un ejemplo de lo que quieres y te ayudaré [email protected]

Estas son las líneas que necesitas al principio de tu macro: '... '......................... destino = sheets("hoja2").range("a65536").end(xlup).value origen = sheets("hoja1").range("f6").value if destino = origen then msgbox "el dato a copiar es el...

Te mando la solución con este ejemplo: Vamos a evitar duplicados en la columna A de la planilla. Para ello necesitamos esta macro-evento que colocaremos en el objeto hoja que estamos tratando (no en un módulo) De esta manera, en el momento que...

Mándame un ejemplo aislado de lo que necesitas para poder ayudarte [email protected]

Te paso la macro para conseguirlo Sub proceso() 'por luismondelo Dim usuario As Double aleatorio = Application.WorksheetFunction.RandBetween(1, 100) usuario = InputBox("introduzca un número entero entre 1 y 100") If aleatorio = usuario Then MsgBox...

Te mando la solución. La macro está preparada para ejecutarla cuando estés posicionado en la celda en cuestión. Sub ejemplo() 'por luismondelo tope = Len(ActiveCell) For por = 1 To tope + 1 extrae = Mid(ActiveCell, por, 1) If IsNumeric(extrae) Then...