Problemas con equivalencia de datos
Publicado por Calel (6 intervenciones) el 09/03/2017 15:30:13
Hola,
estoy comparando la información de 2 hojas de excel, mediante 5 campos y al cumplirse los criterios de igualdad me guarde un determinado dato, el problema surge cuando los criterios de igualdad se cumplen pero no reconoce la igualdad.
Eemplo
de la primera hoja
Campo1=5
Campo2=AB56
Campo3=15
de la segunda hoja
Campo1B=5
Campo2B=AB56
Campo3B=15
si son iguales debe realizar una acción debe copiar un campo de la hoja 2, pero a pesar de que son iguales en algunos casos no los reconoce como iguales,
Cualquier ayuda será agradecida.
estoy comparando la información de 2 hojas de excel, mediante 5 campos y al cumplirse los criterios de igualdad me guarde un determinado dato, el problema surge cuando los criterios de igualdad se cumplen pero no reconoce la igualdad.
Eemplo
de la primera hoja
Campo1=5
Campo2=AB56
Campo3=15
de la segunda hoja
Campo1B=5
Campo2B=AB56
Campo3B=15
si son iguales debe realizar una acción debe copiar un campo de la hoja 2, pero a pesar de que son iguales en algunos casos no los reconoce como iguales,
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
For i = FilaIni To FilaFin - 1
N_Operacion2 = CDbl(Sheets("Resumen").Cells(i, "A").Value)
Nemotecnico2 = CStr(Sheets("Resumen").Cells(i, "F").Value)
Nominal_Ini2 = CDbl(Sheets("Resumen").Cells(i, "I").Value)
Nominal_Act2 = CDbl(Sheets("Resumen").Cells(i, "S").Value)
F_Compra2 = CDate(Sheets("Resumen").Cells(i, "K").Value)
T_Compra2 = CDbl(Sheets("Resumen").Cells(i, "L").Value * 100)
For j = FilaIni2 To FilaFin2 - 1
N_Operacion = CDbl(Sheets("Equivalencia").Cells(j, "A").Value)
Nemotecnico = CStr(Sheets("Equivalencia").Cells(j, "B").Value)
Nominal_Ini = CDbl(Sheets("Equivalencia").Cells(j, "D").Value)
Nominal_Act = CDbl(Sheets("Equivalencia").Cells(j, "C").Value)
F_Compra = CDate(Sheets("Equivalencia").Cells(j, "E").Value)
T_Compra = CDbl(Sheets("Equivalencia").Cells(j, "I").Value)
If Nemotecnico = Nemotecnico2 And Nominal_Ini = Nominal_Ini2 And T_Compra = T_Compra2 And Nominal_Act = Nominal_Act2 And F_Compra = F_Compra2 And Auxiliar <> N_Operacion Then
Sheets("Resumen").Cells(i, "AQ").Value = N_Operacion
Auxiliar = N_OperacionExit For
End If
Next j
Next i
Cualquier ayuda será agradecida.
Valora esta pregunta
0