Buenas tardes tengo un formulario donde se carga un plan de cuentas, los combobox se eligen y cargan en los textbox el index según el criterio (esto lo tenia pensado para que el rango que se elige en los combobox se visualicen en el listbox, como un filtrado por dos condiciones y que borre solo los que no están en el rango), por ejemplo si pongo en inicio 20 y en fin 15 en el listbox se visualicen 20,201,20111,201111,15, he intentado según el index pero al parecer no es como lo estaba planteando, por favor me pueden ayudar, les dejo el archivo de ejemplo... EjemploAyuda.xlsm

Buenos días a todos; -Una pequeña ayudita si es posible. -Adjunto una macro que en su día amablemente me ayudó a configurar Antoni. Como es habitual en él funciona de maravilla. He querido si es posible ir un poco mas lejos y es que en el momento que calcular el subtotal en dicha línea me indique el número de cuenta. Adjunto marco e imagen del resultado. Gracia como siempre por vuestra ayuda y buen finde. MSubtotales.xlsm

Buenas, les comento : Necesitaria filtrar mediante textbox, tablas completas. *un textbox para buscar mediante legajo y uno para buscar mediante nombre, o sea la misma tabla pero con estas 2 opciones , y tenia en mente hacerlo estilo el Buscador GoogleII, que se encuentra en el foro, adjunto direccion . Les agregue nombre a cada tabla, usuario_01, usuario_02, usuario_03, y seguiria asi hasta con 80 tablas mas o menos. https://www.ayudaexcel.com/foro/macros-programacion-vba-10/solucionado-buscador-estilo-google-21519/. ADJUNTO ARCHIVO. Gracias de antemano Filtrar tabla completa.xls

Buenas tardes Saludos amigos tengo la sigueinte consulta, llevo utilizando un archivo para enviar correos de forma masiva pero, ahora tengo la sigueinte inquietud hay alguna forma de agregar un item para que a ese correo enviado se le anexe una marca de seguimiento y aviso?, para el destinatario. prueba Enviar CORREO-EXCEL.xls

Buenas gente, a ver si me podéis ayudar. Tengo un código con el cual creo una barra de progreso para ver el estado de la macro en ejecución. Hasta aquí todo perfecto. El caso es que la primera vez que ejecuto la macro una vez abierta la excel, todo funciona correctamente, es en las ejecuciones posteriores que la macro va excesivamente lenta. Este es el código que da problemas: Do While LineaActual < UltimaLinea ContadorEscalones = ContadorEscalones + 1 Me.Caption = "Calculando precio " & ContadorEscalones & " de " & NumeroEscalonesPrecios frm_Progreso.lbl_ProgressBar.Width = frm_Progreso.lbl_ProgressBar.Width + PixelesPo…

hola amigos del foro estoy modificando un macro que hace tiempo subio nuestro buen amigo gerson, muchos lo han de conocer es el turbo filtro a este macro le eh adaptado un modulo de consulta de doble click sobre el listbox para poder desplegar otra pantalla y poder hacer un comparativo de unas listas de precios el macro corre y carga la informacion pero tengo este detalle que no busco la solucion o no se que estoy poniendo mal 1.- el primer problema es que no guarda las modificaciones y al darle click al boton de guardar borra la primera linea y lo deja en ceros 2.- el segundo problema es que no me respeta los decimales eh intentado darle varios formatos p…

Buenos dias me gustaria que alguien me digera si se puede hacer una formula ya que tengo el curso de excel basico pero no doy con ella,es poner un si o un no en una celda y me cambie la fecha al mismo dia pero siguiente mes.Serie en M.Activa si pongo SI me cambiaria al mismo dia pero con el mes siguiente pero si pongo NO se quedaria igual.Gracias de antemano y saludos. Mando el archivo. Reconsumos Líderes bueno.xlsx

Hola, veréis tengo una idea para ejecutar una macro que no se como resolverla. Me explico, tengo un libro con siete hojas de las que necesito eliminar, en cuatro de esas hojas, las filas en la que al menos una de sus celdas no tenga contenido. Hasta el momento lo vengo realizando con la macro: Sub EliminarRegVacios() ActiveSheet.Columns(ActiveCell.Column).SpecialCells(xlBlanks).EntireRow.Delete End Sub Pero el problema que me encuentro con esta macro es que tengo que ir hoja por hoja ejecutando la macro y mi idea es poder realizarlo en todas las hojas automáticamente de una sola vez. Además se da la circunstancia que una de las hojas no cumple la condición de …

