Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

fecha en letras, base de datos en excel

publicado

Que tal compañeros, antes que nada estoy agradecido a este foro por todo los que me estan ayudando, ya que poco a poco estoy entrando al mundo de los macros, espero y algun día teniendo conocimiento tambien lo haga compartir.

Ok volviendo a este tema tengo este ejemplo de archivo de excel, pues me piden en el trabajo una base de datos de esa aplicación uno de los datos me pide fecha en forma de letra, hasta eso ya esta resuelto igual estoy usando uno de los diferentes metodos de insercion a las celdas mediante la hoja activa.

dos celdas que viene siendo la fecha y el fecha en texto se encuentran en el archivo con un diseño simple de formulario separado automaticamente en tres diagonales con 10 digitos. en el boton fechar tiene este codigo.

[Dim fecha As String
fechanacimiento = textfechanacimiento
TextBoxFecultimafila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Cells(ultimafila + 1, 1) = fechanacimiento
[/PHP]

y con la celda fecha en letras ya tiene la formula con el macro cargado. El detalle esque ese codico va detectar una fila vaacia inserta la fecha y que ahi la convierta en texto, pero como tiene la fecha en letras puesta el codigo me inserta una celda abajo de la fecha en letras.

Alguna sugerencia para corregir ese de talle.

Se los agradeceria mucho.

fecharenletras.zip

Featured Replies

publicado

Hola en el Boton Fecha agrega este codigo

Cells(ultimafila + 1, 1) = fecha ' Ya esta

Cells(ultimafila + 1, 1).Offset(0, 1).FormulaR1C1 = "=FechaEnLetras(RC[-1])" ' Agregar

espero te sirva . me cuentas

- - - - - Mensaje combinado - - - - -

Hola en el Boton Fecha agrega este codigo

Cells(ultimafila + 1, 1) = fecha ' Ya esta

Cells(ultimafila + 1, 1).Offset(0, 1).FormulaR1C1 = "=FechaEnLetras(RC[-1])" ' Agregar

espero te sirva . me cuentas

publicado
  • Autor

Me quedó excelente justo lo que necesitaba, nadamas si me puedes explicar lo de =fechaenletras (RC[-1]) por favor??

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.