Dante Amor

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. En la celda A10, tienes que poner el nombre de la "imagen fija". Puede ser la celda A10 u otra celda, si vas a poner en el nombre de la "imagen fija" en otra celda, entonces tienes que cambiar "A10" en la...

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 presento 2 opciones, la primera, obtiene el número de error, si es diferente de 0, significa que hay un error: Private Sub CommandButton1_Click() Worksheets("Compras").Activate Set resp = Cells.Find(What:=TextBox1.Text, After:=ActiveCell,...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("H3:H203")) Is Nothing Then For Each c In Target If c.Value <> "" Then Cells(c.Row, "G") = ""...

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"...

H o l a: No es por que falte declarar la variable, lo que pasa es que no está encontrando ningún dato en la hoja "Cotizaciones", columna "C" que sea igual a lo que tienes en el combobox2. Lo que tienes que poner después del Next es: If fila = "" then...

Tienes pendiente valorar esta respuesta, o si necesitas más información, puedes solicitarla. Nesecito crear un hipervinculo que llame a una macros Para esta pregunta, explícame con un ejemplo lo que si puedes cambiar y lo que no puedes cambiar, es...