convertir HOY() a numero fijo..como???

Eres un Barbaro!!!

Es exactamente lo que queria hacer... Ahora me falta que las celdas C, que
estan al lado de las B..(A= valor, B=ingreso, C=salida), deban comportarse
como las B cuando un valor en un rango en otra hoja de calculo dentro del
mismo libro (Sea "hoja2!A3:A50) cualquiera de estos sea igual al valor A.
De nuevo un millon de gracias por tu atencion.
Otra pregunta y disculpame la insistencia: Que bibliografia me recomiendas
para empezar la senda que tu ya has recorrido en VB.

Carlos Vallee.

"KL" wrote in message
news:

Hola Gocel,

Suponiendo que...
- introduces numeros series en la columna [A]
- se tiene que introducir la fecha en la columna [B] cada vez que se anade
o cambie el valor en la columna [A]
- se tiene que borrar la fecha en la columna [B] cada vez que se borre el
valor en la columna [A]

Prueba lo siguiente:

1) Haz clic-derecho sobre el nombre de la hoja en cuestion (en una de las
pestanas de la parte de abajo de la ventana de Excel).
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, en la ventana mas grande a la derecha pega el
codigo que te pongo a continuacion:

'--
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range
On Error Resume Next
Set rng = Intersect(Target, Range("A:A"))
If rng Is Nothing Then Exit Sub
With Application
.EnableEvents = False
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With rng
Select Case .Count
Case 1
If .Value = "" Then .Offset(, 1) = "" _
Else .Offset(, 1) = Date
Case Else
.SpecialCells(xlCellTypeBlanks).Offset(, 1) = ""
With .SpecialCells(xlCellTypeConstants).Offset(, 1)
.Value = Date
End With
End Select
End With
Columns("B:B").AutoFit
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub
'--

4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba cambiar los valores en el rango [A:A]

Saludos,
KL



Saludos,
KL



"Gocel" wrote in message
news:jf1If.5542$

Hey!! que rapido..!!

Gracias por responder.
Pues bien, el asunto es que tengo una hoja donde en una columna
introduzco numeros series manualmente y a diario, y he colocado al lado
de estas, 2 columnas que reflejan la iformacion de la fecha cuando se
introducen cada numero serie (entrada) y la fecha en que estos numeros
series aparecen en otra hoja (salida). Mi reto consistia en automatizar
el registro de fecha de entrada y salida de estos numeros series.

Una vez mas mil gracias por la ayuda.

"KL" wrote in message
news:

Hola Gocel,

Creo que lo primero que hay que tener en cuenta es que justo la
diferencia entre una formula y una constante es la diferencia entre una
fecha volatil (variable) y una fecha fija. Es decir una formula no puede
devolver una constante porque es variable por su naturaleza :-). Es
decir tu tarea no se puede realizar mediante formula en celda.

Las opciones que te quedan son:

1) Manual. Combinacion de las teclas Ctrl + ; (punto y coma)
2) Manual. Copiar el resultado de la formula y pegar valores (menu
Edicion>Pegado especial..., opcion 'valores')
3) Macros. Pero haran falta detalles mas precisos sobre los rangos,
valores y condiciones para ofrecer un codigo ajustado a tus necesidades.

Comentas detalles adicionales?

Saludos,
KL


"Gocel" wrote in message
news:PtrHf.12665$

Hola a todos... Tengo como una semana rompiendome el cerebro con esto y
no logro encontrar una solucion.

El asunto es que quiero que en una celda cuya formula es un condicional
"SI(...)" cuyo valor verdadero es 0 y falso es "HOY()". Al darme el
valor falso, es decir "HOY()", pueda de alguna manera con una formula,
macro o VB fijar ese valor de manera que no cambie al siguiente dia.

Muchas gracias a los que respondan.

Hola Gocel,

Mira a ver si te vale este codigo para la hoja 2 (repite el mismo procedimiento que te habia indicado antes, pero para la segunda
hoja):

'--
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range
On Error Resume Next
Set rng = Intersect(Target, Range("A:A"))
If rng Is Nothing Then Exit Sub
With Application
.EnableEvents = False
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
For Each c In rng
With Sheets(1).Range("A:A")
.Cells.Find(c, .Cells(1)).Offset(, 2) = Date
.Offset(, 2).Columns.AutoFit
End With
Next c
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub
'--

Respecto a la bibliografia, podrias revisar los siguientes enlaces:

