Hola que tal Necesito la formad e poder usar un único formulario que contiene una barra de progreso, para varias consultas o macros, por ejemplo, tengo un libro con 40 hojas, y tengo una macro que oculta las filas vacías en todas las hojas en un rango, tengo otra macro que muestra las filas vacías que se han ocultado, tengo otra macro que oculta x cantidad de columnas y otra macro que muestra las columnas ocultadas. y otras macros que procesan datos, ahora lo que quiero es que cualquiera que sea la macro que ejecute me corra el formulario que tiene la barra de progreso y me muestre el progreso actual para la macro que se corrio. es decir que el formulario sea comun p…

Para introuducir datos que se vuelquen cada vez en la fila siguiente como debería retocar esta macro? Con el diseño actual solo se ponen en la primera fila y despues no puedo seguir añadiendo más información en las posteriores filas. El código está vinculado a un boton ACEPTAR de un formulario. ahí va el archivo adjunto con el formulario Gracias x adelantado. Borja STAR.rar STAR.rar

HOL A TODOS LOS COLABORADORES. Apenas estoy empezando en el mundo de VB, y quisera que me echen una ayudita con lo siguiente: Quiero que se ejecute una formula al correr una macro. La formula es la siguiente: =SUMAR.SI.CONJUNTO(BaseDatos!E3:E15000;BaseDatos!C3:C15000;cedula;BaseDatos!I3:I15000;C2;BaseDatos!J3:J15000;D2). esta formula esta en la celda b3 y es en esa celda donde quiero se ejecute al correr la macro, de tal manera que cuando yo de click en el boton de la macro esta haga esa formula y me coloque el resultado gracias por la atencion. sumarmacros.xls

Buenas tardes, de abte manos muchas gracias a la comunidad por la ayuda quisiera seleccionar la ultima celda con datos y copiarla para posteriormente pegarla en una hoja nueva, este es mi codigo Sub Copiar_Valores_Contabilidad() Sheets("Extraer_Rutas").Select For i = 2 To Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.Range("A" & i).Select Selection.Copy Next Sheets("Rutas_Fs").Select ActiveSheet.Range("A2").Select ActiveSheet.Paste End Sub …

buenas noches, dispongo de una macro que me entrega para cada celda un valor distinto de 0 (dentro de un rango de celdas), al utilizar ciclo for, no obtengo todos los resultados inmediatamente (algunas celdas siguen con valor 0, por la naturaleza de los datos de entrada), por lo que debo ejecutar la macro varias veces hasta que se rellenen todos los datos del rango con un valor distinto de 0 como puedo ejecutar la macro de forma automática varias veces, hasta que todos los valores de mi rango, sean distintos de 0? muchas gracias

Buenas tardes a todosacudo a ustedes para solicitar su ayuda como de costumbre ya que me he atorado con una rutina Tengo archivo "Problema" de la cual manejo básicamente las siguientes Hojas:Hoja1Hoja3Pretendo buscar el código del empleado de la Hoja3 columna "B", realizar la Búsqueda en la Hoja1 columna"A" y si se encuentray ademas en la fila donde se ubique, columna "F" sea mayor a 0 (Cero), copiarlo y realizar el pegado en la Hoja3 en la fila que corresponda , de lo que he desarrollado únicamente lo realiza con la columna de Horas Extras ,pero no se por que no lo hace con el resto de las columnas, espero haber sido explicito, GraciasLa macro lo puse en la Hoja3 prob…

buenas tardes, escribo con la finalidad de solicitar ayuda en cuanto a una base de datos en la cual tengo 11 columnas de las cuales las 7 primeras tienen valores duplicados, y en las 4 ultimas estos valores deben sumarse al eliminar duplicados.cargo un excel con dos hojas, Hoja1 como se muestran los duplicados y Hoja2 como debería ser el resultado.espero me puedan colaborar con esta base de datos.Gracias de antemano Prueba Utilidades.rar

Tengo un archivo de txt que necesito poder levantarlo y que me conserve el formato, pero necesitaria que me permita poder delimitar la longitud ya que por ejemplo al principio tengo una serie de NUMEROS unidos con un TEXTO, y eso por ejemplo lo quiero poner en dos columnas. aca les deje un ejemplo y el txt para que me ayuden. 20052614048PEREZ CARLOS F 001029758 0.00008000000 0 4774.12 4773.16 0.00 0.00 0.00 0.00 0.00 4773.16 4773.16 4773.16000 0.001 0.0011 1 0 0 4773.16 0.00 0.00 0.00 0.00 30 4773.161 0.00 0.00 0.00 4773.16 0.…

