Hola, tengo esta macro y poquisimo conocimientos del tema. La macro deberia eliminar la hoja cuyo nombre se escriba en el InputBox nombre hoja, pero se detiene cuando deberia tomar el nombre de la hoja. Sub EliminaCuenta() Application.ScreenUpdating = True Dim NombreHoja As String Dim Entrada As String Dim cuenta As Worksheet Entrada = InputBox("Ingrese contraseña para continuar", "Proceso Protegido") If Entrada = "nacho" Then If MsgBox("Estas seguro de borrar una cuenta? No podrá recuperarse", vbQuestion + vbYesNo) = vbYes Then NombreHoja = InputBox("Escriba un nombre de la cuenta:") NombreHoja = cuenta<--Esta parte es donde se detiene la m…

Hola, dentro de mi formulario tengo un Multipage1. Como puedo saber cual es la página que se encuentra activa? (Page1, Page2 o Page3) Gracias por su apoyo. Saludos

muy buenas a todos. estoy necesitando un macro, para crear hojas segun una base de datos filtrada es decir, si yo filtro por una familia, hacer click en un boton y que este me genere una nueva hoja con estos datos filtrados. esto se podra hacer? seria algo muy util para mi aqui subo la tabla que uso como base, tengan en cuenta que tengo 6124 registros y que tuve que cortarlos para poderlos subir desde ya muchas gracias! base.rar

Hola comunidad estoy buscando ayuda para un predicamento , estoy tratando de automatizar un proceso que realizo a diario y lo que quiero es que la macro filtre la base y si en la base no hay criterio,debe validar otro criterio de la base en otra columna y asi sucesivamente. Pongo el codigo de lo que encontre para saber si esto me sirve ya que no entiendo muy bien como funciona Sub Filtrar() Se define el criterio para filtrar. Pero si este no existe criterio que pasa criterio = [B1] Entiendo que aca se hace un si que si el criterio es vacio pues creo que solo filtra, o sea que en este paso podria colocar el segundo validador? If criterio = “” …

Buen día compañeros, espero que estén bien. Quiero molestarlos, ya que no logro encontrar solución a lo que necesito. Lo que no logro encontrar es cómo crear una lista validada en Excel, pero que tenga datos consecutivos, es decir, colocar en la lista los números del 1 al 1000 (por ejemplo), pero sin necesidad de estar escribiendo los números dentro de la lista. Sé que muchos dirán que con hacer una lista en una hoja vacía del 1 al 1000 se logra el cometido, pero no es lo que necesito, ya que no quiero llenar el archivo de hojas inútiles y que en algún futuro pueda ser manipulado. Entendería que no es necesario un archivo, puesto que no solicito macro o sim…

hola amigos nuevamente solicitando de su apoyo, buscando por todo el foro encontre un macro que necesito que es el de buscar y modificar, el macro corre perfectamente bien, busca y modifica la informacion que necesites, lo eh adaptado a mis necesidades y actualmente funciona la informacion se busca por la columna P (pedido) P-945229 el problema que se me presenta son estos: tengo que pasar toda la informacion que esta en excel a la fila 8 (actuamente esta en la fila 1) justo cuando pasas toda la informacion a la fila 8 la informacion ya no sale completa en el listbox y ya no lo busca ni lo carga en los textbox y por otro lado yo manejo casi 10 mil registr…

Quiero importar los datos de mis turnos de la intranet de mi trabajoa una hoja de excel pero cuando pongo el enlace para importarlo se trata de un link en el que hay que introducir primero unas claves de acceso y depues elegir de una pantalla la opción que me lleva al calendario que deseo exportar. Cuando lo he intentado de forma normal me exporta una serie de datos erroneos y sin sentido. Por si sirve de algo el primer enlace es http://intranet.globaliacc.com/ - TRas introducir las claves se accede al enlace http://intranet.globaliacc.com/globaliacc/jsp/intranet/index.jsp -Despues he de elegir la opcion aplicaciones y despues calendario de grupo - Es entonces cuand…

Hoja amigos, les traigo a ustedes este error que me marca una macro, cabe decir que algunas macros las encontré en este foro y las adapte a mis necesidades. Les platico. la siguiente macro la tengo en un botón, el cual al dar clic llama a un userform Private Sub CommandButton6_Click() EliminarFilas2.Show End Sub en ese userform hay que poner una contraseña para poder eliminar Private Sub CommandButton1_Click() Dim resp As Integer resp = 3313 If TextBox1 = 3313 Then Unload Me 'Tu procedimiento aquí Call Busqueda_Resguardo.eliminarProducto Else MsgBox ("La clave ingresada es incorrecta"), vbInformation, "AVISO" TextBox1 =…

