Aneudys Martinez

Mándame el archive para agregar la macro [email protected]

[email protected] mandaem el archive para agregar la macro

Josue lo puedes conseguir de esta manera Ejemplo en el evento open del thisworkbooks Private Sub Workbook_Open() Dim nombre As String Dim paso2 As Boolean nombre = UCase(InputBox("Nombre de Usuario")) paso2 = False Select Case nombre Case...

1 - para los del registro Puedes crear una macro que copie los datos que quiere en tu base de datos Los del check Para que no copie los datos Puedes usa algo asi If CheckBox1 = True Then Range("a1") = TextBox1 Else Range("a1") = "" End If o If...

Aquí esta el procedimiento Range("a2").Select Do While Not IsEmpty(ActiveCell) If InStr(cadena, ActiveCell) = 0 Then cadena = cadena & " " & ActiveCell End If ActiveCell.Offset(1, 0).Select Loop cadena = Right(cadena, Len(cadena) - 1) VALOR =...

en una celda comun usa la function sifecha seria asi =sifecha (celda fecha de nac,celda de fecha de hoy,"y") =sifecha(a1,a2,"y") en el caso de Fecha de nsc. Este en la celda a1 Fecha de hoy este en la celda a2 Y en a3 estaría la fórmula Luego en el...

Para agilizar el procedimiento yo uso lo siguiente En el evento change del textbox uso estos ListBox1. Clear valor = TextBox1.Value Set busca = Sheets("REPORTE").Range("B10:C1048575").Find(valor, LookIn:=xlValues, lookat:=xlPart) If Not busca Is...

Mmmmm. Pero para eso no es necesario que selecciones la hoja activa ya que estas activa Puedes ´pones la macro completa para ver en que pordemos ayudarte

Estos lo consigo con una búsqueda desde la la primera columna del listbox así En el evento click del listbox Private Sub ListBox1_Click() Set busco = ActiveSheet.Range("a:a").Find(ListBox1, LookIn:=xlValues, lookat:=xlWhole) If Not busco Is Nothing...

Puedes conseguir el filtro de esta manera En el evento open del thisworkbook seria así ----------------------------------------------------------------------------------- Private Sub Workbook_Open() Filtro Ordenar End Sub...