Macros y programación VBA

Amigos me piden este trabajo Crear un formulario del cual: 1.- Ingresar el valor del factorial que desee calcular en una celda. 2.- Que arroje el resultado en la celda contigua. 3.- Un diseño atractivo 4.- Con un botón que traiga dicho formulario 5.- Que oculte dicho formulario después de realizar la tarea. 6.- El calcule debe realizarlo con las instrucciones GOTO, IF THEN , etc. Al parecer no es tan sencillo o sera que los archivos que vi en el foro son tan impresionantes que me asuste de frenton hay unos archivo de NEVER y del maestro Mjrofra pero no supe como poder adaptarlo a mis necesidades si alguien del foro me pudiera ayudar lo agradecería un monton.

Buenas tardes, no tengo ni idea de como hacerlo, si pudieran hecharme un cable, se lo agradeceria mucho. Factura Prueba.rar

Hola Compañeros Tengo libro que cuando lo trabajo quiero trabajar En Calculo manual y solo me calcule cuando yo espiche el botón.. pero al salir a otros libros también me desactiva el calculo Quiero que eso no pase Asi que Puse que al Al Salir Se Active Y al Abrir Se Desactive Pero Aveces tengo que copiar mucha información y recurro al Copiar y pegar Desde otro libro de Excel Pero La selecciono y al momento de pegarla en el libro del calculo manual es como si no la hubiera seleccionado Así que decidi deactivar el calculo manual al abrir el libro y ahi si sirvió que hago

Hola amigos del foro, tengo una consulta, como puedo hacer para que mi celda se ponga de color cuando los datos que están en las otras hojas no coincidan o se cambien. Tengo un libro con una hoja data y 03 hojas más, debería buscar el numero de serie en las otras hojas si lo encuentra que verifique que el nombre es igual, si el nombre es diferente debe de cambiar el formato de la celda, así saber que se modifico el dato en las hojas. adjunta archivo, gracias por su ayuda FORMATO CONDICIONAL.xls

Estimado amig@s: Exite alguna posibilidad de que una tabla dinamica sea filtrada por fechas según los valores de dos celdas? en el archivo adjunto esta mi hoja REP donde tengo mi tabla dinámica pero quisiera filtrar según los valores de las celdas J1 y M1. Gracias Jesús Repjess.rar

Hola. Pido ayuda para desarrollar una macro que este asignada a un botón, que al hacer yo click en éste botón me bloquee un rango de celdas cambiando el color en ellas (para que se note que han sido bloqueadas) y que tenga contraseña. Agradezco mucho cualquier ayuda.

Buen día, Solicito su colaboración con lo siguiente: Tengo que traer una información de una base de datos con clientes para ajustar un informe con las ejecutivas manejan cada cliente. Yo tengo la información que que cliente mueve cada ejecutiva. Estaba extrayendo ya de la información pegada, con una macro los clientes de la ejecutiva "A" por medio de un filtro avanzado con los datos que tengo previamente de que clientes maneja esta ejecutiva "A" en el rango de selección del filtro avanzado. Hasta ahí no hay problema. Los datos que debe traer para este ejemplo son: Cliente de la ejecutiva "A", Semana del año "2015-8", Fecha de paz y salvo "0000-00-00" Tipo "Liq".…

Buenas, Antes de nada, no tengo ni idea de programar macros. Las pocas que uso han sido copiadas googleando y personalizándolas para mis libros de forma básica. Os planteo mi cuestión: necesito una macro que me copie en una sola hoja un rango de celdas (desde columnas B a P y filas desde 21 hasta la última cubierta) de todos los Excel de una carpeta (son todos iguales y parten de una plantilla, pero cada uno es cubierto por una persona distinta). Googleando y customizándola un poco he llegado a la siguiente: Sub ImportDataAgent() Dim SummarySheet As Worksheet Dim FolderPath As String Dim NRow As Long Dim FileName As String Dim WorkBk As Workbook Dim SourceRange A…

buenas tardes a todos alguien que me pueda ayudar con este tema , intento que mi formulario al momento de filtrar me ingrese los datos al listbox en forma horizontal y no uno debajo de otro , y por que al momento de filtrar se demora mucho en cargar el listbox. por favor alguien me eche una mano con este tema . se los agradezco, saludos FILTRAR.rar

