Buen día; Me podrían ayudar con este bucle, ya que me marca un error: Private Sub TB500_Change() If TB500.Text <> "" Then For a = 1 To 89 Step 8 Controls("UserForm1.TextBox" & a).Visible = True Next a Else For a = 1 To 89 Step 8 Controls("UserForm1.TextBox" & a).Visible = False Next a End If End Sub Saludos!

Buenos días foreros: Tengo un problemilla que creo que se podría resolver con un par de líneas de programación. He realizado una serie de medidas (Medidas 1, 2 y 3) que consisten en valores de coeficientes de fricción para un número fijo de frenadas por medida. El número de valores varía ligeramente ya que no todas las frenadas duran lo mismo. Esto es lo que resulta un problema para su representación después. Me gustaría que el número de valores por frenada fuese igual (aunque de una frenada a otra puede ser diferente, por ejemplo, la 2 puede tener 30 valores y la 5 puede tener 50) y podría valerme añadir ceros hasta igualar la longitud de las frenadas más corta…

Hola nuevamente muchachos. Espero estén bien todos, es mi mayor deseo. Estoy teniendo otro problema por acá con la configuración de un TextBox donde quiero expresar números. Propiamente el número que va a estar reflejado en esos TextBox son la división del Salario Mensual entre los días a trabajar y eso me da un índice o tarifa salarial diaria. No tengo problemas en las operaciones matemáticas, sino en el formato a expresar en el TextBox. Este dato lo toma el TextBox de la Hoja, la que tengo configurada (Celda) como Numero. Podrían ayudarme. Gracias de antemano y excelente semana para todos. Saludos Pino

se puede usar la funcion vlookup, para buscar en libros externos

Buenos días y feliz año a todos. Tengo la siguiente duda que no sé si es posible configurar o no. Me gustaría conseguir que al poner un dato en el "TextBox50" del formulario "frm_Clientes" se haga una consulta a la base de datos Access "BBDD" y que el dato obtenido de la consulta se traslade a los "TextBox", (rellenando todos los campos que tengan datos en la consulta). Tengo algo parecido pero en el "TextBox60" pero este es un comboBox y me gustaría que fuese sobre un "TextBox" Adjunto macro de ejemplo. Un cordial saludo. MacroSql.zip

Buenas tardes compañeros , Ante todo quería de antemano dar las gracias a todos por la ayuda que ofrecéis diariamente. Me gustaría ver si algún compañero me podría ayudar a resolver esto, llevo atascado varios días y no doy con el fallo. En el formulario que adjunto me pasan dos cosillas: 1. Tengo datos introducidos, los cuales se cargan correctamente a través del apartado ALTA, pero cuando intento buscar, sólo me busca en un campo. Me gustaría que buscara en todo el documento cualquier coincidencia que escriba. Sugerencia : Dentro de Alta estoy buscando en el apartado HR-SP (Label24) que me genere automáticamente un registro nuevo automáti…

Saludos apreciados; Estoy realizando un codigo, donde tengo dos hojas En la Hoja "Relación", los datos que a partir del rango b4:c4 hasta abajo dentro de esas dos columnas (estos rangos varian, pueden ser 25 filas o 60 filas). se copien en la hoja denominada Bd_Bingo, en la ultima fila vacia, de la de la columna "A". De antemano gracias bingo ayuda 1.zip

Buenos días a todos; Estoy intentado pasar datos de un listView a un archivo txt y no me acaba de ir del todo bien. Cuando selecciono los items para exportar me repite el primero y el último no lo envía. También tengo creada una función que cuando no seleccione ningún item me pase todos. La he desactivado porque active o no siempre pasa todo y con el mismo fallo (envía todos los items pero repite el primero y no envía el último). Agradecería si es posible vuestra ayuda. Saludos. MEtList.zip

Buenas foro. Por mas vueltas que le doy al tema, no consigo meter en una pagina web un valor en un textbox de una web. He probado con getelementbyId, byclass, bytagname y siempre error . Afradeceria una ayudita. Nuevo Hoja de cálculo de Microsoft Excel (2).xlsm

Muy buenas, No soy experto en Excel, voy buscando información por todos sitios y cogiendo ideas de todos los que sabéis. Estoy haciendo un archivo Excel de facturación y necesito ayuda en un par de cuestiones: Por un lado, a la hora de pasar los datos de una factura nueva ("Guardar factura"), en la hoja "Datos factura" necesito que se copien todas las fórmulas del rango "M:O" y de "Q:S", ahora mismo se copian algunas sí y otras no, no sé porqué. Y por otro, he conseguido realizar una consulta de facturas para poder imprimirlas o guardarlas, pero necesito que se puedan modificar, cambiando los datos de la hoja "Datos factura". No puedo adjuntar el…

