Aneudys Martinez

En el evento iniciarse del userform agrega esto Private Sub UserForm_Initialize() ID = range("a6").value + 1 End Sub Recuerda valorar si te silve para cerrar la pregunta

Feliz año Nuevo Seria de la siguiente manera Private Sub CommandButton1_Click() Dim fecha2 As String Dim fecha3 As String Dim agente As String agente = TextBox1.Value fecha2 = TextBox2.Value fecha3 = TextBox3.Value fecha2 = Format(fecha2,...

Feliz año Nuevo Prueba este a ver que tal te silve Public Intentos As Byte Private Sub CommandButton1_Click() If TextBox1 = "usuario" And TextBox2 = "contraseña" Then UserForm2.Show Else Intentos = Intentos + 1 MsgBox "Contraseña inválida. Llevas " &...

Feliz año Nuevo En el caso de que c=0 y D=1 existe esa condición en tu planteamiento de ser así podrías usar la fórmula así =IF((B1+A1)=1,(Formula1),"")&IF((A1+B1)=2,(Formula2),"")&IF((A1+B1)=4,(Formula4,"") en macro seria de esta manera Sub ahora()...

Feliz año Nuevo Seria de esta manera Private Sub CommandButton1_Click() CommandButton1.BackColor = vbGreen Commandbutton1.BackColor = &H8000000F End Sub Si te silve no olvides valorar para cerrar la pregunta

Feliz año nuevo Seria de la siguiente forma me confirmas que las celda no están vacías tiene "s" y "m" Sub buscarMyS() Sheets("hoja1").Select Range("c15").Select Do While ActiveCell.Value <> "" If ActiveCell = "m" Then ActiveCell.Offset(0, 15) =...

Feliaz año Nuevo Presentanos tu hoja y una de como quiere que se vea y si tiene una macro muestranola y así ver en que ue podemos ayudarte

Feliz navidad Te puedo sugerir crea una hoja de informe donde elijas el cliente a evaluar así no tendrías un libra tan extensor xon todas esas hojas solo quiere ver el estado POR de fulado una macro que busque eso datos y lo copie

Feliz navidad solo usa esta parte Set dam = CreateObject("outlook.application") Elimina esta parte . Createitem(0) Prueva con esto a ver no olvides valorar si te silve para cerrar la pregunta

[email protected] deja me ver y te ayudo