Hola estoy intentando conectar Excel a SQLITE pero no hay manera. Mi sistema: Excel 365 y Windows 10- 64 bits Lo que tengo es lo siguiente: With cnn .Provider = "msoledbsql" .ConnectionString = "DRIVER=" & Driver & ";DataBase=" & Ruta & Fichero '& ";": c_error = True .Open End With Está instalado el driver "SQLite3 ODBC Driver" y la referencia Microsoft ActiveX Data Objects 6.0 Library. Pero me da el error "invalid connection string attribute" ¿Alguien me puede echar una mano con esto? Muchas gracias por anticipado.

extraer siglas o iniciales de un nombre completo exeptuando "del" o "de" hola buenas noches aqui molestando con otra duda pues quiero hacer que en un textbox aparezcan las iniciales que contenga otro textbox: es decir; ejemplo: que si el -txtnombrecompleto- contiene "juan perez velazquez" quiero que en el -txtsiglasnombrecompleto- aparescan "jpv", pero si el -txtnombrecompleto- contiene "maria de los angeles montenegro barraza" que en el -txtsiglasnombrecompleto- "mamb" y elimine ese "de" o si fuera el caso de "maria del pilar" quite ese "del". Estuve investigando en la red del como hacerlo pero ninguno tiene esas excepciones que necesito y pues hasta ahorita no se c…

En el archivo que adjunto hay un modulo llamado modulo 1 en el que quisiera ejecutar todas las macros de los otros módulos que estan en el mismo libro pero no sé solucionar el error que me dá. Alguien puede ayudarme? Muchas gracias al foro y a los colaboradores Borja aleman 2013-14.zip

Buen día, tengo el siguiente problema: Necesito insertar un comentario en una celda de un registro de datos que se va completando a través de un Userform. Uso el siguiente código (En rojo, las líneas que insertan el comentario en la celda): Set TransRowRng = ThisWorkbook.Worksheets("RESUMEN GENERAL").Cells(1, 1).CurrentRegion NewRow = TransRowRng.Rows.Count + 1 With ThisWorkbook.Worksheets("RESUMEN GENERAL") .Cells(NewRow, 1) = CDate(txtFechaUno) .Cells(NewRow, 2) = UCase(TextBox1.Value) .Cells(NewRow, 3) = Format(TextBox3, "00"".""000"".""000""-""0") …

Buenos dias colaboradores, me gustaria que me orientaran para poder ejecutar esta macro, sin la necesidad de crear un nuevo libro y que ejecute un modulo despues de abrir el libro: Sub Crea()Dim nombre, libro, nombre_final, libro_final As String Set XL = CreateObject("Excel.Application") XL.Visible = True para = 0 a = 0 'Creamos el libro resultante nombre_final = Cells(3, 3) & "." & Cells(2, 3) libro_final = Cells(1, 3) & "\" & nombre_final While (para = 0) nombre = Cells(5 + a, 1) libro = Cells(1, 3) & "\" & nombre If nombre <> "" Then XL.Workbooks.Open libro If a = 0 Then XL.ActiveWorkbook.SaveAs libro_final,…

Buenos días, He creado una ficha en la que resumo los datos anuales de la actividad que tiene un cliente. Éstos datos los importo de la primera hoja del libro. Pero ésta primera hoja siempre tiene un numero diferente de filas, (los datos de ésta hoja 1 los pego desde otro libro en excel que recibo de otra fuente distinta). Necesito una macro o una formula que me permita crear una fila en mi ficha (hoja 2) después de la última fila activa de la hoja 1 y luego en ésta ultima fila creada pondré tres formulas distintas. Una para que me cuente el número de filas que tiene el archivo y otras dos para que me calculen el promedio de los datos que hay en dos determinadas columna…

Buenos días a la comunidad, Soy principiante en el tema de formularios y me gustaría saber si alguien me puede ayudar con algún modelo de excel que tenga con un formulario para introducir datos y generar una base de datos. Lo que tengo que crear es una base de datos con Ordenes de fabricación. Gracias de antemano por vuestra colaboración.

Espero se encuentren bien, estoy empezando en el mundo de Excel, en mi nuevo trabajo utilizamos AS400 para eliminar unos materiales, me gustaría crear una macro para realizar esta tarea, pero no se como se conecta Excel con AS400, alguien tiene algún vídeo o los pasos para realizarlo. Muchas gracias.

Buenas tardes, mi consulta es por un problema que tengo con un listbox que uso para mostrar resultados de búsqueda filtrados mediante un textbox, el tema es que cuando no hago búsqueda con el textbox, se muestran todos los datos de las columnas que quiero con su formato correspondiente, pero al realizar una búsqueda, filtra muy bien pero la columna de los precios no se ve con formato de moneda (como si está en la tabla original y en el listbox antes de filtrar) Les dejo el procedimiento (que lo fui adaptando de otros trabajos publicados y también con su ayuda, ya que no tengo conocimiento en el tema) Desde ya muchas gracias Private Sub TEXTO_Change…

