Skip to main content
se añadieron 526 caracteres en el cuerpo
Origen Enlace
Sub InsertarDatosInsertarDato()
Dim Celda As Range
Dim UltimaFila As Long, x As Long
Dim Valores(1 To 4) As Integer
Let UltimaFila = Cells(Rows.Count, 10).End(xlUp).Row
Dim i
iValores(1) = 3
Do While0: Valores(i < UltimaFila2)
    ''caso= 1
 If: (RangeValores("J" & i3).Value <> ""= And3: RangeValores("K" & i).Value <> ""4) Then
    ''aca copiamos los valores segun corresponde, a las celdas que= queremos4
    Range("F" & (i + 1)).ValueFor =Each "="Celda &In Range("J""J3:J" & iUltimaFila).Address
    Range("F" & (i +For 2)).Valuex = "=" & Range("K"1 &To i).Address4
    Range("G" & (i + 1)).Value = "=" & Range("M" &If i)Celda.Address
    RangeOffset("G" &0, Valores(i + 2x)).Value =<> "=""" &Or RangeCelda.Offset("N" &0, iValores(x).Address
    '..si) hay<> mas0 copias...Then
    ''y ahora, aumentamos i a la siguiente linea aIf procesar
Valores(x) = 0 Or iValores(x) = i +1 3Then
    ''caso 2
  ElseIf (Range("K" & i).Value <> "") Then
   RangeCelda.Offset("F" & Valores(ix) + 1), -4).ValueFormula = "=" & Range("K" & i)Celda.Address
   RangeOffset("G" &0, Valores(i + 1x)).Value = "=" & RangeAddress("N" &0, i0).Address
    '.... hacemos las copias..
    ''aumentamos iElse
    i = i + 2
    ''caso 3
  ElseIf Celda.Offset(RangeValores("J" & i).Value <> ""x) Then
   Range("F" & (i- +2, 1)-3).ValueFormula = "=" & Range("J" & i)Celda.Address
   RangeOffset("G" &0, Valores(i + 1x)).Value = "=" & RangeAddress("M" &0, i0).Address
    '.... hacemos las copias...
    ''aumentamos iEnd If
   i = i + 2
  ''casoEnd 4If
  Else
  
  EndNext Ifx
Next Loop
Celda
End Sub

Les comparto la macro que estube trabajando con @gbianchi

Sub InsertarDatos()

Let UltimaFila = Cells(Rows.Count, 4).End(xlUp).Row
Dim i
i = 3
Do While (i < UltimaFila)
    ''caso 1
 If (Range("J" & i).Value <> "" And Range("K" & i).Value <> "") Then
    ''aca copiamos los valores segun corresponde, a las celdas que queremos
    Range("F" & (i + 1)).Value = "=" & Range("J" & i).Address
    Range("F" & (i + 2)).Value = "=" & Range("K" & i).Address
    Range("G" & (i + 1)).Value = "=" & Range("M" & i).Address
    Range("G" & (i + 2)).Value = "=" & Range("N" & i).Address
    '..si hay mas copias...
    ''y ahora, aumentamos i a la siguiente linea a procesar
    i = i + 3
    ''caso 2
  ElseIf (Range("K" & i).Value <> "") Then
   Range("F" & (i + 1)).Value = "=" & Range("K" & i).Address
   Range("G" & (i + 1)).Value = "=" & Range("N" & i).Address
    '.... hacemos las copias..
    ''aumentamos i
    i = i + 2
    ''caso 3
  ElseIf (Range("J" & i).Value <> "") Then
   Range("F" & (i + 1)).Value = "=" & Range("J" & i).Address
   Range("G" & (i + 1)).Value = "=" & Range("M" & i).Address
    '.... hacemos las copias...
    ''aumentamos i
   i = i + 2
  ''caso 4
  Else
  
 End If
 Loop

End Sub
Sub InsertarDatos()

