Hola buenas tardes a todos. He estado buscando y no he encontrado nada sobre ello. Vereis tengo un código VBA para que me indique un número con 3 cifras significativas (ojo no 3 decimales). Por ejmplo: 123 65.1 8.89 0.235 0.0457 etc El código es el siguiente: Sub Macro2() Range("b2").Select While Not IsEmpty(ActiveCell) cifra = ActiveCell.Value a = 0 i = 0 While (a = 0 Or a = ",") i = i + 1 a = Mid(cifra, i, 1) Wend If i = 1 Then If InStr(1, Mid(cifra, 1, 3), ",", vbBinaryCompare) Then cifra = Left(cifra, 4) Else cifra = Left(cifra, 3) End If Else cifra = Left(cifra, 2 + i) End If ActiveCell.Offset(1, 0).Value =…

Hola Expertos tengo un archivo en el cual ya inserta los usuarios y su contraseña, quiero validar esos usuarios y contraseñas que se vallan agregando. ya tengo una parte del codigo solo quisiera ver si es posible que se validaran y cuando la contraseña y el usuario sena correctos abra un userform ahorita puse de prueba el Form_BIENVENIDA Este el codigo del boton ingresar. Private Sub CommandButton1_Click() On Error GoTo Errorusuario For I = 2 To R a = Sheets(BD_USUARIO).Cells(I, 8) b = Sheets(BD_USUARIO).Cells(I, 9) If a = Txt_Usuario And b = Txt_Contrasena Then Sheets(BD_USUARIO).Range("H2") = Txt_Usuario Sheets(BD_USUARIO).Range("I2") = Txt_Contra…

Elimnar archivo con Kill Buenas tardes Maestros del excel tengo un formulario en el cual a veces me funciona el codigo para borrar un archivo temporal que creo por medio de un codigo, pero en algunas momentos si funciona y en otros no y no entiendo por que. agradezco la ayuda que me puedan brindar subo archivo. Sub borrar() FileExtStr = ".pdf" TempFilePath = Environ$("temp") & "\" TempFileName = "Retiro " & Range("b5").Value Kill TempFilePath & TempFileName & FileExtStr End Sub[/code] Kill TempFilePath & TempFileName & FileExtStr

buenos dias, les agradecere su ayuda con un codigo que me permita ejecutar una macro cuyo nombre este contenido en una celda seleccionada con el right click. esta funcion solo sera valida para un grupo de celdas por ejemplo de d5 a e15. ya con esta informacion permitanme poner un ejemplo para tratar de ser mas claro; si en la celda d5 contiene la palabra casa al seleccionarla con el boton derecho debera ejecutar la macro llamada casa y asi para el grupo de celdas descrito. gracias anticipadas por su ayuda. boton derecho ejemplo.xls

Hola a tod@s. Estoy buscando la forma de como encontrar la fecha anterior mas cercana del 2019-01-01 del siguiente listado en la columna A: FECHA 2017-10-17 2017-10-23 2018-10-31 2019-01-21 2019-01-21 2019-02-28 Resultado: Seleccionar la fecha 2018-10-31 Saludos

Hola, ya solucionado problemas anteriores en este estoy bastante desorbitado porque no se que es lo que sucede... En el Sub Private CalcularCineantropometria me sale el error del titulo... probé cambiando la configuración regional de comas por puntos (por si las moscas), transforme los datos del label a CDbl y nada... ya no se que puede ser. Yo necesito que, a través de los datos que subo, hacer unas cuentas y que me aparezca los resultados en un label. Saludos! PD: al subirlo tuve que sacar otros formularios, aunque se solicite desde este uno solo... ademas de dos macros. Formulario_Cineantropometria.xls

Buenos dias desde Mexico para todos. Recurro nuevamente a ustedes para solicitar su ayuda. Tengo un archivo con varias hojas(pueden ser 1,2,3...n) de las cuales quiero pasar algunos datos de cada una de las hojas a una hoja que se llama "Explosion de materiales" la siguiente hoja se llama "Explosion de Avios" y la ultima se llama "Listado de lotes" Estas 3 ultimas hojas no las tomaremos en cuenta para nada, a excepcion de la hoja llamada "Explosion de Materiales" que es donde iran los datos recolectados. Cabe mencionar que existe o existen varios temas con mi misma inquietud pero no he podido adaptarlo a mis necesidades. Dentro del archivo vienen los datos que se pret…

