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

Buenos días, tengo una planilla en la cual estoy trabajando con la siguiente MACRO Sub Genera() Dim numConsec As Long Dim strConsec As String Range("M1").Select Selection.NumberFormat = "@" If IsEmpty(ActiveCell) Then Range("M1").Value = "00001" Else numConsec = Val(Range("M1").Value) + 1 strConsec = Right("00000" & Trim(Str(numConsec)), 5) Range("M1").Value = strConsec End If End Sub Mi consulta es como puedo hacer para que esta MACRO funcione en todas las hojas del LIBRO(5 hojas, con posibilidad de incrementar), es decir si en la hoja 1 se uso el numero 00001, en la hoja 2 si se ejecuta la MACRO se use el 00002, si vuelvo a la hoja …

Hola saludo cordial a todos en especial a una de las personas que me han apoyado bastante en mi dudas al Gran Macro Antonio, y a Bigpetroman bueno mi duda es la siguiente es con relacion a un formulario que me hizo favor de apoyar el Gran Macro Antonio, funciona muy bien reliza todo la funcion para la que fue creado pero aqui biene una de mis dudas, en un dia de trabajo con el archivo en comento empezo a marcar error revise y pues nada fuera de lo normal solo que el error marcaba que no podia mostar el userform. se cerro el programa y volvio a trabajar normalmente y despues de cierto tiempo de nuevo volvio a marcar el error el mismo error, entonces me di cuenta verifica…

Hola y buenos días a todos; He empezado a crear una macro que me permite crear un archivo .txt pero no sé como continuar. Quiero conseguir que los datos almacenados o filtrados inclusive los que vaya seleccionando con el ratón en el listbox del frm_Cobros los pueda capturar y poder exportarlos al archivo .txt generado. Adjunto macro y video: https://youtu.be/bVO7f-JZuSg Saludos. ExportarTxt.zip

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…

Qué tal, Os preguntaréis qué hace este preguntado algo así... pues es que me ha surgido una duda la diseñar un formulario. Tengo varios controles agrupados (listbox, textbox y commandbutton). Veo que en propiedades, si selecciono el grupo, puede activarlo/desactivarlo, pero... No hay nombre de grupo para seleccionarlo en tiempo de ejecución. Si lo desactivo en propiedades, al lanzar el formulario aparecen todos los controles incluidos desactivado (normal, lo he hecho en propiedades ), pero no encuentro manera de hacerlo en tiempo de ejecución, porque no tiene nombre asignado. Ya sé que con un marco lo puedo hacer, pero me ha surgido esta curiosidad. ¿Alguna…

buen dia en el archivo adjunto se organiza en cada hoja l ainformacion del producto entrada salida y existencia con formulas pero tengo problemas ya que el archivo que manejo es de mas de 30 productos y mucha informacion por lo cual aveces se me bloquea el excel. por esta razon busco ayuda para pasarlo a macros gracias EJEMPLO DE CAPTURA Y ORDEN DE KARDEX.xlsx

Estimados Soy nuevo en el foro y en el uso de VBA Excel y quisiera ver como puedo pasar el formato condicional que tengo en la hoja de exel y mostarla en un userform. o si se puede por ultimo dar formato de color a cada celda del listbox. dejare adjunto el excel. Espero que me puedan ayudar. Muchas gracias. Libro1.xlsm

hola buen día se me olvido mencionar un tema en el foro anterior que me puede ayudar a resolver el inconveniente pero no se como hacerlo enserio agradeceria mucho la ayuda deseo programar una macro en excel para hacer el siguiente ejercicio: Hoja 1: [TABLE=class: cms_table_grid, width: 500] [TR] [TD][/TD] [TD]fecha[/TD] [TD]cola[/TD] [TD]colb[/TD] [TD]colc[/TD] [/TR] [TR] [TD]fila1[/TD] [TD]01/ene/2013[/TD] [TD]a[/TD] [TD]1[/TD] [TD]1[/TD] [/TR] [TR] [TD]fila2[/TD] [TD]01/ene/2013[/TD] [TD]b[/TD] [TD]1[/TD] [TD]0[/TD] [/TR] [TR] [TD]fila3[/TD] [TD]01/ene/2013[/TD] [TD]c[/TD] [TD]1[/TD] [TD]1[/TD] [/TR] [TR] [TD]fila4[/TD] [TD]01/ene/2…

