-
Content Count
1,101 -
Joined
-
Last visited
-
Days Won
70
Content Type
Profiles
Forums
Downloads
Everything posted by JSDJSD
-
Prueba y comenta... en el video veras que solo pone un si pero es que me he equivocado al subirlo el que he subido es de una prueba anterior, en realidad pasa todos los marcados. EEDD2020-3.xlsm
-
Lo de que no tengas duplicados en el combo me ha quedado claro pero porque no subes un ejemplo de como quieres que queden realmente los datos guardados en las diferentes hojas? Es decir si por ejemplo filtramos lo siguiente como debería quedar en las diferentes hojas guardado?
-
Si no te da nadie solución, mañana te subo el archivo modificado. Mientras si quieres inténtalo tu mismo ya que solo hay que cambiar de tu código un par de cosillas
-
distribuir una columna en diferentes columnas
JSDJSD replied to jhon fredy's topic in Macros y programación VBA
Por eso mismo decía yo que no sabía si lo había entendido bien o no. Perfecto Antoni -
distribuir una columna en diferentes columnas
JSDJSD replied to jhon fredy's topic in Macros y programación VBA
Prueba a ver si es lo que necesitas no se si te entendí bien Distribución en grupos.xlsm -
Prueba y comenta a ver si es lo que pretendes, eso sí, te dejo como tarea que implementes tu las fechas en caso de que no lo consigas dilo. ESCUELA (Prueba 1).xlsm
-
Este si es el tuyo Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ' Si pulsamos Enter en textbox2 se ejecuta la macro date1 = TextBox1: Date2 = TextBox2 ' Asignamos a las variales su valor With Sheets("Hoja1").Range("A1").CurrentRegion ' Seleccionamos todo rango desde A1 'Filtramos en la columna 1 según condicion por dos criterios en este caso >= y <= .AutoFilter 1, Criteria1:=">=" & CDbl(CDate(date1)), Operator:=xlAnd, Criteria2:="<=" & CDbl(CDate(D
-
Simplemente te reemplace esta línea ListBoxLista.Clear por ListBoxLista.RowSource = "", el resto del código es tuyo, de todos modos si necesitas una explicación del mismo te subo tu código comentariado. ** Cuando se usa RowSource para cargar ListBox no se puede borrar este con Clear, si no que tienes que usar la propiedad RowSource="" para borrarlo. Private Sub BtnBuscar_Click() Dim fin As Long, i As Long, n As Long Dim sCadena_seccion As String Set FILTRAR = ActiveWorkbook.Worksheets("Listado") With FILTRAR fin = Application.CountA(.Range(
-
Perdón esto no tenía que ponerlo aquí.
-
Simplemente te reemplace esta línea ListBoxLista.Clear por ListBoxLista.RowSource = "", el resto del código es tuyo, de todos modos si necesitas una explicación del mismo te subo tu código comentariado. ** Cuando se usa RowSource para cargar ListBox no se puede borrar este con Clear, si no que tienes que usar la propiedad RowSource="" para borrarlo. Private Sub BtnBuscar_Click() Dim fin As Long, i As Long, n As Long Dim sCadena_seccion As String Set FILTRAR = ActiveWorkbook.Worksheets("Listado") With FILTRAR fin = Application.CountA(.Range(
-
Hola xinortiz, prueba y comenta InicioPrueba.xlsm baseprueba.xlsx
-
ANSWERED Como evitar parpadeo en WebBrowser en tiempo real ?
JSDJSD replied to JSDJSD's topic in Macros y programación VBA
Muchísimas gracias Gerson, es lo que quería confirmar. Podemos dar el tema por resuelto, gracias. -
-
Hola NAB_20, te dejo una opción , abre el formulario, introduce fecha inicio y fecha fin y pulsa enter. Antoni un saludo también para ti. Prueba v1.xlsm
-
Apoyo para corregir macro que guarda datos
JSDJSD replied to pedrosilv's topic in Macros y programación VBA
Me alegro mucho pero no olvides nunca agradecer a quien te ayuda o intenta ayudar y en este foro es mediante el corazoncillo que encontramos en la parte inferior derecha. -
Apoyo para corregir macro que guarda datos
JSDJSD replied to pedrosilv's topic in Macros y programación VBA
Sub ExportarBase() Dim Fila As Long Dim no As Range Dim solicitud As String Application.ScreenUpdating = False solicitud = Hoja1.Cells(1, 2) ufh1 = Hoja2.Range("A" & Rows.Count).End(xlUp).Row With Hoja2.Range("A2:A" & ufh1) Set no = .Find(CDbl(solicitud), LookIn:=xlValues, lookat:=xlWhole) With Hoja2 If Not no Is Nothing Then Fila = no.Row .Range("A" & Fila) = Hoja1.Range("B1") .Range("B" & Fila) = Hoja1.Range("B3") .Range("C" & Fila)