วีดีโอ

Muito obrigado.

Bom dia Nathércia. Tenho somente esta, que foi me solicitada por um cliente. Se quiser eu desenvolvo uma pra você, sob medida para seu negócio. É só pedir por aqui www.99freelas.com.br/user/marcelo-palladino

Desculpa pela demora em responder, pois estava meio afastado do TH-cam.

Sinto muito José Carlos, pelo Google Tradutor. É que eu estava apenas no começo e não me sentia a vontade de utilizar minha própria voz. Mas que bom que gostou do conteúdo. Vou usar sua "crítica" para melhorar meus vídeos. Obrigado.

Obrigado.

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Infelizmente nã otenho mais a planilha.

É sem som mesmo. Os meus primeiros vídeos eram assim.

Eu só conheço um jeito: por meio de form. Insira um form com um campo de texto e, ao invés de chamar o inputbox, você chama esse form. Assim seu procedimento de tempo e inserção não param.

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Você quer exportar para o Word, ou do Word para um arquivo txt?

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Todas as opções que você perguntou são possíveis sim, de forma simples. Se desejar, me responda que tentarei gravar um novo vídeo. Obrigado.

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Infelizmente não tenho mais a planilha.

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Infelizmente não tenho mais a planilha.

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. A solução para o que você precisa é simples. Basta incluir algumas linhas de código para identificar a próxima linha em branco da planilha.

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Se ainda estiver precisando do que perguntou, me responda, aí eu tentarei gravar um novo vídeo. Obrigado.

Tem como sim. Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Vou tentar gravar um novo vídeo explicando.

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Tentarei gravar novos vídeos explicando esta e outras dúvidas. Obrigado.

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Vou gravar um novo vídeo demonstrando como fazer. Obrigado pela observação.

Desculpa pela demora em responder, pois estava meio afastado do TH-cam.

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Tem como sim Ricardo. Vou tentar gravar novos vídeos tirando essa e outras dúvidas.

Beleza. Obrigado por assistir e pela dica.

Olá Sidnei. Primeiramente, obrigado por assistir meus tutoriais. Se desejar, envie seu arquivo para marcelo.ptechnology@gmail.com com a explicação do layout para que eu possa entender o arquivo e saber como te ajudar. Terei o maior prazer.

Hola Luiz Antonio. Gracias por ver el canal de mala. No entiendo tu problema. Por favor enviar la hoja de cálculo así puedo entender mejor. Si también se pueden escribir en la hoja de cálculo los datos que necesita. correo electrónico: marcelo.ptechnology@gmail.com

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Obrigado pelo incentivo.

+Cleriston Ferreira Poderia ser mais específico meu caro? Seria as colunas os meses de Jan a Dez e nas linhas os dias de 1 a 31?

+Marcelo Palladino (PTechnology) sim, exatamente isso. eu tenho 2 colunas para cada mês, e uma linha para cada dia. (12 meses, 31 dias). obrigado por responder.

Cleriston Ferreira A planilha seria mais ou menos igual a essa do link? drive.google.com/file/d/0BxkDTZvaGlZYMGVqMmtoOGZnUG8/view?usp=sharing Eu fiz com apenas uma coluna de dias pois acho que não é necessário uma coluna de dias para cada mês. Se for isso mesmo, o próximo passo seria salvar valores de acordo com os critérios de mês e dia escolhido?

+Marcelo Palladino (PTechnology) sim isso mesmo. como seria? (eu coloquei duas colulas pq assim posso lançar dois valores diferentes em um unico dia). e então? é possível dessa forma? vlw

Cleriston Ferreira Tudo bem. Dá pra fazer assim como você deseja. Vou gravar um passo a passo e postarei no canal. Vi que você quer apenas automatizar o preenchimento de sua planilha já existente. Se for isso OK. No entanto, se for pra salvar vários valores, como em um banco de dados para depois recuperar os valores através de uma consulta, recomendaria salvar numa tabela com 2 colunas somente, que seria a da data (dd/mm/yyyy) e a do valor. Aí ficaria assim: Data Valor 25/05/2015 10.595,25 25/05/2015 5.206,05 03/06/2015 3.526,37 04/06/2015 15.457,48 Veja que em um caso, há dois dias iguais, com seus respectivos valores. Quando realizar a consulta, o critério será a data, assim, retornará todos os valores que tiverem com a mesma data. Mas esse será outro vídeo. Aguarde que dentro dos próximos dias o vídeo será postado.

+Antonio Oliveira Uma alternativa é pré-configurar a célula que será usada como data adicionando a primeira linha abaixo antes de gravar a informação de data. Cells(R, C + 3).NumberFormat = "@" Cells(R, C + 3) = sData Uma segunda alternativa seria adicionar um apóstrofo antes da string de data, como abaixo: Cells(R, C + 3) = “’” & sData

