Notifications

Clear all

Alterar dados (pluvio) com VBA/USERFORM/MACRO

2024 - VBA & Macros

Post Recente por klarc28 7 anos atrás

8 Posts

3 Usuários

0 Reactions

1,849 Visualizações

RSS

pokolouko

(@pokolouko)

Posts: 5

Active Member

Topic starter

Boa tarde pessoal, tudo bem ?

Estou no inicio de um projeto com Excel, e sou meio novato.. estou fazendo uns cursos e pesquisando para aprimorar meus conhecimentos que não são muito emfim...

Bom estou com essa planilha em anexo, e na aba ( Terraço em Gradiente e Intensid ) nas celulas C2,C5,C6 e C7 gostaria de fazer alterações constante de plúvios de regiões para projeto de plantio de cana e etc

Estava pensando em fazer um projetinho de uma maneira "simples" com caixa de seleção com barra de rolagem, onde a pessoa pesquise a sua cidade e assim que selecionar essa cidade o plúvio automaticamente mudaria sozinho.

Fiz isso com MACRO, mais quero passar para uma parte mais profissional e para ficar mais intuitivo...

Sub Andradina()
'
' Andradina Macro
'

'
    Range("O6").Select
    Sheets("Terraço em Gradiente e Intensid").Select
    Range("C2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1844.723"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "0.126"
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "25"
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "0.829"
    Sheets("Calculo Automatizado").Select
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "ANDRADINA"
    Range("Q3").Select
End Sub

So que estou querendo fazer isso com caixa de seleção, mas sem estar salvos esses dados em uma coluna, apenas guardado em seu banco, assim a pessoa selecionando a cidade mudaria automaticamente, é possível ?

@EDIIIT Pessoal, eu consigo colocar para ele executar um macro dentro de uma caixa de seleção ? se sim isso ja resolveria meu problema, desde ja obrigado

Postado : 11/12/2017 1:38 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

O usuário pokolouko disse "Caixa de seleção", então pensei que era "checkbox"

Postado : 11/12/2017 10:43 pm

pokolouko

(@pokolouko)

Posts: 5

Active Member

Topic starter

Para ficar mais claro, seria assim

A pessoa abriria a caixa de seleção, e ao escolher sua cidade mudava X celulas..

Estava pensando em usar sim a formula do SE= .... .Cell "C2" tal tal tal, so que estou sem ideia de como começar isso e como colocar a listagem para executar uma macro quando selecionada

Postado : 12/12/2017 4:36 am

Gesus

(@gesus)

Posts: 44

Eminent Member

Bom dia,

Pelo que eu entendi vc quer apenas pegar o valor do list box e colocar em uma célula?
Fiz este modelo e caso não seja na planilha e sim no Userform o principio é o mesmo.
Ah, acho que o arquivo que vc anexou esta vazio, faz o download e verifica ai blz!

Espero que ajude, abcs
Gesus Viegas

List Box na Planilha.xlsm

Postado : 12/12/2017 6:06 am

pokolouko

(@pokolouko)

Posts: 5

Active Member

Topic starter

Bom dia GESUS

Isso já me ajudou muito, estou tentando bolar algo em cima do que voce fez ai
fiz uma copia para outra planilha do que realmente eu precisava que acontecesse

Vou tentar explicar aqui, conforme você pode analisar o meu lindo desenho... kkk
você pode identificar que tenho duas caixas de "comando" a listabox, e caixa de seleção, eu gosto mais da de seleção a primeira

Exemplo, quando eu clico na listbox, na cidade de IRACEMÁPOLIS, eu gostaria que ele automaticamente, pegasse os dados ali da lista
que se encostra as cidades e colocasse na calculadora do pluviometro para saber a intensidade da chuva nessa região

eu estou tentando fazer com que eu selecione iracemapolitanos, e automaticamente nessa seleção, mudasse os informativos conforme as cores K (vermelho) no K (vermelho) e assim por diante, oque eu não estou conseguindo realmente é entender como ele vai pegar essas células e fazer alteração

Postado : 12/12/2017 7:05 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Vídeo relacionado ao tópico:

https://www.youtube.com/watch?v=hTK-0ic6Xlc

Caixa de listagem é listbox.
Caixa de combinação é combobox.
Caixa de seleção é checkbox.

Favor usar o nome correto para não confundir os outros.

Private Sub ComboBox1_Change()
    Dim linha As Long
    Dim valor As String
    linha = 2
    While ThisWorkbook.Sheets("Pluvio10Anos").Range("A" & linha) <> ""
        
        valor = ThisWorkbook.Sheets("Pluvio10Anos").Range("A" & linha).Value
        
        If Plan1.ComboBox1.Value = valor Then
            ThisWorkbook.Sheets("Pluvio10Anos").Range("K5").Value = ThisWorkbook.Sheets("Pluvio10Anos").Range("B" & linha).Value
            ThisWorkbook.Sheets("Pluvio10Anos").Range("K8").Value = ThisWorkbook.Sheets("Pluvio10Anos").Range("C" & linha).Value
            ThisWorkbook.Sheets("Pluvio10Anos").Range("K9").Value = ThisWorkbook.Sheets("Pluvio10Anos").Range("D" & linha).Value
            ThisWorkbook.Sheets("Pluvio10Anos").Range("K10").Value = ThisWorkbook.Sheets("Pluvio10Anos").Range("E" & linha).Value
 
            Exit Sub
        End If
        linha = linha + 1
    Wend
End Sub

Favor testar o arquivo anexo

Postado : 12/12/2017 8:02 am