Hola amigos de #Ayuda Excel Aquí traigo unas inquietudes que quisiera me ayuden a resolverlas, que a continuación detallo: 1.- Necesito agregar un procedimiento en la macro "LLENADO" del botón "Grabar e Imprimir" que me informe que faltan llenar datos en las celdas con color y que no se ejecute la misma, hasta cumplir esa condición. 2.- Necesito agregar un procedimiento en la macro "LLENADO" del botón "Grabar e Imprimir" que al grabar los datos del comprobante en los registros respectivos, me informe que el comprobante esta repetido tomando en consideración los 10 primeros datos registrados y que no se ejecute. 3.- Necesito agregar un procedimiento o modificar mi macr…

Que tal .. Soy nuevo en el foro. estuve buscando un tema similar a mi problema y no encontre, agradecería si alguien me podría asesorar o ayudar con mi problema lo cual no debe ser muy complicado ya que es una función muy util y no soy el primero en tratar de desarrollar algo asi. Bueno el formato que me interesa tiene 3 objetivos 1.- un ingreso de datos mediante un cuestionario a una hoja de excel, hay un sinfín de tutoriales para eso y por este punto no me mortifico. 2.- el aviso de vencimiento de cada dato anexado, por ejemplo si doy de alta a un usuario que excel me avise cada determinado tiempo el vencimiento de este. aqui la cuestión si fuera mes tras mes seria …

estoy haciendo un registro en el cual ya hice el combobox con lista desplegable pero no se como hacer que con vba excel de autofiltro a el valor seleccionado en el combobox

para empezar esto es lo que llevo Public Sub copia() Sheets("hoja3").Select ActiveSheet.Range("A1:F8").Select frase = ActiveCell.Value ActiveCell.Offset(0, 9).Select y esta es la instruccion Este macro llamado copia copia los contenidos de las celdas en el rango A1:F8 a las celdas que se encuentran a partir de la celda J1 Este movimiento se debe de hacer con loops y con las instrucciones vistas hasta ahora aunque existen instricciones poderosas capaces de hacerlo de una sola vez. quiero saber si me pueden explicar que es lo que debo hacer

hola buenos dias quisiera saber si me podrian ayudar con esta orden de compra en la hoja1(DIARIO) del libro BASE DE DATOS , la idea es que por medio de un macro se pueda compiar los escrito en el DIARIO a la base de datos. dejare un ejemplo esperando contar con su ayuda de antemano muchas gracias orden de compra.xls

Hola a todos, Tengo varios grupos de 3 palabras que necesito agregar en tres celdas de una fila, una seguida de la otra. Son al menos 10 grupos de 3 palabras. Lo que necesito es una ventana adicional con 10 botones, uno por cada grupo de palabras, al dar click sobre el botón, deben aparecer las tres palabras en el documento, teniendo en cuenta la celda activa, de tal forma que si la celda activa es la G5, la primer palabra del grupo se escribe en esa columna, la segunda palabra en la celda H5 y la tercer palaba en la celda I5. La idea es que me pueda desplazar verticalmente con las teclas de dirección por la columna G y asignar los valores correspondientes a cada fila …

Hola muy buenas tardes amigos, soy nuevo en esto de los foros, me gustaría realizar un filtro de varias celdas pintadas de un solo color, el filtro quisiera realizarlo con una macro pero no me queda.

Buenas Tardes!! Una vez mas solicitando de su amable ayuda Tengo Un Libro conformado así: Hoja Layout de un casino donde me muestra la distribución de los juegos, Hoja Thermo Indicador donde corresponde la Licencia de cada juego Hoja Base x maquina que contiene la base de datos correpondiente a las licencias Por medio de VB deseo que cada vez que se seleccione un juego, un Msgbox me arroje los datos de la licencia Adjunto Ejemplo De antemano muchas gracias MsgBBuscador.rar

Me gustaría que me pudieran ayudar en: En un gráfico quiero que el rango del grafico sea dinámico se que se tiene que crear un nombre y anexarlo a la serie del grafico pero cuando lo coloco no me deja salir de la barra de formula y en un ejemplo que vi si lo tiene y funciona. Anexo línea =SERIES('ejemplo grafica.xlsm'!EtiquetaDinámica,Dashboard!$C$4:$H$4,'ejemplo grafica.xlsm'!RangoDinámico,1) · la primera parte si me lo permite pero ya donde dice rango dinámico ya no me deja