Daniel Freitas Machado Eu desconheço arquivos dessa extensão. Se puder envia um arquivo de exemplo pra eu checar a estrutura e ver se é possível. marcelo.ptechnology@gmail.com

Marcelo Palladino irei enviar ... obrigado

É só acrescentar mais duas variáveis: uma sIdade e uma Parada3. Aí desenvolva a macro de acordo com o que já existe. Caso não consiga, escreve aqui que eu posto a macro completa. Mas tentar ajuda a aprender. Obrigado por acompanhar meu canal.

***** Segue código modificado. Sub ImportarArquivo() 'Declara a variável para o nome do arquivo texto Dim ArqBanco ArqBanco = "" 'Abre janela para abertura do arquivo texto fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") 'Define o tipo de arquivo permitido If fileToOpen <> False Then 'Se o arquivo for válido importa o novo arquivo ArqBanco = fileToOpen End If 'Se nenhum arquivo for selecionado encerra If fileToOpen = False Then End 'Define variáveis para abertura e leitura do arquivo texto Dim sArquivo As String, sLinha As String, iARQ As Integer 'Nome do arquivo sArquivo = ArqBanco 'Libera leitura do arquivo iARQ = FreeFile 'Abre o arquivo Open sArquivo For Input As iARQ 'Declara variáveis de linha e coluna para destino dos dados Dim R, C R = 1: C = 1 Cells(R, C).Activate 'Declara colunas dos dados e Delimitador de coluna Dim sNome, sGenero, sNacional, sIdade, sDelimitador sDelimitador = "|" 'Nesse caso vamos usar o pipe"|" 'Declara as paradas. Como são (quatro) colunas, temos só duas paradas Dim Parada1, Parada2, Parada3 Parada1 = 0: Parada2 = 0: Parada3 = 0 'Inicia o loop no arquivo texto Do While Not EOF(iARQ) 'Seleciona a célula Cells(R, C).Activate 'Pega a linha atual do arquivo texto Line Input #iARQ, sLinha 'Vamos definir as paradas "|" For i = 1 To Len(sLinha) If Parada1 = 0 And Mid(sLinha, i, 1) = "|" Then Parada1 = i If Parada2 = 0 And i > Parada1 And Mid(sLinha, i, 1) = "|" Then Parada2 = i If Parada2 > 0 And i > Parada2 And Mid(sLinha, i, 1) = "|" Then Parada3 = i Next i 'Carregamos os dados para as constantes sNome = Mid(sLinha, 1, Parada1 - 1) sGenero = Mid(sLinha, Parada1 + 1, Parada2 - 1 - Parada1) sNacional = Mid(sLinha, Parada2 + 1, Parada3 - 1 - Parada2) sIdade = Mid(sLinha, Parada3 + 1, Len(sLinha) - Parada3) 'Descarrega as constantes para a planilha Cells(R, C) = sNome Cells(R, C + 1) = sGenero Cells(R, C + 2) = sNacional Cells(R, C + 3) = sIdade 'Avança uma linha R = R + 1 'Limpa constantes sNome = "" sGenero = "" sNacional = "" sIdade = "" Parada1 = 0 Parada2 = 0 Parada3 = 0 DoEvents Loop End Sub

***** Sim meu caro.

Marcelo. Ficou excelente

Caro Marcelo fiz o uso da sua logica porem a minha macro possui dar erro, eu tenho por objetivo de colocar 6 colunas porem dar um erro na parada 3 vc poderia me ajudar por favor? Dim fileToOpen Sub ImportarArquivo() 'Declara a variável para o nome do arquivo texto Dim ArqBanco ArqBanco = "" 'Abre janela para abertura do arquivo texto fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") 'Define o tipo de arquivo permitido If fileToOpen <> False Then 'Se o arquivo for válido importa o novo arquivo ArqBanco = fileToOpen End If 'Se nenhum arquivo for selecionado encerra If fileToOpen = False Then End 'Define variáveis para abertura e leitura do arquivo texto Dim sArquivo As String, sLinha As String, iARQ As Integer 'Nome do arquivo sArquivo = ArqBanco 'Libera leitura do arquivo iARQ = FreeFile 'Abre o arquivo Open sArquivo For Input As iARQ 'Declara variáveis de linha e coluna para destino dos dados Dim R, C R = 1: C = 1 Cells(R, C).Activate 'Declara colunas dos dados e Delimitador de coluna Dim sTempo, sExtBottom, sExtWall, sExtTop, sIntBottom, sIntWall, sDelimitador sDelimitador = ";" 'Nesse caso vamos usar o pipe";" 'Declara as paradas. Como são cinco colunas, temos quatro paradas Dim Parada1, Parada2, Parada3, Parada4, Parada5 Parada1 = 0: Parada2 = 0: Parada3 = 0: Parada4 = 0: Parada5 = 0 'Inicia o loop no arquivo texto Do While Not EOF(iARQ) 'Seleciona a célula Cells(R, C).Activate 'Pega a linha atual do arquivo texto Line Input #iARQ, sLinha 'Vamos definir as paradas ";" For i = 1 To Len(sLinha) If Parada1 = 0 And Mid(sLinha, i, 1) = ";" Then Parada1 = i If Parada2 = 0 And i > Parada1 And Mid(sLinha, i, 1) = ";" Then Parada2 = i If Parada3 = 0 And i > Parada2 And Mid(sLinha, i, 1) = ";" Then Parada3 = i If Parada4 = 0 And i > Parada3 And Mid(sLinha, i, 1) = ";" Then Parada4 = i If Parada4 > 0 And i > Parada4 And Mid(sLinha, i, 1) = ";" Then Parada5 = i Next i 'Carregamos os dados para as constantes sTempo = Mid(sLinha, 1, Parada1 - 1) sExtBottom = Mid(sLinha, Parada1 + 1, Parada2 - 1 - Parada1) sExtWall = Mid(sLinha, Parada2 + 1, Parada3 - 1 - Parada2) sExtTop = Mid(sLinha, Parada3 + 1, Parada4 - 1 - Parada3) sIntBottom = Mid(sLinha, Parada4 + 1, Parada5 - 1 - Parada4) sInnWall = Mid(sLinha, Parada5 + 1, Len(sLinha) - Parada5) 'Descarrega as constantes para a planilha Cells(R, C) = sTempo Cells(R, C + 1) = sExtBottom Cells(R, C + 2) = sExtWall Cells(R, C + 3) = sExtTop Cells(R, C + 4) = sIntBottom Cells(R, C + 5) = sIntWall 'Avança uma linha R = R + 1 'Limpa constantes sTempo = "" sExtBottom = "" sExtWall = "" sIntWall = "" Parada1 = 0 Parada2 = 0 Parada3 = 0 DoEvents Loop End Sub

Primeiramente, obrigado por assistir meus vídeos. Para fazer o botão de cancelar dar um "Exit sub" faça como no exemplo abaixo: Sub Teste() 'Declara variável "Mensagem" para inputbox Dim Mensagem 'Carrega inputbox Mensagem = InputBox("Que dia é hoje?", "Dia", Date) 'Finaliza macro ao pressionar o botão "Cancelar" do inputbox "Mensagem" If Mensagem = "" Then 'Mensagem opcional de cancelamento MsgBox "Você cancelou!", vbInformation + vbOKOnly, "Cancelado" 'Finaliza macro Exit Sub End If End Sub Copia o código e cola dentro de um módulo para testar.

Marcelo Palladino Obrigado por responder. Fiz isso e acho que consegui: Nome = InputBox("Digite o 'Nome'.", "Nome", "Nome do cliente") ' Condição a ser atendido para que se possa fazer o cadastro (O espaço não pode ser de valor "Nome" ou nulo) If Nome = "Nome do cliente" Then ' Mensagem de erro caso as condições anteriores não sejam atendidas MsgBox "Você deve digitar um nome válido", vbExclamation + vbOKOnly, "Erro no Nome" ' Volta para o início do cadastro do nome GoTo DigitaNome 'Mensagem opcional de cancelamento ElseIf Nome = "" Then MsgBox "Você cancelou ou não preencheu o campo!", vbInformation + vbOKOnly, "Cancelado" 'Finaliza macro Exit Sub End If

Primeiramente obrigado por assistir meu vídeo Matheus. Eu acabei de publicar um vídeo ensinando como fazer o que você precisa. Segue o link: th-cam.com/video/BJnsd1lDSnY/w-d-xo.html Obrigado.

Olá. Obrigado por assistir. Gravarei um vídeo ensinando.

Olá José. Estou gravando um vídeo ensinando. Aguarde...

Valeu Marcelo... obrigado

Obrigado por assistir meu vídeo Matheus. Aprecio críticas também. Porém, eu apenas estou mostrando como o Excel é poderoso e, como proponho no meu canal, ensinar passo a passo macros, para que todos possam dominar a linguagem. Conheço também um pouco de Access, inclusive possuo uns 20 aplicativos em VisualBasic usando o banco Access,com grandes empresas utilizando. Qualquer dúvida é só postar aqui no canal que verei a possibilidade de gravar um vídeo a respeito. Obrigado pela observação.

Desculpa pela demora em responder, pois estava meio afastado do TH-cam. Obrigado pelo incentivo.

Desculpe a demora. Você pode colocar quantas linhas quiser no arquivo texto que irá importar todas. O gráfico tem sim. Se quiser gravo um vídeo ensinando.

Boa noite Evandro. Obrigado por assistir ao vídeo. Se inscreva no canal para receber as novidades. Coloquei o link do projeto completo para download na descrição do vídeo. Não esqueça de dar um jóinha.