Murilostersi

Prezados, boa tarde! Criei um macro que unifica planilhas dado o caminho da pasta onde elas se encontram. Funciona da seguinte forma, coloco as planilhas em uma pasta e abro outra planilha em branco. Após a abertura da mesma, executo o macro e o mesmo abre a janela do explorer para selecionar a pasta onde estão as planilhas. Após dar Ok, o macro processa e e exibe a mensagem "planilhas unificadas". E todas as planilhas da pasta vão para essa planilha em branco que eu abri para executar o macro. Porém, estou tendo dificuldades com a extensão da planilha. Esse macro só está funcionando se a extensão for ".xlsx" e gostaria que funcionasse em ".xls". Poderia me auxiliar? Segue o código abaixo. 'UnificarPlanilhas Macro Sub lsUnificarPlanilhas() On Error GoTo Sair Dim lUltimaColunaAtiva As Long Dim lUltimaLinhaAtiva As Long Dim lRng As Range Dim sPath As String Dim fName As String Dim lNomeWB As String Dim lIPlan As Integer Dim lUltimaLinhaPlanDestino As Long PlanilhaDestino = ThisWorkbook.Name sPath = Localizar_Caminho sName = Dir(sPath & "\*.xl*") Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Do While sName <> "" fName = sPath & "\" & sName Workbooks.Open Filename:=fName, UpdateLinks:=False lNomeWB = ActiveWorkbook.Name For lIPlan = 1 To ActiveWorkbook.Sheets.Count Workbooks(lNomeWB).Worksheets(lIPlan).Activate lUltimaLinhaAtiva = Cells(Rows.Count, 1).End(xlUp).Row lUltimaColunaAtiva = ActiveSheet.Cells(1, 5000).End(xlToLeft).Column + 9 Set lRng = Range(Cells(1, lUltimaColunaAtiva).Address) Range("A" & 2 & ":" & gfLetraColuna(lRng) & lUltimaLinhaAtiva).Select Selection.Copy Workbooks(PlanilhaDestino).Worksheets(1).Activate lUltimaLinhaPlanDestino = Cells(Rows.Count, 1).End(xlUp).Row If lUltimaLinhaPlanDestino > 1 Then lUltimaLinhaPlanDestino = Cells(Rows.Count, 1).End(xlUp).Row + 1 End If Range("A" & lUltimaLinhaPlanDestino).Select ActiveSheet.Paste Application.CutCopyMode = False Next lIPlan Workbooks(lNomeWB).Close SaveChanges:=False sName = Dir() Loop MsgBox "Planilhas unificadas!" Sair: Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub Function gfLetraColuna(ByVal rng As Range) As String Dim lTexto() As String lTexto = Split(rng.Address, "$") gfLetraColuna = lTexto(1) End Function Public Function Localizar_Caminho() As String Dim strCaminho As String With Application.FileDialog(msoFileDialogFolderPicker) 'Permitir mais de uma pasta .AllowMultiSelect = False 'Mostrar janela .Show If .SelectedItems.Count > 0 Then strCaminho = .SelectedItems(1) End If End With 'Atribuir caminho a variável Localizar_Caminho = strCaminho End Function Poderia tentar me ajudar? Gostaria muito que desse certo com arquivos da extensão ".xls". Obrigado!

Boa tarde! Como posso jogar um arquivo.txt (@"C:\dados\teste.txt") em uma matriz? Visto que preciso jogar esse arquivo ( @"C:\dados\teste.txt")em uma matriz,e editar alguns dados de posições fixas dela. Jogando esse arquivo na matriz, consigo saber onde cada dado ficará e assim conseguiria criar uma função para armazenar os valores que eu quero copiar/alterar e depois gerar outro .txt com os valores alterados. Preciso que me ajudem a achar onde eu errei: static void Main(string[] args) { StreamReader reader = new StreamReader(@"C:\dados\teste.txt"); int linha = int.Parse(reader.ReadLine()); int coluna = int.Parse(reader.ReadLine()); int[,] OutraMatriz = carregaMatriz(@"C:\dados\teste.txt", ref linha, ref coluna); Console.ReadKey(); } static int[,] carregaMatriz(string arquivo, ref int linhas, ref int colunas) { StreamReader reader = new StreamReader(arquivo); int linha = int.Parse(reader.ReadLine()); int coluna = int.Parse(reader.ReadLine()); int[,] Matriz = new int[linha, coluna]; for (int i = 0; i < linha; i++) { for (int j = 0; j < coluna; j++) { Matriz[i, j] = int.Parse(reader.ReadLine()); } } return Matriz; } Nesse código eu procurei jogar o arquivo em uma matriz, utilizei "int linha" para determinar a quantidade de linhas e assim também para colunas, porém, no arquivo notei que a primeira linha possui menos colunas que as outras. Ao executar o programa é exibido a mensagem de erro na linha "int linha = int.Parse(reader.ReadLine());" - System.FormatException: 'A cadeia de caracteres de entrada não estava em um formato correto.'. Lembrando que no arquivo possui números e textos... Obrigado desde já.

