MAOliv
Membro Júnior-
Posts
11 -
Cadastrado em
-
Última visita
Reputação
0-
Excel Carregar para ListView os dados das células de acordo com a cor de fundo.
MAOliv postou um tópico em Microsoft Office e similares
Pessoal, Ajuda com a planilha excel vba: tenho uma situação em que as células de um intervalo assumem a cor vermelha quanto os parâmetros que programei não são atendidos. Preciso que estes dados não sejam carregados para a listview...vejam o código abaixo que escrevi, mas que não está funcionando... poderiam me ajudar? Private Sub UserForm_Initialize() With ListView1 .Gridlines = True .View = lvwReport .FullRowSelect = True .ColumnHeaders.Add Text:="Descrição", Width:=250, Alignment:=0 .ColumnHeaders.Add Text:="Custo/há", Width:=65, Alignment:=2 .ColumnHeaders.Add Text:="S Kg´s/há", Width:=65, Alignment:=2 .ColumnHeaders.Add Text:="Classificação ADM", Width:=100, Alignment:=0 End With Dim linha As Integer Dim Intervalo, celula As Range linha = 8 Set Intervalo = Range("g8:g118") ListView1.ListItems.Add ListView1.ListItems.Clear Planilha4.Select With Planilha4 For Each celula In Intervalo If celula.Interior.ColorIndex = vbRed Then Exit Sub ElseIf celula.Interior.ColorIndex = vbWhite Then With ListView1 Set lista = ListView1.ListItems.Add(Text:=Cells(linha, "g").Value) lista.ListSubItems.Add Text:=Cells(linha, "v").Value lista.ListSubItems.Add Text:=Cells(linha, "w").Value lista.ListSubItems.Add Text:=Cells(linha, "f").Value End With linhalist = linhalist + 1 linha = linha + 1 End If Next -
Excel Ativação de aba de planilha com a escolha de uma caixa de Seleção.
MAOliv postou um tópico em Microsoft Office e similares
Pessoal, possuo um planilha com produtos destinados as culturas da Soja, Algodão e Milho, separados em abas com os produtos das respectivas culturas. A seleção da cultura está em uma aba, onde escolho através de menu suspenso Soja ou Milho ou Algodão, na célula A14. Como estamos falando de culturas diferentes, os produtos agrícolas também variam conforme a cultura. Com isso preciso de uma macro que permita que, ao selecionar a cultura no menu suspenso, ative os produtos corretos conforme a cultura. Outro ponto, na mesma aba do menu suspenso, elaborei uma espécie de menu com os produtos Adubo / Sementes / Defensivos que, estão com hiperlinks configurados para levar a planilha em questão... No caso de Sementes, como eu poderia configurar um hiperlink para a abertura da planilha correta de acordo com a seleção da cultura? -
Excel BeforeDobleClick para selecionar mais de uma célula na mesma linha
MAOliv respondeu ao tópico de MAOliv em Microsoft Office e similares
Funcionou Jimmy! Muito obrigado! -
Excel Estrutura de repetição - para execução do código.
MAOliv respondeu ao tópico de MAOliv em Microsoft Office e similares
oohh Oswaldo desculpe! no arquivo que lhe enviei, na aba Adubação por pontos, altere os valores das células: Q3, S3 e U3. ex: coloque 30 / 90 / 80. Veja que todos os demais itens serão calculados, inclusive a coluna V! veja que tenho dados no intervalo v7:v164. Neste intervalo, não preciso das células: 119 / 120 / 121 / 122 / 142 / 143 / 144 / 145 - porque se tratam de células vazias e com dados de que não preciso. COTAÇÃO DE INSUMOS - matriz.rar -
Excel Estrutura de repetição - para execução do código.
MAOliv respondeu ao tópico de MAOliv em Microsoft Office e similares
Oswaldo, segue a matriz do documento... bom, sou Eng Agronomo, e resolvi adequar as minhas rotinas... bem vindo a vida dos Insumos Agrícolas!!! preciso na verdade de ajustar um monte de coisas nesta planilha... mas para quem nunca fez nada com programação, acho que estou indo bem! Gostaria ainda de criar um código que faça o seguinte: na Aba Clientes, eu tenho que selecionar a cultura do qual estou cotando os insumo (Soja, Milho , Algodão)... há como eu ativar a aba de sementes para cultura desejada, quando seleciono? COTAÇÃO DE INSUMOS - matriz.xlsx adicionado 4 minutos depois Oswaldo, os aquivos neste ambiene não permitem o envio da planilha habilitada para macros... -
Excel Estrutura de repetição - para execução do código.
MAOliv respondeu ao tópico de MAOliv em Microsoft Office e similares
Osvaldo, não consegui...agora coloquei o código inteiro... trata-se do preenchimento de listview, onde somente quero os números do intervalo da coluna V entre as linhas 8 a 164. Private Sub UserForm_Initialize() With ListView1 .Gridlines = True .View = lvwReport .FullRowSelect = True .ColumnHeaders.Add Text:="Descrição", Width:=250, Alignment:=0 .ColumnHeaders.Add Text:="Custo/há", Width:=65, Alignment:=2 .ColumnHeaders.Add Text:="S Kg´s/há", Width:=65, Alignment:=2 .ColumnHeaders.Add Text:="Classificação ADM", Width:=100, Alignment:=0 End With Dim linha As Integer Dim Intervalo As Range, Celula As Range linha = 8 Set Intervalo = Range("v8:v164") ListView1.ListItems.Add ListView1.ListItems.Clear Planilha4.Select With Planilha4 For Each Celula In Intervalo If ... o que eu escrevo nesta parte do código para puxar somente os números do intervalo da coluna V?? Exit Sub End If With ListView1 Set lista = ListView1.ListItems.Add(Text:=Cells(linha, "g").Value) lista.ListSubItems.Add Text:=Cells(linha, "v").Value lista.ListSubItems.Add Text:=Cells(linha, "w").Value lista.ListSubItems.Add Text:=Cells(linha, "f").Value End With linhalist = linhalist + 1 linha = linha + 1 Next End With End Sub -
Excel Estrutura de repetição - para execução do código.
MAOliv respondeu ao tópico de MAOliv em Microsoft Office e similares
Obrigado pela ajuda Osvaldo! vou testar amanhã cedo na minha máquina na empresa... Precisando posso voltar com você? -
Excel Estrutura de repetição - para execução do código.
MAOliv respondeu ao tópico de MAOliv em Microsoft Office e similares
oswaldomp, boa tarde! cito a linha de código após o Then? -
Excel Estrutura de repetição - para execução do código.
MAOliv postou um tópico em Microsoft Office e similares
Pessoal, preciso de ajuda: tenho uma planilha que possui dados numéricos e de texto na mesma coluna (coluna V = 22). Preciso executar uma estrutura de repetição que permita selecionar somente os dados numéricos, desprezando os dados em branco e de texto... Vejam a parte do código que escrevi abaixo: o problema é que está "puxando" somente os dados até a primeira célula vazia... . . With Planilha4 Do While .Cells(linha, 22).Value <>" " 'fazer enquanto a coluna 22 estiver diferente de nada If .Cells(linha, 22).Value = " " Or .Cells(linha, 22) = "Custo/há" Then 'se o valor da coluna 22 é igual a "sem valor" ou a coluna 22 estiver escrito "Custo/há" então linha = linha + 1 ' deslocar um linha para baixo End If poderiam me ajudar? -
Excel BeforeDobleClick para selecionar mais de uma célula na mesma linha
MAOliv respondeu ao tópico de MAOliv em Microsoft Office e similares
Não, não! gostaria de clicar em uma determinada célula e, além dela, copiar outras 2 células que estão na mesma linha, entretanto em colunas diferentes. -
Excel BeforeDobleClick para selecionar mais de uma célula na mesma linha
MAOliv postou um tópico em Microsoft Office e similares
Pessoal, sou novo por aqui... Seguinte: preciso selecionar uma célula que contenha uma dado na coluna C e colar o dado em outra aba da mesma pasta de trabalho com um duplo click. Entretanto preciso que, ao selecionar a célula target, "puxe" outras células que estão na mesma linha... vejam se tem sentido o que eu escrevi: Sub Worksheet_beforeDoubleClick(ByVal as Range, cancel as Boolean) If target.column <> 3 Or target.count > 1 then Exit Sub Planilha6.Range("d4").value = target.value target.offset(,3) = Sheets("destino").cells(6,6) target.offset(,4) = sheets("destino").cells(5,6) end if end sub Não estou conseguindo executar o código... poderiam me ajudar? obrigado...
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais