Guru do Excel + Power BI

Experimente: Private Sub CommandButton1_Click() Dim r As Range Set r = [B:B].Find(CDate(TextBox1.Value)) If Not r Is Nothing Then r.Offset(, 1).Value = TextBox2.Value Else: Cells(Rows.Count, 2).End(3)(2).Resize(, 2).Value = Array(CDate(TextBox1.Value), TextBox2.Value) End If Unload Me End Sub

Olá, @Sullivan2021.

Sugestão: disponibilize um amostra do seu arquivo Excel (imagens não servem).

Agora tem como retornar o valor da coluna AC e AD , SETOR e PLANO FINANCEIRO gravando na linha do respectivo item procurado na coluna x? Porque o objetivo é preencher essas colunas Z e AA buscando nas outras. Se eu entendi corretamente o seu comentário acima, é exatamente isso que as fórmulas retor...

Experimente:

Sub CópiaDeArquivo()
FileCopy [B3], Replace([B3], Mid([B3], 1, InStrRev([B3], "\")), "C:\testes\")
End Sub

1. desfaça a mesclagem de células em X:Y (sugestão: NUNCA MAIS NA SUA VIDA VOLTE A MESCLAR CÉLULAS; veja a última linha em vermelho nas minhas postagens) 2. se você quiser retornar o SETOR ~~~> =SEERRO(ÍNDICE(AC$3:AC$10;CORRESP(X3;AE$3:AE$10;0));"VALOR NÃO ENCONTRADO") 3. se você quiser re...

1. desfaça a mesclagem de células em X:Y (sugestão: NUNCA MAIS NA SUA VIDA VOLTE A MESCLAR CÉLULAS; veja a última linha em vermelho nas minhas postagens) 2. se você quiser retornar o SETOR ~~~> =SEERRO(ÍNDICE(AC$3:AC$10;CORRESP(X3;AE$3:AE$10;0));"VALOR NÃO ENCONTRADO") 3. se você quiser re...

As suas informações são incompletas e imprecisas, então fica difícil de resolver pois SEMPRE fica alguma pendência que não foi tratada antes, e essa situação meio que desanima e desestimula quem tenta lhe ajudar. O código que passei faz as seguintes operações, compatíveis com as suas informações: 1....

Olá, @fcarlosc2018. Entendi. Veja se esse código abaixo faz o que você deseja. ____________________________________________________________________________________________________ Sub CópiasDeMatrizV2() Dim r As Range, wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open(ThisWor...

Veja se lhe ajuda. 1. considerei que a lista com os nomes a serem atribuídos às cópias do arquivo MATRIZ.xlsm estará na coluna A, a partir de A1, da planilha ativa. 2. o arquivo MATRIZ.xlsm também deverá estar aberto ao rodar o código abaixo 3. as cópias serão gravadas na pasta em que está gravado o...

Renato123 escreveu: ↑14 Nov 2023 às 14:49 alguma sugestão?

No caso, esse processo precisa acontecer em tres abas diferentes, como eu faria isso? opção1 - o código que passei antes irá atuar SEMPRE na planilha ativa, então você pode ativar cada planilha de interesse e rodar o código. opção2 - se ao rodar o código você quiser processar mais de uma planilha e...

Olá, Anderson.

O que você deseja fazer requer o uso de macros.

Experimente o código abaixo.

Sub InsereUm()
Dim r As Range
For Each r In [F2:AL9]
If r.Value = 1 Then r.Value = 1
Next r
End Sub

Olá, @rafadeggau.

Quem bom que conseguimos ajudar.

God bless you too.

Respondido no endereço abaixo.

http://www.planilhando.com.br/forum/com ... &gsc.tab=0

cbaur escreveu: ↑25 Out 2023 às 13:10 Olá, Osvaldo!
Obs.: eu sei que nesta matriz de 5 linhas x 10 colunas vou ter um número máximo de 5^10 = 9.765.625 combinações possíveis.

Grato pelas explicações. Me parece um trabalho de alto nível. Há décadas essa sua empresa (CMPC) tem cultivo próprio de árvores aqui próximo à cidade de S.Paulo. E as árvores cultivadas são utilizadas como matéria prima. Possivelmente o cultivo próprio é por razões econômicas, mas o efeito principal...

Se você anexar uma cópia do seu arquivo Excel talvez ajude a entender o seu problema.

"Normalmente, eu faço isso manualmente." Você faz mais de 9 milhões de combinações manualmente? Quanto tempo leva ? Com que frequência você faz isso? "Não haverá nenhuma outra combinação após 2 1 4 10 2 45 34 8 50 99, pois esta seria a última combinação possível." Essa combinaçã...

Veja se ajuda.

If Cells(Linha1, 2) <> "" And Cells(Linha1, 2) <> "#" Then

Como serão as combinações após a combinação abaixo ?

2 1 4 10 2 45 34 8 50 99