jerryeagle

Modifícalo un poco tu código así: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Select Case Target.Column Case = 1 'Pon lo q quieras q haga si es la columna 1 Case = 2 'Pon lo q quieras q haga si es la...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Aqui pon tu validacion de si es usuario o administrador y luego lo demas Cancel = True MsgBox "No se permite grabar este archivo" End Sub

En el evento WorkSheet_Change de la Hoja1 y la Hoja2 pega esto: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Sheets("Concentrado").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Target.Value End If End Sub

ActiveWorkBook. Path ThisWorkBook. Path

Cuando llamas al cuadro buscar, hay opciones, una de ellas es "Buscar Palabra Completa", si esta activado, buscara el Valor exacto de lo que escribas, si no, buscara las celdas que contengan lo que escribas

Pues para la Ultima Fila: Range("Letra de Columna" & Rows.Count).End(xlUp) si le agregas .Offset(2, 0). Select, se ira 2 filas después

La única forma que se me ocurre es que hagas una comparación de cada celda con un valor que tu des, por ejm: For R = 3 To Range("C" & Rows.Count).End(xlUp).row if Cells(R, "C") Like "*Valor*" then Combobox.AddItem Cells(R, "C") end if Next El "*" es...

Con la Función LTRIM Cadena = LTRIM(Cadena) Y para recorrer toda la lista seria algo asi: 'Suponiendo que los nombres estan en la Columna A y empiezan en la Fila 2 For R = 2 To Range("A" & Rows.Count).End(xlUp).Row Cadena = LTRIM(Cadena) Next

No entiendo a que te refieres con "formulario". Si pudieras explicarlo mejor, al decir Formulario, generalmente nos referimos a un UserForm de VBA (Macros), pero dices que lo tienes en la Hoja2, por eso es confuso lo que dices.

Pon esto en el evento click del botón Activecell.Offset(1, 0).select Textbox.Value = Activecell