Estimados Tengo un problema que seguro alguien sabrá resolver y parece ser una tontería pero por más que busco en internet no consigo la respuesta. Tengo un formulario; cuando ejecuto el formulario directamente desde visual basic, todo funciona correctamente. Ahora bien, por decir en la “hoja 1”, llamo a este formulario por un botón: Private Sub AbrirFormulario() PpalForm.Show End Sub Sí, me muestra el formulario, pero cuando salgo o lo cierro, a pesar de haber seleccionado alguna de las opciones del formulario que terminan por ejemplo: Worksheets("Hoja2").Activate Range(“A1”).Select Me muestra la hoja “Hoja2” y al parecer está en la celda “A1”, pero si por ejem…

BUENOS DÍAS, UN CORDIAL SALUDO Y MUCHAS GRACIAS DE ANTEMANO POR SU AYUDA. EN LA HOJA = "Proy.-Comer", TENGO DOS COLUMNAS EN AMARILLO UNA ES LA VARIEDAD Y LA OTRA ES LA RECETA, EL TEMA ES QUE LAS RECETAS SE DUPLICAN EN ALGUNOS CASO Y SEGÚN LA VARIEDAD, CREE EN EL ADMINISTRADOR DE NOMBRES, RANGOS DE TODAS LAS VARIEDADES; POR EJEMPLO "BLACK SEEDLESS" = "BS" (RANGO ='Proy.-Comer'!$L$11:$L$20) "COTTON CANDY" = "CC" (RANGO ='Proy.-Comer'!$L$41:$L$55) "CANDY SNAPS" = "CS" (RANGO ='Proy.-Comer'!$L$23:$L$38) ...--------Y ASÍ SUCESIVAMENTE LA IDEA ES COPIAR LOS DATOS ÚNICOS DE LAS RECETAS EN LA HOJA = BD_Recetas EN EL RANGO C9:C43 (DE COLOR AMARILL…

Buenas quisiera conocer algún macro que me permita cambiar los nombres de todas las hojas de excel que tengo, sería: 2.5.28 a 2.5.C.1 2.5.29 a 2.5.C.2 2.5.30 a 2.5.C.3 ..... y así sucesivamente Muchas gracias!

Hola Amigos: necesito un poco de ayuda con una macro de internet que adapte para trabajar con planillas en la empresa, es para dar formato al RUT que usamos en chile, la macro funciona bien, hace exactamente lo que necesito que haga, el problema se genera al limpiar la planilla para usarla nuevamente, cree un boton que ingresa los datos a una base de datos y borra el contenido de la planilla para empesar a usarla con datos nuevos... cuando uso el boton o cuando selecciono las celdas y le doy suprimir, o borrar contenido, me aparece el famoso error... "Se ha producido el error '13' en tiempo de ejecucion" y mas abajo en el cuadro pone: "no coinciden los tipos", al usar el…

Buenas. Vereis estoy intentando realizar una macro que, si detecta algun fallo, muestre por pantalla un mensaje de error y quede a la espera de que el usuario lo resuelva. Por ejemplo, si en la celda... C1 se encontrara un dato que no debiera estar ahi, quisiera que mostrar un mensaje del tipo "Dato erroneo". Entonces la macro estaría a la espera de que el usuario cambiara el dato y diera a aceptar al mensaje. Entonces, despues de aceptar, la macro seguiría la ejecución dónde lo dejó. Tengo claro que no puedo hacerlo por un msgbox (puesto que no deja editar nada antes de darle a aceptar) así que lo he estado realizando con un formulario. El problema es que, al desabilit…

Hola amigos, bueno ya me va quedando menos para completar mi libro de control de stock, gracias en parte a la ayuda que me han brindado por este foro. En esta ocasión tengo un problema con unos combobox, y que no consigo resolver. Verán en mi libro, en la hoja de Albaranes, cuando introduzco un código en la columna de Referencia, automáticamente busca el nombre del producto asociado a dicho código, así como en la columna de Lotes, mediante un combobox trae el stock correspondiente a ese producto (el stock de productos se encuentra en la hoja de Control de Stock), el problema es que cuando voy introduciendo productos para realizar un albarán, hay veces que al segundo o ter…

Hola amigos. aquí nuevamente molestando sobre una situación tengo una base de datos donde bajo reportes de diferentes módulos tengo dos columnas en la hoja1 sombreados de diferentes colores esas columnas quiero hacer una comparación y que me copie en la hoja de resultados si encuentra el dato parecido. Intente con la función buscarv pero no me dio el resultado y tambien intente con la formula si la columna A=T pero por lo que veo no me da el resultado por lo que en una columna trae varios (0). Espero no confundirlos amigos, aquí adjunto el archivo para que se entienda mejor De antemano muchas gracias. Libro3.rar

Buenas tardes, en el archivo adjunto explico que es lo que debo obtener como resultado, sin embargo, no me arroja error, pero tampoco me da el resultado que necesito Sheets("Alldata").Cells(jLastrow, 3).Select.FormulaR1C1 = "=IF(LEFT(RC[-2],1)<>""3"", ""D"",""N"")" Sheets("Alldata").Cells(jLastrow, 4).Select.FormulaR1C1 = "=MID(RC[-3],3,1)" Agradeceré se sirvan verificar mi macro Gracias, Saludos Jorge desde Perú Copiar columnas jgbh.xls

Hola a todos, tengo 2 PC con Windows 7 de 32 bits y Excel 2010 y MySQL 6.2. A estos 2 equipos ya le instalamos los conectores "mysql-connector-odbc-3.51.30-win32.msi" y "mysql-connector-odbc-5.1.13-win32.msi" (instalé 2 para ver cuál me funcionaba). He conectado Excel con MySQL dentro de la misma PC, es decir, con la base de MySQL que se encuentra en la misma computadora donde hice la conexión (localhost), pero no lo he logrado de una PC a la otra PC. Debo decir que tengo conocimientos muy básicos de MySQL y redes. Lo que pretendo es conectar mi Excel con la base de MySQL de la otra PC para traer una tabla, hacer modificaciones y regresarla a MySQL, todo esto mediante Exc…

Buenas tardes a todos, lo primero es disculparme por si mi duda no debería de ir en este grupo. Tengo una duda si se puede realizar o no (sin VBA o con), intentaré explicarme lo mejor posible. Digamos que trabajo con un fichero de txt de unas 2000 palabras, mi objetivo es importarlo y que salga columnas de 50 filas. Se restringir la tabla en la fila 50 pero se corta ahí. Mi duda es puedo programar (con VBA o sin) de alguna manera para que una vez llegue a la fila 50 salte de columna y así sucesivamente y siga añadiendo las palabras? Un saludo a todos, gracias.

Buenos días. He preparado una plantilla para organizar los turnos de trabajo con una duración mensual. Me gustaría saber si es posible que a la hora de imprimirlo, se imprimiese por semanas, manteniendo las tres primeras columnas, donde apararecen los distintos turnos y lugares de trabajo, y si, por ejemplo, la primera semana del mes empieza en miercoles, el rango empiece en dicho dia hasta el domingo. Gracias de antemano por vuestra ayuda. Saludos, Ignacio Modelo2.xlsm

Buenas Noches, Tengo el archivo adjunto, el cual se completa y copia a las celdas debidamente, sin embargo quisiera que en vez que este el textbox18 (proveedor) sea un combobox el cual tenga los nombres de los proveedores de las pestañas (IMPORT1, IMPORT2, IMPORT3), los cuales al momento de selecionar se copie automaticamente a sus respectivas hojas, pero solo los datos de A9 hasta F9 que serian osea, N° de OC Cliente, Fecha OC, Trabajo N°, Cliente, Vta. Neta Local, Vta. Neta Directa del Userform6, claro y que se mantenga que se siga creandouno ensima debajo de otro caba vez que ingrese uno nuevo. Mus¿chisimas Gracias por su apoyo! EJEMPLO OC.zip

Buenas tardes, necesitaría terminar una macro que al guardarla, me añadiese al nombre la fecha del día : en vez de = Factura.xls Seria así = Factura"=HOY()".xls O así = Factura"Fecha actual".xls Un saludo

ante todo buenos dia paso a solicitarle si es posible en crear un macro con los datos adjuntos de lo cual automaticamente se llene leendo los codigos de barra con el scaner que tengo espero su ayuda muchas gracias CONTROL DE PDT0.xls

Hola. Hay varios temas que piden listar los archivos de una carpeta, pero no he visto ninguno que permita abrir cualquiera de los archivos listados desde el mismo excel. ¿Es posible? Sería como si los archivos listados fueran cada uno un hipervínculo. Adjunto un ejemplo sobre el que poder trabajar (aunque se puede utilizar cualquier otro). Saludos. Listar archivos II.zip

Amigos del foro nuevamente recurro a uds. para obtener su ayuda, espero poder solución a mi problema, tratare de explicarme lo mejor posible: Tengo un formulario donde ingreso datos y necesito que estos aparezcan algunos datos en un libro 1 y en libro 2, considerando que la macro siempre estará en libro 1 (base inicial), estos datos se deben ir agregando hacia abajo de los ya existentes sin ser sobrescritos. Ej: Columna A debe ir el libro 1 y libro 2 Columna B debe ir solo en libro 1 Columna C debe ir solo en libro 2 Columna D debe ir en libro 1 y libro 2.... Adjunto archivo para mejor entendimiento, espero me entiendan y espero obtener su ayuda Desde ya muy agrad…

buenas tardes amigos tengo una un archivo con varias columnas con información, quisiera ver si alguien me ayuda con una macro para unir todas las columnas existentes en una sola columna. gracias de ante mano por su ayuda