Este fórum está sendo desativado

[FJunior]

Olá,
Estou fazendo uma planilha (Planilha2) de apostas da loteria onde tenho 73 cartelas com 6 dezenas cada. Na frente de cada cartela coloquei uma caixa de seleção (J12, J13...) e gostaria de uma macro que quando eu clicar no botão "Apostar", ela copie APENAS as dezenas que estiverem com as CAIXAS DE SELEÇÃO MARCADAS e as cole na Planilha1. Segue em anexo a planilha.
Alguém sabe me dizer se isto é possível?

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ReplicaJogos()
 If Application.CountIf([AK12:AK84], True) = 0 Then Exit Sub
 Application.ScreenUpdating = False
 [A11:AK11].AutoFilter 37, "VERDADEIRO"
 [B12:G84].Copy
 Sheets("Planilha1").[L5:Q84] = ""
 Sheets("Planilha1").[L5].PasteSpecial xlValues
 ActiveSheet.AutoFilterMode = False
 Application.ScreenUpdating = True
End Sub

[FJunior]

Obrigado Osvaldo. Funcionou perfeitamente.