Quisiera hacer una macro, donde seleccionando una celda, indicando id del producto salga el detalle donde yo ingreso el precio y salgo en un listado general , pero para cada producto, como esta en el excel que adjunto donde pones un numero haces clic el botón salida y sale en el listado completo. SISTEMA DE INVENTARIO.rar

buenos días, expertos necesito de sus ayudas respecto a una dificultad que tengo en mi proyecto en las hojas de Stock y entradas (In) con las formulas que me sale de resultado cero y falso, e buscado de una u otra forma y no llego a solucionar. Es un pequeño sistema de inventario con dos tipos de entrada (Bales In, Bales IN Press) y que también registra las devoluciones (Yard Returns) y con todo eso necesito soluciona la formula en la columna (Bale Ave Weight) y por ahí derrepente tengo errores en la hoja salidas (Out) si fuera así estaré agradecido eternamente por sus ayudas...Gracias Adjunto el archivo. Inventario.xlsm

Comunidad expertos en Excel, nuevamente recurro a sus conocimientos lo que es que tengo una lista vertical de registros numero de teléfono a la vez también en la primero columna sus códigos y en algunos casos los código se repiten pero con diferente numero de teléfono, ahora mi problema es que al trasponer a horizontal se traspone todo mi idea es trasponer pero de forma personalizada si los código se repiten y tienen otro teléfono que lo trasponga el código y todos los teléfonos que lo corresponda a esa... adjunto el archivo que lo desarrollado pero es como lo necesito. Espero me hayan entendido Gracias, TRASPONER.xlsm

Hola buenas,quería hacer una pregunta sobre un problema que tengo cuando añado un archivo flash a un documento excel. Dicho problema viene cuando abro el archivo excel que ya contiene el archivo swf incrustado y aparece el siguiente mensaje de advertencia: Este documento incluye contenido incrustado que puede provocar daños en el equipo. Elija una de las opciones siguientes: -No permitir que se reproduzca el contenido (se recomienda).-Reconozco este contenido.Permitir que se produzca. ¿Hay alguna forma de intentar eliminar este mensaje a través de una opción del mismo excel o se debería de programar mediante vba? Agradecería si alguien me pudiera resolver este problema,y…

Hola amigos como estan? tengo una situación, tengo una base de datos donde descargo información, pero a simple vista en las celdas de excel los datos pareciera como que no tuviera comillas pero si le doy copiar esa celda y le doy control B para buscar ya me pega con " mi pregunta es, ¿como puedo quitar esas comillas ocultas? me surge esta situación ya que al momento de utilizar formula, no me da el resultado por lo mismo de esa comilla. de antemano les agradesco mucho. Libro2.rar

