XMAN, Vamor por parte, o mais simples, o botão Up... Você viu o codigo que utilizei no botão? Esse codigo atende?

Pretende jogas essas informações em um arquivo texto.. outra planinha... como devem ficar as informações?

Segue planilha atualizada para FSO... Particularmente discordo sobre a eficiencia do FSO sobre o DIR... com o FSO algumas pastas não são lidas, apres...

So por curiosidade, porque tem que ser com FSO?

Acho q é isso...

Ola, XMAN2000 Num sei bem se é isso que esta precisando.. mas de uma olhada no anexo pra ver se ajuda... Abraço

Sempre resolvi esse problema de inversão de mes e dia ao ser lançado na celula formatando a celula para Texto. Experimente talvez te ajude...

Sub IniciaListaPastas() Plan1.Range("a:b").ClearContents Plan1.ListBox1.Clear ListaPastas "C&...

Private Sub CommandButton4_Click() Dim planAtiva As Worksheet Dim Mes As String '==========================================> C...

If txtComprasAno.Value = "2013" Then Cells(l, 74).Value = txtComprasAno.Value If txtComprasAno.Value = "2014" ...

Sub insertBlankRows() Dim L As Integer Dim C As Integer Dim n As Integer Dim v As Integer Dim intervalo As Integer L...

Se trata de um LOOP... Ele vai executar o codigo por n vezes No caso C é uma variavel que representa a Coluna... Ao dizer Cells(1,2) significa a celul...

Codigo Botão Ocultar Colunas Dim C As Integer For C = 2 To 12 If Plan1.Cells(2, C).Value = "Ocultar" Then Plan1....

Private Sub txt_Valor_AfterUpdate() txt_Valor.Text = Módulo.Vr(txt_Valor.Text) End Sub Private Sub txt_Valor_KeyPress(ByVal KeyAscii As MSForms...

Dim AppWord As New Word.Application With AppWord .Documents.Open "N:Fábrica de Rações - Qualidade DouradosDocumentos - QualidadeIN 65...