Adriel Ortiz Mangia

H o l a Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B10:B1002")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Row > 1 Then Select Case UCase(Target.Value) Case Is > 1 Range(Cells(Target.Row,...

H o l a: ¿La fecha lo ingresas a través de caja de texto del formulario? Si es así aplica esto al vaciar a la hoja Cells (u, 1)= cdate(textbox1) si es en la celda usa la fórmula FECHANUMERO y le pones formato fecha a la celda

H o l a. ¿Puedes mostrar una imagen de la hoja factura para adecuar la macro?

H o l a: Private Sub CommandButton1_Click() CommandButton1.ForeColor = vbRed End Sub

H o l a: Sub sumar() TextBox4.Text = Val(TextBox2) + Val(TextBox9) + Val(TextBox15) End Sub Private Sub TextBox15_AfterUpdate() Call sumar End Sub no te mostrará automáticamente pero después de salir del textbox15 saldrá la suma auto

H o l a: Private Sub CommandButton1_Click() CommandButton1.BackColor = vbBlue ' AZUL CommandButton1.BackColor = vbred ' ROJO CommandButton1.BackColor = vbGreen ' VERDE CommandButton1.BackColor = vbBlack ' NEGRO ' CommandButton1.BackColor =...

H o l a: Te paso la macro actualizada asumiendo que SUELDO a promediar es la columna i a partir de fila 5 de la Hoja2 Private Sub BtnFiltrar_Click() On Error GoTo ErrorFiltro Dim fila1 As Integer Dim fila2 As Integer Dim StrArea As String Dim...

H o l a: Sub Insertafila() ActiveSheet.Cells(3, 1).EntireRow.Insert shift:=xlDown End Sub

¿Pero cuál es el código?

H o l a: También lo puedes hacer así =SUMAR.SI.CONJUNTO(F2:F1000;I2:I1000;"> 0")