control de stock.rar Hola Amigos del foro, Estimados, en este caso adjunto un archivo que no logro ver como hacer para que se puedan ingresar datos mediante un formulario de ingreso de mercaderia y se habilite y desabilite segun seleccion del cotenido. En el mismo archivo que adjunto esta la informacion respectivamente detallada. Agradezco su atencion. Saludos.

Teniendo el largo de la celda B9 fijo, solamente lo que hago es autoajuste automatico del alto de la celda al cargar el dato, lo que me genera que quede mucho espacio en la celda dependiendo de los caracteres, como puedo hacer para que siempre el alto sea el justo, que no sobre ni un espacio? Dejo adjunto unas imagenes, donde pueden apreciar que la celda B9 se autoajusta pero innecesariamente le sobra mucho espacio en blanco.

Buenos días programadores y colegas, El día de hoy requiero un aporte en cuanto a lo siguiente, Dentro del archivo adjunto hay 1 combobox el cual en su propiedad RowSource tiene un rango que agrega items al combobox. Lo que requiero es que a medida que yo ingresé valores, el combobox busque esos valores que están siendo diligenciados en todas las celdas, sin importar si el valor esta empezando o al final (por nombre o por apellido, sin importar el orden en el que este escrito). No se si me hice entender, un ejemplo practico seria el siguiente, DATOS: 1. Felipe Sanchez 2. Sanchez Eduardo 3. Eduardo Perez TEXTO DILI…

buenas noches, dispongo de esta macro para navegar dentro de una pagina web Sub test() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Top = 0 .Left = 0 .height = 1000 .Width = 1050 .Visible = True .Navigate "www.google.com" Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop End With End Sub estoy tratando de cambiar el "www.google.com" por el valor de una celda, específicamente concatenando el texto inicial del link (www.google.com/) y el texto de una celda que quiero buscar, por ejemplo: el texto inicial seria www.google.com/ ce…

Buenos días, ¿Alguna persona que use Mac y esté habituada a usar macros? Tengo algunos problemas para que alguien con Mac ejecute una macro de Windows. Ya que no cuento con un equipo Mac, me gustaría probar la macro de otro modo. Gracias.

