Adriel Ortiz Mangia

[Hola cambia esto a = Lista.ListCount por esto a = Lista.ListCount - 1

[Hola Te paso la macro para el botón del formulario login Private Sub CommandButton1_Click() 'Por Adriel ' 'login Select Case TextBox1 Case "clave1" With UserForm2 .CommandButton1.Enabled = True .CommandButton2.Enabled = True .CommandButton3.Enabled...

[Hola prueba así Sub BsoloF() Dim fecha, t As String Dim tabla As Range Dim i As Integer i = 1 fecha = Sheets("Rooms").TextBox1.Text For i = i To 10 t = VBA.Format(fecha, "General Number") & i Set tabla =...

[Hola Te paso la macro Valora la respuesta para finalizar Private Sub CommandButton1_Click() Set r = Range("A1:A200") Set b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then f = b.Row TextBox2.Text = Cells(f, "B") Else MsgBox "Dato no...

[Hola pon en el evento change Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("AW1:AY1")) Is Nothing Then Call msg End If End Sub valora la respuesta para finalizar

[Hola Te paso la macro del generoso Dante Amor Cambia toda la macro por esto Valora la respuesta para finalizar 'se actualiza el textbox al clickear en el checkbox Private Sub CheckBox1_Click() If CheckBox1 Then TextBox1.Text = "ALMACEN EXTERNO" Else...

[Hola Prueba con esto Private Sub CommandButton1_Click() ' If esc_upc.Text = "" Or lista_def.ListIndex = -1 Then MsgBox "VERIFICAR QUE LOS CAMPOS ESTEN LLENOS", vbOKOnly, "CAMPOS VACIOS" esc_upc.SetFocus Exit Sub End If End Sub

[Hola Te paso la macro, cambia el nombre de la hoja por el tuyo ' Valora la respuesta para finalizar saludos! Private Sub Workbook_Open() '**Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If...

[Hola Te paso la macro Valora la respuesta para finalizar saludos! Sub copiar() ' 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h1.Range("A" & Rows.Count).End(xlUp).Row u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 '...

[Hola Te paso la macro, asumí que la columna CUENTA es la "D" Sub eliminar() ' '***Por Adriel Ortiz ' Set h1 = Sheets("REPORTES") ' u = h1.Range("D" & Rows.Count).End(xlUp).Row For i = u To 2 Step -1 If h1.Cells(i, "D") = "" Then h1.Rows(i).Delete...