Hola Gente, bueno la pregunta es la siguiente: como hacer que en una lista de 5 columnas y 100 filas, seleccione una fila al azar y copie esta fila a otra hoja, se puede hacer un macro, pero no se como. esto es para sacar una muestra aleatoria de materiales, osea tiene Codigo, Descricion, Ubicacion, stock, y lo que necesito hacer es sacar una muestra de 40 articulos, ojala puedan ayudarme.

Hola, Soy nuevo en macros, y encontré éste archivo de COntrol de Entradas y Salidas. Quisiera saber qué debo cambiar para que funcione la macro SIN que el "código" sea numeral NI correlativo, es decir que reconozca un código alfanumérico. Ejemplo: A2=TS1243X Control Entradas y Salidas Macros.rar

Estimados maestros: Recurro a ustedes por que tengo un problema que le he dado 1000 vueltas y no puedo solucionarlo: Resultan que tengo un par de aplicaciones con macros compartidas atravez de un archivo Access que se encuentra compartido en red con otros usuarios, una de ellas funciona sin ningun problema, la segunda funciona bien pero tengo un usuario al cual le aparece el error 430 (esta clase no admite automatizacion o no admite la interfaz esperada), lo raro que a este mismo usuario la primera aplicación le funciona de maravillas, pero la segunda que tambien usa conexión ADO me manda aquel error 430. Lo raro es que a los otros usuario les funciona sin problemas la…

que tal buen dia, bueno queria saber si me pueden ayudar con la siguiente macro, lo que quiero que haga es que a determinada fecha se cree un archivo con un nombre especifico a una ruta especifica y cuando se quiera acceder a ese archivo cheque primero si no existe el archivo creado y si existe se elimine el archivo que se esta utilizando y si llegaran a tener otro archivo como el borrado y cambien la fecha se elimine igual porque seguira el archivo guardado...AQUI LES DEJO LA MACRO QUE ESTOY MODIFICANDO TIENE UN ERROR ES QUE SI YA SE GUARDO UN ARCHIVO Y LE CAMBIO LA FECHA NO APARECE EL MENSAJE Y SE SUPONE QUE SE DEBE DE APARECER EL MENSAJE Private Sub Workbook_Open() …

Hola a todos,esta macro me da problemas de compilacion,alguien me podria indicar la solucion? La intencion es que solo me borre las filas que sean diferentes a la condicion Gracias a todos Sub Macro1() ' ' Macro1 Macro ' Macro grabada el 21/11/2012 por Paco ' ' Dim Rango As Range, Fila As Long, ÚltimaFila As Long Application.ScreenUpdating = False ÚltimaFila = 1 For Fila = ActiveSheet.UsedRange.Row To ÚltimaFila Application.StatusBar = "Procesando fila " & Fila & " / " & ÚltimaFila If (Range("I" & Fila).Value <> TRANSPORTES Y LOGISTICA SORIA, S.L.) Then en esta linea me da el error If Rango Is…

Hola amigos del foro ante buenas tardes con todos disculpen espero se encuentren bien aquí escribiendo esperando puedan ayudarme tengo 02 problemas al ejecutar unas macro. 1.- En la Hoja RUC cuando ejecuto la macro "GENERA ARCHIVOS ZIP" no me sale el resultado deseado que son los datos de la columna "E" 2.- En la Hoja VALIDA CPE cuando ejecuto la macro "GENERA TXT" no me sale con la cantidad deseada que son datos de 100 en 100 y me esta arrojando diferentes cantidades a estos. adjunto mi archivo esperando me haya dejado entender gracias. adjunto el archivo pero me dice que es pesado, adjunto un link gracias. https://we.tl/t-EqX8pdb74a

busco una macro para que con un botón de actualizar pueda traer al libro "Consolidado" los datos que se encuentran en "libro1" y "libro2" ejemplo de Macro.rar

Hola, Me estoy peleando con una macro que no termino de conseguir, a ver si alguien me puede echar una mano. Tengo en un mismo directorio varios libros excel, cada uno con varias hojas, pero en cada uno hay una hoja que se llama 'resumen'. Luego tengo un libro final que tiene tantas hojas como libros con resumen. En el ejemplo que he colgado tengo 3 libros, cada uno con su hoja 'resumen' y el libro final con las hojas 'resumen1', 'resumen2' y 'resumen3'. Necesito una macro que copie el contenido de cada hoja resumen de cada libro en la hoja correspondiente del libro final. Estas hojas resumen tienen todas la misma estructura (A partir de la fila 2, rango B-W). Esta …