Let UltimaFila = Cells(Rows.Count, 10).End(xlUp).Row
Dim i
i = 3
Do While (i < UltimaFila)
    ''caso 1
 If (Range("J" & i).Value <> "" And Range("K" & i).Value <> "") Then
    ''aca copiamos los valores segun corresponde, a las celdas que queremos
    Range("F" & (i + 1)).Value = "=" & Range("J" & i).Address
    Range("F" & (i + 2)).Value = "=" & Range("K" & i).Address
    Range("G" & (i + 1)).Value = "=" & Range("M" & i).Address
    Range("G" & (i + 2)).Value = "=" & Range("N" & i).Address
    '..si hay mas copias...
    ''y ahora, aumentamos i a la siguiente linea a procesar
    i = i + 3
    ''caso 2
  ElseIf (Range("K" & i).Value <> "") Then
   Range("F" & (i + 1)).Value = "=" & Range("K" & i).Address
   Range("G" & (i + 1)).Value = "=" & Range("N" & i).Address
    '.... hacemos las copias..
    ''aumentamos i
    i = i + 2
    ''caso 3
  ElseIf (Range("J" & i).Value <> "") Then
   Range("F" & (i + 1)).Value = "=" & Range("J" & i).Address
   Range("G" & (i + 1)).Value = "=" & Range("M" & i).Address
    '.... hacemos las copias...
    ''aumentamos i
   i = i + 2
  ''caso 4
  Else
  
  End If
 Loop

End Sub
Sub InsertarDato()
Dim Celda As Range
Dim UltimaFila As Long, x As Long
Dim Valores(1 To 4) As Integer
Let UltimaFila = Cells(Rows.Count, 10).End(xlUp).Row
Valores(1) = 0: Valores(2) = 1: Valores(3) = 3: Valores(4) = 4
For Each Celda In Range("J3:J" & UltimaFila)
    For x = 1 To 4
        If Celda.Offset(0, Valores(x)) <> "" Or Celda.Offset(0, Valores(x)) <> 0 Then
            If Valores(x) = 0 Or Valores(x) = 1 Then
                Celda.Offset(Valores(x) + 1, -4).Formula = "=" & Celda.Offset(0, Valores(x)).Address(0, 0)
            Else
                Celda.Offset(Valores(x) - 2, -3).Formula = "=" & Celda.Offset(0, Valores(x)).Address(0, 0)
            End If
        End If
    Next x
Next Celda
End Sub

Les comparto la macro que estube trabajando con @gbianchi

Sub InsertarDatos()

Let UltimaFila = Cells(Rows.Count, 4).End(xlUp).Row
Dim i
i = 3
Do While (i < UltimaFila)
    ''caso 1
 If (Range("J" & i).Value <> "" And Range("K" & i).Value <> "") Then
    ''aca copiamos los valores segun corresponde, a las celdas que queremos
    Range("F" & (i + 1)).Value = "=" & Range("J" & i).Address
    Range("F" & (i + 2)).Value = "=" & Range("K" & i).Address
    Range("G" & (i + 1)).Value = "=" & Range("M" & i).Address
    Range("G" & (i + 2)).Value = "=" & Range("N" & i).Address
    '..si hay mas copias...
    ''y ahora, aumentamos i a la siguiente linea a procesar
    i = i + 3
    ''caso 2
  ElseIf (Range("K" & i).Value <> "") Then
   Range("F" & (i + 1)).Value = "=" & Range("K" & i).Address
   Range("G" & (i + 1)).Value = "=" & Range("N" & i).Address
    '.... hacemos las copias..
    ''aumentamos i
    i = i + 2
    ''caso 3
  ElseIf (Range("J" & i).Value <> "") Then
   Range("F" & (i + 1)).Value = "=" & Range("J" & i).Address
   Range("G" & (i + 1)).Value = "=" & Range("M" & i).Address
    '.... hacemos las copias...
    ''aumentamos i
   i = i + 2
  ''caso 4
  Else
  
 End If
 Loop

End Sub
se añadieron 526 caracteres en el cuerpo
Origen Enlace
Sub InsertarDatoInsertarDatos()
Dim Celda As Range
Dim UltimaFila As Long, x As Long
Dim Valores(1 To 4) As Integer
Let UltimaFila = Cells(Rows.Count, 10).End(xlUp).Row
Valores(1)Dim i
i = 0:3
Do ValoresWhile (2i < UltimaFila) 
 = 1: Valores(3) =''caso 3:1
 ValoresIf (4)Range("J" =& 4
Fori).Value Each<> Celda"" InAnd Range("J3:J""K" & UltimaFilai).Value <> "") Then
    For''aca xcopiamos =los 1valores Tosegun 4
