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

Buenas tardes comunidad, quisiera realizar la siguiente consulta: Tengo un libro que tiene múltiples hojas y a las cuales se acceden por un formulario de control de Usuario y Clave, esto me funciona muy bien hasta cuando pongo el libro en formato COMPARTIDO, por alguna razón el VBA no me funciona solo reconoce la primera clave que esta en el If anidado, ¿ como puedo solucionar esto? De antemano por sus respuestas muchas gracias

Buenas noches, Estoy intentando automatizar un reporte y quería saber si con una macro es posible hacerlo. Para actualizar el reporte diario, normalmente descargo una base desde el sistema de logística y esta base va a una carpeta con un nombre cuya estructura es la siguiente 64000 -numeros particulares de la bajada diaria-274785. Con esa base descargada, la copio y la pego de forma manual en el reporte, y a partir de ahi trabajo con esa base. Mi mayor problema radica en automatizar el paso recién descrito, ya que actualizar el resto del reporte con la base pegada en el mismo lo he logrado automatizar. Cada día la bajada tiene esa estructura, con comienzo y fi…

Hola compañeros del foro, Tengo el siguiente problema de novato con el presente array que he creado: Este es el código: Option Explicit Option Base 1 Sub adminTemp() Dim admin As String admin = Array("...", "...", "...", "...", "Administrador", "Conectado", "...", "...") Dim fila As Long fila = Sheets("CONEXIONES").Range("A1048576").End(xlUp).Row Dim columna As Byte For columna = 1 To UBound(admin) If Sheets("CONEXIONES").Cells(fila, columna).Value = admin(columna) Then Sheets("CONEXIONES").Rows(fila).Delete Shift:=xlUp Next columna End Sub En otras palabras, me dice que el problema está en la declaración de la …

Buenos días a todos. Llevo varios días intentando realizar lo siguiente con unas hojas de excel, pero no he sido capaz: Tengo varios miles de registros de pacientes de nuestro hospital en una hoja excel, con varios campos (número de historia clínica, edad, sexo, centro de salud de referencia etc...). Estos datos los hemos sacado de la base de datos de nuestra historia clínica electrónica. El problema es que en muchos de los pacientes hay datos incompletos, es decir, por ejemplo falta el centro de salud, o falta el médico habitual. Cada paciente además puede tener más de un registro, correspondiente a cada una de las visitas a urgencias, ingresos hospitalarios etc... …