Hello everyone from Maurizio I have a problem that despite its simplicity He's making me crazy. My problem is this:In an excel form: I entered Three Keys With the first key , if it is pressed I would like the Form to close with the function"Height"Conversely if I press the second key it should close using the function "Width"The Third key I simply use the " End " Function Therefore I close everything very quickly. Now my problem would be to get the two closures: " Width " and " Height " much more slowly that 's all ! I guarantee you that I have tried them all but precisely because I would like to keep this formula intact I haven't succeeded…

Buenas tardes, Os comento, he creado un formulario para introducir unos datos en una hoja "INFORME" del libro excel en el que trabajo. Esas incidencias se escribirán a partir de la línea 36 que es donde está ese apartado, bien esto con el siguiente código bien. Worksheets("INFORME").Range("A36").Value = Me.TextBox1.Value Worksheets("INFORME").Range("B36").Value = Me.TextBox2.Value Worksheets("INFORME").Range("C36").Value = Me.TextBox3.Value [/CODE] El problema es que necesito que siga escribiendo en la siguiente fila vacía si tengo más de una incidencia y no consigo hacerlo. Gracias de antemano

Necesito me ayudan a: Hacer una macro que me permita hacer pegatinas autorrellenables ( tabla azul a la izquierda); celdas en roja); de tal modo que; rellenando a mano el código de una máquina (celda E2 amarilla, de la pestaña pegatina), autorrellena en la tabla verde, los equipos que forman parte de ella ( los busca en la pestaña equipos). Para este caso son 4 equipos, por tanto: 1:necesito que se me generen (tantas pegatinas, como equipos tenga la máquina (4 en este caso) y que se autorrellene el campo descripción e identificativo ( que corresponde con la columna P y Q, de la tabla verde). MACRO PEGATINAS v04 - autorrelleno.xls

Hola, He hecho una macro para dibujar unas curvas dependiendo de ciertos valores que puedo ir cambiando (distintos valores de pendientes de la curva). Llevo varios dias con esto y no he podido solucionarlo como yo quiero. La macro que he hecho funciona (mas mal que bien), pero me ha salido muy complicado. Me gustaría saber una foma mas sencilla de programar esto, ya que tengo que hacer curvas mas complicadas y ya he liado mucho la programación. El problema está en que al pasar de una pendiente a otra de la curva, no se como decirle al programa cual es el tiempo que hay en el punto de cambio de pendiente para referenciar la curva con la nueva pendiente a ese tiempo. …

Buenos días a todos, me han encargado recientemente en la empresa para la que trabajo la tarea de realizar el cuadrante del personal de la empresa, que se dedica a los Medios Audiovisuales. Para facilitar y optimizar el tiempo de imprimir un "Listín Diario" en el cual sale la tarea que tiene que desempeñar cada persona en la empresa, alguno varían de un día a otro debido a diversos factores, he realizado a través de mis no tan avanzados conocimientos en excel, unas fórmulas y algún que otro condicional imprimir ese listín de forma rudimentaria ya que tengo que cambiar las formulas día a día tarea que me puede llevar a equivocación y con el consecuente error para los empl…

Tengo un archivo version excel 2003 con macros, pero al abrirlo con excel 2010 me envia una serie de errores y no se ejecutan las macros. Saludos. GB

Buenas tardes. Soy nuevo en el foro y después de leer las normas y buscar, creo que no infrinjo nada. Soy enfermero aficionado al excel. Estamos diseñando una base de datos para un estudio en el hospital y llevo desde el domingo "enrocado" en un par de cosas que no consigo que me salgan ni a la de tres....desesperadito estoy... No se como puedo subiros el archivo que pesa 147 kb... Gracias!

Buenas.... necesito que me ayuden con este codigo o si hay otra mejor todavia, este es el codigo: For X = 2 To Range("F" & Rows.Count).End(xlUp).Row + 1 Range("H" & X) = "" Range("I" & X) = "" Do Until Not sumaa < 5 Or Range("F" & X) = "" sumaa = sumaa + Range("F" & X) sumab = sumab + Range("G" & X) X = X + 1 Loop If Not sumaa = 5 Then Range("I" & X - 1) = "*" Range("H" & X - 1) = sumab sumaa = 0 sumab = 0 If Not Range("F" & X) = "" Then X = X - 1 Next En VBA quiero que me realize lo siguiente: en la columna F me sume hasta 5 , y que vuelva a sumar 5 hasta el final y paralelamente en la columna G me obtenga el prom…

tengo las siguientes intrucciones: Range("A:E").Select ActiveWorkbook.Worksheets("RevicionSubCta").Sort.SortFields.Clear ActiveWorkbook.Worksheets("RevicionSubCta").Sort.SortFields.Add Key:=Range( _ "B2:B" & u & ""), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("RevicionSubCta").Sort .SetRange Range("A1:E" & u & "") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range(Range("A1"), Selection.End(xlDown)).Offset(1, 0).En…

Estimados amigos, espero me peudan ayudar tengo un problema al parecer de compatibilidad, en mi Lapto en l cual he programado no me sale error, pero al correr la macro en otra PC me salen los siguiente errores y no puedo ejecutar la macro Hay alguna forma de poder resolverlo? Error01_ este formata lo utiilzo para que en la caja de texto aparezca el formato moneda Error02_ este formato lo utilizo para que me aparezca el año concatenado con un numero espero me puedan ayuda por favor se les agradece

amm alguien me podria ayudar para hacer una macro que me ayude a identificar las preguntas de un cuestionario que no estan contestadas y para que las responda automaticamente , las respuestas ya son fijas GRACIAS SALUDOS

hola he creado un formulario para añadir registros, modificar, eliminar, buscar etc. el problema lo tengo en el boton busqueda que el dato que necesito que busque es la fecha y sale un mensaje 380. podeis por favor ayudarme en donde tengo que modificar y que poner? adjunto fichero. gracias. Partes de Trabajo.xlsm

Utilizando VBA en Excel 2007 como importo una Tabla de Access que tiene más de 1'048576 filas La idea sería que al importarla y llegue al límite, continúe en una nueva hoja. Apreciaré su apoyo. Gracias,

Buen día Señores del Foro Estoy utilizando la formula =CONTAR.SI($D:$D;D716)=1, de tal manera a evitar duplicidad de Datos, me funciona cuando quiero ingresar manualmente, pero tengo un CommandButton1 (GRABAR), en la misma hoja, que es para grabar nuevos registros, y la formula no controla en ese caso la duplicidad de Datos, me gustaría se a través de macro o formula que sea controlada la duplicidad.. mismo que se quiera introducir Datos manualmente o a través del Botón Grabar, particularmente los Datos de la columna "D" .. que no deben repetirse.. Adjunto Planilla Evitar Duplicacion.xlsm

Ola disculpa, alguien me podria apoyar en un codigo sobre: Exportar Imagen1 a una carpeta. eh estado buscando pero solo encuentro como insertar imagenes al imagen1. ante mano gracias Exportador de imagen.xls

buenas tardes utilizo este código para cargar una macro una vez que haga click en una cierta celda Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) If Target.Range.Address = "$BF$1" Then Call macro1 End If If Target.Range.Address = "$BF$2" Then Call macro2 End If If Target.Range.Address = "$BF$2" Then Call macro2 End If End Sub el tema es que necesito poder realizar esto para muchas mas celdas (de la misma columna) pero no se como hacer algo generico sin tener que copiar y pegar gracias por su ayuda saludos!

