Francisco Ocampo

Estoy realizando un archivo y estoy atorado con este problema: Tengo una base de datos que se va actualizando mediante un formulario, pero para no tener un archivo cada quien, se nos ocurrió, concentrar todo en uno compartido en red, para ello cuando...

Tengo este código: Private Sub UserForm_Activate() Set h = Sheets("BASE") TextBox1 = h.Range("D1").Value Set h = Sheets("BASE") TextBox2 = h.Range("E1").Value If CheckBox1.Value = True Then ult = Cells(Rows.Count, 51).End(xlUp).Row For i = 5 To ult...

Tengo este código: Private Sub CommandButton1_Click() Range("D1").Value = TextBox1.Value Call Inicio If TextBox1 <> "" Then If CheckBox1.Value = True Then Call Imprimir If CheckBox2.Value = True Then Call Imprimir If CheckBox3.Value = True Then Call...

Tengo este código en mi formulario: Private Sub CommandButton1_Click() If TextBox1 <> "" Then Sheets("COMEX").Range("A1").Value = TextBox1.Text Sheets("COMEX").Range("A8").Value = UserForm1.ListBox1.Value If CheckBox1.Value = True Then Call Imprimir...

Deseo insertar un calendario desplegable en un formulario y no puedo porque no esta el control; verificando en la web seguí los pasos que indicaban, para registrar los comandos: mscomctl.ocx Mscomct2.ocx mscal.ocx Ingreso en cmd, como administrador,...

Ando viendo si se puede agregar cierta cantidad de filas, ejemplo: Tengo un listado de más de 1,000 nombres: Paco Matias Juan Eduardo, etc Deseo que abajo de cada nombre agregar los siguientes conceptos Premio de Asistencia Premio de Puntualidad...

Anduve investigando pero no encontré lo que busco, no se si pueda; lo que deseo hacer es que cuando se elija la opción de guardar, me arroje un cuadro de formulario (ya lo cree), si elijo que si, que lo guarde y si elijo que no, que no guarde nada,...

Tengo este código que Dante Amor, me ayudo a generar: Private Sub CommandButton3_Click() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set l1 = ThisWorkbook nombre = Sheets(2).[A62] If nombre = "" Then MsgBox...

Hace poco me ayudaron con un código pero olvide agregar que cuando se cierre el libro de trabajo, me muestre todas las filas ocultas en mi libro, porque el siguiente código, pero solo aplica por hoja y tengo mas de 50, entonces es algo tedioso ir una...

Tengo este código que me oculta filas: Sub Ocultarfilas() For Each celda In Range("$A$10:$A$19") If celda.Value <= 0 Then ActiveCell.EntireRow.Hidden = True Else ActiveCell.EntireRow.Hidden = False End If ActiveCell.Offset(1).Select Next End Sub...