Jump to content
Fórum Script Brasil

Luana Bailon

Membros
  • Posts

    11
  • Joined

  • Last visited

About Luana Bailon

Recent Profile Visitors

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

Luana Bailon's Achievements

0

Reputation

  1. 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?
  2. 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
  3. 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
  4. 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
  5. Boa Tarde Kleber, talvez não seja por causa da linha List_1.HideColumnHeaders = True?
  6. 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.
  7. 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
  8. 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
  9. 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
  10. 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.
×
×
  • Create New...