Pueden instruirme para realizar una macro para volcar datos de el libro1 al libro2 eliminando los duplicados del libro2 en la columna A.

Buenas tardes, Tengo una macro que genera una tabla dinámica pero me genera error, sé que puede ser por que el destino no puede ser fijo, pero esto lo había solucionado con una variable, ahora que cambie de versión de 2007 a 2010 no volvió a funcionar. La idea es que en la misma hoja genere la tabla y no adicione hojas nuevas. Agradezco su ayuda Dim MiMacroMiMacro = ActiveWorkbook.Name Hoja1.Select Hoja1.Columns("A:z").Delete Shift:=xlToLeft Range("A2").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "'PPTOS_DETALLE'!R1C1:R65536C70").CreatePivotTable _ TableDestination:="[" & MiMacro & "]Tabla!R4…

Saludos cordiales, apreciados foreros les presento un archivo, en este tengo un formulario donde tengo una base de datos de todos los trabajadores, al buscar el trabajador requiero me traiga tres imagenes, que son la foto de perfil, dni y el dorso. Estas son las rutas: C:\Users\User\Documents\Mis archivos de origen de datos\EMPLEADOS\FOTOS C:\Users\User\Documents\Mis archivos de origen de datos\EMPLEADOS\dni C:\Users\User\Documents\Mis archivos de origen de datos\EMPLEADOS\dorso ... pero cuando le doy a buscar el codigo del trabajador ejemplo el 10, me carga la informacion que requiero excepto las imagenes. si pudieran por favor ver donde esta mi …

Estimados, anteriormente ya me habian ayudado con este ejemplo de un combobox que esta vinculado a unas hojas ocultas....el problema que cuando quise adaptarlo a mis requerimientos no me funciona, por ejemplo le cambio el nombre a la hoja2 por la que corresponde en este caso resumen y no hace nada. les dejo el archivo para que me ayuden plis. de antemano muchas gracias. comboboxvinculadoahoja_RJ_.rar

Hola a todos: Estoy intentando a través de formulas contar los números pares e impares de un rango. El rango a contar es de la columna D a la columna H ¿Se puede hacer? Mi Office es el 2016 EJEMPLO.xlsx

Hola estimados: favor su ayuda con la aplicacion de una macro que me permita desde una planila madre enviar informacion a distintas hojas segun distintos criterios. soy un novato en este tema, pero si me pudiesen orientar se los agradeceria mucho!! espero sus respuestas!

Buenas a todo el mundo, Soy bastante nuevo en eso de la programación en VBA y excel. Estoy haciendo un archivo y necesito que cuando la hoja2 del libro esté abierta, el valor de una celda de la hoja3 me lo copie de una celda de la hoja2. En cambio, cuando la hoja2 esta ocultada necesito que la celda en questión me coja de una lista con validación de datos uno de los dos valores que tengo. Me he estado peleando pero no hay manera... Lo único que se me ocurre es copiar la hoja, pero después la put*da es que tendría que vincular todo lo otro por solo una celda... Alguien me puede ayudar? Muchas gracias

Hola a todos; En un formulario tengo textBox para dias, para meses y descripción. DIA MES DESCRIPCIÓN txt txtMes txtD txt1 txtMes1 txtD1 ... ... ... En el de meses hay una validación para que no deje añadir numero superior a 12. Y en el de Días se valida que el día puesto no sea superior al que corresponda a cada mes. Has ahí todo bien. Lo que veo es que cuando se valida la fecha el foco debería ir al textbox (paso por parámetro al procedimiento el número) que tiene en línea y no va ¿? Saludos. …

Buenas tardes El libro que estoy compartiendo ya es producto de alguien que alguna vez me ayudó en el foro. Pero necesito perfeccionarlo un poco más. Hago 3 consultas al respecto. Gracias por el apoyo de siempre Rubén Cargar Facturas 01.xlsm