Buenas tardes, Estoy seguro que me podran ayudar con esto tengo un problema con el boton guardar, es para un historial de facturas no me resulta nose si alguien lo puede revisar y me dice que pasa dejo el documento anexo en la hoja datos esta el programita. es para guaradar un registro de ventas gracias. cotizacion victor 1.rar

Buenos días a todos; -A ver si es posible una ayudita vuestra. Adjunto una macro donde en las columna A:C tengo unos datos que están ordenados de en la columna A de menor a mayor. Necesito crear si es posible una macro para que me ordene esos datos pero de forma aleatoria, ¿sería posible?. Un saludo y buena semana a todos. MAleatorio.xlsm

Hola tengo un libro que al abrirlo salta un userform y al mismo momento el libro se oculta, pero al cerrar el userform el libro aparentemente se cierra, pero lo mas raro es que queda oculto pero abierto me doy cuenta cuando abro el administrador de tarea. Alguien podrá ayudarme Este es la instrucción para cerrar Private Sub CommandButton8_Click() Dim sino As String sino = MsgBox("Estás seguro de cerrar la Aplicacion?", vbYesNo + vbQuestion, "CONFIRMA") If sino <> vbYes Then Exit Sub MsgBox "Gracias por usar el sistema, hasta la proxima" Application.ScreenUpdating = False Set h = Sheets("Usuarios") u = h.Range("A" & Rows.Count).End(xlUp).…

Buenas soy nuevo en esto de la programación de vba en excel. Tengo un problema con un combobox y queria ver si me podrian ayudar. Necesito que un combobox se llene con la información de la columna A y otro combobox con la información de la columna B. Pero necesito que cada vez que se agregue información nueva en estas columnas esta aparezca en el combobox. Por eso no quiero usar el rowsource sino codigo. Tengo lo siguiente Private sub userform_initialize () Sheets ("variables").select Range ("A2").select While activecell <>"" Combobox1.additem activecell Activecell.offset (1, 0).select Wend End sub O tambien tengo Private sub userform_initialize () Sheet…

cordial saludo tengo el siguiente código para minimizar un formulario: Option Explicit ' Declaración de variantes para los botones de maximizar y minimizar 'para OS 34 bits 'Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 'Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 'Private Const WS_MINIMIZEBOX As Long = &H20000 'Private Const WS_MAXIMIZEBOX …

si tengo esta macro Sub ejemplo() valor = 5 NameO = "BaseX" Set Rng = Sheets(NameO).Range("A:A").Find(valor, LookAt:=xlWhole) Sheets(NameO).Rng.Select '<= asi no funciona y coloco separado Sheet(nameO).select y en otra fila Rng.select si lo hace. End Sub pero necesito tomar los vlaores de las filas sin necesidad de selecionar la hoja, como hago eso. Como me posiciono en la celda del valor encontrado y copio toda la fila a otra hoja

Me gustaría que me ayuden a desarrollar una macro que a la hora de copiar y pegar conserve el ancho y alto de las celdas. Tengo en mi poder una macro que hace lo que quiero pero funciona así: -Me pide que seleccione el rango(mouse),luego pulso un botón (macro),se abre un inputbox donde me pide seleccionar la celda donde quiero que se pegue el rango(mouse) y luego se pega.Ésta macro funciona bien pero quiero que lo haga de forma directa (SIN que seleccione el rango manualmente y sin que se abra el formulario). Tendría que poner en la misma macro los rangos de copiado y de pegado. Adjunto Libro. 500.rar

Muy buenas. Necesito llevar las estadísticas de un equipo de fútbol y querría automatizar el total de cada futbolista sin necesidad de ir indicando cada jornada a excell que sume los valores nuevos añadidos. He estado buscando y hay cosas parecidas pero no me convence el diseño para luego poder organizarme. Muchas gracias. datos equipo.xls

Hola buen día Alguien me pudiera ayudar con esto que he buscado y no encuentro la manera? Tengo varios archivos con terminación ".DAT" en una carpeta y deseo pasarlos a EXCEL, (claro son textos con separación de PIPE "|" y convertirlos a Columna). El archivo final debe ser el excel con todos los datos de todos los archivos .DAT en uno solo (consecutivo hacia abajo) Alguien que me ayude? Anexo archivos .DAT ejemplo en un ZIP Gracias. archivos DAT.zip

