Es que quiero restar en varios Textbox y una vez que siga apretando el botón siga restando. pero no logro poder lograr que funciones Private Sub CommandButton1_Click() On Error Resume Next TextBox3 = CDbl(TextBox4) - CDbl(TextBox5) - CDbl(TextBox6) - CDbl(TextBox7) - CDbl(TextBox8) End Sub

Necesito ayuda ******* con este tema, ¿Alguien puede ayudarme ? Gracias x adelantado Adjunto un archivo zip con un formulario vba basico para enviar mail desde excel desde mi cuenta de gmail. En el botón "enviar" del formulario no sé como modificar el codigo de la macro para insertar una línea de código para permitir que se vinculen archivos adjuntos para enviar archivos adjuntos. La idea es utilizarlo desde excel, no de otros programas predeterminados como outlook (no sé si esto es posible) Con la macro actual sólo puedo enviar mails sencillos ¿Alguien puede ayudarme? Gracias por adelantado. Borja enviar email.zip

Amigos, nuevamente por aca. Se me esta haciendo cotidiano aprender en esta web. Esta vez me acerco por lo siguiente: He creado un plantilla de ingreso de datos, y para rellenarla mejor arme un Formulario. El problema es que me quede corto con mis pocos conocimientos de excel. Lo que mas me aproblema es que hay datos del formulario que, si bien se marcan, no se traspasan a la plantilla lo que hace que todo el contenido se traslade una celda hacia la izquierda (en el formulario corresponde a "Actividad Actual"). He intentado varios cambios pero no logro dar conm el error, ¿podrian ayudarme? Lo otro que quisiera es saber si es posible agregar al Userform un calendario que …

Hola buenas,quería hacer una pregunta sobre un problema que tengo cuando añado un archivo flash a un documento excel. Dicho problema viene cuando abro el archivo excel que ya contiene el archivo swf incrustado y aparece el siguiente mensaje de advertencia: Este documento incluye contenido incrustado que puede provocar daños en el equipo. Elija una de las opciones siguientes: -No permitir que se reproduzca el contenido (se recomienda).-Reconozco este contenido.Permitir que se produzca. ¿Hay alguna forma de intentar eliminar este mensaje a través de una opción del mismo excel o se debería de programar mediante vba? Agradecería si alguien me pudiera resolver este problema,y…

Buenos días, ¿Me podríais decir cómo se puede extraer a una celda el contenido que se selecciona en un combobox personalizado, que está colocado en la cinta de opciones? He encontrado mucha información cuando el combo está en una hoja, pero en la cinta de opciones, no. Muchas gracias