Buenas tardes ¿Cómo se puede evitar el parpadeo de pantalla en cada pulsación dentro de un TextBox? Se trata de filtros (AutoFilter) que aprendí en YouTube. Se trata de una tabla (la mía) con 21 campos y más de 20.700 registros. Private Sub Txt_Obra_Change() Dim obra As String obra = "*" & Sheets("Proveed_Detalle").Txt_Obra.Value & "*" Range("A4").AutoFilter field:=18, Criteria1:=obra End Sub Private Sub Txt_Proveedor_Change() Dim proveed As String proveed = "*" & Sheets("Proveed_Detalle").Txt_Proveedor.Value & "*" Range("A4").AutoFilter field:=17, Criteria1:=proveed End Su…

Hola chavales! Os comento mi GRAN problema y que me trae loco. Estoy trabajando con un libro de excel que tiene 'Código de Barras' y claramente hay código de barras que empiezan por 0. La cosa es que tengo un historial de bastantes código de barras y necesito contar cada EAN cuanta veces está repetido. Teniendo en cuenta que en la columna 'A' están todos los códigos de barras pues en la columna 'B' utilizo el famoso 'contar.si' Hasta aquí todo bien pero el problema es que los EAN que tiene 0 al principio no lo tiene en cuenta haciendo que me cuente dos codigo de barras totalmente distinto como si fuera el mismo. Adjunto foto para que me entendáis y también …

Estimadas/os, Junto con saludar, estoy recien empezando en este mundo del VB, y estuve trabajando en una macro que en función de una lista, empleo BUSCARV según vendedor y enviar al correo de forma separada con copia a jefaturas correspondiente. La macro sería la siguiente: Sub Enviar_Rango_a_Destinatario_de_correo() ActiveSheet.Range("AG2:AX14").Select For i = 1 To 13 ThisWorkbook.Sheets("RESUMEN").Range("X1").Value = i ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = ThisWorkbook.Sheets("Resumen").Range("X4").Value .Item.cc = ThisWorkbook.…

Buenos dias compañeros seria posible que me ayuden con el siguiente tema, quiero hacer una macro que me compare los dos últimos datos de una columna dinámica de tal manera que si el ultimo es mayor tome el promedio de los dos dos datos y si es menor tome ese valor. Además después se compare con el ultimo dato de una columna de otro libro de tal manera que se tome el menor de estos dos. Agradezco en lo que me puedan orientar, estaré atento a sus comentarios.

Hola chicos! hace poco publique un post sobre mi problema para leer los datos de una bascula TORREY, bueno, eso ya solucionado, en parte. Resulta que cuando leo los datos tengo que declarar mi variable "Peso" como String, si la declaro como double o byte me marca error, y necesito tomar solo el numero (ej. 0.406 kg solo necesito leer 0.406) para poder sacar el porcentaje en base a otros kilos ingresado anteriormente en una pagina llamada Estimaciones. Espero me puedan orientar o ayudar con esto Adjunto el archio =) Muchas Gracias! =) DatosBasculaxlsx.rar

Hola, De que forma puedo eliminar las filas de las celdas que tienen un texto? Me explico, estoy usando este codigo SuB test() [H:H].Selection.SpecialCells(xlCellTypeConstants, xlTextValues).Select Selection.EntireRow.Delete End Sub Y me da error, he buscado y me parece que no se puede usar así, creo entender que no se pueden combinar estas dos cosas (xlCellTypeConstants, xlTextValues) La pregunta es. Como puedo seleccionar/eliminar las filas que tienen constantes texto. Gabriel.

muy buenas tardes alguien me podría ayudar con mi formulario por favor, tengo un formulario que contiene un listbox en el cual me muestra todos los datos de una tabla, también tiene 4 combobox con los cuale quisiera hacer filtros con cada uno, pero buscando he buscado en Internet filtros con conbobox y solo he hallado 1 que me pareció que funcionaria, pero no lo hizo, el combobox que filtra fechas solo me deja el listbox vacio los combobox filtran fecha, sección , detectado y el ultimo por hora, pero ese ultimo no lo necesito por el momento solo los otros 3 que mencione primero espero que que me puedan ayudar y gracias de ante mano PRUEBA3.0.xlsm

Estoy realizando una serie de tablas para el control de costos de una construcción y quisiera hacerlo con un macro pero no tengo mucha practica en esto. Les resumo lo que pretendo hacer: En un archivo de excel genero las solicitudes internas de compra (SIC) y se las envío al proveedor el cual las cotiza y me la devuelve con los costos. Cada SIC nueva se guarda como una nueva hoja en el mismo libro (SIC "Nombre del proyecto") y a su vez se guarda individualmente para enviársela al proveedor (SIC "Nombre del proyecto" #), donde # es el consecutivo de SIC. En otro archivo (Control de costos "Nombre del proyecto") tengo un cuadro con las actividades codificadas, en la cual…