EN ESPANOL:

Pagina de Asistencia de Microsoft Office que incluye cursos gratis
http://office.microsoft.com/es-es/a...fault.aspx
Libros traduciidos de John Walkenbach en Amazon.com
http://www.amazon.com/exec/obidos/s...28-7649563
Articulo de Enrique Martinez "SoftJaen" sobre ADO y DAO en Excel:
http://www.mvp-access.com/softjaen/..._excel.htm
Articulo de Hector Miguel sobre proteccion de libros:
http://www.sistemaslym.net/vba/excel/exarc1.html
Pagina de Fernando Arroyo:
http://www.excelesp.com/

[una lista de parte de Hector Miguel]
http://www.franciscopascual.com/Arc...202002.zip
http://www.javeriana.edu.co/decisio...icios.html
http://www.javeriana.edu.co/cursad/...iento.html
http://members.fortunecity.es/tonelorc/eexcel.html
http://www.aulaclic.es/excel2000/f_excel2000.htm
http://64.226.188.26/sivnetwork-www/cursos_gratis/excel/Excel.htm
http://www.territoriopc.com/excel/
http://interinfo.iespana.es/interin...les_ig.htm
http://www.fullwebs.com.uy/endondee.../excel.pdf
http://office.arnulfoperez.com/excel/
http://lacher.com/toc.htm
http://www.sistemaslym.net/vba/excel/excel.html
http://es.geocities.com/lacibelesde...macros.htm
http://es.geocities.com/lacibelesde...acros1.htm
http://www.macroheavy.com/excel/excel.asp
http://www.geocities.com/gorita_2000/VBA.htm
http://www.excelavanzado.com/
http://www.xtec.es/~rlloren4/KBEsp2.htm
http://www.exceluciones.com/portal/...p?article5

EN INGLES:

John Walkenbach: http://j-walk.com/ss/
Chip Pearson: http://www.cpearson.com/excel.htm
Charles Williams (DecisionModels): http://www.decisionmodels.com/
John Peltier: http://peltiertech.com/Excel/index.html
Ron de Bruin: http://www.rondebruin.nl
Bob Philips: http://www.xldynamic.com/source/xld.UsingMenu.html
Debrah Dalgleish: http://www.contextures.com/
Erlandsen Data Consulting: http://www.erlandsendata.no/english/
Laurent Longre: http://xcell05.free.fr/
Tushar Mehta: http://www.tushar-mehta.com/excel/
Rob Bovey: http://www.appspro.com/Tips/Tips_And_Tricks.htm
David McRitchie: http://www.mvps.org/dmcritchie/excel/excel.htm
Andy Pope: http://www.andypope.info/index.htm
Jurgen Volkerink (KeepItCool): http://members.chello.nl/keepitcool/addins.html
Dick Kusleika: http://www.dicks-blog.com/excel/
Stephen Bullen' Excel MVP's page: http://www.bmsltd.ie/MVP/Default.htm
MrExcel.com: http://www.mrexcel.com
Matt Evans: http://www.exinfm.com/free_spreadsheets.html
Karl Peterson: http://vb.mvps.org/samples/
Bob Umlas: http://www.emailoffice.com/excel/ar...umlas.html
Carlo Quintero: http://www.mztools.com/
Van Gelder: http://homepages.paradise.net.nz/~robree/excel/
Masaru Kaji aka Colo http://www.puremis.net/excel/
OzGrid: http://www.ozgrid.com/

Ed Ferrero: http://www.edferrero.com/
Fernando Cinquegrani: http://www.prodomosua.it/ppage02.html
Enhanced Datasystems: http://www.enhanceddatasystems.com/...lStuff.htm
Constantes Excel 2003 y 2000: http://www.xcelfiles.com/XL2000_2003C.html
Tutorial de Solver: http://www.solver.com/stepbystep.htm
MiStupid (Training Online): http://mistupid.com/tutorials/excel/
ExtremeVBTalk(newsgroup): http://www.visualbasicforum.com/

Saludos,
KL

Aun no lo he aplicado, pero de cualquier manera mil gracias por tu atencion.

P.D. Repito: eres un barbaro KL!!!

"KL" wrote in message
news:

Hola Gocel,

Mira a ver si te vale este codigo para la hoja 2 (repite el mismo
procedimiento que te habia indicado antes, pero para la segunda hoja):

