Boa tarde. Minha pergunta não tem nada a ver com o vídeo...rs No entanto , se for possível me ajudar, agradeço. Quero fazer uma macro para colocar em uma planilha de loterias. Tenho a matriz do desdobramento das dzs, mas preciso usar a função "substituir " para cada dezena de uma célula. Ex... uma linha com 20 dzs e uma matriz com 50 combinaçoes . Quero substituir a dezena 01 da linha de 20 dzs em todas as células com a dezena 01 na matriz. Uma macro automatizaria isso em vez de fazer dezena por dezena nas 20 Não sei se consegui explicar minha dúvida...grato
Veja se funciona: Supondo que você tenha a matriz de combinações na "Planilha2" e a linha com 20 dezenas na "Planilha1" Sub SubstituirDezenas() Dim planilha1 As Worksheet Dim planilha2 As Worksheet Dim matriz As Range Dim linhaDezenas As Range Dim cel As Range Dim dezena As String
' Defina as planilhas e intervalos apropriados Set planilha1 = ThisWorkbook.Worksheets("Planilha1") Set planilha2 = ThisWorkbook.Worksheets("Planilha2") Set matriz = planilha2.Range("A1:AX50") ' Substitua o intervalo pela sua matriz de combinações Set linhaDezenas = planilha1.Range("A1:T1") ' Substitua o intervalo pela linha com 20 dezenas
' Percorra cada dezena na linha de dezenas For Each cel In linhaDezenas dezena = cel.Value
' Percorra cada célula na matriz de combinações For Each matrizCel In matriz ' Verifique se a célula contém a dezena a ser substituída If matrizCel.Value = dezena Then ' Realize a substituição matrizCel.Value = "NovaDezena" ' Substitua "NovaDezena" pela dezena desejada End If Next matrizCel Next cel
' Limpe os valores antigos da linha de dezenas (opcional) linhaDezenas.ClearContents End Sub
Agradeço a atenção dispensada. Fiz do jeito q vc indicou, mas não deu muito certo... No vídeo abaixo a pessoa fez , mas não consegui fazer aqui... czcams.com/video/eKrbbAFD6cA/video.html
Boa tarde. Minha pergunta não tem nada a ver com o vídeo...rs
No entanto , se for possível me ajudar, agradeço.
Quero fazer uma macro para colocar em uma planilha de loterias.
Tenho a matriz do desdobramento das dzs, mas preciso usar a função "substituir " para cada dezena de uma célula.
Ex... uma linha com 20 dzs e uma matriz com 50 combinaçoes .
Quero substituir a dezena 01 da linha de 20 dzs em todas as células com a dezena 01 na matriz. Uma macro automatizaria isso em vez de fazer dezena por dezena nas 20
Não sei se consegui explicar minha dúvida...grato
Veja se funciona:
Supondo que você tenha a matriz de combinações na "Planilha2" e a linha com 20 dezenas na "Planilha1"
Sub SubstituirDezenas()
Dim planilha1 As Worksheet
Dim planilha2 As Worksheet
Dim matriz As Range
Dim linhaDezenas As Range
Dim cel As Range
Dim dezena As String
' Defina as planilhas e intervalos apropriados
Set planilha1 = ThisWorkbook.Worksheets("Planilha1")
Set planilha2 = ThisWorkbook.Worksheets("Planilha2")
Set matriz = planilha2.Range("A1:AX50") ' Substitua o intervalo pela sua matriz de combinações
Set linhaDezenas = planilha1.Range("A1:T1") ' Substitua o intervalo pela linha com 20 dezenas
' Percorra cada dezena na linha de dezenas
For Each cel In linhaDezenas
dezena = cel.Value
' Percorra cada célula na matriz de combinações
For Each matrizCel In matriz
' Verifique se a célula contém a dezena a ser substituída
If matrizCel.Value = dezena Then
' Realize a substituição
matrizCel.Value = "NovaDezena" ' Substitua "NovaDezena" pela dezena desejada
End If
Next matrizCel
Next cel
' Limpe os valores antigos da linha de dezenas (opcional)
linhaDezenas.ClearContents
End Sub
Agradeço a atenção dispensada. Fiz do jeito q vc indicou, mas não deu muito certo...
No vídeo abaixo a pessoa fez , mas não consegui fazer aqui...
czcams.com/video/eKrbbAFD6cA/video.html
no meu está retornando esse erro - Unfortunately, I was not able to answer your question, because of the following error:
You exceeded your current quota, please check your plan and billing details.
'
Para vc utilizar a API, você precisa comprar créditos, o valor mínimo é de U$5.