Saludos amigos del foro, La situación aquí es que cuando doy click al spinbuton cambia el contenido de los textbox correctamente según el combobox pero solo hasta llegar al ultimo valor pues con un click mas se muestra error ya que trata de seguir avanzando y no hay mas informacción. Los valores del combobox pueden variar y ser muchos mas, y alli est el dilema entonces como puedo indicarle que funcione solo hasta el valor máximo que este en el combobox Subo el archivo para que lo vean Gracias anticipadas por el apoyo Mostrar con Spibutton los textbox solo hasta ultimo valor de combobox.xlsm

Hola, repasando las macros de mi libro me he dado cuenta de que tengo un IF compuesto que no lo ejecuta y no le veo la razón. ¿Podéis iluminarme? Gracias. If CeldaActual.Value >= 11 And CeldaActual.Value <= 13 Then CeldaActual.Interior.ColorIndex = None CeldaActual.Font.ColorIndex = 3 'Rojo CeldaActual.Font.Bold = True Tensión_macros_1bis.xlsm

Hola de nuevo a todos. En esta ocasión os solicito ayuda con este tema relacionado con identificar el color de una celda con base a su formato condicional. He estado leyendo en este foro y en muchos otros, pero no he dado con el "tic" de la cuestión. Por lo visto, el formato condicional no aplica el color a las celdas de forma normal. Por lo que la propiedad color en sus distintas variedades no se puede usar para este fin. En el archivo adjunto hay un pequeño ejemplo que identifica las celdas según su color y extrae su contenido de forma segmentada. He probado con distintos códigos que he encontrado en la red, pero ninguno me ha servido para …

Buenas tardes. Soy nuevo en su espacio, también en Excel-Vba con macros. No podré aportar conocimiento ni asistir a la plataforma, sólo serán peticiones de ayuda. Lo lamento y agradezco enormemente. Estoy haciendo unas macros que abren páginas web, que ejecutan la extensión Chrome Instant Data Scraper, que toman datos y los tratan sin problemas. Lo que necesito es : poder cerrar todo lo abierto, tanto las páginas web como las ventanas en la barra de tareas de Windows. Muchísimas gracias, y un saludo. Manel.

Buenas noches @JSDJSD espero estes bien, tengo un caso similar al que se planteó en el siguiente hilo https://ayudaexcel.com/foro/index.php?/topic/43761-filtrar-listbox-utilizando-un-combo-box-dinámico/ he intentado modificar el formulario RPAT (frmrpat) para que se adapte a mis necesidades sin embargo no logro resolver los siguientes detalles: 1. Al igual que el compañero que pregunto en el hilo que comente anteriormente también copie y adapte de un tutorial de YouTube la siguiente macro: Private Sub CmdBUSCAR_Click() Dim UFILA As Integer If Me.TextBox11 = "" Then MsgBox "Ingrese el Número de Cédula", vbExclamation End If Exit Sub UFILA = Sheets(…

Tengo esta macro y lo único que no he conseguido es que una celda se desbloquee SÓLO cuando en esa misma celda apareza lo siguiente "Ingrese la Agencia" este texto aparece debido a que en dicha celda hay una fórmula que consiste en un buscar y si consigue error coloca "Ingrese la Agencia" entonces hasta ahora llevo lo siguiente, el problema ela macro que realicé, excel no la reconoce automáticamente es decir cuando cambio en la celda b12 aparece "ingrese la agencia" no se desbloquea la celda b12 esto es lo que he conseguido hasta ahora muchas gracias! la primera macro la tengo ubicada en el objeto hoja presupuesto no se si debe estar allí o en el módulo tampoco se si hay…

Hola amigos de Ayuda Excel Quería preguntarle si hay alguna instrucción en VBA que evite la copia de determinadas columnas. Aún estando una hoja protegida me dí cuenta que se puede copiar columnas (estando ocultas) en otra hoja, claro las que tienen formulas pega solo valor. Pero es posible hacerlo??? Gracias

Buenos dias, Gracias a los aportes que me han brindado e logrado avanzar con un proyecto en excel pero aun esta imcompleto y me falta un historico de compras x cliente de acuerdo a un intervalo de tiempo. El programa que tengo puede generar ventas, guardar el dato de las ventas generadas en una hojar de excel pero no logro hacer un userform que me permita chekear las compras que me ha realizado un cliente en un intervalo de tiempo o sus ultimas compras. Ojala alguien tenga idea de como puedo lograr hacerlo. Gracias de antemano

