-
52 ¿Te parecen útiles los tips de las funciones? (ver tema completo)
-
1. ¿Te parecen útiles los tips de las funciones?
-
Sí
-
No
-
Ni me he fijado en ellos
-
- Please sign in or register to vote in this poll.
- View topic
-
-
Current Donation Goals
-
Mantenimiento de la comunidadRaised 0.00 EUR of 130.00 EUR target
-
-
Files
-
Download Statistics
-
-
Posts
-
Sub conviertefechas() Application.ScreenUpdating = False With Worksheets("Hoja1") For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row Cells(i, "B").NumberFormat = "@" Cells(i, "B") = Format(Cells(i, "A"), "yyyy-mm-dd") Next End With End Sub -
Buenas, os adjunto un ejemplo para convertir una fecha separada por barras dd/mm/yyyy (columna A) en yyyy-mm-dd (columna B). El caso es que aunque en la celda se visualiza como yyyy-mm-dd después de convertir, en la barra de fórmulas sigue figurando dd/mm/yyyy. No encuentro el modo de solucionar esto... tampoco he encontrado cómo solucionarlo. Alguna idea? Gracias! ej_fecha.zip -
buenos dias, por favor necesito saber donde estoy fallando en el codigo que presento. en dos hojas excel "Tarificador" y "Pres" en la hoja Tarificador si las celdas b12 y C12 son diferentes tiene que preguntar por un imputbox el sexo y segun se escriba cogera el valor y lo enviara a la hoja PRES celda I15. si por el contrario las celdas b12 y c12 son iguales, el valor de la celda b12 se pegara en la hoja PRES celda I15. la ejecucion se aplica cuando se pincha el boton de "generar documento" envio fichero para su comprobacion gracias. TARIFICADOR.xlsm -
-
Sub TransponerFilas() Dim Inicio As Worksheet, Fin As Worksheet Application.EnableEvents = False '-- Set Inicio = Sheets("Inicio") Set Fin = Sheets("Fin") '-- Fin.Range("A1").CurrentRegion.Offset(1).ClearContents fila = 1 For x = 2 To Inicio.Range("A" & Rows.Count).End(xlUp).Row For y = 2 To Inicio.Cells(1, Columns.Count).End(xlToLeft).Column If Not Inicio.Cells(1, y) = "" Then fila = fila + 1 Fin.Range("A" & fila) = Inicio.Range("A" & x) Fin.Range("B" & fila) = Inicio.Cells(1, y) Fin.Range("C" & fila) = Inicio.Cells(x, y) End If Next Next End Sub
-
-
Recently Browsing
- No registered users viewing this page.
Recommended Posts