Quería acabar mi proyecto hoy... y dando los toques finales me dice que EL PROCEDIMIENTO ES DEMASIADO LARGO.. CREO QUE POR HOY LE PARO Y ME VOY POR UN TEQUILA...PARA EL FRIO.... YA MAÑANA VEREMOS de a como nos toca... P.D.: ALGUNA IDEA a parte de PARTIR EL CÓDIGO EN VARIOS SUB? Saludos.

Saludos. Os dejo un archivo adjunto. Son dos hojas, una llamada CSV que es como a mi me llega la información de un pedido y la otra hoja que es donde me gustaría tener todos los pedidos juntos para poder controlarlos a la vez. No busco que me lo "arregléis sin más" solo que no se me ocurre como plantearlo. Obviamente lo único que se de programación es copiar y pegar algunos códigos que encuentro en mis hojas de excel. Gracias chicos. Ejemplo.xlsx

Hola gente soy nuevo y estoy tratando de adaptar un programa vba a mi necesidad pero al momento de ejecutarlo me da el erro 3709 Option Explicit Public CN As ADODB.Connection Dim Cod_Prod, Nombre, Existencia Dim Fila, Final As Integer Function Connect(Server As String, User As String, Pass As String, Database As String) As Boolean Set CN = New ADODB.Connection On Error Resume Next With CN .ConnectionString = "Provider=SQLOLEDB.1;" & _ "Password=" & Pass & ";" & _ "Persist Security Info=True;" & _ "User…

Buenos días gente, bueno es simplemente lo que dice el titulo, quisiera que en una determinada hoja (no en todo el libro) se resalte la fila activa con algún color, sin que modifique los formatos condicionales que pueda llegar a tener esa hoja No lo intenté hacer con formato condicional ya que es una tabla muy extensa y supongo que el rendimiento del libro bajaría en comparación si usaría VB Desde ya muchas gracias y saludos Buena Vida

Estimados, muy buen dia. Les comento que estoy trabajando a una macro, la cual consiste en buscar datos de otro libro de excel, mediante el comando ActiveWorkbook.Path. Necesito que busque 5 archivos distintos, los cuales están nombrados con números del 1 al 5. Para hacer esto, copie 5 veces el código ActiveWorkbook. El problema es que si un día solo tengo 3 archivos, la macro arroja un error al no encontrar el cuarto archivo. Probe utilizando el comando On Error GoTo "primero" , y al final primero: Funcionó con el primer codigo, pero el segundo utilice On Error GoTo "segundo, y no lo considera. Sub TEST() ' ' TEST Macro Dim wbDestino As Workboo…

Hola pueden ayudarme con pequeño ejercicio de Excel que también se refiere a bloquear celdas especificas y pueda hacer esto con una macro quisiera que al momento de escribir en la celda D3 las celdas D5, D7, D9 queden bloqueadas o si escribo en la celda D9 las celdas D7, D5y D3 queden bloqueadas, de igual manera con las celdas D7 y D5. No se si me explico ISC 1.xlsx

Buenas a todos. Estoy intentando aplicar formato condicional a un rango de celdas que cumplan con una fórmula. El formato que quiero aplicar quiero copiarlo de otra celda, pero el objeto no me deja pegar de esa forma. Alguna idea? With Range(A2:A6).FormatConditions.Add(xlExpression, , "Formula1") Range("C3").Copy .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End With Modificar cada parámetro a mano si que me deja, pero querría que pillara el formato completo de la celda, para no tener que meter todas las opciones. (Pongo sólo 3 en el ejemplo) With Range("A1:A5").FormatC…

Buenos días requiero ayuda con lo siguiente: para poder identifica la ultima celda con datos utilizo el siguiente código: x= ThisWorkbook.Worksheets("Simulación ingresos M").Range("A" & Rows.Count).End(xlUp).Row + 1 en la hoja de simulación ingresos m se encuentra una tabla a la cual le voy agregando registros a partir de otra hoja, por algún motivo la primera fila de la tabla ( donde se encuentra la formulación) el código no lo tomo como la primera fila vacía teniendo como consecuencia que siempre me queda la primera fila vacía. como puedo arreglar este problema?, quedaría agradecido con la ayuda No me permite adjuntar el archivo , adjunto …

