Hola pido de su ayuda ya que me estoy atorando con la separación de miles y decimales en una macro. estoy haciendo un programa para administrar una carnicería, el cual el ejemplo que traigo para que me ayuden es el siguiente. "quiero aclarar que no tengo conocimientos exagerados en programación de VBA, y siempre combinó formulación de Excel y Macros." mi petición de ayuda es la siguiente: tengo un listado de productos y un formulario para poder actualizar los precios de los producto. cuando ingreso algún dato numérico con algún punto decimal y doy click en el botón calcular me devuelve datos asi: dato correcto: $38.20 y el dato…

Hola, Estoy intentando aprender macros sencillas, pero me enganche en el Vlookup, no consigo hacer uno sencillo que me añada el nombre de un codigo que esta en otra pestaña. Que me falta o me sobra!?!? Basicamente quiero que me añada en la columna H el nombre del Codigo. Sub Vlookup() Dim Destination Dim Name Dim Cont Cont = 2 Do While Range("A" & Cont) <> "" Range("K" & Cont).Select Application.WorksheetFunction.Vlookup Range("H" & Cont), Worksheets("Sheet2").Columns("A:B"), 2, 0 Cont = Cont + 1 Loop End Sub Vlookup.xlsm

Buenos días foro, Quisiera ayuda respecto al tema de filtros con macros y formularios. Tengo una planilla de sueldos en la "Hoja1", en donde al clicar en la macro "FiltroExamen" abre un formulario donde te pide seleccionar el área y el sueldo. Al ingresar los datos, aparece un msgbox señalando la cantidad de empleados que se filtraron y te manda a la "Hoja2", donde ya arroja los datos que se han filtrado. Mi pregunta ayuda es la siguiente: 1. He elaborado el formulario y filtro, pero no puedo unir al formulario de sueldo, para que en la "hoja2", sólo filtren a los empleados que ganen sueldos mayores a lo que ingreso en la casilla de sueldos (del formulario). 2. En l…

Hola amigos de Ayuda Excel. Buenos dias, tengo una tabla y deseo proteger la hoja, He investigado pero las tabla no funcionan en hojas protegidas, sin embargo, he encontrado varios articulos que las tablas pueden funcionar con hojas protegidas a través de macros. Incluso conseguí un código pero particularmente no me funciona. Me podrán ayudar a ver por qué no funciona Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Row = 1 Then Exit Sub If Target.Column > 8 Then Exit Sub On Error Resume Next With ActiveSheet ActiveSheet.Unprotect Password:="123" .ListObjects("Tabla11").Resize Target.Curren…

Buenos dias, necesito por favor si alguien me puede dar una solucion para el siguiente problema, he creado un macro para insertar unos materiales de un listado en una hoja, los materiales estan en otra aparte y los ingreso mediante un useform que tiene un textbox, un listbox y una command button, cuando escribo algo en el textbox el me filtra el listado de materiales y me da las opciones en el listbox, y al seleccionar el que necesito del listbox solo le doy doble click o clickeo el command button y el material se inserta en la celda que este activa en ese momento, en cualquiera. el codigo es este: -------------------------------- Private Sub CommandButton7_Click() …

Buenas Tardes a todos, necesitaría su ayuda para crear una macro la cual, primero elimine de la celda de email todos los email escritos como no@.com y no.com, luego que de la celda ID, mire cuales empiezan por una letra y si es así que en la celda empresa ponga si en caso contrario ponga NO, y si una vez eliminados todos los email de la primera parte pues si existe alguna dato en email que aparezca Si en tiene email. Ademas necesitaría que se eliminaran todos las filas que no tengan email, quedado solo aquellas que si tienen email. excel.xlsx

buenos días Reciban cordial saludo a todos los del foro. Acudo a ustedes en una ayuda en sus conocimientos, pues eh estado intentando hacer una macro con lo que les voy a consultar, pero no eh podido. seria hacer un formulario donde saldría la fecha de forma automática, el código se digitaría de forma manual, la carga seria también se digitada de forma manual, el nombre y el apellido se traería de una base por el código, la hora inicial seria con un botón que registrara la hora actual y que cuando terminara la labor esa persona buscara la carga y le diera la hora final. quedo atento a su ayuda Gracias saludos Victor2012 registro de hora inicial y final.zip

Buenos días. Me gustaría saber cómo puedo hacer para que una macro que tengo se ejecute todos los días a las 06:00, 14:00 y 22:00. Siempre va a estar abierto. Muchas gracias.

Buenas, Estoy realizando una Macro en Excel con Visual Basic (SO Windows 7), y necesito obtener datos de un archivo .ods. Mi problema es que la macro me devuelve un error cuando intento abrir el archivo con el comando Workbooks.Open (ruta + nombre), pero si abro el archivo ods, le doy a guardar como, y lo sobreescribo, la macro ya lo abre sin problemas. Lo que necesito es lo siguiente: automatizar de cualquier forma ese proceso de abrir y sobreescribir el documento .ods. Lo ideal sería realizarlo desde la macro, pero si es necesario llamar a un .bat o ejecutar líneas de comando en la consola no hay problema, lo que necesito es automatizarlo. P.D: Evidentemente …

Buenas tardes a todos. En esta macro: Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8 Public Const MOUSEEVENTF_RIGHTUP As Long = &H10 Sub ABRIR_IE() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://www.paginaweb.html" While IE.Busy DoEvents Wend IE.Visible = True DoEvents …

Hola a tod@s Adjunto he añadido una carpeta que se llama Recibidos, dentro hay 2 carpetas A y B, ambas estan vacias. Estoy buscando la forma de crear de forma automatica un listado de las carpetas que se puedan crear en Recibidos, como es el caso de A, B, C,... etc. con el contenido que puedan tener. Quisiera a parte que al pinchar en B, por ejemplo, pudiera abrirse la carpeta en si para ver su contenido. La idea es que cada vez que el cliente nos envia documentos se pudieran guardar en recibidos con el nombre de la fecha de entrega (En este Caso pongo como ejemplo A o B o C o D, etc) y vieramos desde excel de forma automatica todas las carpetas que se…

Buenas noches Foristas, mi nombre es Juan Carlos Jones y deseo que por favor me ayuden con esta plantilla. Lo que deseo hacer es que cuando le coloqu el mes de la aplicacion o uso de un producto este se el mes en el que se le coloque valor economico en el mes o los meses que correspondan. En la cedal C26 coloco la repeticion o cada cuanto se usa o plica el producto y deseo que el valor se coloque solo en el mes de su aplicacion. Ejemplo: Control de malezas se aplica cada 2 meses, esto quiere decir que cada dos meses debe aparecer el valor de esa aplicacion, mes 2, 4, 6 y 8 No he podido resolverlo. Muchas gracias por su ayuda. Anexo…

Hola a toda la comunidad, tengo dos dudas que espero me puedan ayudar por favor, a partir un formulario de Compras, en el que me ayudo mucho el compañero de foro @Macro Antonio resolviendo mis antiguas dudas, y por lo que surgió un problema de códigos para terminar de desarrollar este formulario de Compras. (Adjunto el Archivo en la parte Inferior) El primer problema es cuando agrego los productos al ListBox de mi formulario Compras, y requiero eliminar un producto, lo selecciono y realizo doble click, hasta ese momento todo va bien, pero en caso yo en excel tenga activa otra hoja por ejemplo Productos y no la Hoja Imagen Rowsource del ListBox1 que tiene las filas …

Gracias de antemano x su ayuda: Quiero una macro q me concatene filas fila = celdas: a2,b2,c2...m2 quiero q me concatene la fila con separación de "|" y si al momento de concatenar la fila encuentra una celda vacía q lo concatene como "0" y el resultado lo ponga en la celda p2 y luego pase a la siguiente fila = a3,b3,c3...m3 y concatene y el resultado en p3 y asi sucesivamente concatenar todas las filas asta encontrar celda vacía en la columna A y allí termina la macro, la cantidad de filas es variable pero siempre en la columna a1 asta aX (X valor cualquiera) siempre hay datos, no quiero usar formulas por que antes de concatenar elimino varias filas no deseadas. doy g…

Lo que quisiera lograr es que al ubicarme en el # de vehículo los datos del gráfico se actualizaran para dicho número de vehículos de acuerdo a los datos suministrados a la vez que el grafico se mantenga en la posición actual para el caso en que sean muchos datos y al desplazarse hacia los datos de abajo el grafico se mantenga siempre visible. Espero halla forma de hacerlo o incluso una mejor forma de ordenar los datos para poder hacerlo con más facilidad. Gracias por la ayuda. Nota: cómo le cambio el nombre al tema. Gráfico dinámico carreras.rar

