Jump to content

Potter08

Members
  • Content Count

    235
  • Joined

  • Last visited

Reputation Activity

  1. Thanks
    Potter08 reacted to ikanni in Necesito acabar este codigo que introduce la hora en una celda   
    Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column = 3 Then ' Si la celda cambiada petenece a la coluna 3 = "C", entramos ... Application.EnableEvents = False 'Desactivo eventos porque voy hacer cambios en las celdas .Offset(, -1) = Format(Now, "hh:mm") 'Ponemos la hora en la celda, una celda a la Izq, de la celda modificada ' que si estamos en "C" ==> "B" If Len(.Text) = 0 Then .Offset(, -1) = "" ' Evaluo : Sí En la celda cambiada no hay nada, elimino ' lo que hay en la celda una a la Izq Application.EnableEvents = True 'Activamos eventos End If End With End Sub Te dejo el código comentado para que el próximo cambio te lo puedas apañar tú.
    Saludos
  2. Me asombra
    Potter08 reacted to bigpetroman in Seleccionar celda de valor encontrado   
    Saludos @Potter08, cuando haces esto
    Set Rng = Sheets(NameO).Range("A:A").Find(valor, LookAt:=xlWhole)
    y se consigue el valor buscado, ya Rng hace referencia a esa celda, incluyendo hoja y todo, es decir, tu pudieras hacer por ejemplo
    Rng.Resize(1, 10).Copy
    y con eso estas copiando desde la celda Rgn, hasta 10 columnas a la derecha
    Suerte
  3. Like
    Potter08 reacted to Antoni in Concatenado en celda a Listbox   
    Private Sub LlenarListBox() For x = 2 To Range("A" & Rows.Count).End(xlUp).Row B = Split(Range("B" & x), "-") C = Split(Range("C" & x), "-") D = Split(Range("D" & x), "-") With ListBox1 For y = 0 To UBound(B) .AddItem Range("A" & x) .List(.ListCount - 1, 1) = B(y) .List(.ListCount - 1, 2) = C(y) .List(.ListCount - 1, 3) = D(y) Next End With Next End Sub Llama a este procedimiento para llenar el ListBox.
×
×
  • Create New...

Important Information

Privacy Policy