Aneudys Martinez

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

[email protected] podría ver tu archivo y ver en que puedo ayudarte

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 esta manera =SI(b1>=B2;"cumplido";"surtir") Si te silvee 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) =...

Feliz año Nuevo Presentanos tu hoja y de como quiere que se vea el informe por vendedor

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 Seria de este manera Private Sub ListBox1_Click() Range("a4").Activate cuenta = Me.ListBox1.ListCount For i = 0 To cuenta - 1 If Me.ListBox1.Selected(i) Then Set busco = ActiveSheet.Range("b:b").Find(Me.ListBox1, LookIn:=xlValues,...