Buenas tardes,
Estoy intentando hacer una macro con Excel y no consigo el resultado que quiero. Abajo os adjunto la tabla que estoy intentando leer y el código desde el que parto.
Lo que quiero es que: Si la primera fila es "OUT" , que busque la siguiente "IN" pero con las condiciones que le digo en el código:
Esto solo me lo está haciendo comparando dos filas consecutivos. Como hago para recorrer la lista y que no importe que el OUT esté en la fila 3 y el IN en la fila 15? (Por ejemplo). Es decir que hasta que no encuentre el IN, no pase a la siguiente fila de OUT. Adjunto el código también:
Private Sub CommandButton4_Click()
For i = 2 To 25
If Cells(i, "C").Value = "OUT" Then
If Cells(i + 1, "C").Value = "IN" And (Cells(i, "D").Value = Cells(i + 1, "D").Value Or Cells(i, "D").Value = Cells(i + 1, "E").Value And (Cells(i, "E").Value = Cells(i + 1, "D").Value Or Cells(i, "E").Value = Cells(i + 1, "E").Value) And Cells(i, "F").Value = Cells(i + 1, "F").Value) And (Cells(i, "G").Value = Cells(i + 1, "G").Value) Then
'Copiamos a la derecha de la fila correspondiente en base a la comprobación anterior para emparejar'
Range(Cells(i + 1, "A"), Cells(i + 1, "G")).Copy Destination:=Sheets("Hoja1").Cells(i, "i")
'Range(Cells(i + 1, "A"), Cells(i + 1, "G")).Value = ""'
End If
End If
Next
End Sub
A B C D E F
FECHA HORA ACCIÓN PRODUCTO1 PRODUCTO2 USUARIO
10/05/2020 0:02:27 OUT Pack - AutoCAD Package App - Autodesk AutoCAD 2019 eredi
10/05/2020 0:02:34 IN App - Autodesk AutoCAD 2019 Pack - AutoCAD Package eredi
10/05/2020 0:02:40 OUT Pack - AEC Collection Package App - Autodesk Revit 2019 eredi
10/05/2020 0:05:27 IN App - Autodesk Revit 2019 Pack - AEC Collection Package eredi
10/05/2020 0:27:47 OUT Pack - AEC Collection Package App - Autodesk Revit 2019 alva
10/05/2020 0:27:52 OUT Pack - AEC Collection Package App - Autodesk Revit 2019 eredi
10/05/2020 0:28:33 IN App - Autodesk Revit 2019 Pack - AEC Collection Package alva
10/05/2020 0:31:06 OUT Pack - AutoCAD Package App - Autodesk AutoCAD 2019 alva
10/05/2020 0:31:31 IN App - Autodesk AutoCAD 2019 Pack - AutoCAD Package alva
10/05/2020 0:39:55 IN App - Autodesk AutoCAD 2019 Pack - AutoCAD Package riera
10/05/2020 0:43:37 IN App - Autodesk AutoCAD 2019 Pack - AutoCAD Package riera
10/05/2020 0:44:35 OUT Pack - AutoCAD Package App - Autodesk AutoCAD 2019 riera
10/05/2020 0:44:44 IN App - Autodesk Revit 2019 Pack - AEC Collection Package eredi
10/05/2020 0:47:08 IN App - Autodesk AutoCAD 2019 Pack - AutoCAD Package riera
10/05/2020 0:53:00 IN App - Autodesk AutoCAD 2019 Pack - AutoCAD Package jmde
10/05/2020 0:53:24 OUT Pack - AutoCAD Package App - Autodesk AutoCAD 2019 jmde
10/05/2020 0:54:12 IN App - Autodesk AutoCAD 2019 Pack - AutoCAD Package jmdelg
10/05/2020 1:16:37 IN App - Autodesk AutoCAD 2019 Pack - AutoCAD Package jcapa
10/05/2020 1:20:33 OUT Pack - AutoCAD Package App - Autodesk AutoCAD 2019 jcapa
10/05/2020 1:20:51 IN App - Autodesk AutoCAD 2019 Pack - AutoCAD Package jcapa
10/05/2020 1:23:05 OUT Pack - AutoCAD Package App - Autodesk AutoCAD 2019 jcapa
10/05/2020 1:30:18 IN App - Autodesk AutoCAD 2019 Pack - AutoCAD Package jcapa
Gracias de antemano,
Javi
