Dar Resultado en una hoja segun acciones de celdas en otra hoja de manera que agrupe de 10 en 10
publicado
Solicito ayuda ya que estoy haciendo una macro en las cuales en la hoja 1 tengo 3 acciones, que van colocados aleatoriamente en la columna B y en la columna A esta los datos que quiero procesar segun la accion para que el resultado me lo de en la hoja 2, resulta que si existe en la columna B el consecutivo de una accion (por ej: "SUmar") entonces que cuente hasta 10 ese consecutivo y en la hoja 2 agrupe los datos de la columna A en 1 celda, y baje a la siguiente celda segun la accion de la columna B, no se si soy explicito, de igual forma tengo adelantada una parte que les dejo comentandole tambien que uno de los problemas es que una accion sobreescribe a la otra y no lleva el orden que deberia llevar segun columna B de la Hoja 1, a continuacion la estructura real de la macro:
Private Sub CommandButton1_Click()
Dim e, f, count, count1, c, c1 As Variant
Dim max_fila, max_fila1 As Integer
Call consulta ; esto es para que clasifique los datos columna A hoja 1
Total_encontrados = 0 ; suma cuantos datos en la columna A hoja 1
max_fila = 0 ; hace sumatoria de 10 en 10 para una accion
max_fila1 = 0 ; hace sumatoria de 10 en 10 para otra accion
f = 1
e = 1
x = 2
y = 2
servicio = ""
Do While Hoja1.Cells(x, 1) <> ""
'cuenta la cantidad de numeros para el promedio
Total = Total + 1
Hoja1.Range("G9") = Total
c = Right(Hoja1.Cells(x, 1), 7) ; saca los datos que necesito para la columna A
Select Case Hoja1.Cells(x, 2); Revisara segun accion columna B Hoja 1
Case "ARAÑA"
servicio = StrConv(Hoja1.Cells(x, 2), vbLowerCase) ; minuscula accion columna B
If max_fila = 10 Then ; con este confirmo que este de 10 en 10
max_fila = 0
count = ""
End If
esto es solo para una accion, la estructura de la otra accion es la misma pero para "Bloquear", el asunto es que no logro hacer que lleve un orden consecutivo segun la accion de la columna B de la hoja1
Espero su ayuda, se lo agradeceria
Saludos
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Solicito ayuda ya que estoy haciendo una macro en las cuales en la hoja 1 tengo 3 acciones, que van colocados aleatoriamente en la columna B y en la columna A esta los datos que quiero procesar segun la accion para que el resultado me lo de en la hoja 2, resulta que si existe en la columna B el consecutivo de una accion (por ej: "SUmar") entonces que cuente hasta 10 ese consecutivo y en la hoja 2 agrupe los datos de la columna A en 1 celda, y baje a la siguiente celda segun la accion de la columna B, no se si soy explicito, de igual forma tengo adelantada una parte que les dejo comentandole tambien que uno de los problemas es que una accion sobreescribe a la otra y no lleva el orden que deberia llevar segun columna B de la Hoja 1, a continuacion la estructura real de la macro:
Private Sub CommandButton1_Click()
Dim e, f, count, count1, c, c1 As Variant
Dim max_fila, max_fila1 As Integer
Call consulta ; esto es para que clasifique los datos columna A hoja 1
Total_encontrados = 0 ; suma cuantos datos en la columna A hoja 1
max_fila = 0 ; hace sumatoria de 10 en 10 para una accion
max_fila1 = 0 ; hace sumatoria de 10 en 10 para otra accion
f = 1
e = 1
x = 2
y = 2
servicio = ""
Do While Hoja1.Cells(x, 1) <> ""
'cuenta la cantidad de numeros para el promedio
Total = Total + 1
Hoja1.Range("G9") = Total
c = Right(Hoja1.Cells(x, 1), 7) ; saca los datos que necesito para la columna A
Select Case Hoja1.Cells(x, 2); Revisara segun accion columna B Hoja 1
Case "ARAÑA"
servicio = StrConv(Hoja1.Cells(x, 2), vbLowerCase) ; minuscula accion columna B
Select Case servicio
Case "Desbloquear"
Total_encontrados = Total_encontrados + 1
If max_fila = 0 Then
count = c
desbloquear = "este" & count & "se desbloqueara"
max_fila = max_fila + 1
else
count = count & "&'" & c
desbloquear = "estos" & count & "se desbloquearan"
max_fila = max_fila + 1
endif
If max_fila = 10 Then ; con este confirmo que este de 10 en 10
max_fila = 0
count = ""
End If
esto es solo para una accion, la estructura de la otra accion es la misma pero para "Bloquear", el asunto es que no logro hacer que lleve un orden consecutivo segun la accion de la columna B de la hoja1
Espero su ayuda, se lo agradeceria
Saludos