Hola, si es el caso en que tengas un formulario que te da problemas programarlo, entonces llegaste al lugar indicado, aqui podras postear tus problemas e intentare solucionarlos.
Por otro lado y sin caracre limitativo, realizo programas para:
Administracion de Datos:
Asistencia de Personal
Control de insumos
Control de chequera
Etc…
Control de Inventarios:
Entradas
Salidas
FiFo
Stock definido en forma manual o sistematizad
Etc…
Por los precios no te preocupes son muy bajos y la fomra de pagarlos son varias por lo pronto contactame por este medio y nos ponemos de acuerdo.
1 user commented in " Problemas con Formularios en VBA "
Follow-up comment rss or Leave a TrackbackEste es un formulario en el cual es necesario cargar a un TextBox la fecha de la ultima fila registrada en un rango de datos para tal efecto propongo dos formas de hacerlo, las cules mi estimado Beto las puso en un solo formulario quedando este con el codigo siguiete:
Private Sub UserForm_activate()
Ult_Fil = Cells(1,3).CurrentRegion.Rows.Count
‘ Caso 1
TextBox1.Text = Sheets(“Control”).Range(“C” & Ult_Fil).Value
TextBox1.Locked = False
TextBox1.Font.Bold = True
‘ Caso 2
TextBox2.Text = Sheets(“control”).Cells(Ult_Fil, 3).Value
TextBox2.Locked = False
TextBox2.Font.Bold = True
End Sub
En este archivo, Puedes descargar la imagen para que te des una mejor idea de lo que se trata, solo da clic sobre ella, das clic en la opcion de la lupita que es todos lo tamaños, clic en grande y otro clic en descargar el tamaño grande, que esta con azul al lado de un diskito
Ok, Beto lo que te pongo en negritas es lo que hay que canbiar, lo que pasa es que en la linea
Ult_Fil = Cells(1,3).CurrentRegion.Rows.Count
Donde Cells(1,3) refiere a la celda C1 y de ahà parte para seleccionar CurrentRegion que es el rago actual o celdas continuas, por lo que no te dá ningún valor ya que a su alrededor no hay celdas continuas, al final del comentario esta algo sobre celdas continuas.
Por lo que tendrémos que cambiar el valor de (1,3) que es C1 por el valor de C7 que es la primera fila con datos en el rango que en el fomato cells se define con (Fila,Columna) osea (7,3), nos quedarÃa:
Ult_Fil = Cells(7,3).CurrentRegion.Rows.Count
Pero como no es Cells(1,1) la primera celda del rango tendremos que añadir de forma manual las filas que no está contanto CurrentRegion, que en este caso son las primeras 6 filas que están vacias por tanto nos queda de la siguiente manera:
Ult_Fil = Cells(7,3).CurrentRegion.Rows.Count + 6
tambien lo podemos hacer de forma automatica o que selecciones la primera celda del rango, en fin de varias fomras pero ahora te paso como hacerlo manual.
Con esto ya funcionará tu macro.
Para comprobar el Rango Actual puedes seleccionar una celda del rango que quieres comprobar y precionar Ctrl + * en este ejemplo selecciona C7 y precionas Ctrl + * y te seleccionará de C7 hasta I20