Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Macro concatenar valor de la celda contigua

  • Autor del tema Autor del tema ineara
  • Fecha de inicio Fecha de inicio

ineara

New member
Registrado
8 Oct 2021
Mensajes
8
Hola,

estoy trabajando en un excel y me gustaría añadir una macro para completar mi archivo. He gravado la macro con unas celdas fijas, pero me gustaría ponerla de forma automática ya que no...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:
Solución
Y el código para anotar directamente los valores podría ser algo así como:
Código:
Sub CONTINUACIÓN()
    Dim texto$, tF&, pF&, uF&
    texto = "*          Estabilidad proceso"
    ActiveSheet.Range("B:B").Find(What:=texto).Offset(3, -1).Select
    tF = ActiveCell.Offset(-3, 0).Row
    pF = ActiveCell.Row
    texto = "*          UIP"
    ActiveSheet.Range("B:B").Find(What:=texto).Offset(-4, 0).Select
    uF = ActiveCell.Row
    For i = pF To uF
         Range("A" & i) = Range("B" & tF) & Range("B" & i)
    Next i
End Sub

Adjunto. Así eliges. Si necesitas alguna ayuda para completar los bloques, sólo tienes que decirlo.
Si la solución te ha servido, puedes marcar esta respuesta como solución en la pestaña de la derecha, como se...
Hola @ineara

Revisa por favor este enlace:
 

Adjuntos

Adjuntos

Puedes utilizar el texto "* Estabilidad del proceso" + 3 para la primera fila y el texto "* UIP" - 4, para la última fila del primer bloque. Y el texto "* UIP" + 3 para la primera fila y el texto...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Este código detecta el rango según los textos "* Estabilidad del proceso" y "* UIP" funciona bien con el primer bloque con las fórmulas concatenar. Es fácil de adaptar a los siguientes bloques. Y...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Y el código para anotar directamente los valores podría ser algo así como:
Código:
Sub CONTINUACIÓN()
    Dim texto$, tF&, pF&, uF&
    texto = "*          Estabilidad proceso"...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:
Volver
Arriba