Muito Obrigado Mas Ja tinha conseguido resolver e sim isso funciona ^^ De momento APENAS FALTA o UserForm 9 e um pequeno erro do 2 da Primeira PARTE

2ª Parte do UserForm3 Resolvida!

Esquecime de Anexar oFicheiro :/ My BAD!

Vou meter na MACRO e vou fechar esta falamos por la

Exatamente isso ! Quero que no A1 = 1 , A2=2 Etc etc ate ao numero que coloquei ! ! Se me conseguir ajudar ! Muitooo Obrigado !

Dim Ws1 As Worksheet Set Ws1 = Worksheets("Armazens") Ws1.Select Ws1.Range("A2").Select For Apagar = 1 To 200 If A...

O erro que diz é o Seguinte . NAO FOI POSSIVEL EXECUTAR O METODO SELECT DA CLASS RANGE

Eu vou por o numero 53 numa textbox . E quero que gere esses 53 numeros . Quero basicamente por o numero 53 e que aquilo gere todos os numeros ate ...

Continua dando Erro , Tou mesmo aflito ... Ajudem :/ Private Sub CommandButton3_Click() Dim Ws1 As Worksheet Set Ws1 = Worksheets("Armazens&quo...