Hola a todos; -Estoy intentado programar un formulario para que reproduzca un video. Lo reproduce a medias ya que me salta un error de script y me bloquea la macro. Mi explorador predeterminado es Edge. A ver si sabéis donde me está el fallo. Gracias anticipadas como siempre. Adjunto macro ejemplo. Video.xlsm

adjunto una lista y con ello un listbox donde se puede mirar los datos segun criterio elegido. pero como se imprimiria lo que esta en el listbox y no imprimir la hoja de excel. adjunto archivo Gracias!

De nueva cuenta es un gusto saludarles. El motivo de la presente es para solicitar su apoyo en lo siguiente: Realize un macro en el que me hace un filtro avanzado para las hojas INGRESO y EGRESO de un archivo, según el nombre del propietario. Hasta ahí todo va bien, sin embargo lo que deseo es poder comparar valores acorde a la columna llamada "NUMERO DE NOTA", de este modo, quisiera que en el resultado del filtro avanzado, los valores que me arroje el proceso del filtro sean ordenados ascendentemente (según el número de nota) y que aquellos datos que tengan el mismo NUMERO DE NOTA en INGRESO como en EGRESO queden una a la par de la otra. Se que con palabras es muy difí…

Buen dia, hace rato que no meto mano a excel y no recuerdo si se podia asignar una macro a un shape una rutina pasandole uno o mas parametros

Hola; llevo unos dias intentando transponer unos datos pero no consigo hacerlo, he probado con la función transponer, pero no es exactamente eso lo que quiero. Tengo los valores ordenador como estan en la hoja "Datos iniciales", y los quiero poner como estan en la hoja "Pasar Datos". En el ejemplo hay 10 empleados, y 5 conceptos distintos ,pero normalmente ese proceso tiene 500 empleados con unos 15 conceptos. Si os preguntais como se hace ahora, pues, se hace uno a uno , la intencion que tengo, y he probado es pasar los datos mediante access (tabla vinculada), a una tabla oracle, que es donde lo necesito. pero lo que no consigo es dejar los datos como estan en la …

Buenas Tardes, Ante todo agradecer el tiempo y la ayuda que me puedan brindar con una carga de un Archivo TXT (delimitador "|") a una tabla creada en SQL Server. el problema es que cuando cargo el archivo me inserta todos nulos.. agradezco su tiempo. Saludos Cordiales, ImportarTXT_SQL.rar

Buenos días. Me gustaría saber si alguien saber cómo hacer en excell un contador de forma que al poner el número del dorsal de varias motos, vaya cronometrando y contando el número de vueltas que va dando. Gracias.

hola amigos espero se encuentren bien, miren tengo una duda con un codigo que tengo, lo que pasa es que tengo un combobox que al escribir el nombre me abre el userform2 el problema que tengo es que si tengo dos nombres iguales pero con apellidos diferentes cuando tecleo por ejemplo carlos me abre automaticamente el userform2, lo que quiero es que hasta que ponga el nombre completo con apellido me abra el userform2, pero no se que estoy haciendo mal. espero me puedan ayudar gracias :calm: Private Sub UserForm_Initialize() Dim celda Dim X For Each celda In Sheets("Clientes").Range("A2:A" & Sheets("Clientes").Range("A" & Rows.Count).End(xlUp).Row) …

Hola Buenas Tardes, tengo un indice como el siguiente ejemplo Num Empleado Socio Jefe Inmediato 1664942 Marco Antonio Jesus Cordova 1664943 Luis Alberto Andres Sanchez 1664944 Jesus Fernando Philips McDonlal 1664945 Rosa Gomez Guadalupe Sanchez 1664946 Francisco Javier Guadalupe Sanchez 1664947 Eduardo Cantu Guadalupe Sanchez Y me mandan una achivo de excel con los el nombres de los socios , pero con el nombre del jefe incorrecto , como le puedo hacer para que exel compruebe con el indice si el nombre del j…

