COMPARAR 4 Columnas
Publicado por javier (25 intervenciones) el 07/09/2016 18:08:46
Buenos dias por este medio envio saludos y al mismo tiempo solicito de su ayuda
si fuera posible alguien me pueda ayudar con este caso:
Realizar o modificar mi macro esta compara las columnas "T" con la columna"L" cuando son iguales acomoda los datos de la "M" a la "T" es decir los ordena donde correspónde donde encontro los datros iguales ... funciona bien mi problema ahora es que ahora debo comparar "A" ,"B" con las columas "S" ,"T" si los datos son iguales entonces haga el mismo proceso ordene en su respectivas coincidencias espero haberme explicado bien envio el codigo y el archivo mil gracias
si fuera posible alguien me pueda ayudar con este caso:
Realizar o modificar mi macro esta compara las columnas "T" con la columna"L" cuando son iguales acomoda los datos de la "M" a la "T" es decir los ordena donde correspónde donde encontro los datros iguales ... funciona bien mi problema ahora es que ahora debo comparar "A" ,"B" con las columas "S" ,"T" si los datos son iguales entonces haga el mismo proceso ordene en su respectivas coincidencias espero haberme explicado bien envio el codigo y el archivo mil gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub CommandButton1_Click()
Dim b As Long, a As RangeDebug.Print TimeApplication.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
For b = 2 To Range("M4").End(xlDown).Row
Set a = Columns("T").Find(What:=Range("L" & b).Value, LookAt:=xlWhole)
If Not a Is Nothing Then
If b Mod 5000 = 0 Then Application.StatusBar = "Fila: " & b
Range(Range("V" & b), Range("AC" & b)).Value = _
Range(Range("M" & a.Row), Range("T" & a.Row)).Value
End If
Next
Columns("M:T").Select
Selection.Delete Shift:=xlToLeft
Range("U3").Select
Application.CutCopyMode = False
Application.StatusBar = "Listo"
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
MsgBox "Proceso completado"End Sub
- EMPATAR_ROWS_0709.zip(48,0 KB)
Valora esta pregunta
0