Estimados amigos, Acudo a ustedes nuevamente en su ayuda, espero me la puedan brindar. Necesito crear una macro que me genere una imagen en jpg desde una hoja y la guarde en una carpeta determinada que se encuentra en el escritorio, en donde creará otra carpeta con el nombre de la imagen y dentro de esta pegue la imagen en jpg con el mismo nombre, es decir: 1.- Al dar click en un botón, genere la imagen en .jpg 2.- cree una carpeta en la carpeta llamada "CARPETAS" ubicada en el escritorio, con el nombre que esta en la celda "A1" 3.- analice si la carpeta existe, si esta no existe debe crear la carpeta pero si ya existe enviar un mensaje que diga "LA CARPETA YA EXIST…

Hola buen día a todos. tengo una macro de asistencia, lo venia trabajando en windows 7 sin problema, pero al migrar el equipo PC a windows 10, manda este mensaje de error, adjunto archivo, por su valioso apoyo les anticipo las gracias, bendiciones ASISTENCIA.xlsm

Estimados: Solicito su valiosa ayuda Tengo una planilla en la cual deseo buscar datos de otra con una macro. En la parte donde dice cuenta, deseo colocar sólo el número y presionar buscar, si es que existe, necesito que me arroje los datos, si es que no, que aparezca mensaje de error. LEs adjunto la planilla, les dejé un ejemplo. Por favor si alguien puede ayudar se lo agradecería mucho Gracias Libro1.xlsm

Muy buen día, tarde, noche. Me he buscado en la web y no he podido encontrar respuesta a lo que tengo en mente. He creado una UDF, y funciona muy bien, el problema que tengo es que al momento de usarla en una hoja, no muestra los argumentos necesarios para que funcione correctamente la fórmula. La pregunta es: ¿Se puede lograr que se muestren los argumentos necesarios de la función en una hoja? Es decir, así como cuando se usa la función BuscarV, que en pantalla se muestran los argumentos necesario ("valor_buscado, matriz_buscar_en, indicador_columnas, [ordenado]") No se si es necesario subir archivo para esto, pero pego aquí la formula que he cre…

Hola Tengo el siguiente formulario que me recibe datos(parámetros), tengo una duda en cuanto al manejo e implementación del código con DatePicker e ingresarlos en una celda en la tabla generada. Private Sub btn_registrar_Click() ActiveSheet.Cells(8, 2).Select Selection.EntireRow.Insert ActiveSheet.Cells(8, 2) = TextBox1 ActiveSheet.Cells(8, 3) = TextBox2 ActiveSheet.Cells(8, 4) = TextBox3 ActiveSheet.Cells(8, 5) = TextBox4 TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox4 = Empty TextBox1.SetFocus Ordenar 'macro ordenar End Sub[/CODE] Saludos

Buena tardes. Tengo una duda, se podrá separar los datos de una hoja en varias hojas siguiendo un criterio. Por ejemplo, tengo una base de datos de miles de trabajadores (filas), con muchísimos datos (columnas) y que son de diferentes empresas, lo que quiero saber es si se puede separar todos esos trabajadores dependiendo de la empresa a la que pertenecen de manera automatizada sin tener que estar filtrando y copiando los datos que necesito. Aquí subo un ejemplo de lo que necesito, gracias de antemano por su respuesta. Modelo 1.xlsx

Error de codigo para copiar y pegar de una hoja a otra Bueno días foristas: En anteriores ocasiones me a sido de mucha importancia su ayuda y sus conocimientos por lo que vengo ahora a pedirle auxilio de nuevo. En un archivo de Excel tengo un código en la hoja "PARA SUBIR" que se supone me ayudaría a copiar unos datos de la hoja "CONVERTIR" y las pasaría en formato de texto (sin formulas) a la hoja "PARA SUBIR", pero me esta mostrando un error de procedimiento y no me deja correr la macro. Acá dejo el Código que estoy usando, si alguno de ustedes me puede ayudar estaría eternamente agradecida. Private Sub CommandButton1_Click() Application.ScreenUpdating = False '…