Buenos días a los integrantes del foro, en esta ocasión recurro a uds, para que me brinden su apoyo con la siguiente macro, el cual me esta emitiendo un error en la segunda macro con el titulo Macro que permite grabar hoja en un nuevo libro, y es que al momento de guardar los datos de la hoja REPORTE a la hoja PRE_REPORTE y cuyo dato de la hoja REPORTE celda C3 no convierte como #¡VALOR! tras presionar SI, para lo cual anexo archivo y desde ya agradezco su atención y apoyo. Macro que copiar de una hoja a otra hoja: Sub CopiarReporte() Application.ScreenUpdating = False Set h1 = Sheets("REPORTE") Set h2 = Sheets("PRE_REPORTE") …

Buenas. En un rango de celdas (en este caso C2:C12), me da el resultado de busquedas. También lo tengo condicionado a que el relleno de la celda de color cambie. Lo que necesito es que si alguna celda del rango cambiara el color de relleno, me saltara un msgbox como advertencia, indicandome que se ha producido un cambio de color y un boton para aceptar la advertencia. En el ejemplo adjunto, he dejado las macros que contiene la hoja hasta ahora. Muchas gracias. AVISOS1.xlsm

Hola buenas noches! Espero que me puedan apoyar con el siguiente tema: Tengo una base de datos de mas de 2500 registros de los cuales quiero depurar de acuerdo a su RFC Emisor y sumar las cantidades que contenga en sus registros de acuerdo a las demás columnas, es decir que si un registro aparece 500 veces que me sume en general el contenido de su registro, todo esto mediante una macro, anexo un archivo con algo de información, espero puedan apoyarme, de ante mano mil gracias acumulado 2020.xlsx

Tengo un problema en mi macro, ya que se ejecuta solamente al reescribir sobre la celda J23 Quisiera que se ejecute de manera automática al realizar un nuevo cálculo en la hoja, como podria solucionarlo? Dejo mi código: Private Sub Worksheet_Change(ByVal Target As Range) Dim Rango As String Rango = "J23" If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then For i = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes(i).Visible = True Next i For i = 1 To ActiveSheet.Shapes.Count If ActiveSheet.Shapes(i).Name = Range("J…

bueans tengo este codigo Private Sub BtnGrabarDatos_Click() On Error Resume Next intvalor = 1 For i = 1 To ReCantidad Step 1 Range("B6").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop Range("B5:V5").Copy Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormatsAndFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False ActiveCell = CDbl(ReCodigo) ActiveCell.Offset(0, 1) = ReCategoria If IsNumeric(ReNuFactura) Then ActiveCell.Offset(0, 2) = CDbl(ReNuFactura) Else ActiveCell.Offset(0, 2) = ReNuFactura End If If ReReferencia.Enabled = False Then ActiveCell.Offset(0, 5) = "" …

hola!!! estoy tratando de grabar una macro que en cierto momento abre una hoja nueva. la primera vez que la corro es todo maravilloso!! (crea la "hoja 1") a partir de la segunda ya no está tan padre, porque al ejecutar la macro, en lugar de hacer referencia a la hoja1 abre nuevas hojas (hoja2, hoja3, hoja4...) y las siguientes fórmulas, siguen haciendo referencia a la hoja1, y no a la que se acaba de crear.... (hoja2,3,4...) se les ocurre algo que pueda hacer??

Tengo un fichero en el cual utilizo dos combobox sincronizados de tal manera, que al seleccionar un valor en uno de ello, en el otro me muestra el valor que le corresponde ubicado en otra lista. Se me ha presentado un error en tiempo de ejecución al ejecutarlo y no he podido dar con lo que lo produce. Por ello, solicito la ayuda de alguien que me indique cómo solucionarlo y me describa por qué se produce. De antemano. gracias. Subo el fichero para mayor comprensión. Editado: Subo nuevo fichero con menos datos por si es cuestión de peso. Gracias por responder Macro Antonio. RELIQUIDACIÓN.rar

hola diculpe q le moleste recien me estoy iniciando en programacion excel necesito saber como aplicar ruta relativa en excel osea tengo un video y logre incrustarlo en excel lo puedo ver con windows player pero cuando lo llevo a otra carpeta o computadora no me lo reproduce me dijeron que tengo q usar ThisWorkbook.Path o algo asi pero no logro de ningunamanera poder usarlo ejemplo mi archivo y video estan esta direccion : C:\Users\edu\Desktop\Nueva carpeta 3\video.mp4 C:\Users\edu\Desktop\Nueva carpeta 3\libro1.xlsx ahora Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long) Workbooks.Open ThisWorkbook.Path & "\video.mp4" End Sub y no pasa…