robertoni,

Bom dia!

Coloque seu código VBA dentro da ferramenta CODE que existe logo acima da caixa de mensagens.

Anexe arquivo exemplo, compactado com .ZIP, contendo inclusive como deve ser o resultado.

Sub Teste_Macro()

Dim I As Integer
'Dim J As String
'Dim  As Integer
Dim w As Worksheet
Dim senha As String
'Dim mes1 As Date
'Dim mes2 As Date
senha = "123"
'mes1 = 1 / 1 / 2017
'mes2 = 31 / 1 / 2017
I = 1
I = I + 1
'J = Format(J, "001/#")
Set w = Planilha1
w.Activate

If w.ProtectContents = True Then

w.Unprotect senha

End If


FinalRow = Cells(Rows.Count, 8).End(xlUp).Row - 1

On Error Resume Next
'Planilha4.Cells(I, 2).ClearContents
For I = 2 To FinalRow
    With Planilha1
        If .Cells(I, 9) > "" Then
           .Cells(I, 8) = I + 1
           .Cells(I, 8) = Format(lastRow, "00#/01")
        'End If
           ' End If
      End If
    End With
    'Loop
Next I

w.Protect senha
End Sub

RECEBIMENTO FORNECEDOR NF descrição lote qtde cadastrado cq liberação registrado
23/12/2016 CASA 12345 FRASCO 2345 1000 SIM 001/01 01/01/2017 sim
28/12/2016 CASA 12346 FRASCO 2654 1000 SIM 002/01 02/01/2017 sim
27/01/2017 CASA 12347 FRASCO 2987 1000 SIM 001/02 02/02/2017 sim

Quando virar o mês o cq inicia com 001 e seguido do numero do mês

Pelo que li na sua 1ª colocação, tente:

Cod = Format(.Range("h2").Value, "001") & "/" & Month(Date)

Espero que ajude

robertoni,

Bom dia!

Ao utilizar a ferramenta CODE para inserir códigos VBA, você deve inserir todo o código entre:
as palavras chaves CODE
e
/CODE

O código em si gerou em parcial as informações, porem tentei adaptação para quando virar o mes, o codigo final mude.
Ex. Se em Janeiro quando o primeiro produto liberado será o código 001/01 e assim por diante 002/01, 003/01... e quando for em Fevereiro o código retorna para 001/02.
Segue o código utilizado

ATENÇÃO: Seu código foi excluído por encontrar-se inserido fora dos padrões do fórum (inclusive, já solicitado reiteradamente nesse mesmo tópico).

...preciso fazer uma adaptação em uma planilha,quando a pessoa digitar a data de liberação, a planilha gera um numero de controle, que seria o código seguido do numero do mês. xxx/xx

Na planilha desprotegida insira a data na coluna "I", mantenha selecionada a célula com a data inserida e rode o código abaixo.

Sub InsereCódigo()
 Dim k As Long
  If ActiveCell.Value = "" Then Exit Sub
  k = Evaluate("SUMPRODUCT((MONTH(I3:I" & ActiveCell.Row & ")=MONTH(" & ActiveCell.Address & "))+0,(I3:I" & ActiveCell.Row & "<>"""")+0)")
   If k = 1 Then
   ActiveCell.Offset(, -1).Value = "001/" & Format(Month(ActiveCell.Value), "00")
  Else: ActiveCell.Offset(, -1).Value = Format(k, "000") & "/" & Format(Month(ActiveCell.Value), "00")
  End If
End Sub