Hola estoy en un proyecto personal y me trabe en una macro. Esta trata de Busqueda Padron, me tira el error " Se ha producido el error '1004' entiempo de ejecucion : Error definido por la aplicacion del objeto". Private Sub TEXTO_Change() 'MsgBox "Hola" NumeroDatos = Sheets("PLANILLA").Range("Q" & Rows.Count).End(xlUp).Row 'MsgBox NumeroDatos Sheets("PLANILLA").AutoFilterMode = False Me.LISTA = Clear Me.LISTA.RowSource = Clear Y = 0 For File = 12 To NumeroDato If UCase(Description) Like "*" & UCase(Me.TEXTO.Value) & "*" Then Me.LISTA.AddItem Me.LISTA.List(Y, 0) = Sheets("PLANILLA").Cells(Fila, 1).Value Me.…

Estimados amigos del foro acudo a ustedes nuevamente para averiguar como debo hacer para poder cargar varias imágenes que están en una carpeta en esta carpeta siempre se ordenan sea alfabeticamente o numéricamente si es por código, lo cierto es que si pulso un botón de control de desplazamiento numérico pueda cargarse varias imagens (que en realidad es cada archivo jpg) tanto como de 100 en 100 pues podría tener 1000 o mas imágenes. Subo unas imágenes de las que menciono y el código que uso pero que solo me muestra una misma imagen para explicarme mejor. En esta es obvio que se muestre una imagen pues el la celda activa solo activa una imagen según el nombre en la…

Buenas tardes! Tengo un libro de excel con varias hojas. Una de ellas es la hoja de pedido a proveedores y esta quiero pasarla a pdf y enviarla por email mediante una macro (el email sale reflejado en una celda de la misma hoja, "AL7") El pdf estaría bien que se me guardara en una carpeta de C: (da igual la ruta) y la hoja en cuestión se llama 'Hoja de Pedidos' Por favor, alguien me puede decir el codigo?? Mil gracias!!! un saludo, Joan.

Buenas tardes a todos. Estimados. Con frecuencia he tomado los concejos y soluciones que dan los mas experimentados en problemas con nuestro querido excel. ahora estoy realizando un proyecto ya casi lo termino, lo he realizado en base a soluciones propuestas en el foro. Me estancado con un problemita: Tengo un Formulario que registra datos a un Formato pre establecido en una hoja en excel, cuando elimino un registro, me elimina la fila pero DEFORMA el formato alterando las ubicaciones a otros registros. quisiera borrar el registro que selecciono sin alterar el formato. les comento que una vez que termino de registrar los datos que necesito para el llenado del format…

Buenos días. Quisiera crear un checkbox que me ocultase o mostrase todas las filas cuya referencia empiece por 2, otra por 3....., pq si lo hago por rango de celdas al insertar una nueva fila tengo que cambiar todo el código de los checkbox. Un saludo y gracias checkbox.xls

Tengo una bese de datos de alumnos de un colegio por ejemplo: nombre velocidad lectora calidad y otras columnas Juan 897 ulr esta base tienes 50 estudiantes deseo generar un informe por cada alumno para imprimir a los papas que diga NOmbre: Velocidad Lectora con el nombre del colegio el logo y otros datos generales pero tengo que generar un reporte por cada fila del fichero Gracias

Hola, buen día. Tengo un archivo de proyectos, cuyas etapas y actividades individuales están identificadas con números consecutivos con el siguiente formato: Fila 1 Etapa 1 : 4.28.1 Fila 2 Actividad 1: 4.28.1.1 Fila 3 Actividad 2: 4.28.1.2 Fila 4 Actividad 3: 4.28.1.3 Fila 5 Etapa 2: 4.28.2 Fila 6 Actividad 1: 4.28.2.1 Fila 7 Actividad 2: 4.28.2.2 Fila 8 Actividad 3: 4.28.2.3 El problema deriva en el tiempo que lleva corregir la numeración cuando se inserta alguna actividad o etapa interm…

Hola a todos MacroLovers, Sucede que de vez en cuando me encargan reiniciar un servidor, al cual posteriormente debo cargarle una serie de comandos vía telnet por el puerto 23, lo cuál claramente toma tiempo, en consecuencia estaba pensando si será posible ejecutar alguna macro que a través de un combobox me pregunte la IP, para posteriormente enviar el listado de comandos en forma automatizada? Gracias,

