Jump to content
Fórum Script Brasil

Alyson Ronnan Martins

Membros
  • Content Count

    470
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Alyson Ronnan Martins

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Dividir o problema pode te ajudar a resolver
  2. Public Sub cmdLocalizarColuna() Linha = ActiveCell.Column + 29 'Linha atual Range("G" & Linha).Value = "Seu texto" End Sub Olha se funciona.
  3. para achar a ultima linha eu uso: Linha = Sheets("SuaPlanilha").cells(Rows.Count, "A").end(xlup).row 'Ultima linha da Coluna A
  4. Segue a planilha que fiz usando a ideia: Receita(macro) Public Sub cmdNecessidade() Dim uLinhaProgramacao As Long Dim uLinhaEstrutura As Long Dim uLinhaNecessidade As Long Dim x As Long, y As Long, z As Long, w As Long Dim Produto As String Dim Material As String Dim Qtd As Double Dim NesSemana As Double Dim NesTotal As Double 'Limpar tabela cmdLimparNecessidade uLinhaProgramacao = Sheets("Programação").Cells(Rows.Count, "A").End(xlUp).Row uLinhaEstrutura = Sheets("Estrutura").Cells(Rows.Count, "A").End(xlUp).Row For x = 3 To uLinhaProgramacao Step 1 Produto = Sheets("Programação").Cells(x, "A").Value For z = 2 To uLinhaEstrutura Step 1 If Produto = Sheets("Estrutura").Cells(z, "A").Value Then 'Verificar se o material já foi programado uLinhaNecessidade = Sheets("Necessidade").Cells(Rows.Count, "A").End(xlUp).Row + 1 Material = Sheets("Estrutura").Cells(z, "B").Value Qtd = Sheets("Estrutura").Cells(z, "C").Value For w = 3 To uLinhaNecessidade Step 1 If Material = Sheets("Necessidade").Cells(w, "A").Value Then uLinhaNecessidade = w End If Next w 'Verifica se o material não foi preenchido If Sheets("Necessidade").Cells(uLinhaNecessidade, "A").Value = "" Then Sheets("Necessidade").Cells(uLinhaNecessidade, "A").Value = Material End If For y = 2 To 7 Step 1 'Coluna NesSemana = Sheets("Programação").Cells(x, y).Value NesTotal = (Qtd * NesSemana) + Sheets("Necessidade").Cells(uLinhaNecessidade, y).Value 'Lançar informações: Sheets("Necessidade").Cells(uLinhaNecessidade, y).Value = NesTotal Next y 'Debug.Print Produto & " - " & Sheets("Estrutura").Cells(z, "B").Value & ":" & Sheets("Estrutura").Cells(z, "C").Value End If Next z Next x End Sub Lógica que fiz para encontra os materiais do bolo ^^
  5. Não sei se esta ai mais vamos começar a solução ^^
  6. Opa @Fabio012. Boa tarde ^^ Queria você já tem conhecimento de usar os macro ou quer ver um código para entender melhor a sua ideia. Se possível poderia disponibilizar planilha para tentar o código?
  7. Boa tarde. @Carla Fagundes. Esta tentado re-abrir a planilha?
  8. Boa tarde. @jvg.ferrari. Como pensou em fazer?
  9. Muito complexo kkkk. Teria como fazer uma planilha só para exemplificar melhor a sua ideia? Podendo ser apenas foto. Exemplo:
  10. Boa tarde @GUSTAVO2511. Vamos definir o "endereço": Planilha: Setup Coluna: A Linha: 2 Então no VBA o endereço fica: Sheets("Setup").Range("A2").value ou Sheets("Setup").Cells(2, "A").value
  11. Boa tarde @knephk. Nunca usei um link do tipo DDE. Precisa fazer um teste para identificar quem esta acionando quando a alteração é gerada ela atualização. Vamos dividor o problema em dois. 1-Momento em que a alteração é realizada (pela atualização do link DDE). 2-Chamar o valor abaixo, entre as linhas "A3:A100". 1: Como não tenho como testar quando a alteração é realizada preciso que você tente descobrir ai. Exemplos: Dentro da sua planilha você pode agenda eventos para alterações(change) ou para calculos(Calcule). Sendo assim tenta colocar um código para exibir mensagem para cada alteração. Exemplo: Depois de realizar alteração aparece a mensagem: Claro que seu projeto pode não exibir mensagem no "Change" então precisa testar os outros também para ver quando atualizar e se vai aparecer mensagem.
  12. Como não consigo ver o seu projeto e imaginar como vai ser esse momento de "atualização do valor. Segue abaixo o código Public Sub cmd() Dim Linha Linha = fnPesquisarPosicao(Range("A1").Value) cCentralizarCampo (Linha) End Sub Public Function fnPesquisarPosicao(valor) For x = 3 To 103 Step 1 If Cells(x, "A").Value = valor Then fnPesquisarPosicao = x End If Next x End Function Public Sub cCentralizarCampo(Linha) With Range("A" & Linha) .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub Logo após envio a planilha usada para teste: https://drive.google.com/open?id=1FI_pmBF2ZAXM_aCczR6bxKHWqQfq8ORK
  13. duvida na palavra "centralizado": é assim?
  14. manda um exemplo para eu criar agora aqui. (tipo a tabela preenchida para ver aonde vai) Vou ficar acordado até as 11:50 hoje esse negócio sai kkkkk
×
×
  • Create New...