Guru do Excel e Power BI

Enviado: **11 Mar 2020 às 20:03**

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?

Enviado: **11 Mar 2020 às 20:56**

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

Enviado: **14 Mar 2020 às 16:41**

Obrigado Osvaldo. Funcionou perfeitamente.

Guru do Excel e Power BI

Macro p/ copiar e colar células selecionadas (cx de seleção)

Macro p/ copiar e colar células selecionadas (cx de seleção)

Re: Macro p/ copiar e colar células selecionadas (cx de sele

Re: Macro p/ copiar e colar células selecionadas (cx de sele