hola amigos tengo el siguiente codigo Sub guardar() Dim posicion As Integer Uf = Hoja5.Range("A" & Rows.Count).End(xlUp).Row For i = 0 To Pagos.ListCount - 1 If Pagos.Selected(i) = True Then On Error Resume Next With Sheets("Credito") pos1 = .Range("A2:A1000000").Find(cl1, lookat:=xlWhole).Row posicion = Application.WorksheetFunction.Match(Hoja4.Cells(i, 1), .Range("A" & pos1 & ":" & "aw" & pos1), -1) .Cells(pos1, posicion).Interior.ColorIndex = 3 End With End If Pagos.Selected(i) = False Next MsgBox "Datos Registrados con Exito", vbInformation, "Registrar" End Sub que hace este codigo, primero hay un formulario el cual manda …

Hola! Estoy buscando alguna forma de poder guardar el valor de una celda en una variable antes de eliminar la fila completa. Es decir, si el usuario elimina una fila completa me gustaría salvar el valor de una de las celdas borradas. ¿Alguna idea? Gracias,

Hola, dentro de mi formulario tengo un Multipage1. Como puedo saber cual es la página que se encuentra activa? (Page1, Page2 o Page3) Gracias por su apoyo. Saludos

Hola amigos, buenas tardes. Una preguntita quizás un poco tontorrona pero es que, como tengo tantos códigos VBA en el libro, es bastante tedioso cada vez que quiero buscar uno en concreto. Ayá va: Hay alguna forma de buscar un código VBA sin tener que ir pasando uno por uno ??. Oye, el que no sabe es como el... Saludos.

Buenas tardes, me gustaría ver como puedo realizar una macro para hoja1 en la que tengo 2 campos (nºpedido y fecha) para que me busque dentro de hoja2 (nºpedido, proveedor, fecha) los registros para los que coinciden el "nº de pedido" y cambiar la fecha por la correspondiente (la de hoja1). Pues como no sé si me expliqué en condiciones os adjunto archivo buscar y reemplazar datos.rar

No consigo sumar una columna de horas de un listbox, cuando estas superan las 24 horas, alguien que me oriente ? Horario.xlsm

Hola, tengo la siguiente tabla: date employee motive text 01/01/2022 PETER B baja 01/01/2022 MARY R ruta 01/01/2022 ANN R ruta 02/01/2022 PETER B baja 02/01/2022 MARY R ruta 02/01/2022 ANN R ruta 03/01/2022 PETER B baja 03/01/2022 MARY R ruta 03/01/…

Buenas Tardes foristas. Buenas tardes profesor JSD. Desde anoche he estado tratando de adecuar su excelente propuesta e insertarla al Proyecto, pero por más que he intentado no he logrado que funcione adecuadamente. Me explico: Yo copié el UserForm1 y el Modulo1 para mi Proyecto. Creé la Hoja4, la cual tuve que modificar y renombrar porque en mi Proyecto yo tengo una Hoja4, así que se creó como Hoja26 y estos cambios los sustituí en los códigos (Hoja4 por Hoja26) y aunque no me da ERROR alguno, tampoco me general el Reporte. Ortro problema que vi de su propuesta es que en PAGADO A: referente al Combustible debe decir Fincimex, no Financiamiento para…

tengo un problema al momento de querer editar un dato en mi hoja de excel al ejecutar el boton de modificar me manda error 91 variable de objeto o bloque with no establecido ya le busque y no le encuentro adjunto el archivo el problema es el la pestaña AUSENCIAS espero me logren ayudar gracias!!!! Private Sub BtnEditarAUS_Click() Dim Rango As Range Dim NuevaFila As Long Dim Valor As String ' lo puse como string por que el dato de la columna A es 1-1 Dim mensaje As String mensaje = MsgBox("ESTAS SEGURO DE EDITAR LOS DATOS", vbQuestion + vbYesNo, "EDITAR DATOS") If mensaje = vbYes Then Set Rango = ThisWorkbook.Sheets("BASE.AUS.").Range("A1…

