Estimados Foreros: Otra vez yo para pedir si es posible de que me orienten del porque no funciona bien mi listbox... me desaparece mis encabezados y no carga la información que le quiero decir... en si quiero que el listbox se cargue con la info de la base de datos pero solo con los que tienen en la columna H un "1" gracias de antemano. saludos. REPORTE.zip

Lo que pasa cuando uno no da para la caja, eso me pasa a mi Tengo una macro en la hoja7, la cual influí al ejecutar algo contrario en la hoja. Dicha macro, tal como avisa si en la columna E de la hoja7, del 14 al 23 si insertas un numero maior que la existencia (hoja4) este manda un aviso. ¿Que necesito?, que al insertar en E de hoja7 un número IGUAL O MAIOR que la existencia en Hoja4, mande el mismo aviso. Al momento, esta para que solo si insertas maior, yo quiero que sea igual o maior Se puede hacer? pienso que si pero no lo logro. LA cosa creo que esta en la primera línea pero no doy con ella If lngvalorstock& < lngcant& Then 'CREO que por…

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…

Hola hermanos del Foro. Muy agradecido desde ya pro su pronta respuesta. la verdad escribo normalmente cuando ya no puedo encontrar una solución, eso lo hago generalmente por no molestar. sucede que he tratado por todos los medios de solucionar este problema y es que quiero pasar datos de Excel a Word, bajo las siguientes consideraciones: 1_Que se seleccione el archivo correspondiente en base a lo seleccionado en el comobobox1 (este puede ser el archivo "PMFCA.docx" o en su defecto "Predio.Docx"). 2_ se selecciona la opcion de llenado Este puede ser "Solo Madera" o "Madera y carbon"( con los botones de opciones.Si es que seleccionamos la opcion " Solo Madera" se co…

Saludos colegas. En la universidad usamos bastante la modelacion de tranporte (costo mínimo, esquina noroeste) mediante el uso de solver. Perdemos bastante tiempo por cada modelacion y formulacion por ejercicio, la propuesta es crear una macro que ahorre y optimice procesos pero en el tema de macros estoy bastante crudo, acudo a uds. este es un ejercicio que hemos realizado. Debemos tener en cuenta que para cada modelo de transporte, se debe definir -la cantidad de puntos de origen y la cantidad de destinos -costos de cada producto Analizando al momento de realizar la macro me parece que el mejor metodo de desarrollo sea el costo mínimo, pero no tengo idea de …

hola amigos buen dia construyo una base en acces que se alimenta a traves de un formulario de excel , y llege un punto que no he podido solucionar, y es que deseo extraer datos unicos de una tabla de acces a un listbox de excel y pues este es el codigo que utilizao, Call conexion Set rs = New ADODB.Recordset With rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open "BDFOLIOS", cnn, adOpenKeyset, adLockOptimistic, adCmdTable End With For a = 1 To 130 If rs.Fields("FACTURAPOST") <> "" And rs.Fields("ESTADOFACTURACION") = False Then combo1.Add CStr(rs.Fields("FACTURAPOST").Value) End If rs…

Hola, estoy intentando hacer lo siguiente: Tengo la siguiente matriz: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Necesito introducir en una matriz o vector lo siguiente: v(0)=1 6 11 16 'Diagonal izquierda v(1)=5 10 15 20 v(2)=9 14 19 13 v(3)=18 17 2 7 v(4)=12 3 8 4 v(5)=4 7 10 13 'Diagonal derecha v(6)=8 11 14 17 v(7)=12 15 18 16 v(8)=19 20 3 6 v(9)=9 2 5 1 Estoy intentando hacer una macro. Me podéis echar un cable? Muchas gracias a todos por las molestias

Hola, soy nueva en esto del excel y bajé un ejemplo de gestión de proveedores de una web que me está funcionando genial pero hay una parte que necesito hacer y creo que aquí hay muchos expertos y me podrán ayudar. El caso es que con la Macro puedo añadir, modificar o borrar clientes, pero lo que necesitaría también es un listado a base a unas condiciones. Pongo ejemplo: ID -- NOMBRE -- VISITA 1 -- REALIZADA 1 -- VISITA 2 -- REALIZADA 2 -- VISITA 3 -- REALIZADA 3 1 -- ELENA -- 01/01/2016 -- SI -- 01/05/2016 -- NO -- 01/07/2016 -- NO -- 01/09/2016 -- NO 3 -- LUCIA -- 01/02/2016 -- SI -- 03/05/2016 -- NO -- 04/07/2016 -- NO -- 10/09/2016 -- NO El listado…

Muy buenas, quiero crear una Macro para seleccionar la celda inmediatamente a la derecha de la celda que tengo seleccionada. Por ejemplo, imaginemos que tengo seleccionada A1, pues que al pulsar las teclas que activan la Macro (ejem: control+shift+a), se marque la celda B1. Muchas gracias!

Me pueden ayudar con esta macro por favor lo que hace es enviar correos automáticamente, me costó mucho realizarla ya que para esto no sabía casi nada de programación con Excel, mi problema es que me pidieron que si hay un pago o cobro con un mismo intermediario el correo me arroje esa X cantidad de pago y si hay varios cobros con el mismo intermediario que haga lo mismo, no sé cómo hacer esto ya que soy novato en vba (solamente los que tengan tipo compensación, los físicos "No") Ejemplo si en la columna intermediario existen celdas con este nombre BancoDeChile y en la columna pago hay valores, que esos valores los ponga en el correo. Adjunto el archivo, para …

Buenas tardes, Tengo una data extensa que resumí para efectos del ejemplo que aquí anexo. Sucede que no se si existe alguna manera (ya sea macro u otras funciones) de ordenar esos datos de forma diferente, o sea... que los mismos se puedan mostrar con más claridad... organizar.xlsx

buen día compañeros, en el excel adjunto, necesito que por cada nombre me filtre solo lo de ese nombre y me lo ponga en otro archivo a parte con dicho nombre. Es decir, si en el listado se encuentra Eliana, me haga filtro con ella, me copie solo la información de ella, me lo pegue en otro archivo y me lo guarde con el nombre Ejemplo.xlsx

Hola, estoy trabajando en una macro que me filtre una tabla y que la pegue en otro libro, todo funciona correctamente salvo una parte. A la tabla que deseo copia le pongo la opción de un autofiltro para que me seleccione solo una semana en particular, y tengo una validación para ello: Sheets("DataIns").Select Worksheets("DataIns").AutoFilterMode = False Range("A1").Select Selection.AutoFilter Field:=7, Criteria1:=wk Range("G1").Select ActiveCell.Offset(1, 0).Select comproWeek = ActiveCell.Value If comproWeek = wk Then Range("B1").Select ActiveCell.Offset(1, 0).Select Range(Selection, Selection.End(xlDown)).Select Range(Sele…

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…

Hola a todos, por favor si alguien me puede ayudar con esta macro para que los datos que copia se peguen como valores,ya que actualmente copia con todo y formula el contenido de la celda F7. Sub completa() 'Rellena la columna F hasta la ultima fila con datos de la columna E 'Se detecta la última fila con uf = Range("E10").End(xlDown).Row 'desde donde inicia 'Se detecta el rango a rellenar rango = Range(Cells(10, 6), Cells(uf, 6)).Address 'Luego se Rellena el rango con el contenido de la celda F7 Range("F7").Copy Range(rango) 'es desde donde se autocompletara End Sub Grac…

Buenos días. Tengo una macro programada para que ejecute una actualización de los datos. El problema es que, dependiendo de los datos, a veces salta un mensaje de error y hasta que no se pulsa aceptar en el mensaje de rror, no continua calculando. Hay alguna forma de hacer que "pulse" el aceptar de forma automática? Gracias.

Ciao a tutti e il mio problema è questo: con un foglio excel e la sua vba vorrei inviare e-mail con allegati pdf o altri formati che si trovano nella mia sottocartella chiamata (Utility) ma per esigenze personali uso sia (Outlook) che (Thurderbird) Ma anche se provo un mare di soluzioni, mi fa sempre dare un errore e non carico nulla si dà un'occhiata e mi dicono perché? Grazie saluti da A.Maurizio Prova_Email_Con_Allegato_3.rar

Hola, les comento mi inconveniente, tengo una tabla con 11 columnas, la cual estoy filtrando mediante un textbox con macro, pero cuando quiero filtrar una segunda columna manteniendo el filtro en la primera, este último se borra, osea que no puedo tener las 2 columnas filtradas al mismo tiempo, aclaro que no tengo conocimiento en macros, solo adapté mi hoja a un ejemplo que vi en la web, el codigo que uso en el text box es este: Private Sub TextBox1_Change() Application.ScreenUpdating = False With Range("AH1").CurrentRegion filas = .Rows.Count col = .Columns.Count End With Set CLIENTE = Range("D2").Resize(filas, col) With CLIENTE .Au…

buenas tardes , estoy tratando de exportar un la data de un sp a un archivo txt sin delimitadores pero me estoy quedando corto. favor podrian ayudarme que me falta.,GRACIAS 'On Error Resume Next Application.ScreenUpdating = False Dim FechaInicial As String Dim FechaFinal As String Dim i As Long FechaInicial = Format(FrmCalendarios.TextBox1.Value, "yyyymmdd") FechaFinal = Format(FrmCalendarios.TextBox2.Value, "yyyymmdd") Call Conectar_database '--------------------------- Dim cmd As ADODB.Command Dim Param1 As ADODB.Parameter Dim Param2 As ADODB.Parameter Set cmd = New ADODB.Command …

Hola, buenas tardes, En mi trabajo diariamente hago una búsqueda de datos con formulas de Excel, pero antes de eso hago una unificación de tablas (cada una con diferente N° de filas pero con el mismo N° de columnas) manualmente (son unas 20 aprox.) y me quita bastante tiempo porque antes de que las apilé en una sola tengo que hacerle una modificación a la tabla. Así es cómo es originalmente: Y así es como ya las empiezo a unir; Le agrego una columna y el titulo lo hago parte de la tabla: ¿Quisiera saber si existe alguna manera de realizar una macro que hago esto? Muchas gracias, les agradecería mucho la ayuda.

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!

Por favor, necesito ayuda para saber si es posible, buscar datos en un listado y copiar y pegar en otra hoja, es decir buscar vertical y pegar horizontal, pareceria una pregunta muy comun, ...pero la diferencia y que es complicado (al menos para mi) es que el criterio de busqueda, está por ej. en la columna G, y los datos que deseo copiar y pegar en otra hoja estan en la columna B, adjunto un archivo , esperando me haya explicado bien y que alguien me pueda ayudar a resolverlo o que me digan si no se puede...... Gracias de antemano Buscar.xls

Buenas Tengo una excel a la que le inserto datos a través de un formulario, y los datos pueden modificarse a través de otro formulario. El problema es que uno de los campos es un listBox multiselección que al insertarlos datos los coloca en una celda separados por ",". Pero al recuperar los datos no consigo que el listbox queden esos datos seleccionados al cargarse. ¿Podeis ayudarme? Sub modificardat() On Error GoTo ErrorHandler 'recuperamos el indice de control de la solicitud indice = SelecionarDatoForm.ListBox1.Value Unload SelecionarDatoForm 'borramos los datos de la hoja 3 Worksheets("Hoja2").Range("A1:P" & Ult).Delete …

Adjunto un archivo zip con un formulario basico para enviar mail desde excel para cuentas de gmail. En el botón "enviar" no sé como insertar ni donde la línea de código para permitir enviar archivos adjuntos. ¿Alguien puede ayudarme? Gracias por adelantado. Borja enviar email.zip

buenos días, tengo un archivo de excel que en la columna C tiene las fechas en formato dia/mes/año y quiero que al usuario seleccionar un mes en un combobox se filtre todas las fechas correspondientes al mes seleccionado. yo utilice el grabador de macro y el codigo quee me da es Range("C10").Select ActiveSheet.Range("$A$9:$K$379").AutoFilter Field:=3, Criteria1:= _ xlFilterAllDatesInPeriodMay, Operator:=xlFilterDynamic lo que quiero es saber como decirle que el mes es el que selecciona el usuario es decir que el May seria variable. gracias