hola espero me puedan ayudar, mi pregunta es la siguente tengo una funcion que se basa en una matriz para realizar una interpolacion pero necesito que cuando la celda H5 cambie su valor eliga un Case y defina la matriz de rango a evaluar para que la funcion quede unicamente asi =lagrange(F10) en vez de =Lagrange(F10,$P$20:$Q$25) osea que la matriz $P$20:$Q$25 La tome como un rango en el case cuando valga "3/4" r3ocas.zip

Amigos, Quisiera saber si alguno de uds sabe la línea de código que necesito para colocar "Importancia Alta" al enviar un Correo desde Outlook 2010. Si pudieran ayudarme se los agradecería un montón. Les envío el código con el que estoy trabajando, por si le sirve a alguien: Sub EnviarEmail() Dim objOutlook As Object Dim objItem As Object Dim objNamespace As Object Dim ADJUNTO As Variant Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set objItem = objOutlook.CreateItem(olMailItem) objNamespace.Logon "EXCELSPACE", , True, True ADJUNTO = "Destino.xlsm" With objItem .Attachments.Add (ADJUNTO) .Display .…

Buenas tardes, tengo un problema en m codigo: Private Sub Buscar() With Sheets("Primaria") Me.ListTabla.RowSource = "" If CbxMeses1 = "" And CbxDocentes1 = "" Then ListTabla.List = Sheets("Primaria").ListObjects("Primaria").DataBodyRange.Value Exit Sub End If For X = 2 To .Range("A" & Rows.Count).End(xlUp).Row ok = False If CbxMeses1.ListIndex = -1 Then If CbxMeses1 = "" Then ok = True End If Else Mes = Split(Range("E" & X).Text, "/")(0) If CStr(CbxMeses1.ListIndex + 3) = Mes Then ok = True End If End If …

Hola tengo una macro que imprime y enumera, lo que quiero es lograr que esta macro realice la misma funcion pero en la columna T tengo datos los cuales tienen nomenclatura y en la columna U un valor el debe incrementarse en la medida que imprimo, para esto envío los datos gracias. PRUEBA.rar

Hola a todos y muy buenos días. navegando por internet me he encontrado con un curioso generador de calendarios, y lo he estado modificando y adaptando para poder crear mis organigramas, sin embargo he intentado mil y una maneras de combinar y centrar las celdas en el proceso pero siempre me sale un error de codigo 1004 (Y diferentes explicaciones) pero no me sale ni a la de 3. ¿Se os ocurre alguna manera de conseguirlo? Aquí os dejor los archivos, uno es como funciona ahora y el final es el resultado que busco. PD: He intentado subir el archivo de varias maneras pero no me permite subirlo, aquí os dejo un enlace de mega con las dos documentos en un zip …

Buenas noches quisiera pedir su ayuda ya que tengo un archivo de excel con aproximadamente 1000 registros. En la columna "C" tengo datos los cuales deberían estar concatenados, sin embargo, estan dispersos, por ejemplo, la celda C1 dice HOLA, la celda C2 dice SOY y la celda C3 dice JUANITO, el resultado que quiero lograr es HOLA SOY JUANITO en una sola celda a partir de donde empieza la palabra HOLA. No importa que queden celdas vacias debajo de cada cadena concatenada. Adjunto un archivo donde se puede ver un ejemplo de los datos que tengo. Agradezco su apoyo. Prueba.xls

Buenas tardes: ADjunto un archivo donde he añadido un combo box activex a una hoja excel, donde he ingresado un listado, cuando cierro el archivo y lo abro nuevamente ya no me aparece el listado, como puedo hacer para que siempre al abrir el archivo me aparezca el listado sin que se repitan las opciones, por otro lado, si mi listado aumenta mes a mes, como puedo hacer que mi combo box se incremente sin que tenga que modificar la programación. Combobox.zip

Problemas con el DTPicker Hola a todos. He creado una plantilla, que algunos de ustedes ya me ha ayudado en su armado de una u otra forma. El asunto es que para el ingreso de los datos en la plantilla uso un Userform. Lo que ocurre es que agregue a este formulario unas casillas de DtPicker para marcar unas fechas (evaluacion, nacimiento, vencimiento de documento), pero al hacer click en el boton "GUARDAR DATOS" al final del formulario la fecha que se copia en los tres DTPicker es 00-01-1900, y obviamente no me sirve. ¿Por favor ayuda para configurar el DTPicker para que traspase a la plantilla la fecha exacta que yo pongo en el formulario? Les agradezco a quienes se pu…