Buenos Días Foro; La presente tiene para resolver las siguientes dudas respecto a códigos en SQL teniendo la siguiente información me piden desarrollar las siguientes preguntas: Empleando la BD INFRANCIONES. Coloque el código SQL para las siguientes consultas: 1. Seleccione los nombres y apellidos de propietarios que tienen más de un vehículo. 2. Seleccione todos los campos de aquellas papeletas que se han impuesto en la segunda quincena del mes de Marzo del 2006. 3. Seleccione las placas de vehículos, la descripción de su color y marca, así como su multa acumulada por todas las papeletas impuestas. 4. Seleccione el código y descripción de las infracciones que no h…

Hola muy buen día mi nombre es Walter90 soy de Nicaragua y soy nuevo en esto de trabajar con macros soy Ing. eléctrico y estoy trabajando en una macro para presupuesto de materiales de construcción en lineas de distribución eléctricas mi inquietud es la siguiente hay 1 hoja que se llama Elementos-UF al poner un numero en una casilla en blanco de los armados me da un listado de materiales en la otra hoja llamada del mismo modo pero no se como hacer para copiar de manera automática una lista concreta de armados que pueden estar separados por varias celdas de distancia en otra hoja llamada concentrado sin que me copie los espacios vacíos adjuntare el archivo en el que estoy …

Hola, Tengo una duda a la hora de evaluar una expresión booleana, siempre para saber si es verdadero o falso, directamente pongo (if Variable) a secas, sin =, pero sin querer le puse = True y no entraba en la condición, tras quitarle el true ya entraba. Sé que el valor verdadero de un boolean es -1, pero entonces, ¿por que cuando pones (if NumeroInteger) sin =, cuando NumeroInteger<>-1 & <>0, lo toma como -1? ¿Sabéis qué tipo de conversión ha realizado por sí sola la función IF? y en caso de "Si", ¿Podríais indicarme cual es esta función de conversión booleana? Sub PruebasBoolean() Dim VarInteger As Integer VarInteger = 100 If VarIntege…

Muy Buenas amigos del foro: Estoy intentando capturar datos mediante un formulario pero al gardar los datos me presenta un error, el codigo que he escrito es el siguiente: Private Sub CommandButton6_Click() Dim fecha As Date Dim sucursal As String Dim ingpart As Double Dim factpart As Double Dim inginst As Double Dim factinst As Double Dim exapart As String Dim exapsv15 As String Dim exapsv10 As String Dim exaemp As String Dim exaprom As String Dim exacort As String Dim exaoftalm As String Dim valexapart As Double Dim valexapsv15 As Double Dim valexapsv10 As Double Dim valexaemp As Doub…

Hola amigos: Estoy con un problema complejo. Quiero insertar un gráfico en un Form, de manera que el usuario pueda elegir que datos visualizar en el gráfico usando un combobox que recoge los encabezados y sus valores mensuales de la hoja "rendimiento_camiones", estos rendimientos debiesen ser calculados en la hoja "BD" que contiene todos los registros de viajes de todos los camiones, y mostrar en la hoja "rendimiento_camiones" el valor mensual, para luego obtener el gráfico. Primero habría que filtrar en "BD" por patente y ademas entre las fechas 01/mm/yyyy - 31/mm/yyyy para calcular el rendimiento, para enviarlo posteriormente a la hoja "rendimiento_camiones"y así ob…

Hola a todos y desde ya le agradezco por su tiempo y paciencia.. Tengo una planilla, en la cual tengo un Userform no modal, en esta tengo dos Textbox, en los que hago búsquedas, y que al darle doble click me arroja en cualquiera de las celdas de la columna "B" donde se encuentra mi cursor....ademas... Tengo un TextBox3, en la cual quiero ingresar números ej. 123-123-465799 y que este número me arroje a la celda de la columna "D", a partir de la fila 7, ademas tengo 3 ComboBox, en los cuales tengo lista a seleccionar, del ComboBox1 al seleccionar el tipo de documento que me arroje a la celda de la columna "F", a partir de la fila 7 del ComboBox2, al seleccionar e…

Hola estimados Bueno he creado una formula que entre otras formulas, usa la formula Texto. El problema es que el resultado que me arroja esta sale en ingles. Function MesExacto(FechaReferencia) MesExacto = Application.Text(FechaReferencia, "MMM") End Function Aqui por ejemplo pongo cualquier numero (por ejemplo 50030), y me arroja las 3 primeras letras del mes PERO EN INGLES (En este caso, arroja "Dec"). Yo quisiera que salga en español (En este caso que arroje "Dic"), de allí mi duda. Espero puedan ayudarme Saludos

