DaviCN

Pessoal boa tarde, um colega meu tem um arquivo no excel que quando ele salva no seu computador pessoal, ele salva no mesmo arquivo e na mesma pasta, porém, quando ela salva esse mesmo arquivo no computador do trabalho dele, é salvo uma cópia deste arquivo, e o que ele queria era que fosse salvo no mesmo arquivo. Se alguém puder esclarecer como resolver este problema ficarei muito agradecido.

Pessoal boa tarde, tenho um conjunto de dados em uma planilha em que parte deles são carregados dentro do listbox. Esses dados estão na coluna A:G, só que no listbox só estão da A:E. No caso, gostaria de saber a partir de uma linha selecionada no listbox, como excluir parte da linha na planilha do excel que corresponde justamente a linha do listbox, para este caso excluir a linha da coluna A:E e não a linha toda. Desde já agradeço o apoio de vocês.

Private Sub Filtro() Dim w As Worksheet Dim linha As Integer Dim LinhaListBox As Integer Dim n Set w = Worksheets("ARQUIVO") LinhaListBox = 0 linha = 2 Lst_Menu.Clear With w While .Cells(linha, 2).Value <> Empty n = .Cells(linha, 1).Value If Left(n, Len(NItem.Text)) = NItem.Text Then With Me.Lst_Menu .AddItem .List(LinhaListBox, 0) = w.Cells(linha, 1) .List(LinhaListBox, 1) = w.Cells(linha, 2) .List(LinhaListBox, 2) = w.Cells(linha, 3) .List(LinhaListBox, 3) = w.Cells(linha, 4) .List(LinhaListBox, 4) = w.Cells(linha, 5) .List(LinhaListBox, 5) = w.Cells(linha, 6) End With LinhaListBox = LinhaListBox + 1 End If linha = linha + 1 Wend End With Me.lblQntItensInspecao.object = Me.Lst_Menu.ListCount & " Inspeção(ões) existente(s) " If NItem.Text = "" Then Me.lblQntItensInspecao.object = Me.Lst_Menu.ListCount & " Inspeção(ões) existente(s) " End If Application.ScreenUpdating = True End Sub Sub Excluir_Click() Dim I As Long, n As Long Dim resposta As Integer Dim var As Long Dim intlinha As Integer Worksheets("ARQUIVO").Select Worksheets("ARQUIVO").Range("B2").Select resposta = MsgBox("Tem certeza que quer deletar o(s) item(ns)? ", vbYesNo, "Excluir") If resposta = vbYes Then For n = Lst_Menu.ListCount - 1 To 0 Step -1 If Lst_Menu.Selected(n) = True Then With Worksheets("ARQUIVO").Range("A:A") var = Lst_Menu.List(n, 0) Lst_Menu.RemoveItem (n) I = Application.Match(var, ThisWorkbook.Sheets("ARQUIVO").Range("A:A"), 0) Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 1) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 2) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 3) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 4) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 5) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 6) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 7) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 8) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 9) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 10) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 11) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 12) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 13) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 14) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 15) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 16) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 17) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 18) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 19) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 20) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 21) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 22) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 23) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 24) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 25) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 26) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 27) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 28) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 29) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 30) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 31) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 32) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 33) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 34) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 35) = "" Worksheets("ARQUIVO").Cells(I, 1).Offset(0, 36) = "" End With End If Next n Me.lblQntItensInspecao.object = " Total Inspeções para o mês: " & Me.Lst_Menu.ListCount MsgBox "Item(ns) deletado(s) com sucesso!" End If End Sub Pessoal boa tarde, gostaria de saber como excluir linhas no litsbox e consequentemente planilha do excel a partir de filtro em textbox, tipo, se eu filtrar um número "14" no textbox, aparece todos os itens referentes a este número, o problema é que queria excluir exatamente a linha que eu selecionei no listbox, e consequentemente essa mesma linha também ser excluída na planilha, e com o código que eu tenho, ele sempre exclui a primeira linha visivel na listbox, e não exatamente a linha que eu selecionei, se alguém puder me dar uma força nisso, fico muito agradecido. Segue o código que estou utilizando tanto para filtrar como para excluir.