Hola de nuevo amigos, hacía tiempo que no estaba en el foro y veo que ha habido cambios. Sé que el tema de mi consulta no es nuevo, pero no encuentro una solución adecuada a mis necesidades. Se trata de que un textbox ingrese datos con formato de decimales con 'coma' aunque la carga se haga con formato de 'punto'. Es decir, reemplazar (".") por (","). Gracias. ejemplo.xlsm

si bien existen modelos, pero no llego acondicionarlo a ,is archivos tengo mi archivo "Formato Factura Lukoll 2016.xlsm" origen del cual quiero copiar el detalle de mi factura en otro archivo ("Formato_Resumen_2016.xlsx") ejecuto una macro pero no llega a copiar, marca el origen, pone en memoria, abre el archivo destino,pero no llega a pegar la información. lo que deseo es: pasar siempre un mismo rango de mi archivo origen (Range("A25:Z40")) al archivo destino pero al final o insertando espacios al inicio de mi archivo destino; y la copia debe ser tantas veces como genere una nueva factura desde ya les agradezco la ayuda Gracias Neil Lopez …

Yo pedi ayuda en la confeccion de un formulario y ANTONI me contesto y me soluciono el problema, Crack total. Ahora bien, dentro de el listbox del archivo que adjunto "lo hizo antoni" quiero agregar tipo de comprobante y en la parte superior mes y año; la verdad que lo intente y fracase. Algun alma caritativa por ahi que me pueda dar una mano Recibos Antoni.xlsm

Necesito enviar al libro2 hoja banco a través de una consulta sql todos los pagos de los meses de enero a marzo mayores a 0 de la tabla Rel de igual forma a libro2 hoja pagos de la tabla Pagos de los meses enero a marzo los impuestos mayores a 0 Como hago para consultar las tablas y moverme los los recordset con un solo do while y no repetir el do wile por cada consulta que haga. Gracias de antemano. 'Conexion sqL = Select fecha, pagado, debe from [Rel] where beetwin fecha #1/1/2020# and #31/3/2020# and debe >0 orden por fecha 'Abrir sql 'Para Hoja Banco With Libro.Hoja Uf = .Range("A1000").End(xlUp).Row + 1 Z = 0 Do while Rst.eof …

Hola buenas Tardes tengo este codigo y solo me funciona para poder seleccionar un archivo TXT, y cargarlo a una tabla en sql server , Me gustaria poder seleccionar varios archivos txt y poder insertarlos a la misma tabla este es el codigo que uso donde podria modificar. Public Function ImportTextFile(cnn As Object, _ ByVal tblName As String, _ Optional FieldDelimiter As String = "|", _ Optional RecordDelimiter As String = vbCrLf) As Boolean Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset Dim sFileContents As String Dim iFileNum As Long Dim sTableSplit() As String Dim sRecordSplit() As String Dim lCtr As Long Dim iCtr As Long Dim iFieldCtr As Lon…

Hola de nuevo. Envío un ejemplo de lo que necesito, no se si esto es posible. Tengo unos datos en una hoja y en una celda calculo el % entre dos celdas. Hasta ahí es sencillo, pero lo que necesito es que en la celda donde se hace el calculo aparezca la fórmula como si no estuviera hecho con VBA. Por ejemplo, Sub ejemplo() lColumn = Hoja1.Cells(13, Columns.Count).End(xlToLeft).Column For x = 2 To x Hoja1.Cells(13, x) = Hoja1.Cells(12, x) / Hoja1.Cells(3, x) Next End Sub Sub ejemplo() lColumn = Hoja1.Cells(13, Columns.Count).End(xlToLeft).Column For x = 2 To x Hoja1.Cells(13, x) = Hoja1.Cells(12, x) / Hoja1.Cells(3, x) Next End Sub Es un eje…

buen día foro bendiciones alguien de a qui sabe como abrir un archivo que no aparece cuando se abre, no se que le active con las combinaciones de tecla este es como parece gracias de antemano saludos a este equipo

Hola amigos del foro espero y me puedan ayudar, tengo una duda, estoy realizando una migracion de base de datos de excel a sql server 2005, pero no tengo idea de como le puedo hacer mediante una macro ya que contiene un millon de registros mi tabla de excel, es recomendable migrar mi base de datos a SQL ya que quiero utilizarlo como mi servidor de base de datos y empezar a jalar informacion de sql para realizar graficas dinamicas sobre esa base de datos........ me pueden ayudar por favor... y si es viable hacer ese cambio ya que en mi excel se tarda un buen en abrir por la informacion y mis graficas que tengo... Gracias por su ayuda sañudos