Hola a tod@s, Sigo creciendo en dudas respecto a la creación de macros. En parte por la "culpa" de [uSER=46507]@Macro Antonio[/uSER] que me resuelve todo como si fuera fácil. El objetivo es copiar una hoja "AA_plantilla" un número de veces determinado (hecho) para en un segundo paso poder copiar los nombres de la hoja (AA_nombres) en las casillas A2 de las hojas que se acaban de crear y renombrar estas nuevas hojas con este nombre. Esta macro hace perfectamente el paso número 1: copiar la plantilla "Sub CopiaHoja() On Error Resume Next nombreHoja = InputBox("¿Qué hoja quieres copiar?") For x = 1 To Sheets.Count If ActiveWorkbook.Sheets(x)…

Hola buen dia a todos... De antemano, se que las macros no funcionan bien cuando se comparte un libro... Tengo una proteccion de hoja basica desde VBA: Private Sub Worksheet_Activate() ActiveSheet.Protect Password:="contraseña" End Sub El problema es que al compartir el libro no hay opcion para desproteger la hoja... No se que pueda hacer... quiero que se siga ejecutando esa instruccion pero con el libro compartido Saludos!!!

hola me gustaria saber cual es la parte del codigo donde pones que se ordenen las graficas una debajo de la otra por codigo osea cual es codigo, yo tengo el sig. codigo que grafica me grafica una sobre otra. anexo el codigo aunque esta muy personalizada a cierto formato que tengo pero solo me falta eso que te explico arriba. gracias de antemano Sub crear_grafico() ‘Ocultamos el procedimiento Application.ScreenUpdating = False ‘Pasamos a una variable la celda donde estamos, ‘para volver a ella al finalizar el macro celda_donde_estamos = ActiveCell.Address ‘Vamos al principio del rango de datos ‘(celda de arriba a la izquierda). ‘Mejor usar esto, que CurrentRegion: If Ac…

Hola a todos. Necesito una pequeña ayuda con una hoja en la que hay que introducir datos en rango B11:B140. Mi problema es que si por ejemplo termino en la celda B60 al pulsar enter en la siguiente se desplazara a la celda H11. Lo he intentado con condiciones (If) y con activecell y o me da error de compilacion o no me da error pero no hace nada

Buena tarde amigos: tendrá alguien por ahí algún macro para buscar e insertar imágenes pero al desplegar la ventana de búsqueda esté direccionada a una carpeta especifica?. saludos

Estimados, muchas gracias por su ayuda, estoy realizando una planilla para ingresar clientes y llenar una base de datos, pero quiero saber como poder hacer para que si el cliente ya existe me muestre sus datos y si los modifico se modifiquen en la base de datos, pero si no está, que me permita llenar su información. Hasta ahora solo he hecho: Sub Registro() ' Dim strTitulo As String Dim Continuar As String Dim TransRowRng As Range Dim NewRow As Integer Dim Limpiar As String ' strTitulo = "Registrar Datos" ' Continuar = MsgBox("Grabar datos?", vbYesNo + vbExclamation, strTitulo) If Continuar = vbNo Then Exit Sub ' Set TransRowRng = ThisWorkbook.Worksheets("D…

Buen dia requiero de apoyo lo que pretendo hacer es generar un código basado e dos celdas teniendo por ejemplo A1 China y B1 478 quiero que si el nombre en A1 es china en la celda C1 apaesca [China, (valor de B1)], respetando los paréntesis y la ultima coma el resultado final seria [China, 478], agradeceré cualquier ayuda saludos

Que tal a todos, tengo el siguiente problema. en el adjunto pongo un userform con marcas lo que quisiera saber es como puedo hacerle para que seleccione una marca y apretando el boton de insertar me pega la marca en la hoja activa. De antemano muchas gracias. MARCAS.rar

Buenos días Grupo Acudo a la ayuda de ustedes para realizar una conexión de un macro de excel a una base de datos de ACCESS Ademas me gustaria saber si es posible que detecte si la hoja Registro tiene mas de una fila con datos lo pase automaticamente al archivo de ACCESS. Saludos Datos.rar