@The Frost Bom dia! Sim, eu consigo ler e exibir o .txt na tela. string arquivo = @"C:\dados\teste.txt"; if (File.Exists(arquivo)) { try { using (StreamReader sr = new StreamReader(arquivo)) { String linha; while ((linha = sr.ReadLine()) != null) { Console.WriteLine(linha); } } } catch (Exception ex) { Console.WriteLine(ex.Message); } } else { Console.WriteLine(" O arquivo não foi localizado !"); } Console.ReadKey(); Gostaria de que ele criasse outro .txt na mesma pasta, porém, alterando alguns caracteres, como eu disse acima, eu gostaria de pegar 3 numeros em 3 colunas de uma linha e jogar na mesma linha substituindo outras 3 colunas. Isso é possível? Consigo percorrer esse .txt como se fosse uma matriz? e pegar 3 numero de posições fixas e jogar pra outras 3 posições fixas? Por exemplo: AA01bb33320cc05dd99d44d333e33A55A99P73337 000000 No .txt encontra-se essa linha, gostaria de pegar o 333 grifado e jogar no 000 grifado, só mudaram as colunas, porém, são mais de uma linha e gostaria que fizesse isso em todas.

Boa tarde Prezados, Estou quebrando a cabeça para criar um programa em C# que lê um arquivo .txt, copie uma informação e substitui ela em outro lugar, confuso não? rs Por exemplo: Utilizando a barra de status do bloco de notas, eu precisava de uma informação composta por 3 números, ela começa em Linha 3 e Coluna 43 e vai até a Coluna 46. Gostaria de copiar esses 3 números e coloca-los na mesma linha só que na coluna 50, 51 e 52. Sendo que nessas 3 colunas que eu quero substituir, possuem 000. Isso, sem modificar o espaçamento do .txt. Poderiam me ajudar com essa bucha? Att.

Boa tarde, Hoje dia 19/02/2018, meu notebook resolveu instalar algumas atualizações que estavam acumuladas. Diante disto, o notebook ligou normalmente, tudo perfeitamente funcionando inclusive o Som. Porém, o que acontece é o seguinte, eu escuto musicas tanto no youtube quanto nos aplicativos de reprodução como o Spotfy. A musica toca normal, porém, em algum momentos vem um chiado como se o alto-falante do fone de ouvido estivesse estourado, isso acontece tanto com fone quanto sem fone de ouvido. Não é sempre mas de 5 em 5 minutos até mesmo antes... O que pode ser? Antes da atualização tudo estava perfeitamente funcionando. Atenciosamente,

Bom dia, @Walter C. Catelan Eu tenho instalado a impressora PDFlll , e também por padrão do foxit a própria PDF dele. Lembrando que sempre funcionou perfeitamente, porém, já fazem alguns dias que estou procurando uma solução pro problema. Testei também a Microsoft Print PDF do próprio sistema, e após abrir o arquivo o mesmo encontra-se ao contrário. Instalei a PDF24 PDF e continua na mesma. @Gabriel Torres Muita das vezes quando possuo um PDF com várias paginas e preciso apenas de uma delas, utilizo a impressora PDF para salvar essa determinada pagina, e ela é salva ao contrário. Mesmo utilizando as duas impressoras citadas acima. Tanto no Adobe quanto no Foxit, eles já abrem ao contrário. Lembrando que já desinstalei ambos os programas e impressoras. Att.

Bom dia Prezados, Estou enfrentando um problema a alguns dias que não acho solução em lugar nenhum. Sempre que salvo um documento em PDF, ele é salvo ao contrário (cabeçalho para baixo). Já desinstalei a impressora PDF e reinstalei, já instalei outra e mesmo assim, o PDF é salvo ao contrário. Gostaria de saber se existe uma solução para esse problema. Troquei até o leitor de PDF, usava o Foxit Reader e agora estou com Adobe Reader e o problema ainda persiste. Sistema operacional win 7 - PRO 32bits Atenciosamente,