Buenas tardes, ¿Es posible guardar un número sin separador de miles? Es decir si ingreso en un textbox el número: 15080 que en la planilla me lo guarde como 15080 y no como 15.080 es posible quitarle el punto (.)? Si ingreso por ejemplo 1000000000 --> me lo guarda así: 1.000.000.000 pero debería guardarse 1000000000 Muchas gracias.

Buenos dias expertos, en un canal de youtube encontre un archivo para consultar dni y ruc desde la pagina de sunat y/o reniec pero funcion creo solo en plataforma de 32 bits y no en 64 bits, alguien tendra una manera de poner un codigo que funcione en las dos plataformas, por favor adjunto el archivo, por favor lo voy agraceder infinitamente. Consulta DNI y RUC.xlsm

Hola amigos tengo una aplicación VBA Excel que en local funciona una maravilla, pero ahora se me ha ocurrido ponerla en red y que la utilicen al mismo tiempo dos usuarios. He pensado en la opción de la interfaz "Compartir Libro" y sorpresa, que ahí han venido un montón de problemas al actualizar datos de un libro u otro, Pregunta por Excel si deseo un cambio o el de mi compañero con un mensaje ambigüo y rarísimo , error 1004 al guardar al mismo tiempo los dos y la verdad es que es un verdadero desastre. Me han aconsejado que pase a ADO pero no sé la sintaxis. Aquí en este proyecto hay bucles en formularios sobre hojas y modificación inmediata de registro en Hojas oculta…

Hola buenas,soy nuevo en este foro aunque lo he visitado numerosas veces. en uno de su temas vi el siguiente codigo para desactivar las funciones de excel ExecuteExcel4Macro("show.toolbar(""ribbon"",false)") y yo lo coloque en private sub ThisWorkbook_open() el problema es que el resulñtado no me ha gustado , porque se abre minimizado dentro del propio excel ,y ahora no se como hacer para que el archivo se abra normalmente necesitaria ayuda y si pueden explicarmelo para principiante en vba lo agradecere ; gracias

Buenas, Me gustaría encontrar una macro o función que me permita buscar en el texto de una celda y en función de lo que encuentre devolver un valor u otro. Por ejemplo... si el valor de una celda es "Carlos"... la fórmula podría buscar si es "arlos" y devolver un "Hola Carlos", pero si el valor es "Luis Manuel"... poder buscar también "Luis" y que te devuelva "Hola Luis"... Es como concatenar varios IF de texto (usando *) y que te devuelva un valor u otro dependiendo de lo que encuentre... ¿Alguien me puede ayudar? Muchas gracias

Muy buenas a todos. A ver, os comento. Tengo una macro en excel 2010 que, a través de un useform, me genera (en la pestaña principal) una fila con con varias columnas. Las dos primeras columnas son las importantes. Además, dicha macro, crea una pestaña con el nombre que hay en la columna A y genera el hipervinculo correspondiente a dicha celda con la nueva pestaña. ejemplo: En el useform pongo "123" y se crea en la celda A5: 123, además de crearse una pestaña con el nombre "123". La celda A5 y la pestaña estan hipervinculadas. También tengo que comentar, que segun se va ejecutando el useform, se van añadiendo filas nuevas con las mismas columnas Esta macro funciona perf…

Estimados amigos del foro, acudo nuevamente a ustedes tengo un formulario, con el cual abro dos carpetas que están relacionadas a dos hojas excel, si abro la una carpeta debe activarse la hoja correspondiente (Ej Carpeta OfEnviados con hoja BD_OFICIOSE; Carpeta OfRecibidos con hoja BD_OFICIOSR) según esto se cargan los archivos en el listbox. necesito hacer funcionar el botón de buscar archivo (imaginen cuando tenga mas de 100 archivos) para que encuentre el nombre del archivo en el listbox y en base a las hojas BD correspondiente se muestre los datos del respectivo del archivo Notas: (1) El nombre del archivo en la hoja BD_OFICIOSE rango("D") en realidad es un numero …

Buenos dias, requiero de su ayuda en la solución del siguiente problema: - Tengo una base de datos (Consolidado) donde se carga la información general. Parte de esta información debo pasarla a otra hoja (Información Detallada), conservando por supuesto los datos en la hoja de consolidado. - He tratado pero resulta un poco engorroso realizarlo a traves de formulas ya que hacen que el archivo se vuelva muy pesado al ir ingresando datos. (Estamos hablando de información anual y de registro permanente en el tiempo) - En la hoja de información detallada quisiera agregar un boton de comando que me permita cambiar de año y en función del mismo se visualice la información. - …

