Hola estimados amigos tengo la necesidad de generar un numero serial no repetitivo para ponerle como Id de algunos documentos que necesito guardar y lo quisiera hacer por medio de la fecha hora minutos y segundos para que por medio de ellos no quede la posibilidad de que se genere algún repetido el macro que estoy aplicando es el siguiente: range("a1")= Left((Now * 24 * 10000000), 10)[/CODE] pero quisiera saber si lo estoy haciendo bien o si al alguna otra manera de poder hacerlo para que no se repita dicho numero, una cosa importantes es que no quiero punto decimal entre ellos. saludos y desde ya muchas gracias

Hola Amigos, soy nuevo aquí pero aprendo un montón de sus respuestas. Queria consultarles si pueden ayudarme con el siguiente tema. Deseo traspasar un rango de datos de una columna definida, de varios archivos, que se van nombrando de distinta manera, y traspasarlos a un excel común, uno al lado del otro (de acuerdo a un numero de reporte correlativo) para lograr hacer un estadistico con dichos datos. Adicionalmente a esto, vale comentar que la columna de donde saco la informacion (de cada reporte con distinto nombre), es una columna que tiene una formula y que debo colocar en el estadistico como valor absoluto. Desde ya les agradezco.

Buenas Tardes!! Una vez mas solicitando de su amable ayuda Tengo Un Libro conformado así: Hoja Layout de un casino donde me muestra la distribución de los juegos, Hoja Thermo Indicador donde corresponde la Licencia de cada juego Hoja Base x maquina que contiene la base de datos correpondiente a las licencias Por medio de VB deseo que cada vez que se seleccione un juego, un Msgbox me arroje los datos de la licencia Adjunto Ejemplo De antemano muchas gracias MsgBBuscador.rar

Que tal tengo la siguiente situación, se me entrega un archivo de excel al cual hay que migrar hacia un formato txt, este reporte que esta en excel hay que estar migrandolo al menos 1 vez por semana por lo cual es demasiado el tiempo que se le invierte al hacerlo de forma manual, se puede realizar una macro para que automatize este proceso? Del archivo resultante en txt se requiere quede de la siguiente forma. D555555555555555550000000149798400000034334000000099000 . D541523100000000330000000230004840000034334000000100000 . detallo el formato de arriba [TABLE=width: 500] [TR] [TD]#[/TD] [TD]Nombre del campo[/TD] [TD]Long[/TD] [TD]Tipo[/TD] [TD]Valor[/TD] [TD…

Buenas tardes amigos espero estén bien Hasta hace poco utilizaba esta macro para guardar mis datos: Private Sub CommandButton5_Click() ' Guardar en Matriz If TextBox1 = "" Then MsgBox "Datos Incompletos: La Casilla Nombres y Apellidos Esta Vacia", vbExclamation: Exit Sub Dim uf As Integer With Sheet10 uf = .Range("B" & Rows.Count).End(xlUp).Row + 1 .Cells(uf, 2) = TextBox1 .Cells(uf, 3) = TextBox2 .Cells(uf, 4) = ComboBox1 .Cells(uf, 5) = TextBox3 .Cells(uf, 6) = ComboBox2 .Cells(uf, 7) = ComboBox3 .Cells(uf, 8) = ComboBox4 .Cells(uf, 9) = TextBox4 .Cells(uf, 10) = ComboBox5 .Cells(uf, 11) = Tex…

Buenas tardes amigos! , tengo una consulta espero de su ayuda, tengo una base de datos en la cual deseo imprimir unas determinadas tablas es decir por criterios! solo aquellas que tengan como saldo anexo = moneda nacional = que tenga pendiente , es decir todo lo que sea saldo 0.00 en saldo anexo no deseo imprimir! .. adjunto un cuadro para que que entiendan mejor. lo e pintado de amarillo todo lo que deseo imprimir. como observaran la lista de base es larga es por eso que quiero ver si existe alguna macro queme facilite o alguna formula.

Gracias por revisar mi pregunta en el archivo adjunto explico lo que deseo, gracias de antemano. un saludo jesus gomez POLIZA DIARIO1.rar

Buenas tardes, soy una persona nueva en este tema, y quisiera que me hagan el favor de darme una solución: Cuando tengo un (textbox o combobox) de carácter numérico y luego deseo hacer una función que dependa de los números almacenados (textbox o combobox), como puedo dar una variable a estos? para que luego el resultado me lo muestre en un textbox?