Buenas tardes, Os pongo en situación de lo que tengo en el excel y luego os cuento lo que quiero hacer, Tengo una hoja con una columna (llamemosla A) con varias numeraciones con varios digitos, tales como cuentas contables (4000003, 4000005,1000003,....) y en otra columna B, cada una de las anteriores cuentas tienen un valor. (ejemplo 4000003 (A) y 35000€ (....) . Lo que quiero es crear en otra columna © donde juntar todos los valores que empiecen por los mismos primeros 3 digitos. Ejmp todos los 4000001, 4000010, 4000006 juntarlos en una celda con el valor 400. Y en otra columna (D) sumar todos los valores de la columna B que pertenecen a las cantidades de la colum…

Quitar espacios de cada celda de toda la hoja Buenas tardes amigos Por favor quisiera que me ayuden, busque en google pero no he encontrado alguien que me pueda ayudar. Quiero una macro o algún truco quizás para quitar los espacios de varias columnas, ya que lo que tengo que hacer es agregar una columna al costado y poner =espacios(celda) y jalarlo para abajo. y asi para todas las columnas para que son muchas columnas y todas la mayoría están con espacios al final.

Hola buenas,soy nuevo en este foro aunque lo he visitado numerosas veces. en uno de su temas vi el siguiente codigo para desactivar las funciones de excel ExecuteExcel4Macro("show.toolbar(""ribbon"",false)") y yo lo coloque en private sub ThisWorkbook_open() el problema es que el resulñtado no me ha gustado , porque se abre minimizado dentro del propio excel ,y ahora no se como hacer para que el archivo se abra normalmente necesitaria ayuda y si pueden explicarmelo para principiante en vba lo agradecere ; gracias

Hola muy buenas noches, por favor me podrian apoyar, necesito que al señalar un ITEN del formulario AGREGAR_MANTENIMIENTO me lo ilimine de la hoja de calculo llamada "PH", y si en el Listbox "insumos2", agrego un item nuevo pueda tambien guardarlo. QUITAR LINEA.rar

Hola de nuevo espero me podais ayudar con esta nueva duda. Para colocar una imagen en un boton de comando en un UserForm, voy a picture elijo la ruta de la imagen y la pongo en el botón, hasta ahi todo bien, mi problema empieza cuando quiero quitar la imagen de ese mismo botón de comando, que no se como hacerlo. Gracias por vuestra atención. Un saludo.

Hola, Tengo una macro para quitar la letra "h", por favor me podrian indicar como puedo hacer para quitar cualquier tipo de letra o caracter que encuentre en el rango de la tabla y solo deje los numeros? Gracias Borar Letra H.xlsm

Hola compañeros, Cuál es el método que me permite quitar la ventana de alerta al cerrar un libro (ver imagen adjunta)? Estoy probando con este código, pero no me funciona... guardar = MsgBox(Prompt:="Gracias por usar la aplicación ofimática, " & tbNombre & "." & vbCr & _ "¿Desea guardar los cambios antes de salir?", _ Buttons:=vbYesNo + vbCritical, _ Title:=" SALIR DE LA APLICACION OFIMATICA") If guardar = vbYes Then ActiveWorkbook.Save Else Application.DisplayAlerts = False ' No mostramos la ventana de alerta para guardar manualmente l…

Hola compañeros, Me gustaría dejar desactivadas (o quitar, si es posible) las opciones que están marcadas dentro del cuadro rojo de la imagen adjunta, y dejarlas desactivadas tal y como aparecen en el cuadro azul. No he realizado nunca nada así, y toda la información que encuentro por Internet me aconseja realizarlo desde código XML. Pero estoy convencido de que debe de existir una sentencia algo parecido a la siguiente: ... Application.CommandBars.Controls("Eliminar").Enabled = False ... Un saludo, y muchas gracias por vuestro tiempo.

Hola y buenos días a todos; A ver si me podéis orientar un poco. Tengo una tabla donde se almacenan los datos de ventas por vendedor y necesito saber si dicho vendedor anualmente ha pasado de los 1000,55€ , si ese fuese el caso entonces sumar las ventas trimestre a trimestre y el resultado anotarlo en la hoja "Resultado". Los parámetros de fecha y tope de ventas serán introducidos desde un Formulario. He confeccionado una macro a modo de ejemplo. Saludos. MVentas.xlsm

Estimados amigos, os cuento, como puedo imprimir cerrando el formulario en primer plano. Para entenderlo mejor os dejo el archivo y cuando entreis en admin 123 como se puede imprimir, muchassssss gracias labohoy23.xlsm

SOLUCIONADO Raíz cúbica de un número negativo Al operar de esta manera (-9)^(1/3) en excel se devuelve el resultado de forma correcta, pero en VBA se produce un error. Sub raiz_negativo() Debug.Print (-9) ^ (1 / 3) End Sub[/CODE] Conoceís el motivo y algún forma de evitarlo, sólo se me ocurre: [CODE] Resultado = Abs(Numero) ^ (1 / 3) If Numero < 0 Then Resultado = -1 * Resultado [/CODE] Un saludo

Buenos días, os hago una pregunta estoy limpiando unas macros y quisiera saber sin el Range se puede ejecutar con variable, aquí va una explicación If Range("s50") >= 1 Then Range("U50") = ("=U47+S50") zz=b2 : xx=s2 ' Variables que después toma el range en la sub Call Datos Else: Range("u50") = C:End IF If Range("S2") >= 1 Then 'Range("U2") = ("=U50+S51") xz=63 : zy=76 ' Variables que después toma el range en la sub Call Datos Else: Range("u51") = C: End IF Sub Datos() Worksheets("Hoja2").Unprotect Password:=PR Range("zz:xx") .Copy Sheets("H…

Jelow, Vengo con una duda muy tonta, pero que me está dando quebraderos de cabeza en el código (aunque funciona todo bien, para mi sorpresa...) Tengo una tabla, que borro fila por fila, hasta dejarla vacía y dolo dejo, la cabecera y la última fila sin borrar. El caso es, que en el bucle que hago, al darle vueltas al código, veo que esto quizás me puede dar algún error y he lanzado un debug.print para ir testeando detalles. DUDA: Si la tabla tiene CABECERA + FILA CON DATO + FILA FINAL (es decir, 3 filas)... ¿Porque el debug.print de "Tabla".rows.count me da 4? Entiendo que no puede empezar la cuenta en 0 ni en 1, porque …

Hola, no puedo mandar el programilla porque "pesa mucho" pero si alguien puede ayudarme, me pasa una cosa muy rara. Tengo un programa que funciona perfectamente, he hecho una macro para "Borrar" y me pone unas formas al color que yo quiero, me borra el contenido de celdas, al final del código tengo Range("A1").Select y no va ahí va a la celda F22, lo he probado de varias maneras y siempre igual, incluso si voy a cualquier celda de la Hoja (Excel) al dar a la macro "Borrar" me lleva a esta celda en vez de a la de A1, alguien me puede ayudar ? PD esta celda F22 es una celda activa en otras partes del programa, pero si a mi macro le digo A1 debería ser A1 …

Hola buen dia. Es priemra vez queparticipo en algun tipo de foro. Busco ayuda con un formulario, que diseño uno de los botones no hace loque deberia segun yo. Explico: Una vez Abierto el archivo filtro en la celda T con titulo Assigned to El nombre de Nancy Urrieta. Selecciona la celda A7 y doy clic en boton Details Oprimo boton Nex Inv > esto despliega la info de la misma persona de las celdas activas y funciona bien Cuando oprimo el boton Assigned to, no regresa Deseo que cuando oprima Nex Inv haga lo que ya hace pero de donde se quede la celda activa pueda con el boton < Prev Inv regresar y despliege los datos. He utilizado Range(Selection, Select…

tengo una hoja en la cual necesito seleccionar un rango aleatoriamente, me explico: columna "A linea 1 a la 10 con datos" capturados manualmente columna "B linea 1 a la 10 con datos" capturados manualmente columna "C linea 1 a la 5 con datos" capturados automaticamente quiero seleccionar de la "C6:C10" y a cada una de las celdas que les falta datos intoducir un dato en forma automatica mi rutina es la siguiente Dim celda As range range("c1").Select 'columna con datos automaticos ActiveCell.End(xlDown).Activate 'para saber hasta donde tengo datos ActiveCell.Offset(1, -1).Select 'para saber que datos me faltan en la columna c r1 = ActiveCell.Addre…

Buenas noches, me podéis ayudar con esta macro? es para generar codigo de barras, la cuestion que solo me funciona de la siguiente manera: Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet, "11Q94PTT" Pero me gustaría que se cambiara con un rango de una celda. ¿ seria posible algo asi? pero me da error Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet.Range("=F1C1") y mil gracias code128.rar

Tengo la siguiente macro, y cuando quiero copiar los datos, no sé las filas que habrá.. he estimado 55 filas, pero si son menos, me inserta datos vacíos.. he incluido que me diga el número de filas, para conocer el número exacto. Como puedo poner el rango sin conocer la última fila, y que inserte las filas que tengan datos. Sub BorrarDatos() 'primero borro los datos de la hoja Sheets("macro").Range("A2:B55").ClearContents Sheets("macro").Range("D4:F55").ClearContents Sheets("macro").Range("I4:L55").ClearContents 'copio datos de la hoja datos, es la hoja que he tenido que sale del programa milena, tengo que copiar Sheets("datos").Range("A2:B55"…

Hola amigos. Tengo este codigo que llena el ComboBox Private Sub CargaCombus() ' CARGAR COMBOBOX Dim cargo As Variant Dim anchura As Variant With Base cargo = .Range("A2:H2") ' ("A2:B2,E2:H2") aqui el rango End With With cmbCampo .List = WorksheetFunction.Transpose(cargo) '.Text = "" End With End Sub[/CODE] Son 8 columnas desde la A a la H Lo que pretendo es que en el combo solo se vean (se llene) las columnas A, B, E, F, G, H,

Hola amigos. Tengo este codigo que llena el ComboBox Private Sub CargaCombus() ' CARGAR COMBOBOX Dim cargo As Variant Dim anchura As Variant With Base cargo = .Range("A2:H2") ' ("A2:B2,E2:H2") aqui el rango End With With cmbCampo .List = WorksheetFunction.Transpose(cargo) '.Text = "" End With End Sub[/CODE] Son 8 columnas desde la A a la H Lo que pretendo es que en el combo solo se vean (se llene) las columnas A, B, E, F, G, H,