Saltar al contenido

Toda la actividad

Este flujo se auto actualiza     

  1. Última hora
  2. Como solucionar error formula

    La función Buscar requiere que el primer vector se encuentre ordenado (A..Z), mejor usar las funciones indice y coincidir. Indice & Coincidir.xlsx
  3. Today
  4. Hola Visor y Haplox A ver sí es esto lo que buscas Cambia estos dos procedimientos por los tuyos Private Sub CmdEnviaraHoja_Click() Dim filaABuscar As Long, Rng As Range Dim Caja As Control Set Rng = ActiveSheet.Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row) c = 3 filaABuscar = WorksheetFunction.Match(ComboBox1, Rng, 0) For Each cajaDeTexto In Me.Controls If Left(cajaDeTexto.Name, 7) = "TextBox" Then Set Caja = Controls(cajaDeTexto.Name) Cells(filaABuscar, c) = CDbl(Replace(Caja.Value, ".", ",")) c = c + 1 End If Next cajaDeTexto MsgBox "Datos registrados" limpiar End Sub Sub limpiar() For Each cajaDeTexto In Me.Controls If Left(cajaDeTexto.Name, 7) = "TextBox" Then _ Set Caja = Controls(cajaDeTexto.Name): Caja.Value = "" Next cajaDeTexto Controls("ComboBox1").SetFocus End Sub Saludos
  5. Mira que te lo habían advertido @Visor Private Sub CommandButton1_Click() Dim TextControl As MSForms.Control For Each TextControl In Me.Controls If TextControl.Name Like "TextBox*" Then contador = contador + 1 End If Next TextControl End Sub El CommandButton1 será elbotón tuyo que necesites
  6. Hola. Creo que la duda tiene que ver con el tema de macros. Espero estar en lo cierto. La idea es agregar un checkbox por fila a una tabla de productos que al ser marcados, aparezcan en otra tabla los productos seleccionados con dicho checkbox. Habría un checkbox más para marcar desmarcar todas las filas. Adjunto ejemplo sin código picado (no tengo ni pajorera idea de código VBA) en el que he copiado y pegado 11 check boxes. Tiene que haber alguna manera de poner alineadas esas cajas y duplicarlas de una vez a un número de filas concreto,¿puede ser? Porque aquí he puesto 11, pero en el caso real serían 200 y pico filas. ¿Qué debo consultar para conseguir este resultado? Agregar y configurar para selección de fila y sus datos el checkbox. Copiar X veces el checkbox para cada fila de manera más rápida que uno a uno. Configurar un checkbox para marcar/desmarcar todos los demás. Los checkboxes seleccionados que aparezcan en una tabla diferente. Muchas gracias y un saludo check boxes.xlsm
  7. Barra de progreso en la barra de estado de Excel

    Woo, no soy muy fan de este tipo de aplicaciones. Pero la verdad es que se ve bien. Me gusta. Saludos!
  8. Cual función y como debo hacer este problema

    @daniloexcel Ahora si quieres manejar un solo cálculo, es decir, saltar el paso de dividir primero y despues analizar si pasa o no pasa, podrías manejar de la siguiente manera, =SI((D2/3)>=70%,"Pasa","No pasa") Saludos,
  9. Cual función y como debo hacer este problema

    ahi esta la formula =SI(E2>=70%,"pasa","no pasa") danilo
  10. https://drive.google.com/file/d/1jWZq3vX_h46SP_Pjg92of0rsh8dBMipK/view?usp=sharing Listo, este es el enlace por google drive. El archivo, bueno es un poquito complicado, o por lo menos así lo veo yo; porque tiene muchas formulas y varias macros; pero todo lo he ido identificando a medida que avanzo en el archivo; es que como no soy ninguna experta en excel, voy armandolo de poquito en poquito cada vez que me surge una necesidad, y voy resolviendo y agregando al archivo. El botón que usa la macro con la que estoy pidiendo ayuda es el botón de cargar (color verde) en la hoja cargar, debería pasarme los datos a la hoja BD pero con esa condición de repetición, es decir, deben coincidir el código, la fecha y la hora para que se tome como repetido, ya que un alumno puede ausentarse mas de 1 vez al mes, e incluso mas de 1 vez al día y estas ausencias deben quedar registradas pero no duplicadas.
  11. Yesterday
  12. limpiar y extraer números

    por supuesto, "según el sapo es la pedrada" y fue propuesta para situación especifica, por supuesto también que se contemplan situaciones mas complejas, no se trataba de usar un submarino para navegar por ríos de agua dulce saludos, hector.
  13. limpiar y extraer números

    Hola a todos! Se me hace muy limitada esa función, sobre todo haber usado el objetos REGEXP tan solo para poder extraer los números o letras, hubiera sido mas práctico pasarle a la función el patrón de la expresión regular a extraer. Se tiene dos opciones, se modifica la función o Google Sheets ya incorpora una función llamada (REGEXEXTRACT) que puede extraer expresiones regulares. Saludos!
  14. limpiar y extraer números

    si... y no (a la vez), a ver... haz clic donde dice "Fuente..." y... encuéntrala ("la referencia") ? es lo mismo que poner como fuente: "visto por la web" saludos, hector.
  15. Buenas, la consigna es la siguiente: · En la columna F: Pasa/No Pasa debe escribir pasa si la condición es aprobado y el porcentaje de asistencia es mayor al 70% Desde ya muchas gracias, no se que formula hacer, ni como hacerlo, Saludos. 5 a medio hacer.xls
  16. Como solucionar error formula

    Tengo la siguiente Formula: =BUSCAR($B4;$I$3:$T$3;I4:T4) me debería buscar en la celda a4 el número correspondiente a la tabla que debería ser 25 y me coge 19 a que puede ser debido eJEMPLO1.xlsxeJEMPLO1.xlsx
  17. Tengo un archivo donde se adjuntan las facturas y se va llenando, y adicional a eso tiene una lista desplegable en el cual quisiera que cuando yo aplique una de las opciones que aparece en la lista desplegable, se filtre automáticamente por cada fecha. Como seria mas simple, mediante un macro o por formula? inventario por fechas.xlsx
  18. limpiar y extraer números

    Hola: En el artículo en cuestión, al final, dice "Fuente: TodoExcel" ¿no es correcta esa referencia? En el archivo de ejemplo quizá no está pero creo que si hay una referencia, al menos desde mi humilde punto de vista, no es que sea un plagio ¿o ustedes creen que sí? Quizá sirva, igual, avisarle al autor. Abraham Valencia
  19. limpiar y extraer números

    ¯\_=^.^=_/¯ ¯\_(ツ)_/¯
  20. limpiar y extraer números

    ese articulo es un "eco" (por no decir plagio), habría que revisar "cuantos otros" ? <\°|°/> saludos, hector.
  21. Hay que entender que Antoni es de la época de : "La Letra Con Sangre Entra.." lo digo por el Rojo Sangre de sus letras... rsrsrrs
  22. limpiar y extraer números

    hola Ingrid lo sacaste de aqui funciona perfecto en los ejemplo que se muestran en la página, pero en tus casos no funciona (formas mas complicadas que las que muestra el ejemplo) si lo quieres con formulas, esto te podría servir (ojo se extraerán los datos de la celda que empiecen con un número, tal cual pusiste en tu ejemplo). 71680281-// 71680281- =SI(ESNUMERO(--IZQUIERDA(ESPACIOS(A2),1)),SUSTITUIR(A2,"-",""),"") ***mi separador de argumentos es la coma, si el tuyo es otro, corriges. saludos, Silvia
  23. Buenas noches @Haplox, siento que por mi culpa nos haya regañado el gran @Antoni... pero me alegro por la clase magistral que nos ha dado, hasta yo creo que me he enterado.... He copiado el código de @Antoni y cuando ejecuto e formulario y borro un dato grabado para modificarlo me da error '380' No se puede configurar la propiedad SelStar. Valor de propiedad no valido. También veo que solo funciona con la coma del teclado y no con el punto del teclado numérico, que agiliza bastante la introducción de datos..... Muchas gracias a los dos
  24. Hola, favor su ayuda, quise utilizar una macro para extraer solo los número de teléfono de una base. En la actualidad las personas donde trabajo lo hacen a mano, yo antes había aplicado esto y me resulto sin problemas, pero ahora simplemente no pude. Utilice el siguiente codigo, pero no me arroja resultados, desde ya agradecería su ayuda. Function Limpia(cadena As String, Optional num_car_az As Byte = 1) Dim pat As String Select Case num_car_az Case 2: pat = "[0-9]" Case 3: pat = "[^a-z|ñ]" Case Else: pat = "[^0-9]" End Select With CreateObject("vbscript.regexp") .Global = True .IgnoreCase = True .Pattern = pat Limpia = .Replace(cadena, "") End With If num_car_az = 1 Then Limpia = CLng(Limpia) end if End Function Libro1.rar
  25. Ohhhh... ¡Sorry!... Chilena entonces. Saludos y hasta la próxima.
  26. Fixture Mundial Rusia 2018

    Version 1.0.0

    0 downloads

    Fixture Mundial Rusia 2018
  27. Val es una función que extrae los números presentes en un string empezando de izquierda a derecha hasta el primer carácter no numérico, y el separador decimal lo es, por eso un texto con valor 13,25 después de Val(13,15) se convierte en 13, perdiendo los decimales. Otra cosa distinta es que VBA sea capaz de operar con números enteros obtenido a través de la función Val(), pero valores como 123gg,65 se convertirán en 123 sin ningún aviso. Por tanto, nadie te libra de evaluar el contenido de un texto para ver si solo contiene números con la función IsNumeric() y ya que lo hacemos, no nos cuesta nada convertir el texto a número con una función de las existentes para ello, CDbl, CLng, CInt,..... Ya no hablemos de utilizar la función Format(), ya que es de juzgado de guardia directamente.
  28. Edito...si, leí tan rápido tu contestación que creí pensar en la solución yo mismo cuando me la habías dicho tú. Me parece buena idea agregar esa columna de categoría. Gracias @digitalboy
  1. Cargar más actividad
×