corresponde, a las celdas que queremos
   If Celda.OffsetRange(0,"F" Valores& (xi + 1)).Value <>= """=" Or& CeldaRange("J" & i).OffsetAddress
    Range(0,"F" Valores& (xi + 2)).Value <>= 0"=" Then& Range("K" & i).Address
    Range("G" & (i + 1)).Value = "=" & IfRange("M" Valores& i).Address
    Range(x"G" & (i + 2)).Value = 0"=" Or& ValoresRange(x"N" & i).Address
 = 1 Then '..si hay mas copias...
    ''y ahora, aumentamos i a la siguiente linea a procesar
   Celda.Offset i = i + 3
    ''caso 2
  ElseIf (ValoresRange(x"K" & i).Value <> "") Then
   Range("F" & (i + 1, -4)).FormulaValue = "=" & CeldaRange("K" & i).OffsetAddress
   Range(0,"G" Valores& (xi + 1)).AddressValue = "=" & Range(0,"N" 0& i).Address
    '.... hacemos las copias..
    ''aumentamos Elsei
    i = i + 2
    ''caso 3
  ElseIf Celda.Offset(ValoresRange(x"J" & i).Value -<> 2,"") -3Then
   Range("F" & (i + 1)).FormulaValue = "=" & CeldaRange("J" & i).OffsetAddress
   Range(0,"G" Valores& (xi + 1)).AddressValue = "=" & Range(0,"M" 0& i).Address
     '.... hacemos las copias...
    End''aumentamos Ifi
   i = i + 2
  End''caso If4
  Else
  Next 
 xEnd If
Next CeldaLoop

End Sub
Sub InsertarDato()
Dim Celda As Range
Dim UltimaFila As Long, x As Long
Dim Valores(1 To 4) As Integer
Let UltimaFila = Cells(Rows.Count, 10).End(xlUp).Row
Valores(1) = 0: Valores(2) = 1: Valores(3) = 3: Valores(4) = 4
For Each Celda In Range("J3:J" & UltimaFila)
    For x = 1 To 4
        If Celda.Offset(0, Valores(x)) <> "" Or Celda.Offset(0, Valores(x)) <> 0 Then
            If Valores(x) = 0 Or Valores(x) = 1 Then
                Celda.Offset(Valores(x) + 1, -4).Formula = "=" & Celda.Offset(0, Valores(x)).Address(0, 0)
            Else
                Celda.Offset(Valores(x) - 2, -3).Formula = "=" & Celda.Offset(0, Valores(x)).Address(0, 0)
            End If
        End If
    Next x
Next Celda
End Sub
Sub InsertarDatos()

Let UltimaFila = Cells(Rows.Count, 10).End(xlUp).Row
Dim i
i = 3
Do While (i < UltimaFila) 
    ''caso 1
 If (Range("J" & i).Value <> "" And Range("K" & i).Value <> "") Then
    ''aca copiamos los valores segun corresponde, a las celdas que queremos
    Range("F" & (i + 1)).Value = "=" & Range("J" & i).Address
    Range("F" & (i + 2)).Value = "=" & Range("K" & i).Address
    Range("G" & (i + 1)).Value = "=" & Range("M" & i).Address
    Range("G" & (i + 2)).Value = "=" & Range("N" & i).Address
    '..si hay mas copias...
    ''y ahora, aumentamos i a la siguiente linea a procesar
    i = i + 3
    ''caso 2
  ElseIf (Range("K" & i).Value <> "") Then
   Range("F" & (i + 1)).Value = "=" & Range("K" & i).Address
   Range("G" & (i + 1)).Value = "=" & Range("N" & i).Address
    '.... hacemos las copias..
    ''aumentamos i
    i = i + 2
    ''caso 3
  ElseIf (Range("J" & i).Value <> "") Then
   Range("F" & (i + 1)).Value = "=" & Range("J" & i).Address
   Range("G" & (i + 1)).Value = "=" & Range("M" & i).Address
    '.... hacemos las copias...
    ''aumentamos i
   i = i + 2
  ''caso 4
  Else
   
 End If
 Loop

End Sub
cuerpo editado
Origen Enlace

A continuacion describo los casos que debe cumplir la macro en las condificonescondicicones,

A continuacion describo los casos que debe cumplir la macro en las condificones,

A continuacion describo los casos que debe cumplir la macro en las condicicones,

se añadió 1 carácter en el cuerpo
Origen Enlace
Loading
se añadieron 2056 caracteres en el cuerpo
Origen Enlace
Loading
se añadieron 149 caracteres en el cuerpo
Origen Enlace
Loading
Origen Enlace
Loading