Adriel Ortiz Mangia

Revisa esta web http://www.taringa.net/post/info/12161192/Quitar-contrasena-visual-basic-de-excel.html

Hey! Revisa esto https://www.youtube.com/results?search_query=otto+javier+gonz%C3%A1lez+ https://www.youtube.com/results?search_query=david+asurmendi

Puedes poner un ejemplo o mostrar la hoja saludos!

H o l a Private Sub UserForm_Initialize() ComboBox1. AddItem "Factura A" ComboBox1. AddItem "Factura B" End Sub valora para finalizar saludos!

Private Sub CommandButton2_Click() importe = Val(TextBox1) * Val(TextBox2) Range("A1").Value = CDbl(importe) End Sub usa CDBL para pasar a la hoja Valora finalizar saludos!

H o l siguiendo el ejemplo anterior has los siguientes cambios Private Sub CommandButton1_Click() If ListBox1.ListIndex = -1 Then MsgBox "Seleccione una hoja", vbInformation, "AVISO" Exit Sub End If Set h = Sheets(ListBox1.ListIndex)...

Jey Te paso la macro Sub OcultarRestantes() Set h = Sheets("indice") For Each Sheet In ActiveWorkbook.Sheets If Sheet.Name <> h.Name Then Sheet.Visible = False End If Next Sheet End Sub Sub Mostrar() Set h = Sheets("indice") For Each Sheet In...

H o l a: Te paso la macro Private Sub CommandButton1_Click() If ComboBox1.ListIndex = -1 Then MsgBox "Seleccione una hoja", vbInformation, "AVISO" Exit Sub End If Set h = Sheets(ComboBox1.ListIndex) Application.ScreenUpdating = False...

H o l a: Leonardo estos es un claro ejemplo Private Sub CommandButton1_Click() 'por Luis mondelo 'Actualizado por Adriel dato = TextBox1.Value For Each hoja In ActiveWorkbook.Sheets Set busca = hoja.Cells.Find(dato, LookIn:=xlValues, lookat:=xlWhole)...

H o l a Te paso la macro actualizada Sub Copiar() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.UsedRange.Offset(1, 0).ClearContents j = 2 n = 0 For i = 2 To h1.Range("A" &...