Hola a todos, mi nombre es Maurizio E incluso si entiendo que para muchos de ustedes esta solicitud mía no tiene mucho sentido; Para mí programáticamente mucho. Dicho esto, mi solicitud es esta: En un formulario de usuario, inserté un objeto (Calendar1) y 6 (TextBox) Ahora, el propósito de todo esto sería seleccionar uno de estos (cuadro de texto) y al hacer clic en (Calendario) ingrese la (Fecha seleccionada eso es todo ! Gracias como siempre desde ahora por toda la ayuda que me des al respecto. Un saludo desde Maurizio ################################ Hi everyone, my name is Maurizio And even if I understand that for many of you this request o…

Buenos dias estimados compañeros. Estoy necesitando ayuda para poder hacer una hoja excel en donde el objetivo de esta hoja sea que pueda medir la distancia entre códigos postales... No soy conocedor hasta ese nivel de como hacerlo, pero se que se puede usar una api de google y realizar consultas. La idea es por ejemplo A1= 28001 A2= 45001 A3= 89,7 Km Por ejemplo esto seria lo que necesito. Espero que si alguien ya se encontró con esta necesidad si me puede echar una mano estaría muy agradecido. Gracias.

Como puedo hacer para que esta macro la pueda utilizar en un rango determinado no solo el la fila A1 y B2 si no en varias Filas Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("A2") Then Range("B2").Value = "" End If End Sub listas desplegables (dependientes).xlsm

Hola ¡ Soy nuevo en este foro y también en el tema de las MACROS y quiero pedir de su valiosa ayuda para poder automatizar con una macro un archivo de clientes(ADJUNTO ARCHIVO CLIENTES) el cual ya ordené utilizando el grupo esquema de la pestaña datos con el icono de subtotal de excel. No obstante, por cada Total de clientes quisiera insertar dos filas debajo. En la primera fila insertada en la columna F que escriba IVA 16% y en la columna G me realice el cálculo multiplicando el total por el 16% por cada cliente. En la segunda fila insertada escribir en la columna F la Total con IVA por cada Cliente y en la columna G me realice la sumatoria del Total …

buenas como estan, quisiera saber si alguien me puede ayudar a modificar esta macro que cuenta los registros únicos totales , pero lo que necesito ahora que solo cuente los registros únicos visibles ya que tengo que usar filtros. Desde ya muchas gracias Function contar_unicos(rngSeleccion As Range) Dim collUnicos As New Collection Dim rngCell As Range On Error Resume Next For Each rngCell In rngSeleccion collUnicos.Add rngCell, CStr(rngCell) Next rngCell On Error GoTo 0 contar_unicos = collUnicos.Count End Function

Tengo un problema a la hora de ejecutar mi macro en ocasiones no existe un nombre en mi reporte, y en ese momento la macro se detiene, como hacer para que no se detenga se que tengo que agregar unas lineas con la palabra "Falce" pero no se se donde adicionarla Este es el inicio de mi macro, que debo hacer para que en caso de que no encuentre "ACTIVO A CORTO PLAZO" siga en ejecución la macro ya que si no tengo en mi reporte la frase "ACTIVO A CORTO PLAZO" se detiene y me manda un error Cells.Find(What:="ACTIVO A CORTO PLAZO", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xl…

Buen día. Estimados miembros del foro. Solicitando su ayuda para desbloquear el proyecto de VBA de una macro de excel de la cual no conozco el password. Conozco el password de los libros contenidos en ella pero al querer desplegar los libros ya que se encuentran ocultos desde VBA el password que tengo no funciona. El password de los libros es Fluids_Scorecard Trate de adjuntar el archivo pero no me lo permite por el tamaño. Mi correo es par_meno en live.com De antemano agradezco su apoyo.

Hola amigos Tengo este problema Tengo un rango que ordenar automáticamente. Pero no consigo que me ordene por los nombres. Me esta ordenando por la columna de las calificaciones. Estoy colocando Sort key1 pero ordena pero la columna 3 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then With Range("A:C") .Sort key1:=.Cells(1, 3), Header:=xlYes End With End If End Sub Saludos Calificaciones.xlsm

Que tal, me podrían apoyar con la creación de una función para aplicar "Superscript" lo estoy intentando pero no me esta dando ningún resultado: Function SUPERSCRIPT(x As String) As String SUPERSCRIPT = Font.Superscript = True End Function No tengo mucho conocimiento de VBA. Por eso acudo a su ayuda. De antemano gracias y hasta luego... Ss.

Hola a todos, Por favor si alguien me puede ayudar con lo siguiente: Tengo una macro, la cual redondea los importes que están a partir de la fila 8 de la columna E,F,G, dichos importes deben redondearse siempre hasta la misma altura de datos del correlativo (columna B) actualmente la macro hace su trabajo, pero el problema es que cuando varia la cantidad de datos del correlativo tengo que estar manipulando la programación de la macro y me genera ceros debajo del rango que deseo redondear. Libro2.xlsm

Hola. Saludos a todos. Tengo dos hojas una se llama saldos y la otra resumen. La hoja saldo la obtengo de un reporte web donde la paso a excel y le aplico filtros. En esta hoja sale información de saldos de varias cuentas ordenadas. Ejemplo de la 1 a la 100. Y cada linea con su saldo. En la hoja resumen necesito trasladar esos saldos pero no son todas la cuentas que salen en la hoja saldos. No se si me explico bien. En resumen es tralasra saldo de hoja saldo a la hoja resumen , pero filtrando las cuentas en la hoja saldo , por que no las necesito todas en la hoja resumen . El archivo es muy grande para subirlo. Agradezco ayuda o sugerencias

Buenos días compañer@s, espero que estéis tod@s bien A ver si me podéis ayudar con este fichero que me encontré en la red y que se abre poniendo un usuario y una contraseña (usuario: arodriguez, contraseña: Hola). Por lo menos intento que haya "algo" de seguridad para los usuarios que lo vayan a trabjar. De momento lo único que tengo, cuando se introducen bien las dos variables, es un listado con usuarios y contraseñas inventado. El tema es que cuando se abre el cuadro de diálogo, en mi caso, si cancelo y vuelvo a pinchar en el fichero, se me abre sin pedirme las credenciales Me podéis ayudar? Muchas gracias Usuario_Contraseña_1…

Buenas Noches Esta macro me da error cuando la ejecuto por segunda vez en Range("A" & ultFila).PasteSpecial xlPasteAll Private Sub copiarceldas3_Click() Dim ultFila As Long, _ wbOrigen As Workbook 'Indicar el libro de Excel destino es la única variable que necesitas Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\Factura2.xlsm") 'Se saca la celda donde está la última fila que agregaste ultFila = Sheets("Clientes").Range("A" & Rows.Count).End(xlUp).Row 'Activamos el libro origen para copiar los datos, a partir del último que copiaste en la otra hoja ThisWorkbook.Activate …

Buenas tardes; Estoy utilizando una macro que encontre aqui para presionar un boton e incrementar (m) el valor de un numero (ubicado en "I") y otro boton para bajarlo (ubicados en 0 , mi pregunta es como puedo hacer para que si el valor de la celda supera el "3" vuelva a 1, espero que me hayan podido entender. Nos se programar en visual pero estoy buscando algo similar a "If value >3; 1 " . Muchas gracias Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If IsEmpty(Range("I" & ActiveCell.Row).Value) Then GoTo Linea1 If Not Intersect(Target, Range("M" & ActiveCell.Row)) Is Nothing Then Range("I" & ActiveCell.Row).Va…

Buenos días, Les comento que hace unos meses un usuario me realizo una macro, la cual hasta ahora me ha funcionado de maravilla. El problema que presento ahora es el siguiente, descubrí que si no hay datos en la Columna M la macro no realiza el proceso. Hoy utilizare esta misma planilla, pero en la columna M no existirán datos. Alguien puede revisar la formula y ver la forma de modificar eso, las otras columnas seguirán intactas, solo la M es la que ya no tendrá datos. Concatenar valores Vba_GP.xlsm

buenas noches como estan por favor nesecito su ayuda he estado buscando una macro para que me copie desde la primera hoja de excel al resto de las hojas que tenga el mismo archivo y en una celda especifica , pero no he encontrado nada que sea parecido en la web y en varios foro alguien me podria ayudar u orientar gracias por su ayuda Libro2.xlsm

Buenas tardes amigos, un gusto saludarlos de nuevo! Fíjense que ahorita estoy trabajando con una hoja de excel donde necesito copiar uno o varios criterios y pasarlos en otra hoja, para no utilizar el autofiltro de excel y no copiar por partes, se me ocurrio realizar esos filtros desde un Listbox, a continuación explico. 1. Para empezar necesito que en la columna G de la hoja 1, cargue en listbox los datos pero que no se repitan (Folios únicos) y despues (Cabe mencionar que los datos de esa hoja son variables, pueden ser 1 o hasta 10,000 registros). 2. que me de la opción de seleccionar cual quiero copiar y pasar en la hoja de resultados (Tipo multiselect).…

Buenos días amigos, estoy intentando mantener pintada la celda de la bolilla del BINGO, en mi tablero de control, pero en cada click a la macro me borra el valor pintado anteriormente. 1. ¿Qué comando podría darle a la macro, para que no despinte la celda anterior? 2. ¿Qué comando podría utilizar para "eliminar" las bolillas que ya han sido cantadas (pintadas)? Espero puedan ayudarme, un abrazo a todos. Adjunto el archivo de excel. Marcos Bingo_Telas_en_Pandemia.xlsm

Hola de nuevo pidiendo un poco mas de ayuda Quiero copiar los datos que tengo en la hoja clientes a otro libro que tiene también una hoja con el mismo nombre sin que se dupliquen los datos, que si tiene un dato nuevo se pueda copiar sin repetir todo Tengo una macro la cual me copia todo repitiendo los datos y el encabezado haber si alguien me puede echar un cable Solo puedo subir un archivo, pero los son iguales Gracias Factura1.xlsm

Buenas!!! A ver si me podéis ayudar, por favor! Tenía el siguiente código que funcionaba con pocos datos: busca.Offset(2, -13).Select With ActiveCell .Resize(Rows.Count - .Row, Columns.Count - .Column).Clear End With Pero al ponerlo en práctica real, me aparece error por recursos insuficientes en Excel ? ¿Esto hay forma de arreglarlo o no es posible? Muchas gracias.