Luis Mondelo

Para hacer algo así, solo se me ocurre hacerlo con macros ya que la celda tiene un formato personalizado y obedece a él poniéndolo en minúsculas. Mi solución es esta: Ejemplo: Escribe en la celda A1 la fecha: 10/8/2012 Ahora quédate posicionado en...

Te mando mi solución, sigue mi ejemplo: Tenemos tus datos en la columna A desde A1 hacia abajo e inicialmente los tenemos todos juntos sin filas en blanco. -Primero ordena alfabéticamente la columna para que estén agrupadas las referencias. -Después...

Con el evento keydown no falla, sería así: Private Sub textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case 13 Range("a1").Value = TextBox1.Value End Select End Sub recuerda finalizar la consulta

con la función =ESPACIOS(REF) lo consigues: Ejemplo: En A1 tenemos un texto con espacios al final o al principio (da igual) En B1 ponemos =ESPACIOS(A1) y... arreglado. Nos ha limpiado los espacios que hay delante y detrás. (La fórmula en inglés es...

Te mando la macro hecha por mi y con menos líneas: Sub prueba() 'por luismondelo Sheets("datos").Select Range("d7:e7").Copy Sheets("hist").Select Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End Sub recuerda finalizar la consulta

Por ejemplo si en A1 tenemos esta hora: 14:23 En la celda B1 escribe esta fórmula =A1*24 y te dará como resultado el tiempo expresado en horas pero en formato número. Recuerda cambiar el formato de la celda B1 a número (por si saliera mal) Recuerda...

Prueba ahora con la macro así: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If IsEmpty(Target) Then Exit Sub If Not Intersect(Target, Range("f1:f100")) Is Nothing Then ActiveSheet.ShowAllData...

Vamos a suponer que ese dado está escrito en la celda A1. Ahora en la celda B1 escribe esta fórmula: =SI(EXTRAE(A1;5;2)="ny";"New York";"") recuerda finalizar la consulta

Esta macro te lo aclara: Posiciónate en alguna celda y ejecútala. sub prueba() 'por luismondelo rango = activecell.address range("a1").value = rango end sub recuerda finalizar y puntuar

Te mando la solución en el siguiente vídeo. http://es.tbox.ws/2AMoj6 Recuerda finalizar y puntuar