Buenas noches les saludo nuevamente para solicitarles vuestra atención y darme la orientación necesaria al respecto del archivo adjunto. En el interior del mismo encontraréis las pautas Gracias Saludos desde Perú Jorge Bejarano CREAR Y LLENAR CAMPOS.zip

Buenas. Recurro a ustedes por que no logro completar lo que deseo hacer con un excel. Mi problema se trata de la web de la empresa, pero que no es empresa es matriz, y tampoco tenemos mucha relación, me gustaría llevar un historico de ventas, pero no me dejan acceso a los archivos, solo via web, y por hay tengo que entrar. En principio he creado un excel de que es lo que querría. En el archivo verán que en la columna A, se encontraría la entrada de datos que sería una conexión de Datos Externos via web, hecha con una macro, para que cuando entre se actualice. Pero claro, no me vuelva solo los que yo quiero, si no todos los datos, y una cosa que debería hacer es poder…

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

buenas compañeros. aca tengo este ejemplo de userform de divicion. lo que deseo es que cuando divido la cifra no me aparescan tantos numeros. por ejemplo cuando hago esta divicion 14000/3800 = 0.27 que me de ese resultado 0.27 me explico, actual mente como esta me tira 0.27142857142857, lo que no deseo es que me tire ese monto de numero, quiciera que redondee el resultado o que solo tire 0.27 gracias por su ayuda aca subo un ejemplo de como tengo el archivo divicion.rar

Buenos dias, tengo una celda (M4) que es donde quiero el resultado, quiero hacer que por medio de una macro recorra todos los datos que estan hacia la derecha (desde N4 hacia la derecha). El inconveniente se presenta porque no tengo un rango fijo, es variable, hoy puedo tener datos desde N4 hasta AZ4, y otro dia tener datos desde N4 hasta quien sabe donde... alguna sugerencia? Los datos siempre empiezan en N4. Gracias por el tiempo

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