CasaDoHardware

Não entendi! você quer clicar em uma celula de determinada linha e copiar a linha inteira para outra aba é isso?

Qto a planilha é so fazer um exemplo menor. E ate onde sei o que você quer não é possivel pelo menos da forma que você quer, no formato da planilha apresentada. você pode tentar, nao sei se vai dar certo Faça duas linhas da formula como você deseja, selecione as duas linhas e tente arrastar, se nao funcionar so com vba ou manualmente. Pelo que entendi provavelmente seria melhor mudar o formato de sua planilha.

O excel nao abre imagem

Para se testar a planilha é preciso que ela tenha alguns dados e de preferência que você mostre o resultado esperado. So assim para ter como ajustar o codigo. Apesar que eu acho que se você formatar as celulas do jeito correto seu problema acaba.

Exatamente pelo fato de ter a possibilidade de ter muitos dados se deve centralizar tudo em uma unica base (em linhas) Imagine se você tiver 500 cadastros? Sao 500 abas. Acha mesmo produtivo? É so uma sugestão.

So pra esclarecer seja qual for o formato atual da planilha. Base de dados deve ser unica. Ao invés de ter uma macro que cadastre a cada guia. Tenha uma macro que use apenas 1 guia para realizar o cadastro.

Não consegui identificar qual é o codigo que você usa para deletar os dados. Uma das primeiras coisas a fazer é centralizar essas 10 planilhas em 1 unica, talvez nao precise nem do vba.

O ideal seria que você tivesse postado tb a planilha. Assim pode-se fazer testes

Para interromper uma macro você usa ctrl + shift + Pause Brake Explica ai qual a razão de você querer algo assim! porque dependendo do caso um simples if resolve. Ou utilizar uma outra rotina de repetição tb resolve

Partindo do seu codigo com a ajuda do colega acima fiz esta adaptação Verique se funciona!! Sub AGENDAMENTO() Dim LR As Long 'retorna o número da última linha com conteúdo na coluna LR = Sheets("DADOSAGENDA").Cells(Rows.Count, 2).End(xlUp).Row Sheets("AGENDAMENTO").Range("C3:h44").Copy Sheets("DADOSAGENDA").Range("B" & LR + 1).PasteSpecial Paste:=xlPasteValues Sheets("AGENDAMENTO").Range("e3:h44").ClearContents End Sub

Agradeço sua sugestão mas o exemplo é reduzido para esclarecer a necessidade. Minha base de dados é muito grande. Infelizmente intervalos fixos nao atendem Agradeço adicionado 1 minuto depois Vou testar essa opção!!

Poste um arquivo de exemplo com o resultado esperado.

Muito bom nos testes iniciais funcionou de acordo com o esperado Obrigado!!

Bom dia povo!! Imaginem o seguinte cenario. A1: F1 01 02 05 08 10 16 A2:F2 02 05 08 15 18 20 Preciso saber qtos numeros na linha2 repetem na linha1 Com formulas uso esta = soma(cont.se(A2:F2;A1:F1)) finalizo com Ctrl+Shift+Enter E neste exemplo tenho o resultado 3 Preciso fazer a mesma coisa com VBA. Tenho o seguinte codigo: Sub Teste() Dim Matriz1 As Variant Dim Matriz2 As Variant Dim Soma As Integer Matriz1 = Planilha1.Range("A1:F1") Matriz2 = Planilha1.Range("A2:F2") 'Soma Deve retornar 3 End Sub A pergunta é como ter na variavel Soma o valor 3 somente no VBA.

Veja se atende!! Cole no modulo da planilha Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column >= 2 And Target.Column <= 8 Then Range(Cells(Target.Cells.Row, 2), Cells(Target.Cells.Row, 8)).Select End If End Sub

Na verdade é preciso conhecer a planilha para saber de onde vem e para onde vai os dados... Não ha necessidade de a planilha atualizar.

Tem como disponibilizar a planilha com dados ficticios?

Como é feita a atualização?

Vamos la entao!! O 0 na frente basta você formatar a celula de destino como texto. no caso a celula E7 da planilha proposta. Qto ao nome do arquivo é so você alterar a variavel nome Nome = WP.Range("X7").Value Faça as devidas alterações o nome do arquivo sera o que você estiver na celula X7 ou na celula que você indicar. Se ao invés do valor que estiver em X7 você quiser o valor de AK7 é so fazer assim: Nome = WP.Range("AK7").Value

Se eu entendi isso atende sua necessidade Sub IMPRESSAO_AUT() Dim WB As Worksheet Dim WP As Worksheet Dim Caminho As String Dim Nome As String Dim WBLinha As Long Set WB = Sheets("BASE") Set WP = Sheets("PROPOSTA") WBLinha = 2 Caminho = "Informe aqui o caminho do arquivo" Nome = WP.Range("X7").Value Do While WB.Cells(WBLinha, 1).Value <> "" WP.Range("E7").Value = WB.Cells(WBLinha, 1).Value WP.PrintOut COPIES:=2 ChDir Caminho WP.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Caminho & Nome & ".pdf" WBLinha = WBLinha + 1 Loop End Sub

Em que formulario você quer o filtro não identifiquei. Qto a impressão de dados da listbox você precisa passar essas informações para uma planilha para que seja possivel a impressão. E por ultimo nao entendi bem o segundo userform de alteração. Eu colocaria os dados do banco abaixo e nao como você fez. Fica mais amigavel para o usuario.

Não encontrei na planilha o codigo que faz a gravação na planilha relatorio. Entao ve se ajuda!! PLANILHA IEVG 2.zip

Tente ajustar Gravar Textbox Moeda.zip

Uma pergunta! porque transferir para o Word ao invés de manter no Excel? Seria bem mais simples manter no excel.

Sendo assim!! Use este codigo. Considerei o titulo na linha 1. Sub ocultarcoluna() Dim Coluna As Integer For Coluna = 1 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column If Cells(1, Coluna).Value <> "a" _ And Cells(1, Coluna).Value <> "c" Then Columns(Coluna).EntireColumn.Hidden = True End If Next Coluna End Sub