Buenas tardes a todos; He creado una macro con la grabadora para copiar columnas no contiguas y pegar los valores en una tabla que se encuentra en la misma hoja. Al pulsar sobre el botón "Copiar" se ejecuta la macro y muestra el resultado que me gustaría obtener. Un saludo para todos. Adjunto macro. MCopiarColumnas.xlsm

Buenas noches, parecera para algunos sencillo pero a mi el tema me esta trasnochando por mis conocimientos limitados en macros. Quisiera programar una macro que me subtotalice en las celdas vacias de la colmumna y de ahi continue a la siguiente y asi en adelante. Adcional como puedo hacer que la macro determine cuando parar y totalizar?. Gracias de antemano a quien me pueda hechar una mano con el tema. Adjunto un excell para ver si es clara mi solicitud. Ejemplo.xls

Hola amigo,quisiera su ayuda, lo que quiero es comparar 2 listas, lista1 y lista2 y si el valor de la lista2 es igual al valor de la lista1 entonces que me copie el dato de la celda de al costado ejm si lo encontre en b5 entonces que me copie el valor de c5 y lo copie en la hoja2 del mismo libro.El formato y una mejor explicacion lo adjunto en un archivo. Desde ya gracias por su cooperacion. Comp.rar

Hola amigos Quisiera que me ayuden para crear un macros en donde se pueda ingresar datos y generar un reporte con los últimos datos que se ingresaron, con la hora y fecha. estoy adjuntando un ejemplo de como seria. Muchas Gracias PRUEBA.rar

Hola gente, los molesto con la siguiente traba que tengo: quiero que el renglon del listbox cambie de color o quede la fuente en negrita si el valor de la columna P (Validacion) es "T". Es posible realizar esto o solo se da formato al listbox completo? Adjunto archivo que en su momento me paso Macro Antonio. Muchas gracias por la ayuda que me puedan brindar. Plantilla.rar

Buenos Dias Esta es una consulta a todos, me gusta harto excel a nivel formulas y tablas dinamicas me manejo bien, se que estoy aun debil en entender la logica de como operan las macros, programarlas. mi consulta tiene relacion con que los que ya son kapos en macros , de a poquito den tips de como entender la programacion de macros. nose como ejemplo hoy aprenderemos como movernos uando comando de vb : ejemplo celda a1: moverse hasta celda j1 de a poco dar sub rutinas basicas para ir comprendiendo y explicando como se hace , que es lo que significa en mundo macros vb lo digo por que la idea no es hacer un copy paste de una duda, la idea es aprender y entender lo …

Hola amigos: acudo nuevamente solicitando su ayuda, este es mi caso: he estado trabajando en un proyecto utilizando listview en un userform, mi equipo tiene instalado windows 7 de 32 bits. utilizo excel 2010, la version del listview que utilizo es version 6.0(SP6) ya tengo registrado los componentes mscomct2.ocx y mscomctl.ocx en la carpeta \system32 por un problema que tuve. con mi equipo que tuve y que fue formateado, tengo el problema que cuando abro mi aplicacion en otro equipo no funciona, algo que me parece extraño pues antes de ser formateado funcionaba en cualquier equipo, incluso en equipos que tienen excel 2007 ahora al abrirlo en otro equipo me envia el mensaj…

Tengo el siguiente código: Private Sub CommandButton1_Click() Dim xCodigo As String, xApDcto As String Dim xFila As Integer, xDcto As Integer, xLargo As Integer Dim resp As Boolean On Error Resume Next xCodigo = frmConsulta.TextBox1.Value xLargo = Len(Trim(xCodigo)) If xLargo = 1 Then xCodigo = "000" & xCodigo: frmConsulta.TextBox1.Value = xCodigo If xLargo = 2 Then xCodigo = "00" & xCodigo: frmConsulta.TextBox1.Value = xCodigo If xLargo = 3 Then xCodigo = "0" & xCodigo: frmConsulta.TextBox1.Value = xCodigo Hoja1.Select Range("A2").Select resp = Cells.Find(What:=xCodigo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows…

Estimados Estoy de a poco entrando en el fascinante mundo de programar en VB, pero me falta mucho por aprender. Por esta razon , necesito ayuda para crear la siguiente macro: - Realizar una macro que permita ingresar la edad de una persona a través de un inputbox y Muestre un mensaje si es mayor de edad o no. Tengo este codigo, pero algo le falta al parecer: Public Sub prueba() X = MsgBox("Desea Continuar", vbYesNo + vbQuestion, "Opción") End Sub Muchas gracias saludos meggido