Buenas Tardes. Tengo este codigo: Private Sub ListBox1_Change() With Sheets("Hoja1") Set codi = .Columns("A").Find(What:=Me.ListBox1, LookIn:=xlValues) If codi Is Nothing Then MsgBox "Codigo no existe!": Me.ListBox1.SetFocus: Exit Sub For i = 2 To 12 Me.Controls("Textbox" & i) = .Cells(codi.Row, i) Next End With Set codi = Nothing Dim nsp As String Dim hoja As Worksheet nsp = ListBox1.Value For Each hoja In Worksheets ' Busca si existe una hoja con el nombre del codigo de cliente If nsp = hoja.Name Then Dim rw As String rw = ListBox1.Value & "!A:A" ComboBox1.RowSou…

NECESITO AYUDA CON RESPECTO A HIPERVINCULOS EJEMPLO TENGO UNA LISTA EN UN EXCEL : 1 A 2 B 3 C 4 D 5 INFINITO Y UNA RUTA DE ARCHIVOS \\192.168.1.201\HOLA\LETRAS\ DONDE ESTAN LOS EXCEL A , B ,C , D , INFINITO CON EL MISMO NOMBRE DE LAS CELDAS , son archivos distintos. QUISIERA QUE MI LISTA(MIS CELDAS 1 A, 2 B, ....) RUTEEN A ESOS ARCHIVOS QUE TENGAN SU NOMBRE , YA QUE AL HACER CLICK EN 1 A ME HABRA EL EXCEL DE LA CARPETA \\192.168.1.201\HOLA\LETRAS\A1.XLS Y ASI LOS DEMAS = CON SU RESPECTIVO NOMBRE. GRACIAS ES ALGO DE VIDA O MUERTE GRACIAS

Hola amigos. Estoy en la búsqueda de ayuda para modificar una Macro que pretende separar nombres propios compuestos. La macro que utilizo no lo está haciendo correctamente (lo hace parcialmente) y no he podido dar con el código correcto, así que recurro a los que saben solicitando su ayuda. En el fichero que subo van las explicaciones de lo que debe hacer la macro. De antemano, muchas gracias a quien o quienes puedan ayudarme. SEPARA NOMBRES.xls

tengo una tabla donde quiero que el color cambie de verde a rojo utilizando la fecha de la computadora. ejemplo: visita peter = 21 feb 2011(verde) vence al año 21 feb 2012(rojo)

Buenos días y gracias de ante mano, He creado un fichero, como podéis ver (fichero adjunto) es bastante sencillo. Pero me gustaría que en la cuarta columna de (alerta), me saltara una alerta y cambiara el color de verde a rojo. Para así poder identificar aquellas personas que han pasado el plazo (24/48/72 horas) desde que se creo. Estoy bastante perdido al respecto y os agradezco vuestra ayuda. Saludos. Hoja RM.xls

Hola a todos! Mi pregunta es si se puede enviar un nombre de usuario y contraseña a cualquier sitio web desde excel o solamente a ciertos sitios web. He estado buscando macros que hagan esta función y he encontrado unas pocas, el problema es que sólo una de ellas funciona en mi navegador y no lo hace para todos los sitios web. También he encontrado un link en el sitio web "eHow" donde ofrecen unas instrucciones para poder programarlo personalmente (Cómo enviar un nombre de usuario y contraseña a un sitio web con el Código VBA de Excel | eHow en Español) Yo lo he intentado pero no lo consigo. ¿Alguien podría ayudarme? He intentado programarlo para poder ingresar en el fo…

Hola, buenas noches Estoy realizando una aplicación FLASHCARD MULTILINGUE, apenas tengo el inicio.....APARECEN LOS TERMINOS DE CADA LENGUA EN CUANTO ESTOY EN ALGUNA DE LAS FILAS pero desconozco los códigos en VB para poder hacer todo la idea del proyecto... Se trata de varias columnas; 4 lenguas, índice, nivel de dificultad (clasificación de tarjetas...sabidas o no sabidas), y columnas de Audio y Foto.... En concreto la problemática la encuentro respecto a los filtros, el poder reproducir audio y el asunto de la dificultad de cada tarjeta..(cómo marcarla..y modificarlo). Incluyo el excel, la carpeta con los archivos de imagen y audio, junto a un pdf con las instruccio…

tengo un programa donde necesito colocar en el combo (el combo busca por nombre de articulo es es el rango), pero cuando se le coloca para que hayan 2 columnas el combo entonces no muestra el nombre del articulo sino el codigo En excel las columnas estan asi definidas para otros formularios mas, no se deberia cambiar este orden: SERIAL ARTICULO CANT PRECIO UNITARIO en formulario: SERIAL ARTICULO CANTDISPONIBLE PRECIO UNITARIO textbox1_serial combos1_artic textbox1_cantidad textbox1_precio 10 campos iguales AL LLENAR EL COMBO EST…