Uma matriz também pode ser usada, em uma linha armazena os anos de copas do mundo e na outra linha as seleções. No vetor, o usuário digita somente nomes de seleções. Ou seja, ele entra somente com 1 tipo de resposta. Lembrando que de 1930 á 2015, houve períodos em que não tiveram copas do mundo como por exemplo de 1938 á 1950, ou seja, no For poderia ser feita uma condição que não deixe inserir nesses anos (1942 e 1946). Com matriz: string times[1][20]; int i, aux, ano = 1930, j = 0, a = 1; for( i = 0 ; ano <= 2014 ; i++){ if (ano =! 1942 && ano =! 1946) /*não inserir nesses anos */ { times[ j ][ i ] = ano; /* inserir os anos na linha 0 e nas colunas de acordo com o "i" */ printf("Quem foi o campeao de %d ?\n", ano); scanf("%s", &times[ a ][ i ]); setbuf(stdin, NULL); } ano = ano + 4; /* acrescentar os anos de copa */ } Espero ter ajudado. Att.

Boa tarde yuripedrorj Talvez o motivo do seu código estar travando é devido ao fato do seu vetor não possuir tamanho o suficiente para armazenar todo os dados digitados pelo usuário, visto que, a variável ano possui o valor de 1930 e você limitou a estrutura de repetição FOR para 2015. Fazendo as contas, a quantidade de copas do mundo realizadas até hoje excede o tamanho do seu vetor TIME de 16 posições (o zero também conta como posição). De uma maneira mais simplificada, a condição "ano < 2015" precisa de mais de 16 posições, quando o vetor excede o tamanho ele trava. Para se ter uma ideia, tivemos até hoje 20 copas do mundos e o seu vetor é de 16, coloque o tamanho 21. Verifique este pequeno detalhe e tente novamente. Outra coisa que notei, você esta usando muito a variável ANO nas repetições. Procure declarar outras variáveis ao invés de repeti-las, assim você ira se confundir. Verifique a sua variável de posição "i", ela não esta sendo implementada. Toda vez que o loop do FOR for executado deve-se implementa-la com i++;. for(ano = 1930 ; ano < 2015 ; int aux=ano + 4){ printf("Quem foi o campeao de %d ?\n", ano); scanf("%s", &time[ i ]); setbuf(stdin, NULL); i++; } Não sou programador, espero ter ajudado! Att.

Prezados, Gostaria de saber onde baixo o driver do Scanner da HP LaserJet 3052, procurei no site da HP mas o driver fornecido é somente para impressão, preciso para o Scanner da mesma. Att.

Prezados, Ultimamente estou enfrentando um problema com o Scanner da impressora HP LaserJet 3052 All-in-One... O que acontece é o seguinte, eu sempre utilizei o Scanner desta impressora na rede, mas de um dias pra cá está exibindo o seguinte erro ao tentar digitalizar algum documento "Nenhum aparelho compatível com o TWAIN está instalado. Instale um aparelho e tente novamente." Gostaria de uma maneira de como resolver este problema, visto que o driver desta impressora não é disponibilizado no site da HP pois é considerada fora de linha. OBS: Testei um software universal disponibilizado pela própria fabricante porém, não funciona em rede. Atenciosamente,

Sim, testei em todos os Slots. O problema é que todos os computadores da empresa são iguais. Testei em outro e o problema continua. Alguns computadores as placas não apitam quando ligam com esta memória. Porém, alguns apitam. Muito estranho.

Boa tarde Satoshi G2713, A marca do produto é Tekbond Spray, porém, acredito que não seja o produto, pois ao inserir a memória defeituosa o computador reconhece e liga normalmente.

Boa tarde á todos, Estou com um pequeno imprevisto ao substituir uma memória RAM. A memória estava lacrada, recém adquirida. É uma memória RAM Kingston KVR13N9S8/4 1.5V (4GB PC3 - 10600 CL9 240- Pin DIMM). Retirei a memória defeituosa e limpei o slot com limpa contato como sempre faço. Ao inserir a memória nova ela apita varias vezes. Pesquisei pela placa-mãe no site da fabricante Asus e nela diz que é compatível, inclusive a frequência. Gostaria de saber se está memória é compatível com meu Hardware. Segue em anexo um relatório extraído do Everest com as configurações do Desktop em questão. Atenciosamente, Murilo. Conf.txt