Hola estimados quiero pedirles si me puede ayudar con esta macro quiero que al momento de imprimir todos los locales solo dar en imprimir y no estar ingresando factura por factura. Les envió la planilla. Estaré atento a su respuesta. Saludos. ROTULO JUMBO.xls

Hola. Quisiera solicitar ayuda. Tengo una macro que quiero complementar. La siguiente porción de código compara el contenido de dos celdas de dos hojas diferentes del mismo libro. valorAnterior = B.Cells(filaEncontrada, x + 1) If A.Cells(y + 1, x + 1) <> valorAnterior Then C.Cells(y + 1, x + 1).Font.Color = vbBlue C.Cells(y + 1, x + 1).Font.Bold = True End If [/CODE] Si el contenido es diferente, se marcará en la hoja C el contenido de la celda con negrilla y color azul. Además de esto quiero que la celda quede con hipervínculo que me dirija a la celda de la hoja B, algo así como: C.Cells(y + 1, x + 1) ---->B.Cells(filaEncont…

nuevamente solicito de su atención, quisiera saber si mediante esta formula que indico: =HIPERVINCULO(IZQUIERDA(CELDA("nombrearchivo"),ENCONTRAR("[",CELDA("nombrearchivo"))-1)&"\Archivo"&$A38&".pdf",$A38&".pdf") también se pueden hacer a nivel de imágenes, por lo que donde se encuentra alojada en una usb o disco externo y por lo general varia la unidad de ubicación dentro de una pc.

Buenas tardes Tengo un problema con este codigo.... en la casilla f157 y f154 tengo los datos del aforo de acceso (que se encuentran en las casilla (a3 -h51)y en la casilla f162 y f159 tengo los datos del aforo de tránsito (que se encuentran en las casillas a51 a h150). El código lo hace bien, en el primer caso cuando llega al número máximo de visitantes aparece cartel pero el segundo caso, suma los primeros, es decir que si por ejemplo tengo un aforo de 5 personas de visita y 5 de tránsito, en el momento que hay 5 personas de visita ya indica que está el aforo superado. Espero no haberme explicado como un libro cerrado y me puedan ayudar. Gracias de ant…

Abrir libro de excel con macros en una pc en red, dando la orden desde otro libro de excel con macro en otra pc, se puede hacer esto?, de ser asi, podriamos hacer un control de ciber como dios manda. Alguien me ayuda con esta informacion o un ejemplo?...

hola tengo en una carpeta 100 archivos de excel y necesito ir ejecutando una macro que me guarde en csv en una carpeta especifica que yo diga pero que no me cambie el nombre del archivo como podría hacer esto voy a mandar un ejemplo del archivo que necesito convertir, la otra pregunta que tengo es que cuando yo lo convierto a csv en la ultima columna me aparece la ultima fila con #¡REF! necesito si se puede anexar a esta macro la opción que borre todo lo que encuentre con #¡REF! gracias. Informacion clientes 2013-01.rar

He cargado mi Base Datos Excel 2010, en un ListBox de varias columnas. Si selecciono una fila del ListBox(con todos sus datos distribuidos en las columnas) ¿Cómo puedo hacer para que mediante un Botón, ubique éste registro único en la BD que está en la hoja excel y modifique el contenido de una de sus celdas(columna). aaaAaaadaaaa

Buenos dias. de antemano gracias por la ayuda mi problema es que quisiera que en el listbox me muestre los encabezado y me sume el stock y lo muestre en un textbox ... espero no sea molestia ai le adjunto el archivo LISTBOX.rar

Muy buenos días, Les escribo por un tema que llevo dándole vueltas bastante tiempo y que no he conseguido resolver. Se trata de evitar que me "salte" un mensaje de alerta cuando no hay información en la tabla de datos que utilizo para un gráfico. El mensaje dice: "Your formula contains an invalid external reference to a worksheet. Verify the path, workbook and range name or cell reference are correct, and try again" Y como les digo, aparece cuando borro los datos de la tabla del gráfico... Les he adjuntado un ejemplo para que puedan ver mejor a lo que me refiero. Cualquier ayuda estaré muy agradecido. Atentamente, Error.xls

Actualmente estoy utilizando esta pequeña macro Sub PDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\prueba.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub Pero quisiera poder realizar lo siguiente: -El archivo PDF se genere con el mismo nombre del libro de excel -El archivo PDF se guarde en la misma ruta del libro de excel -El archivo PDF y Excel queden cerrados. Siempre gracias por su tiempo, Saludos Daniel,