Visual Basic - Ayuda con Esta validacion en Excel

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Ayuda con Esta validacion en Excel

Publicado por Jhonatan (2 intervenciones) el 02/03/2017 21:20:50
Tengo problema con esto me da error en otro excel si me funciona la Macro y lo estoy cargando a otro donde tengo busquedas y otras cosas pero no le encuentro solucion ayuda..

1
2
3
4
5
6
7
8
9
10
11
12
13
'Vencimiento
Set h = Worksheets("Base de Datos")
For i = 1 To h.Range("B" & Rows.Count).End(xlUp).Row
    n = 0
    If h.Cells(i, "j") = Date Then
        Set dam = CreateObject("outlook.application").CreateItem(0)
        dam.To = h.Cells(i, "AV")
        dam.Subject = h.Cells(i, "E")
        dam.Body = "Contrato Vence el: " & h.Cells(i, "H") & ". Arrendante: " & h.Cells(i, "F")
        dam.Display
 
    End If
Next

Me tira error 13 no coinciden los tipos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Ayuda con Esta validacion en Excel

Publicado por Andres Leonardo (1798 intervenciones) el 03/03/2017 00:19:44
If h.Cells(i, "j") = Date Then ' por que j tiene comillas???
Si mandas una celda debe ser una letra y un Numero ... quizas no seria

If h.Cells("j" & i) = Date Then

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda con Esta validacion en Excel

Publicado por Jhonatan (2 intervenciones) el 03/03/2017 18:24:33
Gracias Andres pero fijate que Me da el mismo error
e

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
Private Sub CommandButton1_Click()
 
If TextBox2.Value = 20171 Then
 
MsgBox "Bienvenido al sistema de búsquedas", vbInformation, "Sistema de Búsquedas"
Load UserForm1
Unload Me
          UserForm1.Show
 
    Set h = Worksheets("Contratos")
    For i = 2 To h.Range("A" & Rows.Count).End(xlUp).Row
        n = 0
        If h.Cells("G" & i) = Date And _
           UCase(h.Cells("I" & i)) = "" Then
            Set dam = CreateObject("outlook.application").CreateItem(0)
            dam.To = h.Cells(i, "AA")
            dam.Subject = h.Cells(i, "C")
            dam.Body = "Número: " & h.Cells(i, "A") & ". Acción: " & h.Cells(i, "G")
            dam.Display
        End If
    Next
 
Else
 
MsgBox "La contraseña ingresada es incorrecta", vbCritical, "Sistema de Búsquedas"
 
End If
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Ayuda con Esta validacion en Excel

Publicado por Andres Leonardo (1798 intervenciones) el 03/03/2017 21:47:03
desde el movil es imposible pero intenta esto

If h.Cells("G" & i).value = Date And _
UCase(h.Cells("I" & i).value) = "" Then
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar