Adriel Ortiz Mangia

[Hola Prueba con la siguiente macro Sub CONT() 'Por Adriel ' u = Range("A" & Rows.Count).End(xlUp).Row ' For i = 2 To u dato = Cells(i, "A") If InStr(dato, "OPS") > 0 Then num = Right(dato, Len(dato) - 3) Cells(i, "B") = "S" & num ElseIf InStr(dato,...

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

[Te paso la macro Sub Prueba() 'Adriel With Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IF(RC[-1]=RC[3],RC[3],"""")" .Value = .Value End With End Sub

[Hola Te paso la macro Sub Prueba() 'Adriel With Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IF(RC[-1]=RC[1],RC[-1],"""")" .Value = .Value End With End Sub

[Hola Te paso la macro Sub agrega_letra() '_Adriel Ortiz Application.ScreenUpdating = False ' u = Range("A" & Rows.Count).End(xlUp).Row suf = "S" ' For i = 2 To u cant = Len(Cells(i, 1)) If IsNumeric(Cells(i, 1)) And cant = 6 Then Cells(i, 1) = suf &...

[Hola Private Sub CommandButton1_Click() 'valida textbox ' For Each Control In Me.Controls tipo = UCase(TypeName(Control)) If tipo = "TEXTBOX" Then If Control.Text = Empty Then MsgBox ("CAMPO VACIO"), vbCritical, "AVISO" Control.SetFocus Exit For End...

[Hola Como tienes tus datos en la columna B, una letra o son varias letras por celda

[Hola revisa esto http://trucosycursos.es/guardar-y-cerrar-un-libro-excel-transcurrido-un-tiempo-de-inactividad/

[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 La respuesta aquí saludos! Como ocultar userform en hoja nueva