MAOliv

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

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?

Funcionou Jimmy! Muito obrigado!

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

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...

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

Obrigado pela ajuda Osvaldo! vou testar amanhã cedo na minha máquina na empresa... Precisando posso voltar com você?

oswaldomp, boa tarde! cito a linha de código após o Then?

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?

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.

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...