Queridos colegas tengan buen día. Ahora me encuentro con una dificultad la cual es que no logro mostrar los encabezados de los datos que voy añadiendo al ComboBox. Cambie Mencionar que el combobox de arriba en el evento change realice la instruccion sobre el combobox de abajo. codigo: With ComboBox10 .AddItem BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 1) = BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 2) = BD.Range("D" & x_Busco) .List(ComboBox10.ListCount - 1, 3) = BD.Range("C" & x_Busco) .List(ComboBox10.ListCount - 1, 4) = BD.Range("B" & x_Busco) .List(Co…

Hola amigos!!! Solicito su ayuda para realizar el siguiente trabajo: 1- Necesito concatenar desde hoja "OC" hacia hoja "Oferta_de_Compra": B2 "-" E1 B2 "-" F1 B2 "-" G1 B2 "-" ....hasta V1 Posteriormente concatenar, B43 "-" E42 B43 "-" F42 B43 "-" G42 B43 "-" ....hasta V42 Y así consecutivamente hasta finalizar el ciclo de 41 filas, esto pegar transpuesto y se forma consecutiva en la columna "C" desde la fila 3 de la hoja "Oferta_de_Compra". 2. Posterior al ciclo de concatenación, ordenar de mayor a menor la columa "K" desde la tercera fila. 3. En la columna "M" desde la fila 3, colocar la palabra "IVA", según corresponda de acuerdo al llenado de las otras …

Espero que me ayude con un problemita que me surgio mientras estaba realizando mi macro. Yo tengo mi macro en un archivo sin datos, cuando ejecuto mi macro tengo abierto otro archivo donde se le hacen varias cosas con la macro en determinado momento se pide abrir un archivo es donde se abre el cuadro de dialogo para seleccionar el archivo, hasta ahi todo bien, me abre el archivo, pero al momento que quiero interacturar entre los achivos con las formulas me muestra el cuadro abrir archivo (2 veces por cda formula). Si selecciono el archivo del que quiero los datos todas las veces que aparece me jala los datos bien, pero el punto es que si ya tengo el archivo (y su nombre e…

Hola amigos expertos tengo un form que contiene varios textbox y combobox quiero que se cargen los datos de estos en la hoja de excel de acuerdo a un checkbox como veran son 23 puntos de muestreo y deben cargarse solo los que se les active. El problema que tengo es que la carga es incompleta no se cargan los que elijo y hay que tomar en cuenta que los datos: Fecha muestreo, Temp/Humd, Producto, Lote y Hora son obligatorios pero los demas datos (Punto de muestreo) son opcionales tomando en cuenta si se muestrea o no se los llenará y al guardar los datos los casilleros de los 23 puntos tendrán que quedar en cero "0" porque a veces hay puntos que que dan como resultado cero.…

Necesito consolidar 128 archivos al mes en una sola hoja de excel, me conseguí una macro, en donde me copia toda la tabla que necesito, que es la siguiente: -->Sub ponernombre() 'Por.DAM Set l1 = ThisWorkbook Set h1 = l1.Sheets("concentrado") h1.Cells.Clear Application.ScreenUpdating = False Set nav = CreateObject("shell.application") carp = nav.browseforfolder(0, "SELECCIONA CARPETA", 0, "C:\trabajo").items.Item.Path If carp = "" Then Exit Sub carp = carp & "\" ChDir carp archi = Dir("*.xls*") Do While archi <> "" Workbooks.Open archi uf = ActiveCell.SpecialCells(xlLastCell).Row uc = ActiveCell.…

Muy buen día, tarde, noche. Vengo a molestarlos con una inquietud que tengo. Cómo puedo hacer para llenar un rango específico del 1 al 100 en una hoja de excel con macros, pero que no pase de la columna "H". Es decir, hasta la columna "H" caben 8 números, entonces en la siguiente fila, que comience con el 9, en la siguiente con el 17, y así sucesivamente hasta llegar al 100. Me podrían orientar cómo se puede hacer Gracias de antemano por su colaboración. muestraAA.xlsx

Buenas noches, Soy nuevo por aquí y he observado que hay varios post referente a realizar envío de mensajes mas o menos complejos a Whatsapp desde VBA. Hecho en falta una parte muy importante, que es poder capturar una respuesta que te haya dado un contacto para almacenarla y/o avanzar en la conversacion. Pongo un ejemplo, Tengo un listado de citas medicas en Excel que me gustaría confirmar su asistencia mediante comunicación whatsapp. Con lo que he podido encontrar por los foros llego a poder enviar a cada contacto un recordatorio de la cita, pero necesitaría que de alguna manera me indicara si podrá asistir o no a la cita para us…

Con el permiso de todos lo integrantes de esta comunidad de expertos solicito sus valiosas ayudas por favor, se trata de una macro como menciona en el titulo tengo una carpeta llamado JULIO dentro de ella contiene un libro llama Distribuir transaciones.xlsm este libro al abrir contiene varias hojas inicio, cadenas, muestra y fechas cada una de ellas cumplen su rol importante explico en la hoja inicio está la fecha o el mes donde tengo que poner el último mes que es trabajado, además e eso hay dos celdas con la dirección de rutas donde están ubicado las carpetas y los libros, a la vez hay un botón donde esta enlazado con la macro, en la hoja cadenas contiene los nombres de…

Buenas tardes no logro poder enviar mensajes con imágenes distintas a mis usuarios, solo me logra enviar a 1 y a los demás solo les envía texto me podrían ayudar Multienvios WSP 4.6 sin contraseña.xlsm

Jelow, Yo por aquí de nuevo xD Estoy embarcándome en la posibilidad de dar clases de VBA a gente que no sepa NADA al respecto y explicarles desde lo básico a lo avanzado, las cosas más esenciales en cada aspecto. Como aquí son todos unos maestros, vengo a robaros ayuda (?) Tengo la siguiente tabla: La idea es que luego la persona, investigue en profundidad otros temas más complicados o métodos y trucos para usar cada función y fórmula. ¿Algún concepto que digáis, esto la persona tendría que saberlo? (igual está en la tabla lo que me digáis, pero prefiero saber vuestra opinión :D) Gracias de…