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