Abraham Valencia

[Hola Hay algunos modos, pero previamente tienes que elegir cuál: - Usar la serie de fábrica del disco duro - La "Serie" que el sistema operativo da a cada partición - La serie de fábrica de la placa (un poco más complicado pero no imposible) Una vez...

[Hola Sugiero ver y tratar de entender lo que proponen en este enlace: http://miguelmaresmahurtado.com/index.php/2016/03/14/porcentaje-de-similitud-entre-dos-textos/ Saludos] Abraham Valencia

[Hola Necesariamente tiene que estar abierto el libro, no hay forma de evitar eso pero, si podrías abrirlo y cerrarlo sin que eso se vea: Sub RFC() ' ' RFC Macro ' Dim UltimaFila As Integer, x As Integer Let UltimaFila = Cells(Rows.Count,...

[Hola Usa el evento "BeforeDoubleClick" de la hoja. Pega esto en el módulo de la hoja en donde quieres obtener el efecto al hacer doble click en alguna celda del rango en cuestión: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel...

[Hola Para adjuntar una, o más hojas, y enviarlas por coreo hay que convertirlas primero en archivo: https://abrahamexcel.blogspot.com/2018/08/enviar-hojas-y-el-libro-activo-por.html Asumo que, ya que has hecho esa macro, lo de colocar el nombre de...

[Hola La primera macro déjala así: Sub NUEVACOTIZACION() ' ' NUEVACOTIZACION Macro With Worksheets("Hoja2") .Unprotect "0206" .Range("A11:G41,C7").ClearContents .[H2] = [H2] + 1 .[H4].Value = Date .Protect "0206" End With End Sub Y la segunda, algo...

[Hola Sendkeys es algo "inestable" por lo que yo recomiendo su uso solo cuando es estrictamente necesario. Aunque no muestras los datos, creo que esto te podría ayudar: Sub Cambiar() Dim Celda As Range For Each Celda In Range("I2:I143382")...

[Hola Sin ánimo de molestarte, la verdad es una pregunta bastante básica que repasando manuales muy básicos de VBA puede encontrarse. Sugiero, estimado, no solo copiar y pegar códigos/macros sino comenzar a leer sobre el tema y sobre todo, tratar de...

[Hola Tienes un For Each pero no hay ningún Next, por eso el error. Abraham Valencia PD: Se coloca antes del End Sub, y después del End IF por si acaso

[Hola Coloca la siguiente fórmula en F4: =INDICE(C2:C7, COINCIDIR(E4, B2:B7,-1), 1) No olvides reemplazar por "punto y coma" tu separador de lista de ser necesario ya que yo uso "coma". Abraham Valencia