Jump to content

Antoni

Members
  • Content Count

    10,146
  • Joined

  • Last visited

  • Days Won

    551

Reputation Activity

  1. ¡Excelente!
    Antoni got a reaction from Alex_edm in Copiar Filas de manera condicional variando la forma   
    Sub CopiarEnBAAN() Dim INICIO As Worksheet, BAAN As Worksheet Dim Grupo As String, Fila As Long, x As Long '-- Application.ScreenUpdating = False Set INICIO = Sheets("INICIO") Set BAAN = Sheets("BAAN") Fila = 5 Sheets("BAAN").Cells.Clear For x = 6 To INICIO.Range("A" & Rows.Count).End(xlUp).Row If INICIO.Range("C" & x) = "CANT" Then Grupo = INICIO.Range("A" & x) Else If Trim(INICIO.Range("A" & x)) <> "" Then BAAN.Range("A" & Fila) = Grupo INICIO.Range("A" & x).Resize(1, 3).Copy BAAN.Range("B" & Fila) BAAN.Range("B" & Fila).Copy: BAAN.Range("A" & Fila).PasteSpecial xlPasteFormats End If End If Fila = Fila + 1 Next Application.CutCopyMode = False BAAN.Activate BAAN.Range("A6").Select ActiveWindow.ScrollRow = 1 End Sub  
  2. Like
    Antoni got a reaction from imarcd in Como Optimizar Macro Extensa (repetitiva)   
    Dim criterio(26) '-- For i = 2 To 26 criterio(i) = Sheets("Main").Range("AN" & i).Value Next '-- 'Y luego usas: ' criterio(2) en lugar de criterio2 ' criterio(3) en lugar de criterio3 ' .... ' .... ' criterio(26) en lugar de criterio26 '  
    Sin archivo y sin más explicaciones, es lo único que se te puede decir.
     
    .
  3. ¡Excelente!
    Antoni got a reaction from Alex_edm in Copiar Filas de manera condicional variando la forma   
    Sub CopiarEnBAAN() Dim INICIO As Worksheet, BAAN As Worksheet Dim Grupo As String, Fila As Long, x As Long '-- Application.ScreenUpdating = False Set INICIO = Sheets("INICIO") Set BAAN = Sheets("BAAN") Fila = 5 Sheets("BAAN").Cells.Clear For x = 6 To INICIO.Range("A" & Rows.Count).End(xlUp).Row If INICIO.Range("C" & x) = "CANT" Then Grupo = INICIO.Range("A" & x) Else If Trim(INICIO.Range("A" & x)) <> "" Then BAAN.Range("A" & Fila) = Grupo INICIO.Range("A" & x).Resize(1, 3).Copy BAAN.Range("B" & Fila) BAAN.Range("B" & Fila).Copy: BAAN.Range("A" & Fila).PasteSpecial xlPasteFormats End If End If Fila = Fila + 1 Next Application.CutCopyMode = False BAAN.Activate BAAN.Range("A6").Select ActiveWindow.ScrollRow = 1 End Sub  
  4. ¡Excelente!
    Antoni got a reaction from Sergio in cambiar de color a label de acuerdo a concidicion   
    Solo como información, Private Sub Userform5_Initialize() debería ser Private Sub Userform_Initialize()  y el procedimiento  Userform_Initialize se ejecuta antes que el procedimiento Userform_Activate
    Revisa el adjunto.
     
    ejemplo3.xlsm
  5. ¡Excelente!
    Antoni got a reaction from Jose BN in Desordenar lista de numeros   
    Te dejo lo que creo que has pedido.
    ejemplo 2.xlsm
  6. Like
    Antoni reacted to xboxfile in ¿Vale la pena seguir en el foro?   
    Hola. Un saludo al foro.
    En respuesta a Antoni, al cual le mando mi más cordial saludo, yo he aprendido mucho de este y otros foros, y es verdad que cada vez he necesitado menos ayuda.
    Yo voy a exponer mis dos motivos, el primero es que cada vez hay más información por toda la red, a poco que busques encuentras. El segundo es porque la gente normal va aprendiendo a buscar antes de postear.
    Un saludo a todos.
  7. Haha
    Antoni got a reaction from Leopoldo Blancas in Restar horas en Texbox   
    Llevas casi 800 mensajes y ya deberías saber que debes subir un archivo.
  8. Like
    Antoni got a reaction from Jose BN in Descontar cantidad de item   
    Revisa el adjunto.
    En cuanto a tu planteamiento inicial, es inviable, a menos que nos metamos con módulos de clase para interceptar el evento Change de cada uno de los textbox y tratarlos como si fueran uno solo, y honradamente, a parte del engorro que supone, creo que tus conocimientos sobre programación y VBA no son suficientes en estos momentos como para abordar este tema.
    Descontar (1) (1).xlsm
  9. Haha
    Antoni got a reaction from Leopoldo Blancas in Restar horas en Texbox   
    Llevas casi 800 mensajes y ya deberías saber que debes subir un archivo.
  10. Like
    Antoni got a reaction from Leonardo Briceño in Copiar celdas no adyacentes en otra hoja   
    Si no te lo solucionan antes, mañana le echo un vistazo y te digo algo.
  11. Thanks
    Antoni got a reaction from Jose BN in Copiar datos y pegar en la última fila disponible   
    Abre el adjunto y pulsa sobre la flecha azul.
    Selecciona la carpeta donde está los archivos y pulsa aceptar/cancelar.
    Copiar archivos.xlsm
  12. Like
    Antoni got a reaction from Silvia in Entro fecha e interpreta fórmula   
    Sabía que no me fallarías. Un abrazo. Saludos.
  13. Haha
    Antoni got a reaction from Silvia in Entro fecha e interpreta fórmula   
    Hola pueblo:
    Esta es quizás mi primera consulta en el foro General en más de 10 años, siempre hay una primera vez. 🤣
    Os adjunto un archivo, en el observareis una curiosidad que me tiene perplejo.
    Al introducir una fecha en la Hoja1 antepone el signo igual al texto introducido, por ejemplo, si introduzco 15/12/2020 se traduce como =15/12/2020, el resultado es el de dividir 15 entre 12 y entre 2020, o sea 0,00061881. Esto pasa en cualquier celda, pero solo en la Hoja1. El mismo ejemplo en la Hoja2 se comporta de acuerdo a lo esperado.
    ¿Alguien puede aportar algo de luz ❓
    Paz y amor 😘
     
    Problemas con excel.xlsx
  14. Haha
    Antoni got a reaction from Leopoldo Blancas in Restar horas en Texbox   
    Llevas casi 800 mensajes y ya deberías saber que debes subir un archivo.
  15. Thanks
    Antoni got a reaction from Jose BN in Copiar datos y pegar en la última fila disponible   
    Abre el adjunto y pulsa sobre la flecha azul.
    Selecciona la carpeta donde está los archivos y pulsa aceptar/cancelar.
    Copiar archivos.xlsm
  16. Thanks
    Antoni got a reaction from Santino in Copiar datos y pegar en la última fila disponible   
    Sub DailyTrans_MDM() Dim vFile As Variant Dim wbCopyTo As Workbook Dim wsCopyTo As Worksheet Dim wbCopyFrom As Workbook Dim wsCopyFrom As Worksheet Application.ScreenUpdating = False Set wbCopyTo = ActiveWorkbook Set wsCopyTo = Sheets("Detalles") '------------------------------------------------------------------------------ vFile = Application.GetOpenFilename("Daily Reports (*.xl*)," & "*.xl*", 1, "Select Report ", "Open File", False) If TypeName(vFile) = "Boolean" Then Exit Sub Else Set wbCopyFrom = Workbooks.Open(vFile) Set wsCopyFrom = wbCopyFrom.Worksheets("ReporteGeneral") End If '-------------------------------------------------------------------------------------- wsCopyFrom.Range("A2:M" & wsCopyFrom.Range("A" & Rows.Count).End(xlUp).Row).Copy wsCopyTo.Range("A" & wsCopyTo.Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteValues wbCopyFrom.Close SaveChanges:=False End Sub  
  17. Thanks
    Antoni got a reaction from hiddenmafia in Color fuente dependiendo de rangos decimales en textbox   
    TextBox15.ForeColor = vbGreen Select Case CDbl(TextBox15) Case Is >= 0.333: TextBox15.ForeColor = vbRed Case Is >= 0.166: TextBox15.ForeColor = vbYellow End Select  
  18. Thanks
    Antoni reacted to johnmpl in Entro fecha e interpreta fórmula   
    ¡Hola, @Antoni!
    Pues qué bueno que de vez en cuando te pases por el lado de los "formulianos", por lo menos para preguntar cómo estámos 😁
    Ahora, a tu pregunta:  En el archivo tienes aplicada la configuración de compatibilidad con Lotus aplicada a la Hoja1.  Entonces, debes hacer lo siguiente:
    Archivo - Opciones - Avanzadas - Mover la barra de desplazamiento vertical hasta el final, y, en la parte de la configuración de compatibilidad con Lotus en la Hoja1, desmarcar ambos checkbox - que es como Excel trabaja por defecto -.  ¡Listo!
    ¡Bendiciones!
  19. Thanks
    Antoni got a reaction from Santino in Copiar datos y pegar en la última fila disponible   
    Sub DailyTrans_MDM() Dim vFile As Variant Dim wbCopyTo As Workbook Dim wsCopyTo As Worksheet Dim wbCopyFrom As Workbook Dim wsCopyFrom As Worksheet Application.ScreenUpdating = False Set wbCopyTo = ActiveWorkbook Set wsCopyTo = Sheets("Detalles") '------------------------------------------------------------------------------ vFile = Application.GetOpenFilename("Daily Reports (*.xl*)," & "*.xl*", 1, "Select Report ", "Open File", False) If TypeName(vFile) = "Boolean" Then Exit Sub Else Set wbCopyFrom = Workbooks.Open(vFile) Set wsCopyFrom = wbCopyFrom.Worksheets("ReporteGeneral") End If '-------------------------------------------------------------------------------------- wsCopyFrom.Range("A2:M" & wsCopyFrom.Range("A" & Rows.Count).End(xlUp).Row).Copy wsCopyTo.Range("A" & wsCopyTo.Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteValues wbCopyFrom.Close SaveChanges:=False End Sub  
  20. Like
    Antoni reacted to Marcos14 in COMMANDBUTTON   
    Gracias @Antoni por esta pequeña aclaración, pero como veras Carlos Andres, no esta por aqui y si puse eso es por la aplicacion que estoy intentando crear a pesar de llevar solo meses en el mundo de la programacion, y como puedes observar se lo agradeci a  @JSDJSD antes incluso de probar nada.
    Mis padres me enseñaron que hay que ser agradecido con todo el mundo, tanto quien te ayuda como quien no te ayuda

  21. Like
    Antoni got a reaction from JSDJSD in COMMANDBUTTON   
    😂😂😂😂
  22. Like
    Antoni got a reaction from JSDJSD in COMMANDBUTTON   
    😂😂😂😂
  23. Like
    Antoni got a reaction from JSDJSD in COMMANDBUTTON   
    😂😂😂😂
  24. Like
    Antoni got a reaction from JSDJSD in COMMANDBUTTON   
    😂😂😂😂
  25. Like
    Antoni reacted to JSDJSD in COMMANDBUTTON   
    Te dejo una segunda opción.
    Opción 2 escribes las líneas en una celda, usando Alt+Enter para los saltos de línea copias la celda y en el editor de vba pegas en la propiedad "Caption" del botón y seguidamente le quitas las comillas (al inicio y al final del Caption) Para que te funcione debes establecer en True la propiedad "WordWrap"
    Video: https://drive.google.com/open?id=1Z3pgmLI2SpbkE8PjzQ0RN8D3P-eoN2f5
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png