Hola que tal soy nuevo en este foro y estoy muy frustrado porque no se la manera de crear una BD para realizar conteos ciclicos. Les voy a explicar mas a detalle: Cuento con una lista de 17,228 productos los cuales necesito realizar una macro para realizar aleatoriamente conteos ciclicos, por ejemplo los productos con un valor de $0.01 a $250.00 les asigne la letra C, los productos con un valor de $251.00 a $1,000.00 les asigne la letra B y los productos con un valor de $1,000.00 a 10,000. Productos A realizar conteos mensuales B realizar conteos trimestrales C realizar conteos anuales Lo que necesito es que me vaya dando aleatoriamente y sin duplicados X numero de…

Hola, Mi problema es que tengo 100 archivos que contienen información y quisiera agrupar toda esta información en una solo a hoja de excel. Todos los archivos están en un mismo directorio, tienen nombres que van en secuencia 4127, 4128, etc. Lo que quiero es realizar una Macro, que abra cada uno de los libros y me copie la información de la Hoja "Resumen" (Hoja Nro 2 del libro) y la vaya pegando una debajo de la otra en un solo archivo. La información que contienen los archivos es parecida... Esta hoja, es un resumen de una venta cargada en otra hoja, que tiene distintos subtitulos Nombre Cliente, Nro de Item, Importe, Sucursal, etc. Soy usuario novato en estos d…

Buenas tardes. Tengo una tabla la cual tengo las celdas protegidas con este código: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C3:G2500")) Is Nothing Then Exit Sub On Error GoTo ExitPoint Application.EnableEvents = False If Not IsDate(Target(1)) Then Application.Undo MsgBox "No se puede borrar el contenido de esta celda" _ , vbCritical, " Borrar celda" End If ExitPoint: Application.EnableEvents = True End Sub El problema es que, si accidentalmente añado una fila nueva a esa tabla y luego la quiero borrar, me sigue saliendo el error. Me gustaría que cuando se borre una fila te pregunte si quieres que se borre con un MsgBox, …

Hola a todos; -Estoy intentando añadir una imagen a los ajustes de impresión y no la carga. No sé donde puede estar el error. Y una duda, ¿como puedo insertar una línea a lo ancho de la hoja?. Lo que tengo ahora mismo solo la inserta a la derecha, podría hacer lo mismo con left y center pero me deja un espacio en blanco y la línea no queda continua. Private Sub btn_Imprimir_Click(): On Error Resume Next With ActiveSheet.PageSetup .PrintArea = ActiveSheet.UsedRange.Address If IsNumeric(Me.TextBox1) Then .Zoom = CDbl(TextBox1) .CenterHeaderPicture.Filename = "C:\Users\Via Norte\Pictures\1.jpg" .RightFooter = "__________________________"…

Buenas tardes, Estoy teniendo bastantes dificultades para hacer una macro de un Excel con 2 hojas, donde la macro me señale en la hoja2, en este caso renombrada "To-do" las filas que no están en la hoja1, en este caso "Prio". Quisiera que me coloreará las celdas nuevas de la hoja "To-do", copiara las filas coloreadas y las pegará en la hoja Prio detrás de la última celda llena. Adjunto el Excel con el que estoy trabajando. He intentado coger el vba de un compañero que hacía algo similar, pero no me da el resultado esperado. Muchas gracias! Hinweisschild_Control.xlsm

Buenas tardes Desearía me ayudaran, si es posible, para hacer un Formulario que contenga tres Combobox dependientes entre sí Un saludo y gracias anticipadas AndrMax Formulario.rar

Buenas Tardes Amigos del Foro, estoy tratando de personalizar una plantilla del calendario en excel en la cual lo que se busca es que a través de una macro me coloque el comentario colocado en la hoja parámetros para cada fecha festiva. Ejemplo: En la hoja parametros Celda F36 "Frenta a la fecha 2016-01-01" coloco año nuevo; lo que debería hacer la macro es colocar Año Nuevo como comentario a la celda G13 de la hoja Calendario. Adjunto archivo con lo que llevo del código en el evento Worksheet_Change Espero haber sido claro en la ayuda que requiero y todos sus aportes serán bienvenidos. Gracias Calendario Formulado.xlsm

