Saludos amigos Tengo un formulario (Fmrfechas) el cual debe aparecer una vez que haga Login en el Formulario (frmlogin) introduciendo un Usuario (TxtUSUARIO) y Clave (TxtCLAVE) para lo cual tengo esta macro que me funciona muy bien hasta ahora: Private Sub CmdACEPTAR_Click() Call Module1.BotonAceptar Fmrfechas.Show End Sub Sin embargo, cuando los campos Usuario (TxtUSUARIO) y la Clave (TxtCLAVE) estan vacíos o introduzco datos erróneos al hacer click en el Botón Aceptar (CmdACEPTAR) igual me aparece el formulario. Pregunta 01: requiero me ayuden con los elementos que deberían agregársele a la macro para que sí y solo si cuando el Usuario (TxtUS…

Buenas noches a todos, Necesito ayuda, estoy haciendo un excel en VB para hacer presupuestos y me quedado encallado en lo siguiente... Estoy metiendo unos CODIGOS, DESCRIPCIONES, CANTIDADES, PRECIO COSTE, MARGEN, PRECIO DE VENTA, ETC.. en un ListBox. Cada cierto tiempo he de ir sumando (Con un Boton) en otra fila el total hasta ese punto (TOTAL PARTIDA), luego sigo añadiendo artículos y le vuelvo a dar en añadir PARTIDA, pero no consigo sumar desde la ultima fila que ponia TOTAL PARTIDA hasta la ultima que añadi. OS adjunto una imagen para que os hagais una idea y el código. Gracias Un saludo. Private Sub CommandButton7_Click() Dim i As Byte, tot As Currency For …

Hola amigos buenos días, Resulta que deseo usar el método FIND RANGE como alternativa para búsqueda, antes de usar un ciclo for, pues realmente pensaba se me hacia más fácil usar el método FIND . Adjunto un ejemplo, la intención de la macro es que me busque el numero de la celda D4 en la lista de números, y me indique con una mensaje en que fila esta, y la seleccione, pero resulta que al colocar el número 1 me ubica la fila de donde esta el 10 o el número 2 y ubica la fila donde esta el 12 así sucesivamente como que me hace falta algo en la sintaxis para que busque el dato exacto. https://docs.google.com/spreadsheets/d/12M2MlCV6zr5OkZEaMk0v-N6_iP7Wxhjv/edi…

Hola compañeros! soy nuevo en este de Excel y queria solicitarles su ayuda para realizar esta consulta.... Resulta que queremos llevar un control de usuarios de Call Center segun su nombre, tenemos un programa que se llama Avaya Contact Center Reporting, el cual nos exporta la data de los operadores a un libro excel, nosotros hariamos el traslado manual a operativa diaria call center pero queremos que exporte la informacion a el otro cuadro mediante un boton que diga traslado... Le adjunto el documento.. Podrian ayudarme? Salu2 Copia de macros.xls

¡Hola a todos! Llevo unas cuantas semanas descubriendo lo que excel puede ofrecer y ahora mismo estoy metido en el tema de los complementos. He buscado algunos ejemplos de aplicación en Internet pero son muy básicos, de una sola pestaña o sub-menú. Yo quisiera elaborar un menú que me permita entrar en distintos apartados. A continuación adjunto la imagen deun complemento para que os hagáis una idea. Este complemento dispone de varias pestañas y funciones y dentro de cada pestaña se puede acceder a otra, y de esta a otra, etc. [ATTACH]34882.vB[/ATTACH] ¿Alguien podría ayudarme? Gracias!

Hola , muy buen dia para todo .tengo una consulta que no se como resolver Private Sub BotValidar_Click() Dim usuario As String Dim Pass As Variant Dim HojaVisible As String Dim UsuarioExistente Dim DatoEncontrado Dim Rango As Range UsuarioExistente = application.WorksheetFunction.CountIf(Sheets("Auxiliar").Range("O:O"), Me.TxtUsuario.Value) Set Rango = Sheets("Auxiliar").Range("B:B") If Me.TxtUsuario.Value = "" Or Me.TxtPass.Value = 0 Then MsgBox " Por favor introduce usuario y contrasenia", vbExclamation Me.TxtUsuario.SetFocus 'se valida que el usuario exista en la tabla ElseIf UsuarioExistente = 0 …

Hola amigos: quisiera su ayuda con lo siguiente: tengo datos en la columna A pero no de forma consecutiva sino con algunas celdas vacias algo Asi: COLUMNA A Peras Manzanas Duraznos Higos Lo que quiero hacer es reacomodar las celdas para que no queden espacios vacios pero no con eliminar las filas vacias sino acomodando en las celdas vacias las siguientes llenas para que queden celdas llenas corridas sin celdas vacias, en el archivo tengo este código que me encontré en internet y funciona exepto que me elimina la primera fila si esta, está llena y lo que quiero es que queden todas las celdas que contienen información, asi mismo que reacomode también las columas …

Necesito una macro que busque un producto (hoja productos) en el ejemplo estan los productos del 1 al 100 los productos 1 y 2 han cambiado de estado. Lo que requiero es que la macro me permita elegir un producto y preguntar si desea cambiarlo de estado (los estados estan en la hoja de estados) a otro de mayor nivel. Que al preguntar lo hago por un option button y que me traiga los mismos datos del producto solo que le cambie el estado, gracias

SOY NUEVO EN ESTE GRUPO, POR FAVOR ALGUIEN ME PODRIA AYUDAR CON LOS CODIGOS; NO PUEDO GUARDAR EN UN FORMULARIO DATOS DE UN TEXTBOX Y LA VEZ DATOS DEL LISTBOX A LA BASE DE DATOS ACCESS DESDE UN FORMULARIO MACRO EXCEL ESTE CODIGO ESTOY UTILIZANDO: ME GRABA ESTOS DATOS, LO QUE NO SE QUE CODIGOS INGRESAR PARA GUARDAR LOS DATOS DE UN LISTBOX TAMBIEN. ALGUIEN ME PUEDA AYUDAR POR FAVOR Sub GrabarReg1() Dim conn As ADODB.Connection Dim MiConexion Dim Rs As ADODB.Recordset Dim MiBase As String If frmFORMULARIO.ComboBox5 = "" Then MsgBox "Campo Vacio, Ingrese una ORDEN", vbExclamation, "Mensaje" 'frmFORMULARIO.ComboBox5.BackColor = &HFF& …

Hola compañeros, quisiera que me ayuden con una macro que permita "guardar como" utilizando como nombre del archivo el contenido de una celda y que me permita escoger en que carpeta la quiero guardar. Agradezco su colaboración.

Hola Buenos días Quisiera por favor que me colaboraran con un inconveniente, estoy programando en vba excel y necesito hacer el siguiente ejercicio: tengo la siguiente tabla [TABLE=class: grid, width: 500] [TR] [TD][/TD] [TD]A[/TD] [TD]B[/TD] [/TR] [TR] [TD]FILA 1[/TD] [TD]CASA[/TD] [TD][/TD] [/TR] [TR] [TD]FILA 2[/TD] [TD]PERRO[/TD] [TD][/TD] [/TR] [TR] [TD]FILA 3[/TD] [TD]ARBOL[/TD] [TD][/TD] [/TR] [/TABLE] lo que necesito hacer es lo siguiente: si yo busco la palabra casa me deje colocar un dato en la celda contigua eso seria en la cells(1,2)(fila1, columna , si yo busco la palabra perro me deje colocar el dato en la celda contigua a la palabra…

Buenos dias a todos, primero que todo quiero agradecer a todos por su ayuda que me puedan brindar, y segundos pues necesito una macro la cual yo tengo una un listado en la pagina 1, donde tengo un listado tal como podrán ver en el documento que adjunto, lo que necesito es una macro la cual del listado que hay donde aparece nombres y luego debajo aparecen varios datos por cada fila, pues que en la Hoja2 se peguen los datos de cada nombre que aparece en vez de un listado en conjunto, que sera un listado por cada nombre que aparece, generando así columnas nuevas. Una cosa mas, se tienen varios nombres y los datos que tiene cada nombre puede variar y en algunos pueden s…

Estimados, buen día. Trabajo con libros muy pesados (con muchos registros, muchas formulas tipo "sumar.si.conjunto", tablas dinámicas, gráficos y con formatos condicionales en tablas, etc.) y el simple guardado preventivo normal demora bastante tiempo, cerca del minuto y junto con el auto guardado son muy molestos. Y eso que el libro está en modo de cálculo manual y la pc lleva unos 16G y y un Ryzen 5. Se podrá con un código VBA sencillo guardar, pero sin que el libro se calcule previo al guardado? Muchas gracias!!

Hola amigos/as. Vengo a titulo de solicitar información o alguna solucion mejor que la mia para lo sigueinte: Linea a linea via AyudaExcel fui construyendo este codigo; Sub EsconderMenu() On Error Resume Next Application.ScreenUpdating = False ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)") ActiveWindow.DisplayWorkbookTabs = False Application.DisplayFormulaBar = False ' Barra de fórmulas ActiveWindow.DisplayHeadings = False ' Nombre de Filas y Columnas For Each barras In Application.CommandBars: barras.Enabled = False: Next Application.ScreenUpdating = True End Sub[/CODE] No hace falta describirlo pues se que los expertos saben de que se trata. Para lo in…

Estimados, buenos días Me comunico con ustedes ya que estoy con un problema de programación. Tengo idea de como sería la estructura pero no de como es el código ya que yo programaba en pascal / delphi. La planilla es para evaluar ofertas de equipos médicos con una puntuación que está en la hoja 2 llamada listas. Eso lo solucioné y anda bien, hace la suma y todo eso. Lo que pretendo ahora es poder borrar los ítems que los oferentes no presentan. Si bajan la planilla, en la hoja 1 llamada Evaluación por ítems vemos que hay columnas que agrupan a las empresas y filas que agrupan los equipos ofrecidos. La idea sería que el programa busque dentro de las columnas de con dato…

Saludos a todos Tengo una macro en la cual se inicia con la pestaña "formulario", esta macro permite el ingreso y salida de materiales. [ATTACH]31030.vB[/ATTACH] Requiero el apoyo en lo siguiente; no e podido idear la formula para realizar los reportes por mes (entradas y salidas) asi como por Ce. costo ( cada salida de material se deriva a un centro de costo) [ATTACH]31031.vB[/ATTACH] Gracias de antemano pro su apoyo. Saludos....... Macro_Excel_Stocks.zip

al ejecuar la siguiente macro, quiero que la hoja1 del libro DATOS, se agregue en el libro ORIGEN, pero no lo hace Sub copiar_Datos() ORIGEN = Application.GetOpenFilename(Title:="Selecciona el archivo ORIGEN", filefilter:="Excel files (*.xls*), *.xls*") DATOS = Application.GetOpenFilename(Title:="Selecciona el archivo DATOS", filefilter:="Excel files (*.xls*), *.xls*") Workbooks.Open DATOS Workbooks.Open ORIGEN info = Excel.ActiveWorkbook.Name Workbooks(info).Worksheets(1).Copy After:=Workbooks(DATOS).Sheets(1) Windows(info).Activate ActiveWindow.Close End Sub alguien que me pueda ayudar para corregir lo que no que …

Buenas tardes necesito de su apoyo con la siguiente situacion. Necesito una macro que me reconosca el mes actual para asi poder filtrar la columna "a" que esta en formato "20131001 añomesdia" a meses ateriores y elimiar los datos que esten en la columna "b", despues poderla filtrar a meses futuros y elimiar los datos que esten en la columna "c", tengo que hacer un reporte todos los dias y no quiero tener que establecer el mes manualmente en la macro. Les adjunto un ejemplo. Se los agradesco mucho de antemano. Saludos. EJEMPLO (2).zip

Lo primero, muy buenas a todos ya que este es mi primer post aunque llevo bastante tiempo leyendo todo tipo de post que me ayudan a que cada vez me guste mas este mundillo. Siempre me las he apañado para hacerme mi excel (macros,formulas,etc..) leyendo distintos post pero lo que quiero ahora ya es muy complicado para mi, espero que no lo sea para ustedes. La cosa es que para el trabajo esta intentado hacer una macro para ayudar a un compañero en su trabajo. La macro lo que haria, seria sumar letras (D,P,I...) que estaran en tablas de las mismas caracteristicas pero en distintos archivos pero todo dentro de una misma carpeta, de tal modo que al ejecutar la macro se sume…

Hola amigos. Por favor me pueden ayudar con una macro que quiero hacer. Quiero traer los valores de la hoja anexo, cuando ponga el valor buscado (RUC) que esta en la hoja anexo2. Espero puedan ayudarme. Gracias!! buscar_datos.xlsx

Hola a todos, soy nuevo en el foro. He hecho uso de un par de códigos que me sirvieron de lujo en el proyecto de base de datos que estoy armando como la de "Registro de usuarios de red" y el de "Ocultar la aplicación Excel al abrir un archivo visualizándose un formulario de inicio". Ahora yo quería saber como modificar el código de registro para que el formulario de inicio sea el de registrar Usuarios del archivo con claves. Los datos de "usuarios"1, "claves"2 y un par de datos más están en una tabla pero el tema es que primero debo de crear un código para el botón de inicio que valide con los datos de las columnas citadas como 1 y 2 y me cree un textbox con el mensaje de…

Tengo un archivo que no puedo subir pk contiene muchisimos datos y no procede pero os paso lo que pueda de capturas para que en el TextBox aparezca la fecha de hoy al darle userform.show

Quiero copiar un rango de una hoja y pegarlo en otra, todo va bien hasta la instruccion paste, que da "error en el método paste de la clase Woksheet". Alguien me puede ayudar? Gracias. Sub CargaCCH2() Dim dia1 As Date Dim dia2 As Date dia1 = #1/2/2013# dia2 = #1/3/2013# Worksheets("CHT").Select uf = Range("a1000000").End(xlUp).Row Set busco = ActiveSheet.Range("a1", "a" & uf).Find(dia1) fi = busco.Row Set busco = ActiveSheet.Range("a1", "a" & uf).Find(dia2) ff = busco.Row ff = ff + 23 Range("a" & fi, "d" & ff).Copy Worksheets("CH").Activate uf2 = Range("a1000000").End(xlUp).Row Range("a1", "d" & uf2).ClearContents Cells(1, 1).Select …

Buen día, Me pueden ayudar por favor con la siguiente inquietud. Tengo una macro que me unifica varios libros csv en uno solo, el csv original esta separado por este carácter (¤), pero en alguno de los campos están separados por comas ejemplo (0,00), entonces al momento de ejecutar la macro, me lo separa en otras columnas y requiero que todo quede en una sola columna. Quedo atento a su ayuda, anexo la macro y el resultado de la macro. Gracias BASE DE DATOS UNICA.zip

Hola buenas noches, He estado buscando por internet pero no encuentro exactamente lo que quiero conseguir, a ver si me puede ayudar alguien. En el ListBox de Palau (Pagina1), tengo unos filtros relacionados entre si, lo que necesito es, si por ejemplo filtro por "departamento" y luego por "estado" , en el resultado de mi filtro pueda modificar la columna de "Recibe" de todos los registros a la vez. La idea es que cuando filtro, los registros que están como pendientes pueda pasarlos a entregados a una persona en concreto sin tener que hacer uno por uno. Espero haberme explicado bien Saludos! ExcelPaqueteria.xlsm