-
Total de itens
11 -
Registro em
-
Última visita
Sobre Luana Bailon
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
Luana Bailon's Achievements
0
Reputação
-
CÓDIGO VBA PARA COPIAR LINHAS QUE DEPENDAM DE UMA CÉLULA PREENCHIDA
pergunta respondeu ao Mauricio Azevedo de Luana Bailon em VBA
Acho que uma maneira seria no evento Change, onde quando você preenchesse a quantidade de um item, automaticamente já copiaria e colaria na outra planilha. Poderia dar mais informações do seu arquivo, se possível, como em quais colunas estão os dados, etc? -
Boa tarde, tudo sim e com você? Poderia disponibilizar a planilha, se possível, ou mandar uma foto só para basear? Não deu pra entender direito. Mas seria algo assim? https://drive.google.com/file/d/1ewgNH7wRpdYACPo5BYF3eg54p82kE5yZ/view?usp=sharing o código ficou assim : Sub preencher2() Dim VetorPerfil As Variant Dim tlinha As Long, i As Long Dim colar As Long Dim j As Long tlinha = Planilha1.Range("a1").CurrentRegion.Rows.Count colar = Planilha3.Range("a1").CurrentRegion.Rows.Count + 1 For i = 2 To tlinha VetorPerfil = Split(Planilha1.Cells(i, 5), ";") For j = 0 To UBound(VetorPerfil) Planilha3.Cells(colar, 1) = Planilha1.Cells(i, 1) Planilha3.Cells(colar, 2) = Planilha1.Cells(i, 2) Planilha3.Cells(colar, 3) = CDate(Planilha1.Cells(i, 3)) Planilha3.Cells(colar, 4) = Planilha1.Cells(i, 4) Planilha3.Cells(colar, 5) = VetorPerfil(j) Planilha3.Cells(colar, 6) = CDate(Planilha1.Cells(i, 6)) Planilha3.Cells(colar, 7) = Planilha1.Cells(i, 7) Planilha3.Cells(colar, 8)= Planilha1.Cells(i, 8) colar = colar + 1 Next Next Planilha3.Range("a1").CurrentRegion.EntireColumn.AutoFit End Sub
-
Boa tarde, veja se esse código pode te ajudar, antes de testar o código, por favor faça uma cópia do seu arquivo, só por precaução. Não mencionei planilha, então é melhor tentar usar só nessa planilha. Sub preencher() Dim VetorPerfil As Variant Dim tlinha As Long, i As Long VetorPerfil = Split(Range("e3").Value, ";") tlinha = Range("a7").End(xlDown).Row + 1 For i = 0 To UBound(VetorPerfil) Cells(tlinha, 1) = Range("A3").Value Cells(tlinha, 2) = Range("b3").Value Cells(tlinha, 3) = CDate(Range("c3").Value) Cells(tlinha, 4) = Range("d3").Value Cells(tlinha, 5) = VetorPerfil(i) Cells(tlinha, 6) = CDate(Range("f3").Value) Cells(tlinha, 7) = Range("g3").Value Cells(tlinha, 8)= Range("h3").Value tlinha = tlinha + 1 Next End Sub
-
Boa tarde, veja se pode te ajudar : Sub simularValvulaTermostatica() If Range("a1").Value > 80 Then Range("c1").Value = 1 ElseIf Range("a1").Value < 25 Then Range("c1").Value = 0 End If End Sub
-
Cabeçalho de listview não está sendo exibido
pergunta respondeu ao kleber.bertolini de Luana Bailon em VBA
Boa Tarde Kleber, talvez não seja por causa da linha List_1.HideColumnHeaders = True? -
COPIAR CÉLULAS E COLAR VALORES SE O VALOR DE UMA CÉLULA FOR IGUAL A OUTRA CÉLULA.
pergunta respondeu ao piasserpa de Luana Bailon em VBA
Boa tarde, então, tente colocar Set valor = Sheets("nomedasuaplanilha") e também substitua na outra linha With Sheets("nomedasuaplanilha") Veja se funciona, desculpe pelo erro. -
COPIAR CÉLULAS E COLAR VALORES SE O VALOR DE UMA CÉLULA FOR IGUAL A OUTRA CÉLULA.
pergunta respondeu ao piasserpa de Luana Bailon em VBA
Boa tarde, veja se esse código pode te ajudar : Coloquei Planilha1, mas adapte a seu modo e coloque o nome da sua planilha Sub copiaecola() Dim valor As Range Set valor = Planilha1.Range("a1") With Planilha1 If .Range("H30").Value = valor Then .Range("C22:C27").Copy .Range("H31") ElseIf .Range("K30").Value = valor Then .Range("C22:C27").Copy .Range("K31") End If End With End Sub -
Boa tarde. Acho que isso ocorre justamente por o UserForm estar aberto, fiz um teste aqui e realmente a planilha não fecha. O UserForm vem com uma propriedade como True por default, que é a ShowModal.Se estiver como True, não tem como clicar em células, e talvez no seu caso até fechar planilhas. Tente isso : Na propriedade ShowModal do UserForm, altere para False Em casos extremos, outro jeito é fechar o userform Unload UserForm1
-
Bom dia, veja se esse código pode ajudar : Sub filtropulalinha() Dim celulafiltro As Range, intervalotabela As Range Set intervalotabela = Planilha1.Range("d3").CurrentRegion.Offset(1, 0) Set celulafiltro = intervalotabela.Cells.SpecialCells(xlCellTypeVisible) celulafiltro.Cells(1, 1).Select End Sub
-
Luana Bailon se registrou na comunidade
-
Boa noite, veja se esse código aqui pode te ajudar, adapte a seu modo. Sub buscarcodigo() Dim mensagem As Variant Dim linha As Long, coluna As Long mensagem = InputBox("Insira o código desejado.") linha = Planilha1.Rows().Find(mensagem, , , xlWhole).Row coluna = Planilha1.Columns().Find(mensagem, , , xlWhole).Column Planilha1.Cells(linha, coluna).Interior.Color = vbGreen MsgBox Cells(linha, coluna).Address End Sub Caso queira registrar em uma célula, substitua a linha onde está o MsgBox para: Planilha1.Range("céluladesejada").Value = Cells(linha, coluna).Address Você também pode atribuir esse código a uma Forma dentro da planilha, como se fosse um "botão", se quiser.