Renato Knupp

Obrigado João Neto, consegui resolver meu problema acima. Mas surgiu outra dúvida, ao usar a função Workbooks.Open, antes eu consigo verificar se o arquivo em questão já está aberto? pois queria fazer o seguinte , se ele já estiver aberto eu apenas pegarei as informações que quero, mas se não estiver aberto eu abrirei e fecharei sem salvar. Tem alguma função que verifica se a planilha já está aberta?

Pessoal estou com um problema, tenho duas planilhas que vão interagir uma com a outra, a idéia é a seguinte, eu tenho na planilha1 um botão que ao clicar ele abre a planilha2 copia o que está da célula A1 a B5, cola na planilha1 e fecha a planilha2. Eu tentei usar esse código, mas não deu certo. Private Sub cmdproc_Click() Dim CAMINHO_ARQUIVO, As String ‘ o usuário informa onde está a planilha2 CAMINHO_ARQUIVO = Application.GetOpenFilename Workbooks.Open Filename:=CAMINHO_ARQUIVO, UpdateLinks:=2, Notify:=False, ReadOnly:=False Range("F8:F14").Select Selection.Copy Windows("Planilha1.xls").Activate ActiveSheet.Paste Windows(("Planilha2.xls").Activate 'fecha a janela sem pedir para salvar 'ActiveWindow.Close SaveChanges:=False End Sub Se alguém souber tambem como copiar essas informação sem que o usuário perceba que ele abriu um planilha e depois fechou. Desde já obrigado.

Obrigado amigo! eu usei o codigo dessa forma caso ajude alguém: Function Extrair_Pedaco() Dim b, contletra, Palavra As String Dim i, j, l As Integer Palavra = "Visual Basic" contletra = Len(Palavra) i = contletra While i > 1 If Mid(Palavra, i, 1) <> "" Then i = i - 1 Else 'descubro a posição da primeira letra após o espaço vazio j = contletra - i l = (contletra - j) + 1 Extrair_Pedaco = Mid(palavra, l, i) 'interrompe o looping i = 0 End If Wend msgbox (Extrair_Pedaco) End Function Dentro do meu código eu usei uma função parecida com a de cima para decobrir o nome de uma planilha que o usuario selecionou.

Boa tarde a todos, estou precisando de uma função que identifique uma determinada letra de uma variável. Por exemplo: Minha variavel LETRA recebe a palavra "excel", se eu usar a função len ( LETRA) eu vou descobrir que a variavel possui uma palavra com 5 letras. o que eu quero é uma maneira de buscar uma letra em especifico, ou seja, uma função que identifique minha terceira letra por exemplo (da direita para a esquerda) que seria "c". alguém sabe como fazer isso?

Bom dia senhores, estou precisando criar uma rotina que, quando o usuario clica em um botão abra pra ele um form com uma caixa de dialogo com a arvore de pastas do windows, onde ele irá procurar um determinado arquivo e seleciona-lo . E que retorne uma variável com o endereço e nome do arquivo que ele selecionou. Se eu tivesse uma variavel chamada CAMINHO_ARQUIVO por exemplo ela receberia o caminho da planilha que o usuario selecionou. CAMINHO_ARQUIVO = C:\Temp\Excel\Planilha.xls Desde já obrigado.

Senhores estou com um problema, preciso saber a diferença entre duas datas o problema é que o resultado obtido possui varias casas decimais ( em alguns casos com ate 9 numeros após a virgula) e acho que o sistema não está aceitando devido meu tipo de variavel, tentei todas as vaiáveis numericas possiveis e não deu certo. O Erro exibido é " Erro em tempo de execução '13'. Tipos incompatíveis! conta_tempo1 = 20/8/2008 09:00 conta_tempo2 = 20/8/2008 13:40 tempo = (conta_tempo2 - conta_tempo1) * 24 o resultado dessa expressão é 4,66666666668607. dúvidas: tem algum tipo de variável que seje diferente de Integer, Long, single, double, para esse caso? eu não posso arredondar isso pois eu tenho que considerar as horas e os minutos tambem ( ai a necessidade das casas decimais). o que fazer?

Cara não sei se é o que você quer mas você pode definir o formato da data pelo codigo NUMBERFORMAT, ou seja: Plan1.Range("a1").NumberFormat = "mm/dd/yyyy" A partir dai você aplica da forma que melhor atende-lo.