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