jerryeagle

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

Supongo que usas VB6, checa este link, aunque en Visual Studio 2008 o Visual Basic 2005 o 2008 express Edition es mucho más fácil, Importando Microsoft. Office. Interop. Excel, incluso tienes "intelisence" con los comandos de VBA Excel....

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...

No especificas en donde lo necesitas, o para que, un ejm seria así: Msgbox ThisWorkBook.Name

Tu código se puede optimizar, no es necesario "seleccionar" la celda para darle un valor. Checa esto: Private Sub CommandButton1_Click() Dim ultimafila As Long Dim ultimacolumna As Long 'Busca lo del TExtBox1 Set Existe =...

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