Me gustaria que me explicaran paso a paso este codigo, gracias de antemano. Dim ligne, débutOrg, f, forga, inth, intv, Tbl(), n, d Sub DessineAscendants() Set forga = Sheets("BD") Set f = Sheets("bd") Set d = CreateObject("Scripting.Dictionary") Tbl = f.Range("A2:I" & f.[A65000].End(xlUp).Row).Value n = UBound(Tbl) Set débutOrg = forga.Range("I23") ligne = 0 inth = 60 intv = 40 liginit = ActiveCell.Row - 1 lig = ActiveCell.Row - 1 couleur = IIf(Tbl(lig, 4) = "M", f.Cells(2, 2).Interior.Color, f.Cells(2, 3).Interior.Color) créeShapeP Tbl(lig, 1), couleur, 0, IIf(Tbl(lig, 4) = "M", "AM", "AF"), " " End Sub

Hola. Estoy en un proyecto y me he quedado atascado por un simple código, que seguro que tiene una fácil solución pero que llevo horas intentando resolver. He creado un bucle For next que va cargando en una variable Array la posición de la última celda con datos en distintas columnas, empezando por "A" y hasta el final del bucle. El caso es que donde tengo el problema es en la propiedad "Range", me dice que no coinciden los tipos. Seguro que es por la forma de implementar el código pero es hasta donde sé. Es la primera vez que meto el "Range Rows.Count" dentro de un bucle. Pongo el código aquí mismo, si es necesario subiría el ejemplo. For x = 1 T…

Hola buenas tardes amigos de Ayuda Excel. Por favor si me pueden ayudar con este procedimiento que no logro hacer. gracias La macro que está en el botón debe evitar insertar una fila nueva si el valor de la última celda en la columna G es igual a cero (0). Y un MSGBOX que indique al usuario que debe llenar la información primero. EJEMPLO AYUDA EXCEL.xlsm

Buenos días a los integrantes de este prestigioso foro, en esta ocasión recurro a uds, para que me brinde su apoyo con una formula para determinar el cálculo de la PRIMA SEGURO (celda M10), actualmente vengo realizando mi cálculo en forma errónea al usar como criterio el numero 65 (representa 65 años cumplidos), según detalle: 1. SI ES MAYOR O IGUAL A 65 AÑOS NO DEBE CALCULARLE PRIMA SEGURO 2. SI ES MENOR O IGUAL A 65 AÑOS DEBE CALCULARLE PRIMA SEGURO APLICAR CÁLCULO A PRIMA SEGURO, A LAS ENTIDADES INTEGRA, PROFUTURO, PRIMA Y HABITAT Y CON LAS COMISIONES FLUJO Y MIXTA y menciono aplicando mal formula, porque el trabajador que se encuentra resaltado cu…

Saludos mis estimados amigos. Como podría bloquear un rango dependiendo el contenido de una celda. Me explico Si en la celda a1 esta X que bloquee el rango desde la B5:B10, C5:C10; D5:D10 pero si esta vacía que desbloquee. O mejor aún si ese renago esta de color rojo (puesto con formato condicional) que se bloquee caso contario que se desbloquee. (Esta es mi primer pedido). Gracias mil por vuestra ayuda

Buenas días a todos; -Estoy intentando pasar el valor de un listview a la celda que tengo activa y no he sido capaz. He intentado encontrar algo en San Google pero no he encontrado nada similar. Adjunto macro. Un saludo para todos. CeldaActiva.xlsm

Saludos amigos, acudo a solicitar su ayuda en lo siguiente: necesito una macro que tome un rango de celdas de una hoja y lo copie a otra siempre y cuando los valores de una columna sean mayores que 0 consegui un ejemplo en este foro que se adapta a eso https://www.ayudaexcel.com/foro/macros-programacion-vba-10/copiar-datos-mayor-cero-otra-hoja-19620/ sinembargo cuando corro la macro se detiene en esta linea: .AutoFilter 5, ">0" segun el post original todo funciona, pero haciendo yo exactamente lo mismo no logro que funcione utilizo excel 2010 gracias de antemano

Hola, quiero guardar los registros que llegan a la celda C5, estos son entregados mediante una BD que se actualiza diariamente. La idea es guardarlos en la Hoja 2 agregando una fecha, no se me ocurre como hacerlo, por ende recurro a ustedes. Guardar registros .xls

buenas compañeros: mi inquietud es la siguiente, como crear una aplicasion de WPF C# de lectura y escritura en archivos de excel, si me pueden aclarar la duda muchas gracias compañeros

Buenas Tardes Chicos, hace tiempo que no entraba por el trabajo... En fin, tengo una hoja1 Excel el cual quiero buscar el rut(id) de una persona XXX en hoja2, pero que discrimine según el mes que lo cancelo y si cancelo en el mismo mes sumar los pagos, y a su vez devolver en otra celda como lo cancelo o alguna observación. Realice la macros(grabe) pero al momento de procesarla se demora demasiado.... Es posible alguna optimización? Alguien que me oriente. Adjunto para que me entiendan, adjunto la macros en el mismo excel..... Saluda. 1727.xls

Hola, Tengo el siguiente problema que no podido resolver. El inconveniente es cuando se crea una nueva hoja como copia de otra existente y al tratar de acceder a la nueva y copiar datos, esto no es posible. Los datos que intento escribir los escribe a la anterior hoja nunca en la nueva. La siguiente es una muestra del programa. Alguien me puede ayudar, muchas gracias de antemano. Sub prueba() Dim nhoja, pos As String Dim hojanueva As Worksheet Dim nfila As Integer nhoja = "prueba" Worksheets("FORMATO").Activate Worksheets("FORMATO").Copy After:=Worksheets(Sheets.Count) ' Worksheets("FORMATO").Copy After:=Worksheets(nhoja) NO funciona Set hoja…

Teno la siguiente macro pero me error 1004 por que puede ser. La macro es para cuando encuentre una X en las celdas b9:b200 oculte las filas que contienen una X Sub ocultarfilas_FRIO_NO_TALLER() ' ' ' ActiveSheet.Unprotect For Each celda In Range("b9:b200") If celda.Value = x Then ActiveCell.EntireRow.Hidden = TrueElse ActiveCell.EntireRow.Hidden = False End If ActiveCell.Offset(1).Select Next ActiveSheet.Protect End Sub

Hola, tengo un excel donde voy ingresando datos y automaticamente me ordena y me oculta las filas si el valor de la columna b=0, el problema que tengo es que no las desoculta cuando el valor es igual o mayor a 1. El código que tengo es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Range("c7").Value = "4 FRUTAS ES" Then Rows("28").EntireRow.Hidden = False ' Si pone None desoculta Else Rows("28").EntireRow.Hidden = True Copia de Septiembre 2016 (2).xls

Hola, buenas tardes, Estimados. estoy trabajando en una macro de generación de ordenes de trabajo pero me da error al crear una ot y no me enlazan una serie de datos con el modelo final de ot que necesito crear, si alguien me pudiera ayudar se los agradeceria, ya que tengo asociados equipos, patentes horometros, kilometrajes, costos, etc. Al yo pulsar generar ot me deberia crear una pestaña con la ot modelo (se asigna el numero de ot en pestaña; ej; OTTCLM64 y en el encabezado del formato )y asignar todos los datos que le ingrese en la tabla de ingresos,luego al asignar hh de cada actividad y costos asociados (costos que deberian estar enlazados a la planilla de…

Estimados. Adjunto libro que realiza busquedas de fotos dentro de una carpeta, el unico requisito para que funcione es que el libro se encuentre dentro de la carpeta que contiene las fotos, el nombre de la foto se debe colocar en la columna B, para que muestre la foto te debes desplazar por la columna C. Hasta aqui todo va bien, pero tengo varias carpetas con fotos, entonces necesito que la macro busque la foto segun la direccion de cada carpeta, seria posible que en la columna "G" coloque la direccion de la carpeta y realice la busqueda de las fotos, espero que algun experto me apoye a encontrar alguna solucion. Saludos cordiales. EJEMPLO.zip

Buenos días, no se como hacer una macro para lograr exportar a pdf a un directorio: G:\Factura\Pedidos con el nombre de dos casillas: & [b4] & [b5] Tengo instalado Nitro Pro 8 Gracias de antemano

Hola a Todos, Como varan tengo en siguiente adjunto (1er useform), en el cual ingreso todos los datos conforme, sin embargo me falta que al ingresar la fecha se detecte como tal debido a que luego debo hacer calculo entre fechas. De igual modo, en el 2do userform este debe ser para modificar estos datos incluyendo la fecha y los valores en numero. Muchas Gracias, Quedo a la espera de su pronta respuesta, Saludos, Introducir datos utilizando un formulario 2.xls