IF "HOLA" = "HOLA" son datos diferentes?
Publicado por Damian (5 intervenciones) el 30/01/2015 17:34:38
Buenas tardes.... Estoy volviendome loco con una sentencia.
Lo que me sucede es que dos datos diferentes en una condicion IF me lo toma como igual....
Alguien me podria Ayudar?
Lo que esta en negrita es el IF que no me esta funcionando ya que los datos que condicionan son totalmente diferentes y el IF lo toma como igual.
Gracias.
Lo que me sucede es que dos datos diferentes en una condicion IF me lo toma como igual....
Alguien me podria Ayudar?
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
ScrTercero = ""
PasTercero = ""
PPter = ""
PasScrap = ""
FechaIn = ""
Dim NºMovi As Range
Set NºMovi = Sheets("Base Movimientos").Range("A:A")
Sheets("Base Movimientos").Visible = True
Sheets("Base Movimientos").Select
[A2].Select
TextBox1 = UsuarioTextBox2 = Format(Application.Count(NºMovi) + 1, "0000#")
TextBox4 = Format(Now, "dd/mm/yyyy")
While ActiveCell <> ""
If ActiveCell.Offset(0, 10) = Usuario And ActiveCell.Offset(0, 9) <= Date And ActiveCell.Offset(0, 4) <> "" And ActiveCell.Offset(0, 11) = "En Movimiento" Then
ListBox1.AddItem Format(ActiveCell, "00000#")
ActiveCell.Offset(1).Select
Else
ActiveCell.Offset(1).Select
End If
Wend
[A2].Select
While ActiveCell <> ""
If ActiveCell.Offset(0, 2) = Usuario And ActiveCell.Offset(0, 4) <> "" Then
ElseIf ActiveCell.Offset(0, 11) = "Autorizado" Or ActiveCell.Offset(0, 11) = "Autorizado a Distancia" Then
ListBox2.AddItem Format(ActiveCell, "00000#")
ActiveCell.Offset(1).Select
Else
ActiveCell.Offset(1).Select
End If
Wend
With Movi.ComboBox1.AddItem "Mantenimiento (Ciudadela)"
.AddItem "Mantenimiento (Dreyfus)"
.AddItem "Deposito 5 (Oeste Logistic)"
.AddItem "Deposito 2 (Dreyfus)"
.AddItem "Silicon AID_Ciu"
.AddItem "Silicon AID_Drey"
.AddItem "Silicon AID_Cerr"
.AddItem "Deposito New LAB"
End With
With Movi.ComboBox2.AddItem "Panessa Marcelo"
.AddItem "Lisei Alejandro"
End With
CheckBox2.Enabled = False
CheckBox3.Enabled = False
ComboBox2.Enabled = False
Sheets("Base Movimientos").Visible = False
End Sub
Lo que esta en negrita es el IF que no me esta funcionando ya que los datos que condicionan son totalmente diferentes y el IF lo toma como igual.
Gracias.
Valora esta pregunta
0
