Bienvenido a la mayor comunidad de usuarios EXCEL

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

Regístrate gratis

Macro Selección de columna automática

  • Autor del tema Autor del tema mago18
  • Fecha de inicio Fecha de inicio
M

mago18

Well-known member
Registrado
1 Dic 2010
Mensajes
1.195
Hola buenas Dias.

Tengo una hoja que hago envios de archivos a diferentes carpetas (diferentes rutas) este esta en la columna F.

Actualmente funciona bien, solo que he agregado 2 columnas mas...
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

Solución
Dante Amor M
Prueba lo siguiente:

Código: 
Sub EnviarAchivos()
  Dim f As Range
  Set f = Range("F2:H2").Find("SEND", , xlValues, xlWhole, , , False)
  If Not f Is Nothing Then
  
    For x = 2 To Cells(Rows.Count, f.Column).End(xlUp).Row
      For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        FileCopy Range("D2") & "\" & Range("A" & i), Cells(x, f.Column).Value & "\" & Range("A" & i)
      Next
    Next
  End If
End Sub


Nota:
Pero revisando tu archivo, en la columna A no tienes datos, entonces este ciclo:
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Solamente va a funcionar una vez.

Qué es lo que necesitas hacer? Por qué tienes 2 ciclos?


-------------
Saludos
Dante Amor
Visita: Cursos de Excel y...
Ordenar por fecha Ordenar por votos
Prueba lo siguiente:

Código: 
Sub EnviarAchivos()
  Dim f As Range
  Set f = Range("F2:H2").Find("SEND", , xlValues, xlWhole, , , False)
  If Not f Is Nothing Then
  
    For x = 2 To...
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í
 
Última edición:
Voto a favor 0 Voto en contra
Solución
Última edición:
Voto a favor 0 Voto en contra
Iniciar sesión o registrarme para responder aquí.

Temas similares

M
  • Resuelto
Macro selección de rango de una tabla enviado a word
Respuestas
6
mago18
M
arekin
  • Resuelto
La macro me crea un botón de selección
Respuestas
4
arekin
arekin
V
  • Resuelto
Ejecutar macro al cambiar selección en una segmentación de datos.
Respuestas
2
ventascracker
V
arekin
  • Resuelto
La macro no me escribe en la primera celda de una selección
Respuestas
9
FGV
FGV
L
  • Pregunta Pregunta
Macro lista desplegable selección múltiple
Respuestas
3
lsan23
L
C
  • Pregunta Pregunta
Macro selección y pegar
Respuestas
2
carlosgm66
C
O
  • Pregunta Pregunta
Utilizar en un macro una selección de celdas hecha sobre la hoja
Respuestas
1
Overture
O
M
  • Pregunta Pregunta
Macro Centrar en la selección
Respuestas
10
Leopoldo Blancas
L
I
  • Pregunta Pregunta
Macro para generar un informe de acuerdo a un criterio de selección
Respuestas
1
Abraham.Valencia
Abraham.Valencia
M
  • Pregunta Pregunta
Macro para imprimir una selección variable por importe
Respuestas
0
matias1986
M
Volver
Arriba