'--
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range
On Error Resume Next
Set rng = Intersect(Target, Range("A:A"))
If rng Is Nothing Then Exit Sub
With Application
.EnableEvents = False
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
For Each c In rng
With Sheets(1).Range("A:A")
.Cells.Find(c, .Cells(1)).Offset(, 2) = Date
.Offset(, 2).Columns.AutoFit
End With
Next c
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub
'--

Respecto a la bibliografia, podrias revisar los siguientes enlaces:

EN ESPANOL:

Pagina de Asistencia de Microsoft Office que incluye cursos gratis
http://office.microsoft.com/es-es/a...fault.aspx
Libros traduciidos de John Walkenbach en Amazon.com
http://www.amazon.com/exec/obidos/s...28-7649563
Articulo de Enrique Martinez "SoftJaen" sobre ADO y DAO en Excel:
http://www.mvp-access.com/softjaen/..._excel.htm
Articulo de Hector Miguel sobre proteccion de libros:
http://www.sistemaslym.net/vba/excel/exarc1.html
Pagina de Fernando Arroyo:
http://www.excelesp.com/

[una lista de parte de Hector Miguel]
http://www.franciscopascual.com/Arc...202002.zip
http://www.javeriana.edu.co/decisio...icios.html
http://www.javeriana.edu.co/cursad/...iento.html
http://members.fortunecity.es/tonelorc/eexcel.html
http://www.aulaclic.es/excel2000/f_excel2000.htm
http://64.226.188.26/sivnetwork-www/cursos_gratis/excel/Excel.htm
http://www.territoriopc.com/excel/
http://interinfo.iespana.es/interin...les_ig.htm
http://www.fullwebs.com.uy/endondee.../excel.pdf
http://office.arnulfoperez.com/excel/
http://lacher.com/toc.htm
http://www.sistemaslym.net/vba/excel/excel.html
http://es.geocities.com/lacibelesde...macros.htm
http://es.geocities.com/lacibelesde...acros1.htm
http://www.macroheavy.com/excel/excel.asp
http://www.geocities.com/gorita_2000/VBA.htm
http://www.excelavanzado.com/
http://www.xtec.es/~rlloren4/KBEsp2.htm
http://www.exceluciones.com/portal/...p?article5

EN INGLES:

John Walkenbach: http://j-walk.com/ss/
Chip Pearson: http://www.cpearson.com/excel.htm
Charles Williams (DecisionModels): http://www.decisionmodels.com/
John Peltier: http://peltiertech.com/Excel/index.html
Ron de Bruin: http://www.rondebruin.nl
Bob Philips: http://www.xldynamic.com/source/xld.UsingMenu.html
Debrah Dalgleish: http://www.contextures.com/
Erlandsen Data Consulting: http://www.erlandsendata.no/english/
Laurent Longre: http://xcell05.free.fr/
Tushar Mehta: http://www.tushar-mehta.com/excel/
Rob Bovey: http://www.appspro.com/Tips/Tips_And_Tricks.htm
David McRitchie: http://www.mvps.org/dmcritchie/excel/excel.htm
Andy Pope: http://www.andypope.info/index.htm
Jurgen Volkerink (KeepItCool):
http://members.chello.nl/keepitcool/addins.html
Dick Kusleika: http://www.dicks-blog.com/excel/
Stephen Bullen' Excel MVP's page: http://www.bmsltd.ie/MVP/Default.htm
MrExcel.com: http://www.mrexcel.com
Matt Evans: http://www.exinfm.com/free_spreadsheets.html
Karl Peterson: http://vb.mvps.org/samples/
Bob Umlas: http://www.emailoffice.com/excel/ar...umlas.html
Carlo Quintero: http://www.mztools.com/
Van Gelder: http://homepages.paradise.net.nz/~robree/excel/
Masaru Kaji aka Colo http://www.puremis.net/excel/
OzGrid: http://www.ozgrid.com/

Ed Ferrero: http://www.edferrero.com/
Fernando Cinquegrani: http://www.prodomosua.it/ppage02.html
Enhanced Datasystems:
http://www.enhanceddatasystems.com/...lStuff.htm
Constantes Excel 2003 y 2000: http://www.xcelfiles.com/XL2000_2003C.html
Tutorial de Solver: http://www.solver.com/stepbystep.htm
MiStupid (Training Online): http://mistupid.com/tutorials/excel/
ExtremeVBTalk(newsgroup): http://www.visualbasicforum.com/

Saludos,
KL