Tengo esta fórmula matricial en la que la orden se repite ocho veces: =SI.ERROR((COINCIDIR(1;E$1:E$5;0)>0)*(COINCIDIR(3;E$1:E$5;0)>0)*Hoja2!$B$1;0)+SI.ERROR((COINCIDIR(1;E$1:E$5;0)>0)*(COINCIDIR(4;E$1:E$5;0)>0)*Hoja2!$B$2;0)+SI.ERROR((COINCIDIR(1;E$1:E$5;0)>0)*(COINCIDIR(6;E$1:E$5;0)>0)*Hoja2!$B$3;0)+SI.ERROR((COINCIDIR(1;E$1:E$5;0)>0)*(COINCIDIR(9;E$1:E$5;0)>0)*Hoja2!$B$4;0)+SI.ERROR((COINCIDIR(1;E$1:E$5;0)>0)*(COINCIDIR(10;E$1:E$5;0)>0)*Hoja2!$B$5;0)+SI.ERROR((COINCIDIR(1;E$1:E$5;0)>0)*(COINCIDIR(11;E$1:E$5;0)>0)*Hoja2!$B$6;0)+SI.ERROR((COINCIDIR(1;E$1:E$5;0)>0)*(COINCIDIR(12;E$1:E$5;0)>0)*Hoja2!$B$7;0)+SI.ERROR((COINCIDIR(1;E$1…

Hola a todos; Adjunto una macro donde hay un procedimiento para generar códigos QR. -He cogido el código Vba Access (by Antonio) y lo he adaptado a Excel. Creo que funciona correctamente, lo que no sé es si es posible imprimir desde el formulario el código generado o bien pasarlo al libro Excel. ¿Sería posible una u otra opción? Saludos y buen día. MQr.xlsm

Hola. Esoty intentando que al abrir un libro se abra un formulario y queria que: o bien el excel se oculta, pero que se puedan utilizar al m ismo tiempo otros libros o bien que la ventana del excel se cambie al tamaño del formulario para ocultarlo detras del formulario y, ya puestos ? que al mover el formulario la ventana cambie la posicion tambien. He estado mirando por varios foros y no he visto nada que se ajuste a mis "pretendiones". Igual es que no se puede hacer :-(. Gracias MJ

Hola, muchas gracias de antemano por su apoyo, quiero cargar una imagen desde una hoja, he retomado algunos ejemplos aquí propuestos pero no puedo resolver mi problema, primero que nada, quisiera saber si se puede hacer si utilizar macros. Es un punto de venta, donde al introducir el código del producto, aparecen los datos del mismo (con la función BuscarV) pero quiero que aparezca una imagen a partir del valor que regresa la función buscar (Si se puede de otra forma, no tengo inconveniente), pero la imagen no aparece, si tecleo directamente en la celda, la imagen si aparece, pero indirectamente (resultado de la función) no aparece, gracias por su ayuda.

Hi Everyone My new problem is this: On an Excel sheet in Column (C) 1) I would like that every time I enter a word like ("btp fut") or write ("btp ital") the letter (L) should appear in Column (P) 2) While If in Column (D) I enter a Date less than 5 days compared to today's date We will have to create the lettara (D) in the column (P) 3) If in Column (I) the Writing ("change balance") is shown and in Column (J) it does not contain (0), the Letters (CS) in column (P) should appear 4) If in column (K) I write the word ("square *") Write the letter (Q) in Column (P) Let's say I don't expect you to do all the work for me But that you help me …

Necesito crear una funcion que me obtenga el total de una columna en un listbox. Pero que yo le pueda pasar como parametros el formulario, el nombre del listbox y el numero de columna y me devuelva como resultado el total del listbox. No se si los parametros se deben pasar como texto y de que forma. Mas o menos con esta estructura. Les agradezco de antemano su ayuda. Public Function totalcol(ByVal columna As Integer, ByVal formulario As TextBox, ByVal control As TextBox) end function

Hola Tengo un ahoja excel con el nombre de una serie de alumnos. Me gustaria crear una hoja por cada linea. EL problema que tengo es que si hay dos alumnos con el mismo nombre, me da error, puesto que no puede haber dos hojas con el mismo nombre. ¿Como podria comprobar si existe el nombre de la hoja? Mi codigo en Vba es el siguiente: Sub Crear_hoja() Worksheets.Item(1).Select [a65536].Formula = "=COUNTA(R[-65535]C:R[-1]C)" For i = 2 To [a65536].Value Sheets.Add after:=Worksheets(Worksheets.Count) Worksheets.Item(Worksheets.Count).Name = Worksheets.Item(1).Range("a" & i) DoEvents Next Worksheets.Item(1).Select [a10000].Clear End Sub [/code] Adjunto, envio u…

Buenos días, Como bien dice mi nick soy totalmente novata en el tema macros, vba y programación pero en la empresa me han puesto a ello así que no me queda más remedio que buscar y preguntar, perdonadme si me pongo pesada Me gustaría saber como creo un historial con una macro para un libro de excell en el que quede registrado nombre de usuario, fecha y el cambio que ha hecho y que este no se borre cuando se hacen cambios nuevo, ni pasado x tiempo. El libro tiene 3 hojas (Informe, Datos, Historial). Gracias

Buena tarde, tengo este código que me abre un archivo que cambia de nombre todos los días, pero contiene los mismos campos que requiere la Macro. Lo que no puedo es cerrar el archivo, ya que el nombre de este archivo cambia cada día. Application.ScreenUpdating = False Dim Mensaje, Estilo, Título, Ayuda, Ctxt, Respuesta, MiCadena Mensaje = "CARGAR ATCON DEL DIA" Estilo = vbYesNo + vbCritical + vbDefaultButton2 Título = "Datos" Respuesta = MsgBox(Mensaje, Estilo, Título) If Respuesta = vbYes Then NombreArchivo = ActiveWorkbook.Name ArchivoAAbrir = Application.GetOpenFilename("atcon_YYYYMMDD (*), *") If ArchivoAAbrir = False Then Sheets(1).S…

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

Buenos días, Tengo una tabla en una hoja y estoy intentando saber cual es la ultima celda vacia por la derecha de cada fila. Puede haber filas que estén completas (con datos en todas sus columnas o no) Estoy utilizando este código que supuestamente me da el numero de columna que no está vacia, pero parece comportarse erroneamente, ya que siempre me lee la ultima celda de la fila aunque esté vacia. Creo que puede ser por la propia definicion de tabla en excel? UltCol = Datos.Cells(3, Datos.Columns.Count).End(xlToLeft).Column Siempre me da la posicion 33 que es la columna AG. Alguna idea ? Gracias

Buen día comunidad, estoy tratando de que por medio de un formulario registrar los datos de un grupo de usuarios y agregarle su foto, quiero cargar una imagen en un formulario, que al momento de dar click en el cuadro de imagen se abra una ventana para buscar la imagen y me la muestre en el formulario para despues insertarla en la celda correspondiente en la hoja de datos, las fotos la tengo en D:\Usuarios\csotoo\Pictures, agradezco de antemano su atencion, saludos cordiales. Formulario Registro de Usuarios con foto.xls

Hola, He encontrado una macro que hace parpadear la celda "C3". Lo que no logro de hacer es: En cuanto la celda "C3" es negativa el color de la fuente se ponga en blanco o negro. En el documento hay una explicacion detallada de lo que quiero. Se que tengo que poner algo asi: .Font.Color = vbWhite, lo he puesto en varois sitios y me da error. Adjunto el documento. Muchas gracias. Saludos, PARPADEO CELDA - color TEXTO.xlsm

Macro para Rerporte Buenas tardes caballeros tengo algo pendiente ya que soy nuevo en este foro necesitaba saber como podria hacer un reporte de mi hoja consolidado mensual llenare datos ahi como figuran pero queria que en la hoja de extraer reporte con el boton reporte me bote el reporte de las fechas que ponga en las celdas d4 ya que no se mucho de excel espero su ayuda y estare muy cordial agradecido con su ayuda muchas gracias y bendiciones Acabo de subir un ejmplo del cual saque la idea pero este trabaja poniendo un codigo y sale todo los datos que tengan ese codigo Data.xls eJEM.xls

Estimados todos, Espero que ahora me puedan dar una manito..... en el siguiente archivo adjunto veran ventas de dos locales con sus correspondientes codigos de autorizacion y su posible fecha de abono.... lo que necesito saber si se puede generar una Macros para realizar la conciliacion entre Codigo de Autorizacion Ventas y Codigo de Autorizacion Abonos ??? La idea es detallar detallar el cruce entre codigos y en la columna de color verde detallar los codigos no abonados..... Quedo atento a sus comentarios.... Muchas Gracias. Juan Ignacio. CONCILIACION VENTAS ABONOS.zip

Hola cracks!! Estoy tratando de generar una macro que calcule el promedio de mis datos, pero en vez de que sea un rango fijo de X2:X8431 sea hasta el ultimo valor que tenga la columna X es decir que pueda variar ya que a veces son mas datos o a veces menos, les dejo el código que tengo actualmente con rango fijo. Range("X2").Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[8431]C)" He tratado con este pero no funciona: Dim last_row As Integer last_row = Cells(Rows.Count, "C").End(xlUp).Row - 1 Range("X2").Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[last_row]C)" Les agradezco mucho su ayuda si tienen alguna id…

Buenas tardes, gusto saludarles. Primero que nada comentarles que tengo toda la mañana investigando y recurro a ustedes en última instancia. Tengo el siguiente código: Private Sub lbl_aceptar_Click() If ActiveCell.Address = "$E$115" Then If check_box_1.Value = True Then Hoja1.Range("$E$115").Value = check_box_1.Caption ElseIf check_box_2.Value = True Then Hoja1.Range("$E$115").Value = check_box_2.Caption ElseIf check_box_3.Value = True Then Hoja1.Range("$E$115").Value = check_box_3.Caption End If End If If ActiveCell.Address = "$I$115" Then If check_box_1.Value = True Then …

Como les va ? yo necesitando de su ayuda con pasar algunos datos de un PDF a Excel, anexo dos archivos. Uno el PDF y una muestra de que datos necesito extraer, claro si se pudiera extraer todo el PDF seria mejor. Y Gracias por el favor. IDSE_Lote_198268597.zip

Macro para pasar de excel a txt, ¡urrrgeme!!! gracias Alguien me podría ayudar a armar una macro donde me pase la información que tengo en la columna "ak" la cual tiene una formula de concatenar, esto es para subir autorizaciones permanentes mediante la pagina del idse (imss) lo que deseo que haga la macro es que genere un archivo txt que contenga la información que esta en la columna mencionada. Muchas gracias por su ayuda. Saludos.

Cree un formulario el cual asocie a una macro para que la informacion se gurde en otra hoja, el detalle es que simpre se guarda enla misma linea borrando la informacion que anteriormente estaba ahi, no se como hacer para que la informacion se inserte en el siiguiente reglon. No puedo adjuntar el archivo asi que pondre el codigo de la macro. Este es el codigo de la macro Sub guardar() ' ' guardar Macro ' para guardar datos ' ' Application.ScreenUpdating = False Sheets("Informe").Select Range("A3:K7").Select Selection.ClearContents Range("A4").Select Sheets("Formulario").Select Range("C5").Select Selection.Copy Sheets("Informe").Select …