Jump to content

ikanni

Members
  • Content Count

    321
  • Joined

  • Last visited

  • Days Won

    8

ikanni last won the day on April 21 2017

ikanni had the most liked content!

1 Follower

About ikanni

  • Rank
    Advanced Member

Profile information

  • Localización:
    Tafalla

Converted

  • Campos
    ;

Recent Profile Visitors

1,701 profile views
  1. Hola Helena, A ver sí te vale esto. Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column = 1 Then Application.EnableEvents = False .Offset(, 4) = Format(Now, "hh:mm") If Len(.Text) = 0 Then .Offset(, 4) = "" Application.EnableEvents = True End If End With End Sub
  2. Hola Antonio, Mira a ver sí esto te vale. Sub ColoreaPorNIT() Dim c As Range, dato As String Set c = Hoja1.Range("E3:E" & Range("C" & Rows.Count).End(xlUp).Row) dato = CStr(Trim(Hoja1.Range("E3"))) For Each celda In c If Not dato = CStr(Trim(celda.Value)) Then celda.Offset(-1, -4).Resize(, 10).Interior.Color = vbYellow dato = CStr(Trim(celda.Value)) Next End Sub
  3. Hola a todos, Gracias Antoni. Contesto por deferencia a ti Lo hice del tirón y en la primera prueba al reemplazar los caracteres perdía el formato. No se me ocurrió pillar las posiciones sino que se me ocurrió ponerlas en blanco para que no se vieran... Yo que me complico la vida 😉, aunque ya lo avisé. Y menudo apaño te ha hecho Don Antoni, como siempre. Saludos cordiales
  4. Hola Fran, Bueno esto es lo que se me ha ocurrido. Quizas no me parece lo mas perfecto. Yo sí se pudieran separar las tres partes del texto en tres columnas diferentes sería más limpio. Con un split se podría hacer en un momento. Cómo dice Antoni sin ejemplo no conozco mas datos asin que en el ejemplo cojo los datos de A2, ahora te tendrías que crear el bucle. La pongo en cursiva y negrita. Sub Remarkar() Dim C As Range, Posicion1 as integer, Posicion2 As Integer Set C = Range("A2") posicion1 = InStr(1, C, "<", vbTextCompare) posicion2 = InStrRev(C, "<") With
  5. Te paso una función que le pasa la cadena de texto (A-Tu2 ó A-TU-02 ó...) cómo argumento y sí cumple te devuelve Verdadero. Function Pasa(cadena As String) As Boolean With CreateObject("vbscript.regexp") .IgnoreCase = True .Pattern = "([A-Z]){2}[ -[0-9]{1,3}" If .Test(cadena) Then Pasa = True End With End Function
  6. Hola Jose, No te comprendo, pero mira haber sí es esto. .... ... onAction="MI_MACRO" OnAction="OtraMacro" ... .... Por Ejemplo, una idea: Function Mi_Macro () Userform1.Show CAll OtraMAcro En Function Sub OtraMacro() ....... End if ...... Ya comentas...
  7. Hola, Te paso un formulario modelo con calendario mensual permanente. es el que yo uso en mis trabajos. Verás que se puede interactuar con el calendario. y te he colocado un apartado para elegir fechas del mes aleatoriamente. Ahora remodelalo a lo que necesites. Cualquier cosa pregunta 😉
  8. No debemos hablar el mismo idioma 🤨. Osea Que si le das "Si" : Elimina lo que hay Si le das "No" : COntinua en la primera fila vacia O puedes "cancelar" la operación
  9. Hola, A ver sí esto te vale... Saludos Filtro Archivo_IK.rar
  10. Hola Visor, La verdad cosa rara que no funcionara con esa fila. Pero sí le cambias el texto, sí funciona. Entonces el problema es el texto.Elimina el texto y escribelo de nuevo. He hecho la prueba y funciona despues.
  11. Vaya, 🙂 A ver sí puedo hacertelo para mañana...
×
×
  • Create New...

Important Information

Privacy Policy