Buenos días. Por favor su amable apoyo de siempre. Con que fórmula en dax puedo hacer para que me de solo el % de un criterio. Ejemplo Tengo los siguientes datos Casa cantidad 50 Hotel cantidad 50 Total.50 Esto en Excel me da que casa es el 50 %. Y eso lo divido entre casa y el total Solo necesito ese dato pero en power bi? Recién estoy empezando a usar power bi. Muchas gracias por su apoyo.

Buenas, tengo un problema con estos codigos. El siguiente, me falla en la parte del codigo donde graba el archivo temporal (negrita). y Me aparece el siguiente mensaje de eror al depurar: Se ha producido el error '1004' en tiempo de ejecucion: No se puede tener acceso al archivo. Intente lo siguiente: Compruebe que la carpeta especificada existe Compruebe que la carpeta que contiene el archivo no es de solo lectura Compruebe que el archivo no contiene ninguno de los siguientes caracteres: < > ? [ ] : o *[/HTML] Lo extraño es que anteriormente funcionaba facilmente y lo unico que hice antes de que dejara de funcionar es cambiarle el nombre de la hoja a enviar.…

Estimados amigos, Soy un principiante en macros pero paso a paso he ido avanzado y estoy muy entusiasmado con todo lo que aprendo en este foro!! Sin embargo, estoy trabado con este tema y no encuentro solución. Les estaré inmensamente agradecido si me dan una mano!!!! En el archivo adjunto (la base de datos que estoy armando) en el formulario 11 tengo un listbox y debajo varios TextBox (un TextBox para cada columna del ListBox) Me gustaría poder lograr lo siguiente: 1) modificar los TextBox y que al hacerlo se actualice la información en la hoja que alimenta dicho ListBox. Para ello cree el botón "Actualizar". 2) lograr eliminar una o varias filas del ListBox. Para …

Hola a todos, Una duda que no he sabido resolver y es como puedo a averiguar cuál es la primera columna con datos sin indicarle al procedimiento ni la fila ni la columna, lo tendría que detectar el procedimiento. Igual no se puede, sí es así hacérmelo saber. Sé la que el código para la última columna es: uC=Cells(1,1).End(xlToRight).Column Pero en el le estamos indicando las coordenadas (fila,columna). He puesto el ejemplo (1,1) pero puedo tenerla en cualquier parte de la hoja. Saludos.

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…

Hola gente tengo un problema con esta macro, lo que quiero hacer es que los gráficos que tengo en excel se copien en un PowerPontl ya activo, y estos gráficos se vayan copiando en cada diapositiva diferente..... Luego de esta linea de código ( PPSlide.Shapes.Paste ) debería hacer algo para que vaya iterando las diapositivas, pero todo lo que pruebo me tira error,. ayuda por favor ... Sub ExcelToExistingPowerPoint() Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide ' Reference instance of PowerPoint On Error Resume Next ' Check whether PowerPoint is running Set PPApp = GetObject(, "PowerPoint.Application") If…

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 =…

Buenas: He creado un excel con macros (ocultas) que tiene que utilizar otra persona y le da "Error de compilación en el módulo oculto: Ahorros". He investigado y parece que el problema es que mi sistema es de 64 bits y el suyo de 32, como puedo solucionarlo? Gracias

como estamos mis estimado ,pues veran venga austedes solicitando me ayuden con una pequeña cosita. de por si no me gusta usar el mouse cuando estoy digitando es por eso que tengo mi formulario ordenado para saltar de campo en campo con la tecla tab. pero tengo problemas al asignar los valores a los check box y option boton necesariamente tengo que agarrar el mouse para asignarle un valor a esos controles mi pregunta seria. existe alguna manera de poder asignarle valores con la tecla enter?. asi por ejemplo me voy moviendo con la tecla tab cuando llegue a un checkbox oprimo enter y se seleccione como tildado y asi pueda saltar al siguiente campo con tab. todo eso sin …