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 estás conectado. Conéctate o registrate

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

Marc081075


Hola!
Disculpen si es que la riego y duplico este tema Sad

Tengo una duda muy simple, honestamente estoy aprendiendo por mi cuenta jeje... Tengo este codigo que ya me funciona; basicamente lo que hace es validar fecha1 vs fecha2 y si fecha1>fecha2 entonces manda un msgbox, pero funciona unicamente para la celda que estoy poniendo... La pregunta es: ¿Cómo le hago para que esto lo haga para el resto de las celdas de esas dos columnas? Shocked

Private Sub Worksheet_Change(ByVal Target As Range)

Dim fecha1 As String
Dim fecha2 As String

fecha1 = Range("V9")
fecha2 = Range("U9")

If fecha1 > fecha2 Then
MsgBox ("Fecha de Embarque no puede ser mayor a Fecha de Entrega Programada")
End If
End Sub

Muchas gracias de antemano por su consejo, guía y ayuda!

Saludos!

jhon1904

avatar
hola lea las normas del foro debes subir un archivo de ejemplo y asi miramos como podemos ayudarte

saludos


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

Marc081075


jhon1904 escribió:hola lea las normas del foro debes subir un archivo de ejemplo y asi miramos como podemos ayudarte

saludos

Gracias! Una disculpa. Adjunto archivo, lo modifique un poquitin para no mandar info no necesaria; basicamente es el archivo en el que estoy trabajando, como les comentaba tengo este código que funciona solo en una celda, necesito que funcione en el resto de las celdas de esas dos columnas

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fecha1 As String
Dim fecha2 As String
fecha1 = Range("B9")
fecha2 = Range("A9")
If fecha1 > fecha2 Then
MsgBox ("Fecha de Embarque no puede ser mayor a Fecha de Entrega Programada")
End If
End Sub

De antamano, agradezco mucho la atención y la ayuda. He aprendido muchas cosas de este foro Smile

Saludos
Archivos
Ejemplo fechas.xlsm
No tienes los permisos para descargar los archivos.
(111 KB)

jhon1904

avatar
Hola

subo un ejemplo espero te sirva

Pdt: Cambien el control calendario ya que el que tenia no lo tengo instalada el pc, así que cuando lo abras cámbialo al que usted tenia para que no le genere el error de objeto.


saludos
Archivos
Ejemplo fechas.xlsm
No tienes los permisos para descargar los archivos.
(114 KB)


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

Marc081075


jhon1904 escribió:Hola

subo un ejemplo espero te sirva

Pdt: Cambien el control calendario ya que el que tenia no lo tengo instalada el pc, así que cuando lo abras cámbialo al que usted tenia para que no le genere el error de objeto.


saludos

Muchisimas gracias Jhon! Funciona a la perfección.

Saludos

jhon1904

avatar
tema Resuelto


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

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.