Abraham Valencia

Abraham Valencia

Me gusta Excel
 436K puntos  Michoacán de Ocampo, México @abrahamvj desde - visto
Preguntar

Respuestas en Programación

Respuesta en y en 1 temas más a

Como puedo copiar y pegar de forma automatizada un valor de Excel a una página de intranet de mi empresa

[Hola Así sea de intranet, la forma de hacerlo es igual a como se explica en estos enlaces: https://abrahamexcel.blogspot.com/2019/01/interactuando-con-internet.html https://abrahamexcel.blogspot.com/2019/02/extraer-datos-de-tablas-de-webs.html...
Respuesta en y en 3 temas más a

¿Cómo puedo crear una Macro en Ms Excel que permita que con dar doble click en una casilla, se escriba una X?

[Hola Si pides una macro y no sabes nada de ella, lo lógico es que al menos algo del tema leas. Tu caso es bastante fácil aunque el efecto que ocurre no lo veo tan eficiente. Abre tu editor de VBA, sitúate en el módulo de la hoja en donde quieres el...
Respuesta en y en 2 temas más a

Macro para guardar un segundo libro de Excel abierto pero inactivo

[Hola Y ese libro cuyo nombre varía siempre es el segundo libro abierto, solo haz mención de él a través del índice 2: Workbooks(2). Close Por ejemplo. Lo mismo para cualquier otra referencia respecto a él. Abraham Valencia
Respuesta en y en 2 temas más a

Excel Macro para buscar y abrir un archivo .xls

[Hola ¿En esa misma carpeta hay más archivos cuyo nombre comienza con "ED"? ¿Solo llega un archivo por día? ¿Cuál es el formato exacto del nombre: ED21032019.xls, o cuál? ¿La fecha es la del mismo día u otra? Abraham Valencia
Respuesta en y en 2 temas más a

Ejecutar macro para remplazar caracteres raros

[Hola Entonces ¿no te es útil la herramienta "Reemplazar" del propio Excel? Abraham Valencia
Respuesta en y en 2 temas más a

Como automatizar la función Goal Seek en Excel

Prueba así: Sub FCTR_GARANTIA() With Sheets("Factor") .Unprotect "xxxxx" .Range("k25").GoalSeek Goal:=.Range("I25").Value, ChangingCell:=.Range("G26") .Protect "xxxxx" End With End Sub Y en la hoja "Calculación" esto: Private Sub...
Respuesta en y en 3 temas más a

Macro para ajustar tamaño de letra si cumple una concidion

[Hola Prueba con el evento "Calculate" de tu hoja: Private Sub Worksheet_Calculate() Dim Celda As Range For Each Celda In Range("M15:M30") If Len(Celda) = 18 Then Celda.Font.Size = 14 Else Celda.Font.Size = 25 End If Next Celda End Sub Comentas...
Respuesta en y en 2 temas más a

Copiar texto de un página web y pegarlo en un TextBox (VBA)

[Hola Mira esto: Sub ValorText() Dim IE As Object Dim url$ Let url =...
Respuesta en y en 2 temas más a

Quiero poner el nombre de una celda a un documento adjunto según una condición

[Hola Si mal no te entendí, esto te ayudará a entender cómo hacer: https://abrahamexcel.blogspot.com/2018/06/enviar-mensajes-masivos-con-microsoft.html Comentas Abraham Valencia
Respuesta en y en 2 temas más a

Macro para eliminar filas que contengan ciertas palabras

[Hola ¿Son palabras sueltas o parte de frases más largas? ¿Todo ubicado en celdas de una sola columna o de varias? Abraham Valencia