Cpc Julio Pinedo Reategui

James Bond respondió: Prueba con esa macro Private Sub CommandButton1_Click() Set datos = Range("o1").CurrentRegion CANTIDAD = TextBox5.Text For J = 1 To CANTIDAD With datos filas = .Rows.Count: col = .Columns.Count If filas = 1 And col = 1 Then Set datos = .Resize(1, 6)...

Programar Excel respondió: Cuando trabajas con sql y fechas en VBA usa este carácter encerrando la fecha # Así: sql = SELECT SUM (Monto) FROM Caja WHERE" FechaPericia <= #" & Format(CDate((Date)), "mm/dd/yyyy") & "# AND FechaInforme IS NULL" Mira estos ejemplos te pueden...

Programar Excel respondió: Me alegra haya resueltos el problema, si te interesa abundar más en el tema en el link encontrarás ejemplos al respecto https://youtu.be/pXi8ji1MO3Q https://youtu.be/fSgAguzKu3M https://youtu.be/TrQwCwcc7qw https://youtu.be/Egicyae2xvY

James Bond respondió: Primero que nada necesitas un formulario como este Y después necesitas copiar el siguiente código en el modulo del formulario, no importa cuantos clientes tengas o si añades o quitas la macro se adapta a los cambios. Private Sub ComboBox1_Change()...

Dante Amor respondió: Te anexo el código Private Sub CommandButton1_Click() 'Por.Dante Amor If ListBox1.ListCount = 0 Then MsgBox "No hay registros en el listbox" Exit Sub End If ' Set h = Sheets("Hoja3") For i = 0 To ListBox1.ListCount - 1 nombre = ListBox1.List(i, 0)...

Ya lo solucione amigos. Dejo la macro por si alguien lo necesita. Private Sub Worksheet_Change(ByVal Target As Range) Hoja2.Activate rango = "C4:C1000" If Not Application.Intersect(Target, Range(rango)) Is Nothing Then Range("AJ4:AJ1000") =...

fejoal respondió: .15.03.17 Buenas tardes, colega Prueba accediendo por abajo que será válida cualquiera fuesen la cantidad de líneas ocupadas en esa columna La instrucción te la marco en tu mismo código: Private Sub CommandButton1_Click() Application.ScreenUpdating =...