Macros y programación VBA

Alguien me puede ayudar a resolver mi problema, soy nuevo en esto de las macros y necesito crear un botón con una macro que imprima una serie de documentos que se encuentran en una misma hoja pero en función al resultado obtenido desde una serie de celdas situadas en la misma hoja. Ejemplo: La hoja se llama "COND Y TARIFA" y tiene 19 páginas con distintas tarifas. A través de un formulario que he creado en otra hoja de excel del mismo libro, elaboro el presupuesto y asigno en ciertas celdas el resultado de "si" o "no", que hace mención a cada una de las tarifas que tengo en la hoja "COND Y TARIFA" y que son las que se deberían de imprimir ("si" se imprimen y "no" se om…

Estimados amigos del foro me gstaria que me ayudaran a resolver este tema, el mismo que muchos buscan tener resuelto este caso en la mayoria de sus aplicaciones. Una aplicacion excel que abra automaticamente un userform, se oculte excel de manera independiente a otros abiertos, en el userform exista un modo de mostrar al excel y volver al userform ocultándolo. Al cerrar el archivo se vuelva todo normal al excel con previo guardado He intentado algunas cosas pero se presentan errores al probar diferentes modos Espero me puedan colaborar y ademas lo puedan colocar en aportes, ya que es útil para todos Gracias anticipadas subo el archivo para que lo…

Buenas tardes tengo una macro que me separa archivos .csv en columnas, me los importa y los separa de forma automática, la duda es que con unos archivos me lo realiza sin ningún problema y con otros teóricamente iguales no me hace la separación al ser importados. El código que utilizo, es el siguiente Sub CARGAR_ESR_CMMS() Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("A1").Select With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\GUILLERMO\PANEL LEAN\TOMA DE DATOS\export EmergencyServiceEvent.csv" _ …

Buenas tardes, tengo una procedimiento que estoy modificando para contar los registros de una tabla access y verlos en un textbox de un formulario excel vba, pero el resultado siempre me sale -1 y en la tabla hay 4 registros. Sub Consulta_Registros() Dim conexion As ADODB.Connection Dim recordset As ADODB.recordset Dim Consulta As String Dim MiBase As String Set conexion = New ADODB.Connection MiBase = "\DBClientes.accdb" conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Application.ThisWorkbook.Path & Application.PathSeparator & MiBase Consulta = "SELECT * FR…

Buenos días, He puesto una barra de desplazamiento en la hoja excel que está ligada a una macro, aprovecho a dar las gracias a @Antoni que me ayudo a solucionar ese problema. Resulta que cuando protejo la pestaña la barra no la puedo mover. ¿Existe alguna forma de que con la pestaña bloqueada se pueda mover la barra de desplazamiento? He estado haciendo pruebas con todos las opciones que salen a la hora de bloquear la pestaña y ninguna me ha funcionado. También he quitado al objeto la casilla de bloqueado. Gracias a todos!!!

Buenos días! A ver si alguien puede ayudarme... ? Dada la celda activa, quiero seleccionar todas las celdas hacia abajo y hacia la derecha, hasta las últimas celdas con datos, aunque haya celdas vacías entre medias, y borrar su contenido. He probado de mil maneras y no doy con la buena..... Creo que lo que más se acerca a lo que quiero es esto, aunque no lo estoy aplicando correctamente porque me da error en 'Range' de '_Objeto' global: busca.Offset(filatm + 1, -13).Select Dim abajo As Range, derecha As Range abajo = Range(ActiveCell, Range(ActiveCell).End(xlDown).SpecialCells(xlCellTypeLastCel…

Hola, de apoco he avanzado con lo que es VBA, ya que no es de mi total dominio, quería ver si alguien me podría ayudar... Por fin cree una macro que me expulsa un archivo que se edita desde excel, y me expulsa 2 tablas desde el mismo excel.. todos son archivos separados ( en total son 3 archivos base, ya que puede variar.. lo mínimo son 3 y lo máximo hasta ahora son 22 archivos) Si alguien me pudiera ayudar, estoy en 0% de esto ya que VBA en Word recién lo estoy viendo y no hay mucha info.. Necesito que desde el primer archivo que es una plantilla con texto se añadan los 2 otros archivos que también expulso la macro, explico.. los otros 2 archivos s…

Hola amigos. Por favor me pueden ayudar con una macro que quiero hacer. Quiero traer los valores de la hoja anexo, cuando ponga el valor buscado (RUC) que esta en la hoja anexo2. Espero puedan ayudarme. Gracias!! buscar_datos.xlsx

Buenas, Hay alguna razon por la cual cuando se ejecuta una Macro, se genere un archvio de solo lectura alterno al original? El codigo que uso es este: Sub TrapasarTrimestre2() 'Leyendo cadena de texto Dim Anio%, Trimes As Variant Dim Conn As Object, rst As Object, SQL$ Dim Ruta$, Datos As Worksheet, RELACION As Worksheet, Rubro$, Tabla$, Campos$, RutaTriAnt$ Dim LibroDestino As Workbook, Z As Long, Condicion$, Cm%, Columnas As Variant, CamposRecord As Variant Dim FIni As Date, FFinal As Date ', UltFila As Double Dim HojaActual As Worksheet, Uf As Double, x As Long, y As Long Dim LibroTriAnt As Workbook With Application .ScreenUpdating = False .EnableEve…

Hola a todos. Alguno de uds. tendrá un formulario que al abrir el archivo excel solicite nombre de usuario y contraseña. Gracias anticipadas. Saludos.

Hola colegas, buenos días. Espero se encuentren bien de salud. Antes que todo ofrecer mis disculpas porque no creo que esta sea una plataforma para este tipo de escrito, pero no encuentro otra opción y quiero que el mensaje llegue. Me es difícil hasta escribir esto, pero por razones ajenas a mi voluntad voy a estar mucho tiempo (creo que bastante) fuera de este MARAVILLOSO FORO. (Ojalá esté equivocado) Los problemas que está presentando mi país, que todo es un verdadero desastre, sumados a mis problemas personales me han obligado a tomar tan dura decisión. Todo este tiempo ha sido muy provechoso para mí, he aprendido lo que nunca imaginé, he innova…

Buenas, llevo ya un tiempo rompiendome la cabeza con este problema: Antecedentes: Creo una base de datos de las entradas de una factura, en ella hay un dato que es la fehca =hoy() copiada con .value a la columna x. La columna con sus datos tienen formato "fecha corta" . HAsta aqui todo bien. Pongo un textbox para filtrar los clientes, pero cuando quiero añadir un segundo textbox para filtrar el "AÑO" y no la fecha me resulta imposible sacar el codigo. Si lo uso con autofilter a mano me lo hace perfectamente. Saco el importe del cliente en el año 2023 (por ejemplo). Me resulta imposible hacerlo con textbox. Mi primer textbox lo tengo…

Buenos días compañeros y buen fin de semana para tod@s. Tengo un problemilla con un excel y no sé como solucionarlo. Soy un poco novato en estos menesteres. En la hoja principal llamada PRUEBA, en la columna E figura el nombre del cliente que será AAAA, BBBB, CCCC, DDDD.... Necesito que se traspasen los datos automáticamente según se vayan rellenando de esa hoja llamada PRUEBA a la hoja del cliente correspondiente AAAA, BBBB, CCCC, DDDD..... Me imagino que la forma de hacerlo es mediante visual y es un tema que desconozco. COPIA FORO.xlsx

Buenas tardes a todos. Se trataría de definir una variable tipo String, que almacenaría nombres de distintas macros. La variable toma el nombre de la macro según se cumplan unas condiciones. Hasta ahí fácil. Haciendo un debug, sale perfectamente cada nombre cuando toca. El problema viene al hacer un call de esa variable para que ejecute la macro cuyo nombre contiene en ese momento. He probado esto: call nombre_variable y alguna cosa más. Pero no debe ser por ahí el tema, porque o me dice "la macro x no está disponible" o cualquier error más. Os agradezco mucho vuestra ayuda. Un saludo

Hola a todos,me interesaria una macro que me pudiera eliminar las filas que no coincidieran con una condicion en concreto esta seria el nombre. Lo que me interesaria no seria el borrar los datos sino eliminar la fila Gracias a todos por vuestro trabajo eliminar nombre que no coincidan.xls

Buenas, tengo un Listbox, el cual cuando inicia el programa me lo trae con informacion que carga de la hoja 1, y a la par asociado un Combobox que se le va agregando mas info a este Listbox. El problema pasa cuando Inicia, y me carga la info previa que hay en la hoja 1 en el listbox, ya que luego, al agregarle mas info por el combox me deja un espacio en blanco. a continuacion el codigo que tengo Private Sub UserForm_Initialize() Application.ScreenUpdating = False Worksheets(1).Select Y = 0 vuelve: a = Cells(Y + 1, 12) If a = "" Then GoTo seguir: Y = Y + 1 GoTo vuelve: seguir: Range("L1").Select For ii = 1 To Y ActiveCell.Offset(1, 0).Select ListBox1.Add…

Feliz Navidad para toda la comunidad Despues que finalmente iba a llenar este libro con datos, se me presento un dilema (para mi). Cuando me proponia a Eliminar todo dato existente en la hoja2 ("Datos") para llenarla definitivamente, procedi a: Procedimiento: Marco el OptionBotton Eliminar, selecciono el 1º dato de la lista en el ComboBox, apreto el boton con el caption Eliminar y mi surpresa, me dice; Elija una opcion de la lista desplegable. Si selecciono el 2º de la lista Si funciona bien pero al selecconar el 1º NO. He dado vueltas al evento Private Sub Eliminar_Click() (creo ser por aqui) cambiando algunas cositas pero no he sido capaz de corrigir el fallo. Los…

Hola que tal quisiera que por favor me ayudaras es mi proyecto final de la prepa y la verdad es que no se nada de programación me urge te pido tu apoyo. Es con la siguiente MACRO EXCEL miren tengo dos columnas la primera es el Estado y la segunda el Código Postal. Lo que necesito es que a través de una macro me vaya recorriendo las celdas es decir a1 con b1 valide a2 con b2 valide etc. hasta llegar a la ultima que tenga información la validación seria que el Estado corresponda al Código Postal indicado y viceversa. Tengo los rangos establecidos para cada estado con gusto los anexo en archivo. Posteriormente quiero que cuando no este correcta la validación, me vaya gen…

Buenas, He intentado realizar una macro pero no lo consigo. Adjunto un ejemplo donde se explica y se pone un ejemplo de lo que se busca. Se trata que mediante una macro busque en una tabla los meses de producción y te escriba una "p" cuando haya habido dos meses con producción (pueden ser no consecutivos). Muchas gracias Ejemplo celdas foro.xls

Buen día para todos encontré un archivo en la web que permite hacer facturas y poder manejar una base de datos de inventario, mi problema es que soy novato para VBA y no comprendo muchas cosas y quiero hacer unos ajustes en el programa; necesito que el programa me genere automáticamente un consecutivo cada vez que le doy nueva factura también necesito que la factura cuando me genere el subtotal de la compra no me sume el iva sino lo me reste ya que el valor del producto de la lista es con iva incluido y por ultimo no se como cambiar el formato de impresión la idea es que el recibo salga en formato colilla. De verdad agradecería la ayuda no es para fines lucrativos sim…

Buenas Tardes antes que todo agradecer cualquier ayuda o sugerencia. Bueno les comento tengo un combobox donde al elegir una opcion me despliega una serie de datos, dentro de esos datos tengo una ficha tecnica de un producto en particular, mi idea es que luego de mostrar esos datos la celda que contenga el nombre de la ficha tecnica que en forma de link y que me permita abrir la ficha. Estas fichas estan en formato pdf. Estuve haciendo algunas pruebas con codigo: Sub CrearHyperlink() Dim FolderName As String FolderName = "C:\Users\Juan G\Desktop\Cristian\pdf\" ActiveSheet.Hyperlinks.Add Anchor:=Hoja1.Range("C20"), Address:= _ FolderName & Hoja1.Range("C2…

Estimados amigos: En un archivo Excel tengo una tabla de datos bastanteextensa que importo de otra aplicación y genera un archivo con numerosas hojasy miles de registros. A modo de ejemplo os adjunto un libro que ya contiene unamacro que me permite eliminar filas de manera aleatoria en función de un rangoseleccionado: desde fila, hasta fila y el número de líneas que se deseanborrar,pero necesitaría concretar más la macro y que haga también lo siguiente:Que para una hoja concreta, seleccionando una columna y un concepto existenteen celdas de esa columna, y un importe sumatorio de valores de otra columna quecumplan ese criterio, me borre aleatoriamente filas hasta obtener…

Quisiera me ayudaran en esto. Tengo un libro con 2 paginas la primera se llama maxtxt y la segunda se llama formula. Necesito macro para copiar desde pagina formula la celda A2 y pegarla en pagina maxtxt Celda C7. Private Sub maxtxt() Set Lcl = Range("B3") Set rg = Range("C7") rg.Copy rg.Offset(rg.Rows.Count, 0).Resize(rg.Rows.Count * [B5] - 1) fecha = Format(Now - 1, "mmdd") Application.ScreenUpdating = False Range("C7").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Workbooks.Add Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.SaveAS Filename:="C:\" & "Max" & fecha & "." & Lcl, …

Hola, busco un metodo de llenar un combobox desde una base de datos a traves de un recordset, lo he intentado de esta forma sql = "select * from na_solicitante" With comSQL .ActiveConnection = conSQL .CommandText = sql .CommandType = adCmdText Set curSQL = .Execute End With While Not curSQL.EOF combobox1.additem curSQL.Fields(0).Value curSQL.MoveNext Wend y me arroja un error. si alguien pudiera ayudar muchas garcias de antemano

Intento hacer una lista desplegable en un rango de celdas, los datos son el resultado de una extracción en otra hoja. Excel 2007. Este código esta en el modulo de la hoja1: Private Sub Worksheet_Change(ByVal Target As Range) Dim mLista, nLista If Intersect(Target, [b5:b21,c25:c26]) Is Nothing Then Exit Sub [b5:b21,c5:c26].Validation.Delete Application.ScreenUpdating = False With Hoja2 .[a1].CurrentRegion.AdvancedFilter 2, .[c1:c2], .[f1], False If .[f3] <> "" Then mLista = WorksheetFunction.Transpose(.Range(.[f2], .[f1].End(xlDown)).Value) [b5:b21].Validation.Add 3, 1, 1, Join(mLista, ",") ElseIf .[f2] <> "" Then [b5:b21].Val…