En este artículo, crearemos una macro para organizar los datos por día en varias hojas.
Los datos brutos de este artículo consisten en datos de ventas diarios del equipo, que incluyen la fecha, el nombre del agente y el número de artículos vendidos.
Queremos distribuir los datos diariamente en varias hojas. Al hacer clic en el botón "Distribuir datos según el día", hará lo mismo.
Explicación del código
Hacer hasta que esté vacío (Hojas de trabajo (1) .Células (intRowS, 1))
Círculo
En el código anterior, el bucle Do until se repetirá hasta que se encuentre una celda en blanco.
strTab = Formato (Celdas (intRowS, 1) .Value, "ddmmyy")
El código anterior se utiliza para extraer el nombre de la hoja de la fecha.
intRowT = Hojas de trabajo (strTab) .Cells (Rows.Count, 1) .End (xlUp) .Row + 1
El código anterior se usa para obtener el número de fila de la última celda.
Siga a continuación para obtener el código
Sub Divide () 'Declarando variables Dim intRowS As Integer, intRowT As Integer Dim strTab As String' Inicializando con el número de fila inicial intRowS = 10 'Verificando si la celda en la primera columna está vacía Do until IsEmpty (Worksheets (1) .Cells (intRowS, 1)) 'Obteniendo el nombre de la hoja basado en el valor de fecha en la primera columna strTab = Format (Cells (intRowS, 1) .Value, "ddmmyy")' Obteniendo el número de fila de la última celda intRowT = Worksheets (strTab). Celdas (Rows.Count, 1) .End (xlUp) .Row + 1 'Copiando datos a la hoja respectiva Filas (intRowS) .Copy Worksheets (strTab) .Rows (intRowT) intRowS = intRowS + 1 Loop End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico