amazonascf

Preciso de um codigo que funcionaria da seguinte forma quando iniciasse o mês o codigo iniciaria como "mmyyy" - cod ex: 082016 - 001 082016 - 002 082016 - 00........... 082016 - 060...... ai quando chegar o outro mes o codigo iniciaria novamente do 1 e não 082016 - 061 o certo seria ex: 092016 - 001 txt_codigo = Format(Now, "yyyymm") & " - " & Range("A60000").End(xlUp).Offset(0, 0).Value, "000"

segue a planilha quero apenas que ela consiga pegar todos os campos quando eu pesquiso https://www.4shared.com/file/Vh1c4Yx7ba/VBA.html

ME AJUDA O QUE PODE TA ERRADO NO MEU CODIGO QUANDO ADICIONO: .List(linhalistbox, 10) = Sheets("Dados").Cells(linha, 66), DA ERRO Private Sub buscar_valores() Dim guia As Worksheet Dim linha As Integer Dim coluna As Integer Dim linhalistbox As Integer Dim valor_celula As String Dim conta_registros As Integer Set guia = ThisWorkbook.Worksheets("Dados") 'segunda guia da planilha linha = 2 coluna = 57 'coluna da busca na planilha linhalistbox = 0 conta_registros = 0 ListBox1.Clear With guia While .Cells(linha, coluna).Value <> Empty valor_celula = .Cells(linha, coluna).Value 'If UCase(Left(valor_celula, Len(valor_pesquisado))) = UCase(valor_pesquisado) Then If InStr(1, UCase(valor_celula), Trim$(UCase(valor_pesquisado))) > 0 Then With ListBox1 .AddItem .List(linhalistbox, 0) = Sheets("Dados").Cells(linha, 57) .List(linhalistbox, 1) = Sheets("Dados").Cells(linha, 58) .List(linhalistbox, 2) = Sheets("Dados").Cells(linha, 59) .List(linhalistbox, 3) = Sheets("Dados").Cells(linha, 67) .List(linhalistbox, 4) = Sheets("Dados").Cells(linha, 60) .List(linhalistbox, 5) = Sheets("Dados").Cells(linha, 61) .List(linhalistbox, 6) = Sheets("Dados").Cells(linha, 62) .List(linhalistbox, 7) = Sheets("Dados").Cells(linha, 63) .List(linhalistbox, 8) = Sheets("Dados").Cells(linha, 64) .List(linhalistbox, 9) = Sheets("Dados").Cells(linha, 65) '.List(linhalistbox, 10) = Sheets("Dados").Cells(linha, 66) linhalistbox = linhalistbox + 1 conta_registros = conta_registros + 1 End With End If linha = linha + 1 Wend End With lbl_registros = ListBox1.ListCount End Sub