Buenas tares, antes que nada Tengo una situación con un macro y quisiera un par de opiniones y de su ayuda para resolverla La macro que intento hacer deber realizar un filtrado de una serie de datos de una hoja y copiarlos a otra el filtrado se basa en una columna con un dato especifico esa columna es fija siempre va ser la misma, una vez que hago la búsqueda del dato, cuando lo encuentra realizo el copiado de toda esa fila a otra hoja de excel, el problema es que también necesito copiar unas celdas hacia abajo pero no siempre es el mismo numero de celdas estas pueden variar a veces es 1 sola o pueden llegar a ser hasta 4 adjunto el archivo (no el real uno muy par…

estoy tratando de hacer una macro que haga una tabla dinamica con rangos Dinamicos esta es la formula, Pero al Ejecutar la macro Me aparece un error que dice arugmento o llamada a procedimiento no valida, que estoy haciendo mal? de su ayuda Por Favor........ Dejo el archivo adjunto, y por favor indicarme cual es mi error. Gracias. Libro1.rar

hola a todo(a)s. Mi inquietud es la siguiente: tengo una base de datos de la empresa donde trabajo donde estan relacionados todos los clientes(entidades) que nos deben facturas. Mi jefe me pide que en esa matriz en excel cree a una manera de que excel me avise con un mensaje o ventana emergente cada vez que llegue la fecha de vencimiento de una factura. hasta ahora he intentado con la formula: [TABLE] [TR] [TD]A[/TD] [TD=width: 80]B[/TD] [TD=width: 80][/TD] [TD=width: 80][/TD] [TD=width: 80][/TD] [/TR] [TR] [TD=class: xl64]1[/TD] [TD]Fecha vencidas [/TD] [TD][/TD] [TD][/TD] [TD][/TD] [/TR] [TR] [TD=colspan: 5]12/04/2011 =Si(DIA(A2-NOV())<10~"AVISO"~…

Hola tengo un código q busca un valor en una base de datos lo que quiero es que cuando no encuentre el valor me de un MsgBox que diga "Código no encontrado" se que ya hay preguntas similares pero no he podido adaptarlo a mi código, por cierto ya tiene un MsgBox que avisa cuando se a dejado el campo en blanco Gracias al que quiera ayudarme yo apenas estoy empezando con esto de las macros Private Sub CommandButton1_Click() If TextBox1 = Empty Then MsgBox "No ha escrito nada en el campo CODIGO" Else Cells.Find(What:=Val(TextBox1), After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate Acti…

Hola, He creado un grupo en la cinta de menú y me gustaría que cuando inicie este libro, este seleccionado este grupo y no el de inicio. Tengo Excel 2007 y cree el grupo con el programa Custom UI Editor. Muchas gracias Javi

hola tengo un macro y el problema que encuentro es que agregue una condicion a las celdas de la "fila A" "hoja2" CÓDIGO: SELECCIONAR TODO =SI(B8="";"";SUMA(B8*D8))[/CODE] que se repite en todas las filas ahora lo que pasa que el ejecutar el macro copia las celdas vacias,aunque en el macro especifica que copia las celdas que tienen valores si pongo [CODE]CÓDIGO: SELECCIONAR TODO =SI(B8="";"";SUMA(B8*D8))[/CODE] si lo saco me lo hace bien me pega las celdas que tiene datos nada mas Macro [CODE]Dim UltFila, Cant As Long UltFila = Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1 Cant = Hoja2.Range("A" & Rows.Count).End(xlUp).Row Hoja2.Range("A8:E"…

Buenos días, a partir de un disgrama de procesos que están encadenados entre sí (hasta que no acaban algunos no pueden empezar otros) utilizo la fórmula =max(rango1;rango2;rangoN) para fijar la fecha de inicio de un proceso a partir de las fechas finales de sus dependencias. Se va complicando a medida que el número de procesos aumenta considerablemente (20, 30, 40, etc). Tengo representado en la hoja excel el diagrama con cajas de texto conectadas con flechas pero no se si es posible tener una macro que haga lo siguiente: 1. al seleccionar la caja de texto que recibe una conexión 2. ejecutar MACRO para obtener información de las conexciones que recibe de otras cajas d…

Buenas tardes, tengo un problema al buscar un dato en un textbox que hace referencia a otra hoja trabajando por worksheetfunction, estaba tratandolo contra error, pero no lo he logrado aún, el asunto es que si no encuentra el valor en el rango que le asigno que me muestre un msgbox y que de lo contrario si existe entonces que coloque los valores encontrados. Alguien me podría ayudar a saber en dónde se encuentra el fallo?, porque me dice que no se puede obtener la propiedad vlooup de la clase worksheetfunction, gracias por cualquier respuesta. Private Sub TextBox2_BeforeUpdate(ByVal cancel As MSForms.ReturnBoolean) 'Dim BUSCAVALOR As Double 'With Workshee…

hola a todos, soi nuevo espero que el tema valla aqui, tengo une exel que calcula la factura del agua, lo que hace es distribulle el agua consumida en 4 bloques, el primero que es asta 15, en elc aso de que lo consumido sea mas grande a 15 uns egundo que tambien es asta 15, si el valor es 30+ ai el 3 bloque en el cual llega asta 24, esto hace que si consumas 54 litro de agua 1,2 i 3 bloqeu se llenen, i el 4 bloque que es todo lode mas que gastes de agua, cada bloque multiplica la cantidad gastada pr su valor idenpendiente, el priemr bloque es mas varato i el 4 el ams caro.(para pasar a el sigueiente el 1 tien k llenarse). Lo que quiero es que si el primer bloque no se ll…

Estimado, espero que me ayuden. Tengo una tabla dinámica, en la cual tiene un filtro "FECHA" en la cual a travez de una macro, mas abajo se muestra, le cambio el periodo, dado el valor en una celda. Pero ahora necesito una macro para para seleccionar varios dias, una semana para ser mas preciso. Digamos que tengo 01/01/2012 al 07/01/2012 de A1:G1 SI me puede ayudar con el tema seria excelente. Gracias Sub PANELCONTROLCOMPRAS() ActiveSheet.PivotTables("TDCOMPRAS").PivotFields("DIAS"). _ ClearAllFilters Val = Sheets("CONFIG").Cells(1, "A").Value ActiveSheet.PivotTables("TDCOMPRAS").PivotFields("DIAS").CurrentPage = _ Val End sub[/CODE]

Hola a todos, soy un nuevo integrante de este genial foro, he podido aprender algo de los aportes de los participantes y he podido mejorar mi trabajo, Pero ahora quisiera una ayuda en esta publicacion, adjunto una lista de codigos (lo sombreado de amarillo) en el ejemplo he puesto 14 codigos , pero en realidad yo en mi trabajo manejo mas de 4500 codigos de diferentes productos y todos los dias me piden que saque un reporte con 5 codigos, 10 codigos, 2 codigos etc...y lo que hago es copiarlos y pegarlos en otra hoja nueva y guardarlo para finalmente enviarlo por correo. el objetivo es buscar los codigos mediante un combox y con un boton comando agregarlos al listbox para …

Bendiciones: Tengo un userform (formatomoneda) con dos textbox y un label, en el primer texbox se ingresa una cantidad que debe ser mostrada en el textbox2 y en el label1, en ambos casos son producto de un calculo, en el siguiente formato $ 1,245.56. Adjunto archivo, espero puedan ayudarme Formato a textbox.rar

Tengo una hoja que copie de este foro sobre contabilidad casera, la estoy adaptando para mi casa, pero el combobox no sale lo que quiero, cuándo le doy al botón asiento , sale el formulario, pero no se queda lo que escribo en las celdas que le digo,el caso es que si selecciona la celda pero no escribe. Supongo que viendo el archivo será mejor. Este es código : Private Sub UserForm_Click() Private Sub aceptar1_Click() If Not IsNumeric(TextBox2) Then MsgBox "EEEhhhh!!!!. En el apartado Cantidad debe indicar sólo números", vbOKOnly Or vbCritical Else Hide End If End Sub Private Sub Cancelar1_Click() Hide End Sub Private Sub gasto1_Initialize(…

Se puede accesar a una base de datos firebird desde una macro??

Cómo puedo pasar una consulta realizado a una tabla de acces a una variable o a un array; el utilizar una u otra dependerá del tipo de consulta. Al día de hoy la puedo pegar en una hoja de excel pero no se cómo asignarla directamente la consulta a una variable. eje. Dim flotante as Variant Modifica = "SELECT Clave, Costo_P_A_3 FROM EXIST_06 WHERE Costo_P_A_3<0" rs.Open Modifica, cn ActiveSheet.Cells(17, 6).CopyFromRecordset rs flotante = range("F17:....).value[/CODE] Gracias...

Hola les envio esta utileria para generar un layout de horas extras para efectos de subirlo a un sistema de nominas me da un resultado satisfactorio para 30 gentes aqui mi problema es como puedo compactar el procedimiento que tengo de los primeros cuatro pasos y hacerlo para mas gentes aclaro soy un mortal que le gusta optimizar sus procesos mediante, la aplicacion de los codigos que ustedes ponen en este foro me han ayudado en grande , comparto esto , pero tiene esa limitante de que no puedo generarlo para mas gente por que me da el error de que el procedimiento es demasiado largo saludos LAYOUTEXTRAS.zip

Buenas tardes!! Mi nombre es Sol, soy nueva en el foro, asi que mil disculpas si me equivoco en la explicación. Tengo una macro con visual que saque de esta pagina (Puedo usarla no?) la cual me sirvio mucho para mi trabajo. El tema es que cambie algunas cosas y quedo bien, pero tengo un textbox donde necesito que cuando el usuario ingrese la fecha, solo le deje ingresar la fecha de hoy o la de ayer. Si quiere ingresar la fecha de antes d ayer o alguna fecha futura que salga un mensaje de error. La verdad que intente, mi idea era poner: Private Sub TextBox3_Change() If TextBox3.Text <> Date Or Yesterday Then MsgBox ("No") End If End Sub Pero directamente …