Hola a todos, la verdad es que no tengo una macro ni nada para esta consulta. Sucede que tengo un libro de macros que funciona en cualquier PC con Excel en idioma Español, pero al ejecutar el programa en Excel en Ingles no corre las macros. Entonces no sé que se podría hacer en ese caso, para que funcione en los 2 idiomas o en cualquiera. Muchas gracias.

Hola me gustaria que me ayudaran con una macro o una aplicacion de visual basic en excel para hacer lo siguiente: Tengo un formato de excel donde me envian informacion siempre es el mismo formato pero cambia la información de un archivo a otro [TABLE=width: 64] [TR] [TD=width: 64]ROPP:CELL=TSA1201,CSYSTYPE=GSM1800;[/TD] [/TR] [TR] [TD]ROPP:CELL=TSA1202,CSYSTYPE=GSM1800;[/TD] [/TR] [TR] [TD]ROPP:CELL=TSA1203,CSYSTYPE=GSM1800;[/TD] [/TR] [TR] [TD][/TD] [/TR] [TR] [TD] [/TD] [/TR] [/TABLE] por ejemplo ese es el scrip k quiero generar apartir de la informacion que me mandan el valor de CELL y CSYSTYPE viene por ejemplo en la celda C7 …

Buenos días, necesito una solución, para evitar, en pantalla completa que me saliera al querer modificar las celdas bloqueadas "FINALIZAR O DEPURAR" y que saliera un aviso "CELDA BLOQUEADA" Un saludo

Buenas, tengo un proyecto con tres userforms a los cuales he podido acceder en un proceso normal. Pero me ha llegado el problema cuando he querido volver a un userform que le habia puesto en .Hide y me saltaba el error de que no se podía mostrar porque ya estaba abierto. He intentado ir cerrando los userform según iba pasando al siguiente mediante una funcion ubicada en un módulo y ahora me da error '91' en tiempo de ejecucion - variable de ojeto o bloque with no establecido. Esta es la funcion que la tengo ubicada en un Módulo. Function FormularioAbierto(ByVal Nombre As String) As Boolean Dim frm As Object frm = False For Each frm In VBA.UserForms …

Hola, al buscar la primera celda vacía de una columna me surge un problemilla: el código Sub Macro1() Dim fila As Double 'la primera fila vacía será fila = Range("A" & Rows.Count).End(xlUp).Row 'la línea anterior da 1 si la primera celda está vacía y 'también si solo la primera tiene datos End Sub [/CODE] da como resultado [color=#ff0000][b]"1"[/b][/color] si la primera celda está vacía y también [color=#ff0000][b]"1"[/b][/color] si solo la primera tiene datos. A partir de que haya dos celdas da resultados coherentes. Os dejo tres imágenes para ilustrar esto. ¿Hay algo que se pueda hacer para que cuando no haya celdas esta comprobación …

Buenas tardes, Recurro a ustedes una vez mas, para intentar que alguien me ayude a dar con la macro adecuada. Tengo un documento, con registros de personas (nombres, apellidos, fechas de nacimiento...) y otra columna de edad que se calcula con la fecha de nacimiento mediante la siguiente formula =SIFECHA(--SUSTITUIR(F5;".";"/");HOY();"y")[/CODE] , pero cada vez que ingreso un con la fecha de nacimiento no se me actualiza la edad, he probado con esta macro pero no me funciona [CODE]Sub RellenarColumnaI() Range("I2").AutoFill Destination:=Range("I2:I" & Range("A" & Rows.Count).End(xlUp).Row) End Sub[/CODE] Me gustaría cada vez que se ingrese un registro…

Hola buenas tardes: Estoy realizando un formulario para el registro de ventas diarias de mis productos, el proceso es el siguiente: 1. En un cuadro de busqueda ingreso cualquier parte del texo de mi codigo. y por medio de una lista me muestra las coicidencias a lo escrito, 2. selecciono la descripción que requiero y al seleccionarlo se muestra en un combox. 3. ingreso cantidad y precio, 4. Con el boton de registrar se ingresa en otra lista el codigo, la descripcion, cantidad, precio e importe. asi con los diferentes productos . el problema que me encontre es que si mi codigo buscado contiene una letra al registralo con el boton "registrar" e…