Transferir entre tablas un valor vinculado Hola a todos, mi consulta es la siguiente: Tengo un libro de Excel con dos tablas, INGRESO y LISTADO, desde la tabla ingreso transfiero varios valores a la de Listado por medio deuna macro, uno de esos valores procede de un listado situado en ingreso, quisiera que una vez transferidos los datos, cuando modifico un valor cualquiera de la lista de ingreso, se modifique también en la tabla de listado. Lo mismo hay otro camino para hacerlo que no es el que yo estoy llevando, agradezco una ayuda, pr cierto, estoy intentado subir mi libro y lo tengo imposible, no se que pasa. Es tarde para mi, lo intentaré subir mañana. Saludos a t…

Hola amigos: Acudo a uds. nuevamente para que me proporcionen una ayudadita, Este es el caso: tengo una base de datos de Access con varios campos, y lo que quiero es importar un registro completo a excel, tengo ya un macro con el cual puedo visualizar desde excel por medio de un combobox el segundo campo de la BD, esto con el fin de poder ver cual de los registros deseo importar, el problema es que si logro ver los registros e incluso puedo importar el primer dato del registro a excel a la celda A2 el problema es que no encuentro la manera de a partir del nombre del registro pueda importar el restro de los datos de dicho registro, los restantes 7 datos de dicho registro …

Hola a todos, gracias por su atencion de antemano. Bueno tal cual y como dice el nombre del post necesito hacer una suma condicional en un codigo de VBA si es posible. El asunto es que tengo 1 encabezado por cada 3 columnas las cuales son horas requeridas, kt(kilotoneladas) y equipos requeridos. Lo que quiero obtener es que en una nueva hoja, copie los encabezados que no se repiten con sus respectivas columnas(3), y los encabezados que se repitan se unan en 1 solo (sumar cada columna con su simil). Debo agregar que el numero de encabezados pueden ser muchos (100 o mas) y no 5 como lo muestro en el archivo adjunto. Esperando que me puedan ayudar. Saludos - - - - - Me…

hola buen dia tengan, he estado investigando se que hay formulas especificas para poder encontrar coincidencias, pero la verdad me gustaria que excel sirviera para algo mas y es la intencion de hacer un registrador, consultor, ordenador, de datos registrales con la finalidad de poder encontrar la identidad de una persona registrada. Necesito que: 1.-cuando se abra el formulario me permita registrar, para que cuando le de click al boton de "registrar"; 2.- Busque si existe el criterio quee se esta registrando: si existe un criterio igual al que se esta registrando entonces que lo registre sobre la misma fila del criterio encontrado pero hasta despues de la ultima celda…

He cargado mi Base Datos Excel 2010, en un ListBox de varias columnas. Si selecciono una fila del ListBox(con todos sus datos distribuidos en las columnas) ¿Cómo puedo hacer para que mediante un Botón, ubique éste registro único en la BD que está en la hoja excel y modifique el contenido de una de sus celdas(columna). aaaAaaadaaaa

Hola Tal vez alguien pueda ayudarme, necesito un programa en Excel, el cual me permita ingresar mis productos, es decir el producto, se precio de compra, su precio de venta, la cantidad, y (si es posible también poder hacer salidas, y a que cliente se le otorgo el material), y lo mas importante que cuando quiera ver el producto pueda hacer una consulta rápida, por favor alguien que me ayude, solo un programa básico en Excel, gracias.

Hola buenos dias desde mexico tengo una super pregunta se pueden manejar archivos de exel es decir que mi mismo formulario pueda llamar los datos de otros archivos si es asi les puedo pedir de favor si me pueden ayudar gracias.

Hola amigos acudo austedes por el siguiente problema: tengo este codigo para poder acceder a MYSQL Set rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.CursorType = 3 rs.LockType = 3 dato = Sheets("Hoja1").Range("A1").Value rs.Source = "SELECT * FROM FOTOS " _ & "WHERE NOMBRE =" _ & Chr(34) & dato & Chr(34) & ";"[/CODE] mi problema es que donde dice sr.source es un string pero no puedo ponerlo como Dim rs.source as string porque me marca esa linea en rojo como puedo hacer para declararlo como un string. saludos