Pesquisar na Comunidade

Olá, Gostaria de inserir uma linha a baixo do registro escolhido na combobox no meu formulário. exemplo: combobox 01 - escolhi esse aqui .... então o programa vai identificar ele na planilha de lançamento. 02 03 ... Depois e vai ver o de baixo que é diferente e vai inserir em cima do 02 uma linha para colocar a nova informação do 01. então fica assim na planilha somente. 01 01 - novo registro 02 03 Vou deixar o modelo do código: Sub opçoes1() Application.EnableEvents = False Application.ScreenUpdating = False Dim a As Long For a = 5 To 1048000 If Filial1 = Cells(a, 1) Then ' se Filial1 for igual célula na coluna 1 na linha variavel então If Filial1 <> Cells((a) + 1, 1) Then Plan1.Cells(a, 1).Select 'Seleciona a célula da plan1 na coluna 1 na linha variavel Plan3.Activate 'Ativar a célula da plan3 Plan3.Range("j1:O1").Select 'Selecionar e Carregar células da plan3 Selection.Copy 'Cópiar seleção Plan1.Activate 'Ativa plan1 Plan1.Select 'seleciona plan1 Plan1.Rows((a) + 1).Select 'selecina a variavel atual e cola abaixo 'Insere uma seleção na linha inferior Selection.Insert Shift:=xlDown 'Call Salve1 ActiveCell.Value = filial.Value 'O valor da célula ativada e igual ao valor de filial 'Call Vazio Dim Data As Date Data = Ldata1.Caption Dim ano As Double ano = Lano1.Caption ActiveCell.Offset(0, 1).Value = Filial1 ActiveCell.Offset(0, 2).Value = bancoconta ActiveCell.Offset(0, 3).Value = agenciabanco ActiveCell.Offset(0, 4).Value = ccbancoA ActiveCell.Offset(0, 5).Value = cpbancoA ActiveCell.Offset(0, 6).Value = Ldata1 ActiveCell.Offset(0, 7).Value = lblHora1 End If End If Next Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub

olá,Preciso de uma ajuda com um código VBA.Preciso que ao inserir um número na célula "F" as células dessa linha sejam repetidas para as linhas abaixo esse determinado numero de vezes.Ou seja, se colocar na célula "F" o numero 20, automaticamente são preenchidas 20 linhas com os valores da linha original.Será que alguém me pode dar uma ajuda. obrigado

Desculpem-me se estou postando no tópico errado. Mas esta é a primeira vez que participo do forum. Abaixo está a Função que eu fiz e que funciona perfeitamente. Mas eu gostaria que vocês me ajudassem para que ela me retorne da seguinte forma: Como ela funciona: Range(A1:O1)="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15" - linha anterior Range(A2:Q2)="1 2 3 4 5 6 7 8 9 16 17 18 19 20 21" linha atual Repeidas = 1 2 3 4 5 6 7 8 9" E eu gostaria que ela prenchesse um intervalo Range(AA:AJ") Public Function Repetidas(oCel As Range) ' ////// Dezenas repetidas da Lotofácil ///// ' Compara o resultado da linha atual com o resultado da linha anterior ' e retorna os valores iguais em uma string Dim data As Variant Dim cAtual As Variant Dim cAnterior As Variant Dim oLin, oCol As Integer Dim nCel As Integer ' Linha e coluna atual oLin = oCel.Row oCol = oCel.Column ' Calcula quantas colunas tem o intervalo nCel = oCel.Cells.Count ' Captura a linha anterior cAnterior = Range(Cells(oLin - 1, oCol), Cells(oLin - 1, oCol + (nCel - 1))) d = "" ' Compara as duas linhas e seleciona as repetidas For Each x In oCel For Each y In cAnterior If x = y Then If x < 10 Then c = "0" + CStr(x) Else c = CStr(x) d = d + " " + c m = m + 1 End If Next Next ' Exibe a seleção desejada como uma string Repetidas = Trim(d) End Function Agradeço a colaboração de todos

Caras Caritchas.... Preciso De Ajuda...(Só eu aqui néh!!!) Caras estou tentando criar uma planilha que usa algumas macros...(Novidade Só Eu Aqui Fazendo isso!!!) enfim.... A macro em si ta funfando....mas o que quero é que depois dela realizar sua função que a mesma grave os dados em outra tabela...que funciona parcialmente com meu código b***, porém nessa outra tabela ele salva os dados, mas se por ventura eu acabe dando como saída a mesma informação, ele não entende como um novo registro....E Acaba Sobrescrevendo a informação anterior.... Exemplo: cod nome qnt 1 Eu 1 2 Tu 2 3 Eles 3 Se eu botar novamente um desses ele não adiciona, sobrescreve... queria assim: cod nome qnt 1 Eu 1 2 Tu 2 3 Eles 3 1 Eu 2 1 Eu 1 3 Eles 2 E assim Vai... Ajudem só a mim.... XD Não têm mais ninguém precisando.... valeu

Bom dia pessoal. Preciso de uma ajudinha com um código do vba.. é o seguinte: Tenho uma planilha que faz o "check in" dos produtos que chegam na empresa, e outra de controle de estoque e quero que seja feito a adição da mercadoria do chek in no estoque. Elaborei uma planilha simples, de exemplo que tem a mesma ideia https://www.sendspace.com/file/7f4s5l Pensei numa macro neste sentido: Dim qtd as Double Dim prod, prod_estoque as String Sheets("Estoque").Select prod_estoque = Range("A:A").Value Sheets("Cadastro").Select prod = Range("A1").Value qtd = Range("B1").Value If prod = prod_estoque Then 'Aqui seria inserido um comando que seleciona a célula da Coluna A da planilha Estoque que tem o mesmo valor de prod, ou seja, é o mesmo produto. Em seguida, a seleção muda para a célula ao lado (coluna "B"). ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + qtd Else End If End Sub O código tem alguns erros claros, como na linha "If prod = prod_estoque Then"... Mas acho que a ideia foi compreendida ^^ Qualquer duvida só me perguntar... Se alguém puder me ajudar, agradeço.