Muito bom amigo, no listbox deu super certo, mas, esqueci de falar um detalhe, e se eu quisesse que além de aparecer na listbox aparecesse também os itens na planilha com a mesma quantidade que foi colocada na listbox.

Boa Tarde gente, gostaria de saber de vocês como fazer para que um item selecionado em uma combobox apareça na listbox conforme uma certa quantidade digitada em uma textbox. Ex: Se eu selecionar um item em uma combobox e digitar o número "3" na textbox, este item da combobox aparecer 3 vezes na listbox. Desde já agradeço a colaboração de vocês.

@Basole boa tarde, em relação ao problema que foi citado neste tópico gostaria de saber como fazer para que fosse adicionado uma certa quantidade de itens das 3 ComboBox e do textbox1 de uma UserForm para uma listbox de outro userForm através de um valor que fosse colocado em uma textbox2 seguindo o códig que foi fornecido por vez. Tipo, se eu colocasse o valor "3" na textbox2, os itens que eu colocasse nas 3 ComboBox e do textbox1 replicassem 3 vezes no outro listbox. Qualquer dúvida estou à disposição. Desde já agradeço!

Amigo, segue um print da tabela dinâmica, só queria excluir essa linha "vazio" da tabela.

Boa Tarde gente, gostaria de saber de vocês como fazer pra eliminar a linha de valores que na tabela dinâmica aparecem como "vazio", tentei de várias formas, mas sem êxito. Gostaria muito do apoio de vocês, desde já agradeço.

Pessoal boa tarde, mais uma vez, aqui precisando do excelente apoio de vocês. Estou tendo problemas na exclusão de linhas de uma listbox e que automaticamente essa linha na listbox também é excluída no formulário. Esta exclusão é feita por filtro de dia, tipo, quando filtro o dia 2, conforme o exemplo abaixo, aparece no formulário as linhas 2 e 3 da planilha, se eu excluir do formulário a linha 3 que contém o material "Aço", na planilha é excluído o primeiro item do dia 2, neste caso, a linha 2, mas o que eu queria neste caso é que a linha 3 fosse excluída. Gostaria muito da ajuda vocês. Qualquer dúvida, estou à disposição. Tabela no Excel LinhaNaPlanilha item Material Dia 1 1 Madeira 1 2 1 Madeira 2 3 1 Aço 2 4 1 Cobre 5 5 2 Aço 3 6 2 Madeira 5

obrigado @Midori

Boa Tarde @Midori, como eu faria no caso para que a tabela2 começasse justamente na célula(linha) que começa a tabela 1. Desde já agradeço.

Show @Midori, deu super certo, muito obrigado.

Boa Tarde @Midori, agradeço pelo seu retorno, porém, nos campus: Cells(N + LINHA DA TABELA 2, 1) = Cells(L, 1) e Cells(N + LINHA DA TABELA 2, C + 1) = R, ficou em vermelho no codigo como se o vba não os entendesse como código. Uma dúvida, além disso, no campus: For Each R In RANGE DOS DIAS DA LINHA ATUAL (L), o código ficaria ate range?e o resto como comentário? porque não consegui identificar essa linha todo como código. Desde já lhe agradeço pelo apoio.

Boa Tarde gente, gostaria muito do apoio de vcs, gostaria que a tabela 1, ficasse no formato da tabela 2. No caso, gostaria que isso fosse feito pelo Vba, onde quando eu clicar em um botão criado na planilha do excel automaticamente, os dados da tabela 1 ficasse no formato da tabela 2. Desde já agradeço a ajuda de vcs. Tabela 1 ColunaA ColunaB ColunaC ColunaD ColunaE ColunaF ITEM DIA ITEM 1 01 02 03 04 05 ITEM 2 01 03 05 Tabela2 ColunaA ColunaB ColunaC ColunaD ColunaE ColunaF ITEM DIA ITEM 1 01 ITEM 1 02 ITEM 1 03 ITEM 1 04 ITEM 1 05 ITEM 2 01 ITEM 2 03 ITEM 2 05

Pessoal boa tarde, gostaria de saber como solucionar problemas de linhas muito grandes a ponto de estarem cortando dentro de listbox, ou seja, tem linhas que por serem grandes quando importadas da planilha para o listbox o conteúdo delas não aparece todo, precisaria de uma solução para isso. Desde já agradeço o apoio de vocês.