Hola, He buscado soluciones y he seguido las recomendaciones del post abajo indicado para evitar que la macro se vuelva lenta y no logre nada Se trata de la hoja "LISTADO" que me tiene que devolver el listado del día cuya fecha lo pongo en la celda "K7". Pues tarda mas de lo esperado. Adjunto el documento. Gracias, Saludos. CONTROL DESAYUNOS - macro lenta.xlsm

Hola a todos, He buscado para ver si había algo como lo que busco y si lo hay no lo encuentro. Lo que necesito es lo siguiente si el valor de la celda A1 esta entre 1 y 2 que la celda A2 cambie a verde. Se puede hacer. Muchas gracias

Estimados Por favor su ayuda.. Estoy interactuando con internet explorer pero me surgio un problema ya que se me presnto el siguiente codigo en la pagina de internet. <select name="YEAR" class="selectfecha" onchange=" checkDate()"> <script language="javascript" type="text/javascript">for(var num=0; num<=(thisYear - 1999); num++){ document.writeln("<option>" + (thisYear-num)+"<\/option>"); }</script> <option> Text - 2012 Text - Empty Text Node <option> Text - 2011 Text - Empty Text Node <option> Text - 2010 Text - Empty Text Node <option> Text - 2009 Text - Empty Text Node <option> …

Buenas noches, Me gustaría saber como puedo hacer para modificar el rango del área de impresión de un documento en función de el numero de registros o datos que pueda tener el mismo. Vamos que no quiero que salgan las celdas vacías desde el último registro hasta el fin del área de impresión predefinida. Espero haberme explicado bien, de todas las maneras os mando el ejemplo adjunto. Un saludo y gracias. Libro1.rar

Buenas tardes grupo Recuro a usted a ver si alguno me puede ayudar con un problema que tengo. Tengo mi configuración regional en español (los campos numericos el searador de desimales esta con una coma "," ). el problema surge cuando quiero enviar datos al SQL que esta en ingles que el separador de desimales esta con un punto "." llevo semanas intentando con varias alternativas y ninguna me funciona todas dan error [microsoft][ODBC SQL Server Driver][SQL Server]error converting data type varchar to numeric Algunas de las alternativas que he probado son las siguientes. Sql = Sql & "'" & Format(ActiveCell.Offset(0, 8), "[en-US]…

Hola buenas, Necesito ayuda porfavor, tengo una fuente de datos (pestaña Prueba) donde el combobox están los datos del campo "Datos" y no me sale que al seleccionar un dato del combobox se desplieguen todos sus id y nombres correspondiente en una celda de excel. Ejemplo: si en el combobox selecciono Perú, en la misma celda de excel se debería desplegar todos sus datos. Favor si alguien me puede ayudar estaría muy agradecido. Adjunto link: https://drive.google.com/open?id=1Bbog2UwVWrCbfmAuDEoAeVdD5FgIRpIv Saludos

Buenos días: Trabajo en una Institución educativa que desea apropiarse mi trabajo realizado en vba. El archivo contiene varias hojas que se muestran según la contraseña que se ingrese, y a su vez, cada hoja tiene diferentes funcionalidades según su propósito. Consulté un tema similar abierto anteriormente donde se menciona un ofuscador para todo el código contenido en un archivo ( ), sin embargo, al aplicarlo me genera un error 1004 en tiempo de ejecución y al abrir el editor me indica error en la siguiente línea: Set Proyecto = ActiveWorkbook.VBProject. Finalmente el resultado es que no puedo aplicar el ofuscador. Me pueden orientar por favor qué es lo que suc…

Tengo el siguiente código: Private Sub CommandButton1_Click() Dim xCodigo As String, xApDcto As String Dim xFila As Integer, xDcto As Integer, xLargo As Integer Dim resp As Boolean On Error Resume Next xCodigo = frmConsulta.TextBox1.Value xLargo = Len(Trim(xCodigo)) If xLargo = 1 Then xCodigo = "000" & xCodigo: frmConsulta.TextBox1.Value = xCodigo If xLargo = 2 Then xCodigo = "00" & xCodigo: frmConsulta.TextBox1.Value = xCodigo If xLargo = 3 Then xCodigo = "0" & xCodigo: frmConsulta.TextBox1.Value = xCodigo Hoja1.Select Range("A2").Select resp = Cells.Find(What:=xCodigo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows…