Basole

Bom dia amigo, Dei uma olhada por cima, mas precisava analisar mais profundamente pra entender melhor o funcionamento. Se pudesse detalhar melhor o seu uso ajudaria. Mas a principio é possivel sim.

Através do Vba você pode ajustar a manipulação dos dados, ao seu modo, ou seja personalizado, ja através dos recursos do Excel, a coisa fica meio "engessada" ou seja limitada. Eu tenho muitos projetos de excel+access. Mas veja este pequeno exemplo em vba. Exemplo_Excel-Access.zip

Ola amigo, sim o Access é um banco de dados propriamente dito, e suporta o armazenamendo de dados mais que o excel e com o excel voce pode ter os dados corompidos. A manipulação, cadastro, consulta, edição dos dados voce pode fazer pelo proprio Excel, utilizando-se de formularios se preferir para melhjor visualizar e consultar os dados.

@Tatiany Soratto segue sugestão, veja se é isso: =MÉDIA.GEOMÉTRICA(INDIRETO("F"&312+((LIN()-1)*2)):INDIRETO("F"&609+((LIN()-1)*2)))

@Thiago_Peixoto nao adianta voce inserir dados fictícios e proteger o acesso a planilha com senha, pois as pessoas que queiram lhe ajudar, não poderão ter acesso ao seu arquivo.

Amigo por favor, disponibilize seu arquivo, ou um exemplo bem próximo com alguns dados ficticios. * O forum nao aceita anexar arquvos com extensão *.xlsm. "Zipe-o" antes de anexar.

Amigo esta solicitação de usuario e senha, vem da configuração da impressora, ou da segurança de rede, ou ainda da própria planilha?

@Thabatta Zirondi Beirigo acho difícil voce encontrar um software já pronto, que se se adapte 100% as suas necessidades, talvez o excel seja a melhor opção. Mas para dar um 1º passo, seria bom voce fazer um esboço (planilha) incluindo alguns dados ficticios, para ter uma ideia melhor do que precisa.

@Daniel Nathan essa é uma macro daquelas q vai um final de semana para criar. E é necessario mais informações, para dar o passo inicial. .

@thatyana leonidov envie seu arquivo "zipado" ou um modelo bem próximo com alguns dados fictícios.

@Tania Oliveira veja este topico: -excel-incluir-calendario-na-celula

Aqui pra mim está funcionando perfeitamente. Sua resposta quanto ao erro é genérica. Para tentar te ajudar, você precisa ser mais específico.

@dutrix acrescente ao inicio do seu código este trecho abaixo. * Se não existir a ref. pasta, cria uma nova com o nome inserido na G5. Dim strPath As String, strFold As String strPath = "C:\Ponto\" strFold = VBA.Trim(ActiveSheet.Range("G5").Value) If Dir(strPath & strFold, vbDirectory) = "" Then MkDir (strPath & strFold) End If

Veja este link: Solução de problemas do Office 2011 para Mac desinstalando completamente antes de reinstalar

@AdrianoKbcao segue alterção: Dim NomPastTrab As String NomPastTrab = VBA.Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & NomPastTrab & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True

@paulocezarpicos foi apresentado no seu 1º post, dois itens de dúvida, e nenhuma se referindo a " preencher o UserForm1 a partir do procedimento " Não entendi o que quer fazer, agora;

Veja se estes links lhe ajudam: Restrict Editing To Secure Word 2010 Document Restrict or permit formatting changes Creating a Template – The Basics

Experimente este exemplo: If VBA.Format(ActiveCell.Value, "dd/mm/yyyy") = VBA.Format(VBA.Date, "dd/mm/yyyy") Then MsgBox ActiveCell.Address & " é igual a data de hoje", 64, "Veficando datras" End If

Poste um exemplo amigo, de um arquivo que quer copiar e especifique o(s) intervalo(s)

Ola amigo, fiz as alterações solicitadas, veja se se esta de acordo. Formulario de Substituição de TRAFOS - novo_1.zip

@thiagoleam imagino que voce queira fazer uma varredura em todo um diretório, sendo assim, como o colega @PIERRE2500 afirmou, programar um aplicativo, fica mais fácil e eficiente ao invés de um batch. Veja este exemplo em vb6, inserido no Excel (em anexo), pois dependendo da quantidade de pastas, o excel é um boa opção para inserir os dados e ainda, fica mais fácil para voce tratar as informações. Verificar_Pastas_Pazias.zip

Segue exemplos, conforme sua descrição: Sub Calcular_Par_1A50() Dim i As Long, Par As Integer For i = 1 To 50 If i Mod 2 = 0 Then Par = Par + i End If Next MsgBox "Calculo soma Total de " & i & " Números Pares: " & Par, 0, "Fim do calculo Par" End Sub Sub Calcular_ImPar_1A50() Dim i As Long, ImPar As Integer For i = 1 To 50 If i Mod 2 = 1 Then ImPar = ImPar + i End If Next MsgBox "Calculo soma Total de " & i & " Números Ímpares: " & ImPar, 0, "Fim do calculo Impar" End Sub

@Diego Calil eu não entendi exatamente o que quer calcular, mas voce pode usar a formula Èpar: para verificar os numeros: Por exemplo: =SE(ÉPAR(A1)=VERDADEIRO;"PAR";"IMPAR") ou vba: Sub Verif_Par_Impar() Dim i As Long With ActiveSheet For i = 1 To 50 If .Range("A" & i).Value Mod 2 = 0 Then .Range("B" & i).Value = "PAR" Else .Range("B" & i).Value = "IMPAR" End If Next End With End Sub

Envie seu arquivo, ou um exemplo.

Se estiver partindo do zero, como 1º passo, segue um exemplo em vb6, que separa as sílabas, para poder adapta-lo. * Foi desenvolvido em espanhol, então necessita de alguns ajustes para o portugues fonte: http://dividirsilabas.blogspot.com.br/ Silabas_1.zip