Saltar al contenido

Macro que me guarde datos de la Formato de Tareo 2021 a la hoja DATA FASEO


jeaa

Recommended Posts

publicado

Buenas tardes, por favor necesito una macro para poder guardar datos de la hoja Formato de Tareo 2021 a hoja DATA FASEO a manera de historial, cada vez que tengo que modificar y los rangos la cual se tienen que pasar o guardar ya se encuentran en la hoja DATA FASEO que los copie de forma manual y algunos otros rangos mas para completar con el registro, por favor si se podria dar una solucion ya que para mi se me hace imposible. Muchas gracias y adjunto el archivo.

Reporte diario de trabajo Rev.xlsm

publicado

@jeaa, te dejo una idea, porque le he echado un vistazo y es un poco jaleo...

Crea una matriz en la que vallas metiendo los datos que quieres copiar en el mismo orden en que están en la tabla donde copiar, luego busca la última fila de la hoja y pega la matriz.

Sub copiar()
Dim datos(1 to 1, 1 to "nº de columnas de la tabla") as String, uF&, h%

Application.ScreenUpdating=False

datos(1,1)=Cells(la primera celda por orden en la tabla)
datos(1,2)=Cells(la segunda celda por orden en la tabla)
datos(1,3)=Cells(la tercera celda por orden en la tabla)
.
.
.
.

With Sheets("DATA FASEO")
	uF=Range("B" & Rows.Count).End(xlUp).Row + 1
	cells(uF,2).Resize(1, Ubound(datos))=datos
End With

End Sub

 

publicado

Haplox, muchas gracias lo e probado pero no logro entender para que me pueda funcionar

publicado
Hace 21 horas, jeaa dijo:

Haplox, muchas gracias lo e probado pero no logro entender para que me pueda funcionar

Pero lo has probado y no es lo que necesitas, o no puedes hacerlo funcionar? :huh:

publicado

buenos dias, no puedo hacer funcionar por favor ayudame...

publicado

Con esto ya tienes para entretenerte un rato, te invito a que implementes los datos que te faltan por pasar  de un  hoja a otra. 

Prueba.gif

publicado

disculpe el archivo que has adjuntado no es lo mismo que estas mostrando en el video, por favor me puedes compartir

publicado

Lo voy agradecer bastante por favor

publicado

JSDJSD, por favor me puede compartir el archivo estare agradecido eternamente

publicado

Gracias

publicado

muchas gracias, esta muy buenos solo las tareas no lo pasa como lo necesito

image.thumb.png.37563064c42a3391c24f202c16c18128.png

publicado
Hace 1 hora, jeaa dijo:

muchas gracias, esta muy buenos solo las tareas no lo pasa como lo necesito

Con el material que tienes, ya puedes intentarlo tu mismo y si no lo consigues dilo y sube un ejemplo de como quieres que pase todos los datos

publicado

JSDJSD, si muchas gracias lo comentaba pero muchas gracias por la ayuda es mucha importancia todo esto, sabes de lo agradezco infinitamente, eres un genio...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 108 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      184
    • Comentarios
      96
    • Revisiones
      28

    Más información sobre "Un juego solitario en Excel"
    Última descarga
    Por pegones1

    4    0

  • Crear macros Excel

  • Mensajes

    • Saludos amigos de Ayuda Excel. Quería consultar si hay alguna opción de macro de bloquear la opción "Guardar Como".  El archivo ya tiene el código de salvar automáticamente al cerrarlo, pero me gustaría bloquear esa opción. Gracias,  saludos. Leo
    • Nueva versión pruébala y comentas Propuesta27102024.xlsm
    • Utiliza la función CDbl()  en lugar de Val().
    • Buenos días @JSDJSD espero estes bien  Utilizando la información proveniente de los dos posts anteriores en los que usted me dio un excelente soporte:     Me guie para intentar configurar las siguientes macros:   Sub VerificarTextBoxes() Dim txtBoxes As Variant Dim contador As Integer Dim sextoTextBox As Double Dim septimoTextBox As Double Dim i As Integer txtBoxes = Array(frmvtl.TextBox16.Value, frmvtl.TextBox17.Value, frmvtl.TextBox18.Value, frmvtl.TextBox19.Value, _ frmvtl.TextBox20.Value, frmvtl.TextBox21.Value, frmvtl.TextBox22.Value) contador = 0 sextoTextBox = 0 septimoTextBox = 0 ' Contar TextBoxes llenos For i = LBound(txtBoxes) To UBound(txtBoxes) If txtBoxes(i) <> "" Then contador = contador + 1 If contador = 6 Then sextoTextBox = Val(txtBoxes(i)) ElseIf contador = 7 Then septimoTextBox = Val(txtBoxes(i)) End If End If Next i ' Sumar al TextBox26 si hay 6 o 7 TextBox llenos If contador >= 6 Then Dim total As Double total = sextoTextBox + septimoTextBox frmvtl.TextBox26.Value = total End If End Sub Sub ColorearTextBox(TxtBox As MSForms.TextBox, CboBox As MSForms.comboBox) 'Colorear Texbox 16 al 20 With TxtBox Select Case .Value Case "", Empty: .BackColor = RGB(255, 255, 255) Case Is <= CInt(CboBox): .BackColor = RGB(255, 255, 255) Case Is > CInt(CboBox): .BackColor = RGB(255, 0, 0) End Select End With End Sub Sub ColorearTextBox2(TxtBox As MSForms.TextBox, CboBox As MSForms.comboBox) 'Colorear Texbox 21 y 22 With TxtBox Select Case .Value Case "", Empty: .BackColor = RGB(255, 255, 255) Case Is <> "": .BackColor = RGB(255, 0, 0) End Select End With End Sub Con las cuales intento darle funcionalidad al siguiente argumento: Sí y solo si hay 6 o 7 TextBox llenos (TextBox<>””) de Lunes a Domingo (TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22) entonces: ·        El(los) valor(es) del 6to TextBox o 7mo TextBox lleno(s) (TextBox<>””) o ambos inclusive se deberá(n) sumar automáticamente al TextBox26. ·        El color del 6to TextBox o 7mo TextBox o ambos inclusive deberá(n) ser automáticamente BackColor = RGB(255, 0, 0) si esta(n) lleno(s) (TextBox<>””) y si esta(n) vacío(s) (TextBox = ””) deberá(n) ser BackColor = RGB(255, 255, 255). ·        El 6to TextBox estará ubicado alternativamente entre el(los) TextBox21 y TextBox22 mientras que el 7mo TextBox siempre estará ubicado en el TextBox22. ·        El(los) TextBox (TextBox16 al TextBox22) cuyo(s) valor(es) posea(n) decimales o sea(n) decimales directamente y donde adicionalmente se cumplan con las condiciones de la Macro CalcularDiferencias así como con los tres puntos anteriores dicho(s) decimal(es) se deberá(n) sumar automáticamente en el TextBox Ahora bien, cuando los TextBox16 al TextBox22 estan llenos la macro automáticamente suma los valores del 6to TextBox y 7mo TextBox lleno(s) (TextBox<>””) en el TextBox26 y se colorean adecuadamente los TextBox21 y TextBox22 sin embargo si entre el TextBox16 y el TextBox22 hay algún TextBox vacío y/o con valores ≥ 8 se presentan desviaciones en la suma en el TextBox26, así mismo cuando los valores contenidos en los TextBox poseen decimales o son decimales directamente dichos decimales no se suman automáticamente en el TextBox 26 como si ocurre en el TextBox23 (Ver Archivo Sumar). Mucho te sabre agradecer a ayuda que me puedas dar Libro.xlsm
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.