UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

sagitario1979


la contraseña del archivo es 1

railar


Sagitario1979,

Por favor no dupliques los temas, siguelo en tu consulta inicial, AQUÍ


Saludos,

Raúl

sagitario1979


Hola Raúl, muchas gracias por tu ayuda pero ya hice lo que me enviaste y las formulas me marcan error, tanto la de la diferencia de las fechas como la de los recargos.

en cuestion del calendario ya inserte los dos calendarios y marca este error.

'Asignar el valor de Picker a la celda C6
Private Sub DTPicker1_Change()
Range("C6").Value = DTPicker1.Value
End Sub

Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
Range("C7").Value = DTPicker2.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Si la celda elegida es C6, se muestra el Picker
If Not Intersect(Target, Range("C6")) Is Nothing Then
With DTPicker1
    .Visible = True
    .Top = 15.75
    .Left = 86.25
    .Width = 145
    .Height = 17.25
End With
'En todo caso se oculta
Else
DTPicker1.Visible = True
End If
'Asignar el valor de Picker a la celda C7
Private Sub DTPicker2_Change()
Range("C7").Value = DTPicker2.Value
End Sub
Range("C7").Value = DTPicker1.Value
End Sub

'Si la celda elegida es C7, se muestra el Picker
If Not Intersect(Target, Range("C7")) Is Nothing Then
With DTPicker2
    .Visible = True
    .Top = 15.75
    .Left = 86.25
    .Width = 145
    .Height = 17.25
End With
'En todo caso se oculta
Else
DTPicker2.Visible = True
End If
End Sub

lo que esta en letras color amarillo el vba lo tiene con una flecha lado izquierdo y en color amarillo asi como el texto con fondo del mismo color


yo en un inicio con el primer calendario tenia esto en vba:

'Asignar el valor de Picker a la celda C6
Private Sub DTPicker1_Change()
Range("C6").Value = DTPicker1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Si la celda elegida es C6, se muestra el Picker
If Not Intersect(Target, Range("C6")) Is Nothing Then
With DTPicker1
    .Visible = True
    .Top = 15.75
    .Left = 86.25
    .Width = 145
    .Height = 17.25
End With
'En todo caso se oculta
Else
DTPicker1.Visible = True
End If


y si se afectaba la celda con este codigo pero si lo hago para el siguiente calendario me dice que hay duplicidad de codigos y no se realmente que tengo que hacer

4RESUELTO GRACIAS el 14/03/14, 05:39 pm

sagitario1979


GRACIAS ME AYUDARON A RESOLVERLO

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.