GilbertoCK

Obrigado pela resposta!

 

Apesar de fazer isto que vou descrito. Eu substituo o que seria o "." por "/" porém a categoria da celula nao é entendida como uma data ainda e sim como um texto, ou seja se eu quiser desenvolver graficos em cima, etc, acaba nao sendo possivel.

Teria outra ideia?

Fala pessoal,

 

Eu tenho um arquivo .csv que é importado no excel. O que acontece é que a data nao é reconhecida como data e sim como texto. Nao estou conseguindo converter para data com horario. Apesar de ser simples ja fiz bastante coisa relativemente complexa e nao consigo achar uma solução direta.

 

Em anexo eu tenho o arquivo que gostaria de converter. A coluna "A" é a coluna de data que gostaria que fosse entendida como data pelo excel para gerar graficos, analises, etc.

Vocês consegueriam me ajudar?

 

Abraços,

station_001418101002.csv

Bom dia,

 

Possuo uma duvida em relação ao MS Project

Pois tenho um projeto com diversas tarefas extensas

E eu gostaria de imprimir as tarefas separadamente mas nao estou conseguindo

Ou seja, se estivesse fazendo o projeto "Fazer bolo" com as estapas 1)fazer massa 2)fazer cobertura 3)assar 4)montar bolo

Gostaria de imprimir o gantt apenas da tarefa 3 e suas etapas sem imprimir as demais juntas

 

Parece ser simples mas nao estou encontrando

Att,

Gilberto CK

Obrigado @LNW

Ja havia feito isto hoje pela manha e esqueci de atualizar aqui

Com isto funcionou muito bem

 

Abraço

Bom dia pessoal,

 

Estou tendo um problema pois quando trabalhava com o Excel 2007 executava conexoes para visual basic e nao tinha nenhum problema

Porém agora com o 2010 em diante, tento abrir o mesmo arquivo e nao estou conseguindo. ele me acusa um "Erro em tempo de execução 3706. Provedor nao encontrado.."

Nao sei mais o que fazer. Ja tentei pelas referências, etc mas nao estou conseguindo.

Um exemplo da compilação aonde funcionava no 2007 e nao funciona mais no 2010 é esta funçao:

Private Sub PopulaCidades()    Dim conn As ADODB.Connection    Dim rst As ADODB.Recordset    Dim sql As String    Set conn = New ADODB.Connection    With conn        .Provider = "Microsoft.JET.OLEDB.4.0"        .ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0;"        .Open    End With    sql = "SELECT DISTINCT Cidade FROM [Fornecedores$]"    Set rst = New ADODB.Recordset    With rst        .ActiveConnection = conn        .Open sql, conn, adOpenDynamic, _              adLockBatchOptimistic    End With    Do While Not rst.EOF        If Not IsNull(rst(0).Value) Then            lstCidades.AddItem rst(0).Value        End If        rst.MoveNext    Loop    ' Fecha o conjunto de registros.    Set rst = Nothing    ' Fecha a conexão.    conn.CloseEnd Sub

Obrigado,

Gilberto

 

PS: Em anexo envio o exemplo deste codigo que coloquei aqui, o qual funcionava bem no 2007 e agora nao esta funcionando

ModeloCadastro_v3.zip

Eu descrevi a variavel string como public

Ou seja:

 

Userform1

Private indexRegister As String (indice relativo por onde atualizo a planilha)

 

E no Userform2

Me.cboxexemplo.Text = .Cells(indexRegister, colexemplo).Value

 

Mas nao da certo a etapa do Userform2

Diz que a variavel indexRegister nao foi declarada

Como posso fazer isto?

Bom dia galera

Estou com uma duvida numa parte de programaçao em visual basic

 

Resumindo estou fazendo uma planilha de cadastro

E tenho um userform que chama o outro

No userform1 tenho:

Private wsRegister As Worksheet (planilha relativa)Private indexRegister As String (indice relativo por onde atualizo a planilha)Set wsRegister = ThisWorkbook.Worksheets("Database") (por exemplo)

E assim trabalho com os arquivos relativo a planilha Database sem problema

Porém ao pressionar um botao vou para uma outra userform, a userform2

E eu preciso importar nesta nova userform o valor do indexRegister da userform1 na WorkSheet selecionada no user form anterior

Isto quer dizer troca de userform porém continua usando exatamento os mesmos dados

Exemplo, preciso carregar os registros de ensaio:

Private Sub LoadRegisterEnsaios()    With wsRegister                   Me.cboxexemplo.Text = .Cells(indexRegister, colexemplo).Value    End withEnd Sub

Porém nao esta dando certo

Tentei exemplificar aqui e nao tenho permissao pra fazer o upload do anexo,

Por favor se alguem puder me ajudar fico no aguardo