My program
 

Please i need for my job to modify my PC program:


Sub ArchiviaDoc()

Dim DataDoc As Date
Dim I, Righe As Integer
Dim ConPag As Currency

Sheets("Doc").Select
If Cells(5, 3) 0 Then
Else

End If

DataDoc = Cells(21, 4)

Righe = 1

ConPag = Cells(85, 7)

Sheets("arch_doc").Select

Cells(1, 1).Select
Range("a1").End(xlDown).Select

inizio = Selection.Row
If inizio 60000 Then inizio = 1
For I = 1 To Righe
Cells(inizio + I, 1) = 1
Cells(inizio + I, 2) = DataDoc
Cells(inizio + I, 4) = ConPag
Next I
Cells(inizio + I - 1, 1).Select

End Sub


1-I need that comeback the name page(for example: sheet 100; sheet101, sheet 102, etc.)
2-The amount must be between C85:C90 [ConPag = Cells(85, 7)]
3-Also if i add a new page the program work well with the new page.

Regards.

Marcello

My program
 

Please i need for my job to modify my PC program:


Sub ArchiviaDoc()
'
' ArchiviaDocumento Macro
'
Dim DataDoc As Date
Dim i, Righe As Integer
Dim ConPag As Currency
Dim sh As Worksheet


'dati testata
DataDoc = Cells(21, 4)

Righe = 1

ConPag = Cells(85, 7)

Sheets("arch_doc").Select

Cells(1, 1).Select
Range("a1").End(xlDown).Select

inizio = Selection.Row
If inizio 60000 Then inizio = 1
For I = 1 To Righe
Cells(inizio + I, 1) = 1(Comeback the name page(for example: sheet 100; sheet101, sheet 102, etc.)
Cells(inizio + I, 2) = DataDoc
Cells(inizio + I, 4) = ConPag (C85:C90 [ConPag = Cells(85, 7)])
Next I
Cells(inizio + I - 1, 1).Select

End Sub


1-I need that comeback the name page(for example: sheet 100; sheet101, sheet 102, etc.)
2-The amount must be between C85:C90 [ConPag = Cells(85, 7)]
3-Also if i add a new page the program work well with the new page.
"SM" ha scritto nel messaggio ...
Please i need for my job to modify my PC program:


Sub ArchiviaDoc()

Dim DataDoc As Date
Dim I, Righe As Integer
Dim ConPag As Currency

Sheets("Doc").Select
If Cells(5, 3) 0 Then
Else

End If

DataDoc = Cells(21, 4)

Righe = 1

ConPag = Cells(85, 7)

Sheets("arch_doc").Select

Cells(1, 1).Select
Range("a1").End(xlDown).Select

inizio = Selection.Row
If inizio 60000 Then inizio = 1
For I = 1 To Righe
Cells(inizio + I, 1) = 1
Cells(inizio + I, 2) = DataDoc
Cells(inizio + I, 4) = ConPag
Next I
Cells(inizio + I - 1, 1).Select

End Sub


1-I need that comeback the name page(for example: sheet 100; sheet101, sheet 102, etc.)
2-The amount must be between C85:C90 [ConPag = Cells(85, 7)]
3-Also if i add a new page the program work well with the new page.

Regards.

Marcello

My program
 

Marcello,

post your programming problem in excel.programming group that is
the right group to get answer for your question.

Regards

Ramana