Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Automatizar copia de celdas de otra hoja

Sraulsr

Recommended Posts

Sraulsr Novato

Sraulsr

publicado
publicado

Hola buen día!!

No he podido hacer con un bucle que se cambie la ubicación  de referencia relativa para copiar desde otra hoja.

El programa que he hecho (adjunto) funciona como quiero pero quisiera hacerlo en dos líneas y con un bucle que haga que la ubicación de las celdas para copiar la información vayan cambiando.

Use contadores, uno disminuyendo de uno en uno (R) y el otro de cuatro en cuatro (C) pero no me funcionó.

Al mismo tiempo quisiera ir recorriendo hojas diferentes en el libro. 'Corrida 10 años Lote 171, 173', etc.

Esta es una fracción del código:

ActiveCell.FormulaR1C1 = "='Corrida 10 años Lote 170'!R[-132]C[-140]"
    ActiveCell.Offset(0, 4).Range("A1").Select
    ActiveCell.FormulaR1C1 = "='Corrida 10 años Lote 170'!R[-131]C[-144]"
    ActiveCell.Offset(0, 4).Range("A1").Select
  

Anexo archivo txt. con código y el Excel con el macro  Sub Capital().

La hoja en la que estoy trabajando es Flujo ingreso y la celda de donde tomo las referencias relativas es ´Corrida 10 años Lote 170' pero la idea es hacerlo para todas las hojas desde el Lote 1 hasta el final.

Gracias!!

Sergio Raúl

 

 

Sub Capital.txt Flujo_Ingresos_proyectados_2021_06_26-prueba.xlsm

  • 2 weeks later...
Mauricio_ODN Gran colaborador

Mauricio_ODN

publicado
publicado

Hola @Sraulsr

Siendo sincero, no entiendo el propósito de la macro, pero si lo que quieres es simplificar el código que nos compartes en el archivo de texto, creo que esto te puede servir:

--->>>

For i = 140 To 472 Step 4

    If i = 140 Then j = i - 8
    If i > 140 Then j = j - 1
    
        With ActiveCell
            .FormulaR1C1 = "='Corrida 10 años Lote 170'!R[-" & j & "]C[-" & i & "]"
            .Offset(0, 4).Range("A1").Select
        End With

Next i

<<<-- -

No comentas por favor, Sigo atento.

Sraulsr Novato

Sraulsr

publicado
  • Autor
publicado

Muchas gracias Mauricio_ODN

Lo que no sabía era cómo referenciar las columnas y renglones de manera relativa pero con contadores (i y j):

 .FormulaR1C1 = "='Corrida 10 años Lote 170'!R[-" & j & "]C[-" & i & "]"

El uso de la "&j&" no lo conocía. ¿Cómo se le llama a este tipo de ajuste para buscar más en libros.....?

Voy a probar a ver si ya puedo hacerlo.

Muchas gracias!

Sraulsr Novato

Sraulsr

publicado
  • Autor
publicado

Ya probé pero no funciona, hice lo siguiente:

 

Sub Capital_85()
'
' Capital_85 Macro
'

Dim i As Integer
Dim j As Integer
Dim contador As Integer

j = -46
i = -168
contador = 1

Do Until contador = 84


     With ActiveCell
            .FormulaR1C1 = "='Corrida 10 años Lote 85'!R[-" & j & "]C[-" & i & "]"
            
            .Offset(0, 4).Range("A1").Select
        End With
    
    
    i = i + 1
    j = j - 4
    contador = contador + 1
Loop

    
    
    
    
End Sub

 

Me marca error en :     .FormulaR1C1 = "='Corrida 10 años Lote 85'!R[-" & j & "]C[-" & i & "]"

 

Gracias!

Mauricio_ODN Gran colaborador

Mauricio_ODN

publicado
publicado

Hola de nuevo @Sraulsr

El detalle esta en los signos "-" por que los declaraste en tus variables:

j = -46
i = -168
 

y en la formula los vuelves a señalar, acorde a tu código reciente entonces debería quedar así 

.FormulaR1C1 = "='Corrida 10 años Lote 85'!R[" & j & "]C[" & i & "]"

Nos comentas como te fue.

Con respecto a:

Hace 1 hora, Sraulsr dijo:

El uso de la "&j&" no lo conocía. ¿Cómo se le llama a este tipo de ajuste para buscar más en libros.....?

Solo se que es una concatenación, ya que la sintaxis de la formula es texto en el código VBA por que esta entre "", por lo que, separas lo que es texto dejándolo entre " y uniendo lo que vas a integrar a la cadena de texto con & y así creas la cadena de texto acorde como la necesitas.

Puedes almacenar la cadena de texto en una variable tipo string

MyFm = "='Corrida 10 años Lote 85'!R[" & j & "]C[" & i & "]"

Activecell.FormulaR1C1 = MyFm

Puedes usar debug.print, para que en la ventana de inmediato mires como queda tu cadena de texto, o en su defecto un msgbox

bebug.print Activecell.FormulaR1C1 = "='Corrida 10 años Lote 85'!R[" & j & "]C[" & i & "]"

Msgbox Activecell.FormulaR1C1 = "='Corrida 10 años Lote 85'!R[" & j & "]C[" & i & "]"

o siguiendo el ejemplo de almacenar en una variable

debug.print MyFm

msgbox MyFm

Espero haber ayudado un poco. Saludos.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Current Donation Goals

    • Mantenimiento de la comunidad
      Raised 0.00 EUR of 130.00 EUR target

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por jose_alk · publicado

      Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • jues
      Buscar Datos con un ComboBox

      Por jues · publicado

      Exelente solución mil gracias 
    • JSDJSD
      Surtido de Mercancía

      Por JSDJSD · publicado

      Podrías compartir tu solucion

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.