Dante Amor

H o l a: Estaba contestando tu pregunta anterior, sobre la comparación del rango de fechas, pero cuando le puse enviar, me encontré con que la pregunta ya no existe. Te anexo la respuesta, igual te ayuda a solucionar el problema de las estaciones del...

H o l a: Te anexo la macro actualizada: Sub validacion() Application.ScreenUpdating = False EnableEvents = False Sheets("hoja1").Select Range("L7").Select Dim myValor As String myValor = Range("l7").Value Sheets("hoja2").Select Range("D1").Select Do...

H o l a: Te anexo la macro; supongo que después de reemplazar # por %# quieres que se cambie a rojo el texto. Si no quieres que se cambie el texto a rojo, entonces elimina esta línea de la macro: b.Font.Color = RGB(255, 0, 0) La macro: Sub...

H o l a: Te anexo la macro actualizada, el detalle es que copias unas celdas y las pegas en la celda F7, entonces como estás modificando nuevamente la celda F7 se activa otra vez la macro, para que no se active otra vez la macro, se pone la...

Tendría que ser con una macro. Cualquier fórmula de excel trabaja con el resultado de la celda. Si tu tienes en la celda esto: +10+15+20+50+50+40+60 El resultado es 245, cualquier otra fórmula que trabaje sobre la celda A1 lo hará sobre el valor 245....

H o l a: Te anexo la macro actualizada. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Address(False, False) = "B8" Then ActiveSheet.Unprotect "abc" If WorksheetFunction.Trim(Target) =...

H o l a: Te anexo la macro actualizada para copiar rangos y columnas. Sub CopiarRangos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") hojas = Array("Hoja2", "Hoja3", "Hoja4") 'Poner las hojas origen coOri = Array("D2:D20", "F3:F50", "I") 'Poner rangos o...

H o l a: Te explico, cuando una celda tiene color de formato condicional, realmente el color no está en la celda, es por eso que no puedes tomar el color de la celda. Lo que se hace en estos casos, es tomar la misma condición que tienes en tu formato...

H o l a: Realiza la siguiente. Selecciona desde la columnas A hasta la C, presiona el botón derecho sobre alguna columna seleccionada y en el menú que te aparece, selecciona ancho de columna, en el siguiente recuadro "Ancho de columna" escribe un...

H o l a: Me recomendaste esta pregunta pero no tengo VB 6.0, lo que manejo es VBA para Excel. El código para abrir un PDF desde VBA es el siguiente: Sub AbrirPdf() 'Por.Dante Amor ruta = "C:\Users\Marta\Pictures\TARIFAS\" arch = ruta & [A11] & ".pdf"...