Adriel Ortiz Mangia

[Hola prueba la macro con los ajustes solicitada Sub Buscar_3() 'Por Dante Amor Application.ScreenUpdating = False ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") h3.Cells.ClearContents u3 = 2 ' For i = 2 To h2.Range("D"...

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