Bueno sí,
Leí en TODOEXCEL que tiene opciones de VBA que se le han propuesto.
Aunque desde mi punto de vista, como usted depende de la apreciación, (autorización, validación... Etc.) de alguien más, en un escenario de 12,000 celdas, entonces elegir cuales cambiar y cuales no, es un desafío, no complicado, aunque sí es un reto de entendimiento.
Por otro lado, si usted es el autor y no tiene inconveniente con usar una hoja Auxiliar, tal vez le conviene más usar una columna Auxiliar en su lugar. En esa columna usar la función ESFORMULA(), similar a lo que usó para el condicional, para saber si el contenido es una fórmula o un valor, así en consecuencia del resultado VERDADERO o FALSO traer al final el que desea, puede ser el valor que está escrito e incluso con un SI() + BUSCARV() + INDIRECTO() podría traer la fórmula de la lista que preparó previamente.
Pruebe e intente,
Saludos
Por
Israel Cassales, · publicado
Hola amigo, tengo una macro que me inserta una cantidad de imágenes en mi archivo excel, pero quiero hacer dos pequeñas modificaciones:
1) que la cantidad de fotos (CantFotos) que inserto este vinculado en una celda de mi excel, y no que la tenga que modificar desde la macro
2)que me comprima cada imagen que inserto a 150pp
esta es la macro:
Sub InsertarImagenes()
Dim PosX, PosY, X, J As Integer
Dim CantFotos As Integer
Dim Ruta As String
'le asigno valores a las variables, mismas que dependerán
'de cada proyecto:
'ruta de acceso a las imágenes
Ruta = "\"
'cantidad de imágenes a cargar:
CantFotos = 42
'margen izquierdo y superior que separará a cada imagen:
PosX = 10
PosY = 6310
J = 1
'si existe alguna autoforma la elimino:
If ActiveSheet.DrawingObjects.Count > 0 Then
ActiveSheet.DrawingObjects.Select
Selection.Delete
End If
'y cargo las 40 que se encuentran en el directorio:
For X = 1 To CantFotos
'este If es para asignar nuevos valores a las
'variables y hacer que aparezcan 5 imágenes x fila:
If J = 4 Then
PosX = 10
PosY = PosY + 245
J = 1
End If
'inserto una autoforma y como margen izq. y superior le paso las
ActiveSheet.Shapes.AddShape(msoShapeRectangle, PosX, PosY, 150, 200). _
Select
'aquí le indico que cargue la imagen, usando la variable Ruta y
'concatenando el número (x) con la extensión (.jpg)
On Error Resume Next
Selection.ShapeRange.Fill.UserPicture _
Ruta & X & ".jpg"
If Err.Number <> 0 Then
MsgBox "No se encontró una de las imágenes, por favor " _
& " revise el directorio", vbCritical, "Error"
Err.Clear
Exit Sub
End If
'incremento el margen izquierdo y a J
PosX = PosX + 160
J = J + 1
Next X
Range("c250").Select
End Sub
saludos amigos. y muy agradecido desde ya por su ayuda