Adjunto un archivo en zip. El ejemplo que expongo está en la hoja 4 del libro Excel y lo que quiero conseguir lo explico en las siguientes líneas: Si el resultado de restar la tasa de arriba (por ejemplo la yq) con la de abajo (también yq) es negativo querría que el resultado se ubicase en la celda H4 (hilera con símbolo o) y el valor de la tasa yq de abajo apareciese en la celda h7 (hilera con símbolo x) Si el resultado de restar la tasa yq de arriba con la yq de abajo es positivo querría que en la celda h4 (hilera con símbolo o) se colocase la tasa yq de arriba y la diferencia en la columna h7 (hilera con símbolo x). Luego habría que hacerlo con cada grupo de tasa…

Hola a todos, soy nuevo en el foro, gracias por el soporte y la ayuda que prestáis. Mi cuestión es la siguiente: Tengo varias hojas que empiezan por el nombre "PRO" y necesito que el rango (b13:g64) de cada una de las hojas pegue los valores en la hoja "Dat" a partir de la primera columna en la siguiente fila vacía. Lo he intentado con el siguiente código pero solo pega los valores del rango" b" y no todo el rango. Sub prueba() Dim hj As Worksheet Dim x As Integer For Each hj In ActiveWorkbook.Sheets If hj.Name Like "PRO*" Then Sheets("Dat").Range("a" & Rows.Count).End(xlUp).O…

Hola a todos necesito de su ayuda... Tengo varios archivos de igual formato y estructura... nombres C0028-01_ICD_Nº12... con el correlativo de los ultimos 2 digitos que varia, todos en una misma carpeta, lo que deseo es copiar de todos los archivos dos datos, ubicados en la celda F25 y F32, respectivamente , y que estos se almacenen en forma de base de datos vertical, de manera sucesiva, de tal forma que aparezca una base donde se registre ... Columna A: Nombre del archivo "C0028-01_ICD_Nº..." Columna B: Valor de la celda F25 "Total Horas de Redetallamiento" Columna C: Valor de la celda F32 "Peso Total Impactado (kg)" Adjunto archivos origen, tengo una macro que sa…

Mil disculpas soy nuevo en el foro y habia puesto este tratamiento en excel general Muy buenos días, quiero hacer una consulta, tengo una hoja1 con una tabla en excel del cual tiene muchos valores repetidos y y en otra hoja2 están los valores únicos, lo que deseo hacer es que cuando encuentre el valor que no se repite en la hoja2 me traiga en la hoja1 en una celda contigua de la hoja2 la palabra "existe" con la función buscarv no sirve porque me trae el primer registro entonces había pensado hacerlo con código vba pero me ha dado muy difícil he utiliza el ciclo for y do while pero siempre me trae los valores que estan ordenados y la tabla esta desordenada, de antemano …

hola mi nombre es Nelcy estoy en secundaria y voy perdiendo mis logros en excel, me han puesto un trabajo que se trata de lo siguiente Debo generar una macro y que me genera datos por CONSULTAS POR 1. INSTITUCION, FECHA_NACIMIENTO, EDAD 2. INSTITUCION, APELLIDO1, APELLIDO2, NOMBRE1, NOMBRE2, GENERO 3. INSTITUCION, APELLIDO1, APELLIDO2, NOMBRE1, NOMBRE2, JORNADA 4. INSTITUCION, APELLIDO1, APELLIDO2, NOMBRE1, NOMBRE2, SISBEN por favor ayudenme gracias, para asi poder pasar mi ciclo es que fuera de esto debo hacer 7 ejercicios mas de estos

Dim Titulo$ Dim objHttp As Object Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") objHttp.Open "GET", "https://sitioaverificar", False objHttp.Send "" Titulo = objHttp.ResponseText If InStr(1, UCase(Titulo), "<TITLE>") Then Titulo = Mid(Titulo, InStr(1, UCase(Titulo), "<TITLE>") + Len("<TITLE>")) Titulo = Mid(Titulo, 1, InStr(1, UCase(Titulo), "</TITLE>") - 1) Else Titulo = "" End If MsgBox Titulo Hola a todos, Estoy utilizando esta macro para obtener el título de un sitio http para saber si se encuentra ok o no, funciona a la perfección, pero no me resulta para los sitios https Sólo necesito extraer el título de la…

Hola chicos, se que el tema que os voy a proponer es sencillo, pero lo estoy intentando y no me sale. Vereis, tengo un formulario donde tengo un textbox para introducir una fecha. Bien, me he instalado un complemento de excel que es un calendario, y lo he configurado para que me introduzca en el textbox, la fecha que seleccione previamente en el calendario, hasta ahì todo bien. Pero el problema està en que cuando le hago doble click sobre el textbox, que es el evento que he configurado para que salga el calendario, este sale pero debajo del formulario primero, y yo lo que quiero es que me salga encima. Si, lo se, el primer formulario deberia ser no modal para que el calen…

buenas tardes utilizo este código para cargar una macro una vez que haga click en una cierta celda Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) If Target.Range.Address = "$BF$1" Then Call macro1 End If If Target.Range.Address = "$BF$2" Then Call macro2 End If If Target.Range.Address = "$BF$2" Then Call macro2 End If End Sub el tema es que necesito poder realizar esto para muchas mas celdas (de la misma columna) pero no se como hacer algo generico sin tener que copiar y pegar gracias por su ayuda saludos!

Estimados, No conozco mucho de programación y necesito una macro para modificar una tabla dinámica (informe que llega de una determinada forma) con los filtros y etiquetas de fila y columna que que yo estime conveniente. En resumen me gustaría dejar fija una macro en la cual se modifique la tabla dinámica según me interesa. Me podrían ayudar? Muchas gracias!

Hola todos: Tengo un subform que contiene "checboxs" de peajes, se marca si se paso por el y tienen su tarifa correspondiente. El form se crea automáticamente a partir de una tabla de la hoja "peajes", el problema es que necesito guardar el nombre y el valor de los peajes marcados como "verdadero", ya que el Form principal al momento de ingresar los datos, copia los datos en una hoja pero ADEMAS hice un procedimiento que copia algunos de los datos en un libro "ConductorX"(Creado) en una ruta especifica. Hasta el momento no he podido guardar ni los nombres ni el precio y no encuentro el error... *el subformulario se llama "formulariopeajes" y esta contenido dentro de…

Yo pedi ayuda en la confeccion de un formulario y ANTONI me contesto y me soluciono el problema, Crack total. Ahora bien, dentro de el listbox del archivo que adjunto "lo hizo antoni" quiero agregar tipo de comprobante y en la parte superior mes y año; la verdad que lo intente y fracase. Algun alma caritativa por ahi que me pueda dar una mano Recibos Antoni.xlsm

He estado trabajando en una base de datos de un pequeño sistema de mantenimiento el cual tome un archivo de esta pagina y la he estado adaptando a mis necesidades, hice un pestaña en la parte de maestro de fallas etc, llamado cerrar trabajos pero requiero que en el combobox solo me muestre los numero de ot el cual no tengan fecha de finalizacion con el fin de que no me muestre todos, y por consiguiente no engorde la base de datos, el usuario de mi archivo es jesus y la contraseña es martha, anexo vinculo del archivo... Nueva carpeta

Hola, les pido apoyo para lo siguiente ? Tengo un formulario sencillo de consulta incompleto en el cual se pretende cargar los datos necesarios que están en la hoja Planilla (CÉDULA, NOMBRES TRABAJADOR, NÓMINA). En el formulario también hay un ListBox que al hacer la consulta por Cédula debe cargar todos los conceptos de la Hoja Planilla referentes a ese trabajador. muestradatos.xlsm

hola ¿que tal? Tengo el siguiente libro donde almaceno unos articulos y el stock correspondiente. Os lo cuento haciendo referencia al ejemplo que os paso He creado un userform para hacer recuento de stock seleccionando los articulos que tengo desde una combobox, hasta ahí perfecto, el problemas es que me gustaría añadir estos datos al textbox, ir sumando los stock y mostrar esta suma por la label de la derecha. Se os ocurre como hacerlo? Gracias por vuestra ayuda lista Art.zip

Buenas tardes estimados, Quisiera saber si se puede compartir un archivo que contenga ingreso de datos a través de una userform por red local, la cual se pueda ingresar datos simultáneamente entre 3 o 4 personas y que guarde en tiempo real. de antemano gracias! Saludos

buenas amigos como puedo hacer que donde dice modificar empleado con un boton que diga finiquito al presionar auntomaticamente me borre del listado a un empleado pero lo copie en otra hoja de nombre finiquitos osea hacer un traslado. personal.rar

Hola amigos, saludos a todos, hoy me encuentro realizando un trabajo, pero necesito de su apoyo. He creado un código para poder importar datos desde una tabla de Acces, pero al ejecutar me sale un mensaje que hasta el momento no he podido encontrar la solución, es por eso que recurro a ustedes para su valioso aporte. Además, crear un código para un segundo filtro con la columna K. Les adjunto los archivos. Proveedor Corregido.zip Proveedores.zip