AUTONUMERACAO

GEROEANE 25/11/2012 15:12:30
#414745
Pessoal procurei alguns exemplos mas não foi possivel adaptar a situação seria possivel contar com as dicas dos amigos para resolver. Estou copiando dados de uma plan para outra e gostaria de incluir uma coluna com Autonumeração :
Sub Transfere()


Sheets([Ô]FilaAtividadesExecutando[Ô]).Select
Range([Ô]$A$2:$e$2000[Ô]).Select
Selection.Copy

Sheets([Ô]DadosCopiados[Ô]).Select

L = Sheets([Ô]DadosCopiados[Ô]).Cells(Rows.Count, 1).End(xlUp).Row + 1
Range([Ô]A[Ô] & L).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

[ô]gerar autonumeração apartir da coluna F ate aonde houver dados na coluna A


End Sub
IRENKO 26/11/2012 08:35:37
#414773 Resposta escolhida
Sub Numerar()
Dim nNum, Resp
Resp = MsgBox([Ô]Novo Número?[Ô], vbQuestion + vbYesNo, [Ô]FICHA CONTÁBIL[Ô])
If Resp = vbYes Then
nNum = Application.WorksheetFunction.Count(Plan2.Columns(1)) + 1
If nNum = 0 Then nNum = 1
Plan2.Range([Ô]a[Ô] & nNum) = nNum
Plan2.Range([Ô]b[Ô] & nNum) = UCase(Plan1.Range([Ô]n4[Ô]))
Plan2.Range([Ô]c[Ô] & nNum) = UCase(Plan1.Range([Ô]d8[Ô]))
Plan2.Range([Ô]d[Ô] & nNum) = UCase(Plan1.Range([Ô]d12[Ô]))
Plan2.Range([Ô]e[Ô] & nNum) = UCase(Plan1.Range([Ô]d16[Ô]))
Plan2.Range([Ô]f[Ô] & nNum) = UCase(Plan1.Range([Ô]d17[Ô]))
Plan2.Range([Ô]g[Ô] & nNum) = UCase(Plan1.Range([Ô]d18[Ô]))
Plan2.Range([Ô]h[Ô] & nNum) = Plan2.Range([Ô]a1[Ô]) + 1
Plan1.Range([Ô]D4[Ô]) = nNum
End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar