Así lo he hecho, he aceptado la segunda columna de anotación y he añadido una macro:
Private Sub Worksheet_Calculate()
Dim f As Long
Dim disparar As Boolean
' Si ya se disparó una vez, salimos
If Me.Range("XX2").Value <> "" Then Exit Sub
' Comprobamos si alguna W llegó a 2
For f = 2 To 6
If Me.Cells(f, "W").Value = 2 Then
disparar = True
Exit For
End If
Next f
' Si ninguna llegó a 2, no hacemos nada
If disparar = False Then Exit Sub
' Guardamos TODO el rango como base
For f = 2 To 6
Me.Cells(f, "XX").Value = Me.Cells(f, "W").Value
' Fórmula en Y restando su base
Me.Cells(f, "Y").FormulaLocal = _
"=CONTAR.SI.CONJUNTO(Datos!B:B;$V$1;Datos!D:D;$V" & f & ")" & _
"-CONTAR.SI.CONJUNTO(Datos!B:B;$V$1;Datos!E:E;$V" & f & ")" & _
"-XX" & f
Next f
End Sub
No es la opción más bonita porque sigue contando los objetos en la columna W, pero la función me resulta suficiente para poder llevar la cuenta.
Tendré que hacer una pequeña macro para cada jugadora, son 14, pero espero no tener problemas
Por
Maku, · publicado
Hola a todos, quiero solicitarles su ayuda para completar una macro que me permita realizar lo siguiente:
1- Recorrer cada celda de un rango en una hoja (Q)
2- Cada valor pegarlo en una celda de otra hoja (RECIBO) donde ese codigo permita realizar una busqueda de diversos valores.
3- Imprimir todos los recibos de los empleados
Por el momento únicamente he logrado visualizar la extracción de cada valor de celda con un msgbox
Option Explicit
Public Sub recorrer_rango_seleccionado()
' variable de tipo Range para hacer referencia a las celdas
Dim obj_Cell As Range
Dim codigo As String
'Recorrer todas las celdas seleccionadas en el rango actual
Sheets("Q").Range("b6:b10").Select
For Each obj_Cell In Selection.Cells
' Muestra el valor
With obj_Cell
'EN ESTE SEGMENTO ENTIENDO QUE DEBO DE COLOCAR LA INDICACIÓN PARA PEGARLO EN LA CELDA C1 DE LA HOJA RECIBO
MsgBox .Text, vbInformation, "Col " & .Column & " " & "Fila: " & .Row
End With
ActiveSheet.Range("b1:i27").PrintOut
Next
End Sub
He intentado con comando para especificar el rango de pegado del valor pero nada me funciona. Gracias por su ayuda.
PLANILLA PRUEBA.rar