Adriel Ortiz Mangia

[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 Usa la función izquierda para extraer la fecha. Extraído las fechas excel reconocerá como texto, y la solución cambiar el formato a fecha como te muestro en la imagen.

[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 valorar la respuesta para finalizar =CONTAR.SI.CONJUNTO(A:A;"españa";B:B;"galicia")+CONTAR.SI.CONJUNTO(A:A;"galicia";B:B;"andalucia")

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