LO QUE NECESITO ES CREAR UNA CIERTA CANTIDAD DE COMMANDBUTTON EN UN USERFORM DEPENDIENDO DE LA CANTIDAD DE DATOS QUE HAYA EN LA COLUMNA A DE LA HOJA 1. COLUMNA A FILA 1 ROJO FILA 2 VERDE FILA 3 AZUL FILA 4 AMARILLO FILA5 BLANCO EL CODIGO TIENE QUE CREAR EN ESTE CASO 5 COMMANDBUTTON EN FORMA HORIZONTAL UNO AL LADO DE OTRO SEPARADOS A UNA DISTANCIA DE 1 CM MAS O MENOS. PERO EN EL CASO QUE SEA: COLUMNA A FILA 1 ROJO FILA 2 VERDE FILA 3 AZUL FILA 4 AMARILLO FILA5 BLANCO FILA 6 NEGRO EL CODIGO TIENE QUE CREAR EN ESTE CASO 5 COMMANDBUTTON EN FORMA HORIZONTAL UNO AL LADO DE OTRO SEPARADOS A UNA DISTANCIA DE 1 CM MAS O MENOS. Y EL COMMANDBUTTON 6…

Buenos dias desde Zaragoza, Estoy intentando guardar una hoja en una carpeta que se grabe con el texto que contiene una celda, he estado haciendo pruebas con temas solucionados de aqui y de otros foros y no he llegado a buen puerto con ninguno. Os dejo unos detalles de como lo estoy intentando hacer y el archivo. Desde grabar pedidos se generan dos tipos de albaranes"telefonicos" y "just eat" que pasan a "FACTURA PLANTILLA" para pedidos telefonicos y "FACTURA PLANTILLA (2)" para just eat. A) Intento una macho para que la hoja "FACTURA PLANTILLA" se dispare desde grabar pedidos y vaya a C:\Users\come\Desktop\pedidos\TELEFONICOS y se grabe con la celda F1 de factura "FAC…

ayudenme por favor a completar el registro de cotizacion mediante formularios, estare bien agradecido a todos quienes aporten con sus ideas gracias...

Hola buenas, estoy intentando pasar un listbox a una función que me sume los valores de una de las columnas del listbox, pero aunque tenga datos me dice que recibe null, que el listbox vale null. No puedo entender lo que pasa ya que el mismo listbox lo paso a otra función en el mismo método para ver si existe un valor introducido y si que funciona. Private Sub bnt_ADD_TQ_Click() If Me.txt_DESCRIPCION_TQ.Text = Empty Or Me.txt_PRECIO_TQ.Text = Empty Then MsgBox ("Te has olvidado de introducir algún dato.") Else If Me.lst_TIQUETS.ListCount = 0 Then Me.lst_TIQUETS.AddItem Me.lst_TIQUETS.List(Q, 0) = Me.txt_DESCRIPCION_TQ.Te…

Hola a todos, espero podais ayudarme porque no tengo ni idea de como hacerlo. Os explico, necesito pasar las marcas numeradas a cualquiera de los dos círculos, lo que veis es un montaje simplemente, espero me entendais lo que necesito. Gracias ante todo

Estimados amigos, por favor me ayudan con esta consulta: para hacer informes de avance de obra, quisiera usar una fórmula que permita que al hacer una nueva hoja ( worksheet ), traiga datos de la hoja anterior. Me gustaría hacerlo sin macro, si es posible. Por favor me pueden aclarar si existe una fórmula para ese propósito? Mil gracias.

Buenas tardes, En una hoja tengo dos columnas, la primera con las rutas completas de 14000 archivos, que tienen distintas ubicaciones. Y la segunda, con las carpetas donde tengo que copiar estos archivos. Es decir, el archivo cuya ruta está en A2, tengo que copiarlo en la ruta indicada en B2, igual A3 - B3, y así sucesivamente. He intentado algunas cosas con CopyFile, pero sinceramente no tengo mucha idea, y sólo consigo copiar un archivo, vamos nada. Necesito que me indiquen como hacer una macro que los copiase o moviese de una sola vez. He subido un ejemplo con unos pocos registros. Un saludo. Ejemplo.rar

Hola a todos, lo molesto por lo siguiente. Hago una consulta web desde excel por una Url, selecciono una tabla la cual contienen muchos hipervinculos y me aparece en excel, hasta ahi bien. Pero lo que yo necesitaria es la informacion dentro de ellos. Los cuales son tablas de igual tamaño pero diferente información para cada hipervinculo (que son mas de 150), necesito almacenar en una hoja para filtrar datos y demas, tendria que realizar una consula de la consulta o algo asi. Intente aprender un poco el funcionamiento de las macros pero veo que esto sale de mis conocimientos. Espero queme puedan dar una mano. Saludos!

Saludos intento acelerar una macro con screenupdating y calculation=xlmanual ya quese recomienda hacerlo pero no le he visto aceleracion notable al usar la ultima, ¿ cual es la funcion de esta sentencia realmente?, que es lo que hace y en que caso veria su utilidad? gracias