Juan Carlos Florez

Selecciona toda la formula que ingresaste en la barra de formulas y presiona la tecla F4 varias veces hasta eliminar el signo $. Espero te sirva. Feliz dia. Juan Carlos

Mi correo [email protected] Feliz dia, Juan Carlos

Encontré este pagina lo probé y creo es lo que requieres. <a>http://www.xltoday.net/vba_ejemplos_eliminarvinculos-asp</a>

Gendrix Buen dia La estructura general para seleccionar una columna es Columns("B:B").Select donde B es cualquier Letra de la columna. Ahora bien, si quieres seleccionar varias columnas sin importar la fila puedes usar: Range(Columns(j),...

Reemplaza Range("F" & j) por Range("F" & j & ":" & "H" & j ), supongamos que j =2 entonces la expresión ("F" & j & ":" & "H" & j) = ("F2:H2")

Reemplaza tu código por este: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = "$H$12" Then nombre = Target.Value Ruta = "C:\certificados\" & nombre & ".jpg" If Existe(Ruta) Then 'Existe el archivo...

Para la segunda opción que mencionas en tu consulta, coloca el siguiente código en el evento Change, no donde lo tienes que es en SelectionChange. Private Sub Worksheet_Change(ByVal Target As Range) 'Celda a evaluar Celda = "C25" 'Cualquier cambio...

Supongamos que la celda donde colocaras el link es la A, de tal forma que: A5= H:\Fatzer_AG_Drahtseilfabrik_Logo.jpg Entonces reemplaza la linea Sheets("PDF").Select Range("A1").Select ActiveSheet.Pictures.Insert("H:\Fatzer_ . .... por estas lineas:...

Copia este código en vba en la hoja donde encuentra el rango a evaluar, no en ThisWorkbook. Private Sub Worksheet_Change(ByVal Target As Range) 'Celda a evaluar Celda = "C25" If Not Application.Intersect(Target, Range(Celda)) Is Nothing Then If...

Supongamos que tu textbox se llama TextBox1, entonces en vba coloca. TextBox1.MultiLine=True O asigna a la propiedad MultiLine del control el valor true

Te envío diversas opciones. Para hallar la ultima celda desde Excel coloca en una celda diferente al rango A10:A1000 las siguientes formulas: 1. Si la columna tiene solo números Opcion 1: =SI(CONTAR(A10:A1000)>0;COINCIDIR(9E+307;A:A)) Opción 2:...

Al leer tu pregunta me parece que se deben ocultar las columnas y en vez de las filas. Ya que no lo tengo claro, te cree dos funciones: La primera te oculta o muestra las filas y la segunda te oculta o muestra las columnas. A continuación te coloco...

Efectivamente tu programa lo he corrido en mi pc y funciona perfectamente. Podrías revisar 2 opciones: 1. Puede ser un parche del Office para la función ExportAsFixedFormat; puedes leer y descargarlo en el siguiente link:...

Adicione una instrucción para encontrar la ultima fila. Sub Macro10() Dim UltimaFila UltimaFila = Range("A" & Rows.Count).End(xlUp).Row Rows("9").Select Range(Selection, Selection.End(xlDown)).Select...

Si colocas este código en el editor de Hoja1 cualquier cambio que realices en cualquier celda, mostrara un mensaje indicando que la celda A5 esta vacía. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Trim(Range("A5")) = "" Then...