Leaderboard
Popular Content
Showing content with the highest reputation since 12/27/2020 in all areas
-
Hola JOCAMI90 la formula tenía una falla =SUMAR.SI.CONJUNTO(Datos!$D$3:$D$5000,Datos!$B$3:$B$5000,"*WH/"&B$3&"*",Datos!$C$3:$C$5000,$A4,Datos!$A$3:$A$5000,">="&$B$1,Datos!$A$3:$A$5000,"<="&FIN.MES($B$1,0)) considera que mi separador de argumentos es la coma (,), si el tuyo es otro, corriges. esto solo funciona para las columnas B y C que pertenecen a Setiembre, deberás cambiar manualmente B1, por D1 en Octubre, esa situación se dá , debido a que utilizaste celdas combinadas, lo que podrías hacer es descombinar las celdas y colocar las fechas en todas l4 points
-
Validar fecha actual.
tierra_pampa and 2 others reacted to Antoni for a topic
Private Sub Fecha_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Fecha <> Empty Then If Not IsDate(Me.Fecha) Then MsgBox ("Introduzca una fecha correcta"), vbCritical Cancel = True: Fecha = Empty Exit Sub End If If Not CDate(Fecha) = Date Then If MsgBox("La fecha no coincide con el día de hoy" & Chr(10) & _ " ¿Desea continuar?", vbYesNo + vbQuestion) = vbNo Then Cancel = True: Fecha = Empty Exit Sub End If End If Fecha = Format(CDate(Fecha), "dd/mm/yyyy"3 points -
Obtener lista diaria de asistentes a partir de un cuadrante mensual
Gerson Pineda and 2 others reacted to njnsp for a topic
Es muy fácil, yo tengo cosas hechas así. Para el ejemplo, no hace falta que mandes lo que tu tienes, escribe en un excel en blanco, lo que tienes (sin formatos ni nada) y por otro lado, pones lo que deseas. Es lo que hacemos todos 😉3 points -
Obtener lista diaria de asistentes a partir de un cuadrante mensual
njnsp and 2 others reacted to GabrielRaigosa for a topic
Es una opción, @Gerson Pineda, te animas?3 points -
Hola @tupy77 Según entiendo, quieres que en una hoja se pongan varias tablas con 1 fila en blanco entre ellas y que contengan "N" filas según un filtro establecido. El filtro debe ponerse en un cuadrito. Supongo que son filtros diferentes para cada tabla. La mejor forma para hacerlo es, como dice @Silvia, usando tablas dinámicas y segmentadores. El problema es que solo verías una tabla (no varias, como quieres) pero.... ¿por qué mostrar muchas tablas si puedes hacerlo solo en una y cambiar los filtros con un solo clic? No es algo difícil de hacer. La tendencia de crear muchas ta2 points
-
Sub Transponer() Application.ScreenUpdating = False fila = 1 For x = 2 To Range("A" & Rows.Count).End(xlUp).Row cadena = Split(Range("B" & x), "|") For y = 0 To UBound(cadena) fila = fila + 1 Range("D" & fila) = Range("A" & x) Range("E" & fila) = cadena(y) Next Next End Sub2 points
-
Numeracion autoincrementada
RubenDario and one other reacted to Antoni for a topic
Click derecho en la columna E para incrementar el número de cheque Click derecho en la columna F para repetir el número de cheque Autonumeración de cheques.xlsm2 points -
Esto es lo máximo que se puede reducir el proceso. Abre el adjunto y pulsa sobre la flecha azul, se copiarán los turnos de mañana, tarde y noche del día de la fecha que hay en C3. Plantilla de Servicios5 (Full).xlsm2 points
-
Solo recordar que hay un evento change de hoja a nivel de libro en ThisWorkbook.2 points
-
A ver si lo he entendido. Abre el adjunto y pulsa sobre la flecha. PC1 2019-2 EX53-EN55 Data.xlsm2 points
-
Obtener lista diaria de asistentes a partir de un cuadrante mensual
Austrolopitecus and one other reacted to Gerson Pineda for a topic
Hola! Utilizando el archivo de @njnsp ahora si puedo colaborarte [como ves no era nada dificil, subir un libro como muestra!] En la hoja Turnos_ pase los datos a tabla estructurada, luego la transformo con power query, seguido la cargo al modelo de datos de Excel [que es power pivot, activalo], seguido armo una simple tabla dinamica, donde se podra filtrar por empleado sus turnos Saludos Turnos de empleado power query_GP.xlsx2 points -
Hola Javier Creo que hay varias cosas que no están hechas de la manera "idónea". Si planteamos una solución complicada, se nos hará difícil todo el trabajo con la plantilla. Los cambios que yo haría son los siguientes: Una sola hoja en lugar de una hoja mensual, pero se tendría que agregar una columna donde se ponga el periodo (enero 2021, febrero 2021, etc) Los conceptos que se puedan elegir de una lista desplegable (validaciones), cosa que no hay opción de equivocarse. El resumen se haría con una tabla dinámica.2 points
-
Ejecutar consulta sql sobre un TextBox de un UserForm.
Benito Bartolomé and one other reacted to Antoni for a topic
Ya que lo tenía hecho..... MExcel.xlsm2 points -
Hola @Austrolopitecus Yo se que a mis compañeros no les gusta que os demos el trabajo hecho, pero bueno, es mi primera vez; es mi manera de agradecer al foro todo lo que ellos me han ayudado. Te paso una muestra de las muchas que habrá y que es bastante mejorable, pero que vale como punto de partida. La hoja turnos, tiene algo similar a lo tuyo (diseño y florituras lo dejo para los creativos). Solo se ha "perpetuado" los días del año para que valga para cualquier año (cambiándolo en B2). Y lo que tu necesitabas está en la hoja cuadrante semanal, en donde solo poniendo el nu2 points
-
Ayuda macro programa contable
rubenwinner and one other reacted to Haplox for a topic
Te lo dejo de nuevo, creo que ahora sí está PROGRAMA RUBEN 2.xlsm2 points -
Ja,ja,ja, se refiere a esto:2 points
-
@Benito Bartolomé, con elpermiso de @Antoni (espero 😇), prueba lo siguiente: Sub Borrar(): On Error Resume Next Application.ScreenUpdating = False Hoja4.Range("A5:G" & Hoja4.Range("A" & Rows.Count).End(xlUp).Row).Delete Hoja4.Range("A2:B2").ClearContents Application.ScreenUpdating = True End Sub2 points
-
Siento no ver el problema. En tu fichero en esa columna tienen todos el formato que pides. Es más, he hecho 2 pruebas y pasa los datos como pides... Algo me estoy perdiendo2 points
-
Obtener lista diaria de asistentes a partir de un cuadrante mensual
Silvia and one other reacted to GabrielRaigosa for a topic
Yo mejor no hablo mucho sobre el tema, lo mio no son los medios de comunicación tradicionales, Fake News.. Para mi esta claro lo que está pasando... N.O.M .... Para tí y tu familia mis mejores deseos, siempre hay que tener fé en que las cosas van a mejorar. Saludos.2 points -
Obtener lista diaria de asistentes a partir de un cuadrante mensual
Silvia and one other reacted to Gerson Pineda for a topic
Pues por mi parte, no acepto colaborar en privado, te imaginas que seria del foro, si todo fuese respondido sin que nadie vea nada, lo tuyo es problema de percepción, pero en definitiva siendo así, debes resolverlo por tus propios medios Negativo! @GabrielRaigosa, además de paso, deseo que la pases genial estos últimos días del 2020, que a sido mas que desastroso, especialmente para los que viven "aterrorizados"! [pero creo que tu no eres uno de ellos jeje] Saludos2 points -
Obtener lista diaria de asistentes a partir de un cuadrante mensual
Silvia and one other reacted to GabrielRaigosa for a topic
2 points -
Actualizar ciertas columnas de dos tablas con data de tabla Maestra
MauriciodeAbreu and one other reacted to Haplox for a topic
A ver, ¿A qué te refieres con "actualizar"? Llevar los registros que no estén,quitar los duplicados... ¿Especifica qué necesitas realmente? Ya nos dirás a qué te refieres, a ver si nos la compartes... 😁2 points -
Borrar modulo trabajando con proyecto protegido
tierra_pampa and one other reacted to Jose BN for a topic
Gracias al foro hermano "todoexcel" y @Héctor Miguel se logró el propósito! https://foro.todoexcel.com/threads/borrar-modulo-trabajando-con-proyecto-protegido.55439/#post-236663 Comparto igual la solución por posible consulta similar: Option Private Module Const clave As String = "aBc" Const esteLibro As String = "delete vbacode (exceluciones).xlsm" Sub quitaPassWordVBA() Unload UserForm1 Application.SendKeys "%{f11}{l 4}%q", True Workbooks(esteLibro).Activate Application.SendKeys "%{f11}^r{down}" & clave & "~%q", True Application.OnTime Now, "limpiamodulo2" En2 points -
Código no funciona bien
Chrispal1977 reacted to Antoni for a topic
Private Sub CommandButton1_Click() saltos = Len(TextBox1.Value) - Len(Application.WorksheetFunction.Substitute(TextBox1.Value, Chr(10), "")) texto = TextBox1.Value For i = 1 To saltos Hoja2.Cells(i, 1) = Mid(texto, 1, InStr(1, texto, Chr(10)) - 2) texto = Application.WorksheetFunction.Substitute(texto, Mid(texto, 1, InStr(1, texto, Chr(10))), "", 1) Next Hoja2.Cells(i, 1) = texto End Sub Private Sub UserForm_Activate() TextBox1.Text = Sheets("Hoja1").Range("a1").Value End Sub1 point -
Vaya por delante que no se como se hace. Quizá eso se pudiera resolver con algún tipo de segmentación de datos que te filtre los datos, pero en una sola tabla. En dos tablas opino como Silvia, juraría que es imposible, porque aunque se usaran rangos dinámicos, en algún sitio tienes que poner la primera linea de la segunda tabla.1 point
-
Editar agregar o eliminar desde listbox
Antoni reacted to Benito Bartolomé for a topic
Disculpa, ya he pillado el segundo punto. De ahí a que el código ponga " Agregamos o modificamos items". Vale tanto para un roto como un descosido 😀🙋♂️1 point -
Editar agregar o eliminar desde listbox
Benito Bartolomé reacted to Antoni for a topic
Esto funciona, ¿A ver si eres capaz de encontrar la diferencia con el anterior? Private Sub btn_Editar_Click() 'Agreamos/Modificamos los Items With ListBox1 If .ListIndex = -1 Then Fila = Range("A" & Rows.Count).End(xlUp).Row + 1 Else Fila = .ListIndex + 2 End If Range("A" & Fila) = TextBox1 Range("B" & Fila) = TextBox2 .List = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Value Borrar End With End Sub1 point -
Cálculo de cantidad de horas clasificadas por turnos
Jeani reacted to Héctor Miguel for a topic
las columnas que mencionas fueron solo para tener una "visión" de las consideraciones necesarias para distinguir días y horas entre laborables o fin de semana y festivos y la separación de fecha-hora es solo trabajar en dos columnas: una la parte entera (días) y la otra la parte fraccionada (horas), funciones (obviamente) entero(... y residuo(... 1) y finalmente se convierte a valores y se elimina "la fuente" pero una vez que ha quedado visto (y comprendido), podemos regresar a tu modelo de base (menos columnas auxiliares para su comprensión) y resulta el nuevo adjunto horas x turno v21 point -
Cálculo de cantidad de horas clasificadas por turnos
Silvia reacted to Héctor Miguel for a topic
1) prefiero multiplicar *24 al final (y no en cada paso) 2) ya sabía que ibas a necesitar distinguir los festivos analiza ambos puntos en esta versión mejorada (pregunta lo que no entiendas) horas x turno v2 (ambos).xlsx1 point -
Formula para extraer letras de Apellidos y Nombres
SALAVERRINO reacted to GabrielRaigosa for a topic
👍1 point -
Hola! Así es como me sale a mí cuando lo abro. ¿De qué parte de la paleta escoges el color? ¿De colores del tema o colores estándar?1 point
-
Lo siento @jeaa , pero sigo sin verlo (ya te he dicho que de contabilidad 0)... Tu solo copias los datos del T4-1997 y los traspones en la tabla, pero ¿Y si tienes más de una fila (una por cada periodo de fechas que elijas?1 point
-
Mas de 10 columnas en un ListBox vinculado con sql Access
Benito Bartolomé reacted to Antoni for a topic
Usando la propiedad .RowSource, el listbox puede contener cualquier número de columnas. He añadido la hoja Consulta, si quieres puedes ocultarla, pero no eliminarla. BMExcel.xlsm1 point -
Macro par importar datos de un libro a otro de excel
Juan Carlos torres ruiz reacted to Haplox for a topic
Ese error es bastante inespecífico, aunque suele indicar que algo no encuentra. En tu caso creo que es por todos los nombres con rango que tienes. La manera de poder pasar los datos es separar el copy y el paste. Usa el siguiente código: With wbOr.Sheets("EPYC") .Range("A8:F78").Copy wbDes.Sheets("Personal").Range("A8:F78").PasteSpecial xlPasteValues .Range("F2").Copy wbDes.Sheets("Personal").Range("G3").PasteSpecial xlPasteValues .Range("I2").Copy wbDes.Sheets("Personal").Range("H3").PasteSpecial xlPasteValues Set rngOT1 = .Range("A:M") Set rngCopy = I1 point -
Efectivamente, .Sort se utiliza pata ordenar. Lo primero que hace la macro es copiar y ordenar los datos de vendedores y frutas, elimina los duplicados y confecciona los encabezamientos, posteriormente se eliminan los datos y se confecciona el resumen. .Set es una instrucción para asignar objetos, no valores. Ejemplo: Dato = Range("A1") asigna el valor de la celda A1 a la variable Dato. Set Dato = Range("A1") crea un objeto Range con la celda A1 en la variable Dato. El método .Find, obtiene un objeto Range con la celda del valor buscado, de esta manera, podemos1 point
-
Lo suyo sería una tabla dinámica, pero con macros e interpretando a mi bola las dudas de Haplox sería algo parecido a lo del adjunto, ábrelo y pulsa sobre la figura azul. Válido para cualquier número de vendedores y frutas. PruebaVendedor.xlsm1 point
-
Ayuda macro programa contable
rubenwinner reacted to Haplox for a topic
@rubenwinner, te dejo una solución (creo...). Mira y comenta PROGRAMA RUBEN 2.xlsm1 point -
COMPARAR DATOS Y MODIFICARLOS O AGREGARLOS
LeonardoDaniel reacted to Antoni for a topic
Sustituye tu código por este, a ver si hay suerte: Private Sub CommandButton1_Click() With Hoja14 For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row + 1 If .Range("B" & x) = TextCLIENTE And _ .Range("C" & x) = TextPRODUCTO Then Exit For End If Next .Cells(x, 1) = TextFECHA .Cells(x, 2) = TextCLIENTE .Cells(x, 3) = TextPRODUCTO .Cells(x, 4) = TextPRECIO End With End Sub1 point -
Actualizar ciertas columnas de dos tablas con data de tabla Maestra
MauriciodeAbreu reacted to Antoni for a topic
Mis disculpas. Private Sub ActualizarTabla(Tabla As Worksheet) Dim Serial As Range Application.ScreenUpdating = False With Tabla For x = 5 To .Range("E" & Rows.Count).End(xlUp).Row Set Serial = Sheets("Base de Datos Maestra").Columns("E").Find(.Range("E" & x), , , xlWhole) If Not Serial Is Nothing Then .Range("B" & x) = Serial.Offset(0, -3) .Range("C" & x) = Serial.Offset(0, -2) .Range("D" & x) = Serial.Offset(0, -1) End If Next End With End Sub1 point -
Series de datos de un gráfico solapadas
zelarra821 reacted to Gerson Pineda for a topic
Lo que suponía, la disposición de los datos no es la mejor, respecto a los errores, pues deja el cero o vacío, en la formula Fíjate en el adjunto, utilizo el de línea con marcadores [no apilado] Saludos grafico.xlsx1 point -
Series de datos de un gráfico solapadas
zelarra821 reacted to Gerson Pineda for a topic
Sin ver la disposición de los datos no es fácil interpretar, también considera que los decimales pueden ser un factor no tan preciso para tu objetivo Pero puedes probar el grafico de línea apilada con marcadores o el de área apilada, para que las series se vean separadas o independientes Suerte! Saludos1 point -
Actualizar ciertas columnas de dos tablas con data de tabla Maestra
MauriciodeAbreu reacted to Antoni for a topic
Ejecuta la macro Actualizar: Sub Actualizar() ActualizarTabla Sheets("Entradas") ActualizarTabla Sheets("Salidas") End Sub Private Sub ActualizarTabla(Tabla As Worksheet) Dim Serial As Range Application.ScreenUpdating = False With Tabla For x = 5 To .Range("E" & Rows.Count).End(xlUp).Row Set Serial = Sheets("Base de Datos Maestra").Columns("E").Find(.Range("E" & x), , , xlWhole) If Not Serial Is Nothing Then .Range("B" & x) = Sheets("Base de Datos Maestra").Range("B" & x) .Range("C" & x) = Sheets("Base de Datos Maestra").Range("C" &1 point -
Exportar tablas a nuevo libro segun criterios
MauriciodeAbreu reacted to Haplox for a topic
A ver, esque ese fichero está lleno de trampas . En la imagen verás que hay celdas sin datos,por lo que al hayar la última fila, no corresponde con la real. Cambia el cálculo de uFd a una columna en la que estés SEGURO de que tendrán todas datos (me imagino que la columna con las fechas) Esto solo te va a complicar y retardar la ejecución, puesto que tendrías que mirar en todas las hojas ¿No? Y más cuando cada hoja es diferente. Tendrías que volver a poner un contador u calcular últimas filas, columnas, etc. Pero tú mismo. Modifica el código a lo siguiente (solo está para una fe1 point -
Borrar modulo trabajando con proyecto protegido
Jose BN reacted to MauriciodeAbreu for a topic
Buenas noches. No se si he entendido bien lo que pides Soy nuevo en esto, pero dejo el codigo que yo uso, espero te sirva. Sub Eliminar_CodigoVBA() 'Caja para el ingreso del Password para poder borrar ultimo registro Dim PS As String Dim PS2 As String PS2 = "Clave del proyecto" ''PS = InputBox("Por favor ingrese su Password") PS = InputBoxDK("Por favor ingrese su Password", "Auxiliar de Acceso") If PS = PS2 Then 'Fin de la caja 'MdgBox ("fin de la caja de contraseña") 'MdgBox ("Entrando al codigo de borrado") Dim VBAProj As Object Dim VBAComp As Object Dim VBAComps As Objec1 point -
Obtener lista diaria de asistentes a partir de un cuadrante mensual
Silvia reacted to GabrielRaigosa for a topic
Hola, Puede consultar y transformar la base de datos con Power Query para hacer los conteos. La respuesta es tan general como la consulta que no aporta mas información. Puede comenzar estudiando que es el Power Query en YouTube encuentra muchos videos que le enseñaran a usar esta herramienta. Saludos.1 point -
Exportar tablas a nuevo libro segun criterios
Gerson Pineda reacted to Haplox for a topic
Felices fiestas también para tí, aunque no debería felicitarte después de esa insinuación Anda que vosotros estáis bien tambien... 🤡1 point -
¡Hola Conrado! Puedes usar la siguiente fórmula en la celda E7: =SUMAR.SI($K$8:$K$13;D7;$L$8:$L$13)*24 Espero que te sirva.1 point
-
Formula para detectar variacion del 20% + - de un precio
Serch reacted to John Jairo V for a topic
¡Hola de nuevo! Dejo dos opciones en el adjunto. Una con ayuda de Power Query (lo tienes disponible en Excel 2016). La otra opción es con UDF (Macros en Excel). Revisa el adjunto. ¡Bendiciones! Ejemplo formula para detectar variacion del 20% + - de una precio.xlsm1 point -
Copiar y pegar según dato de su derecha
johan moreno reacted to JSDJSD for a topic
Me alegro YianTheJOP, pero no olvides nunca agradecer a quien te ayuda o intenta ayudar y en el foro se agradece mediante el corazoncillo que hay en la parte inferior derecha, un saludo.1 point -
Barra de progreso en la barra de estado de Excel
MauriciodeAbreu reacted to Antoni for a file
1 point
-
Newsletter