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

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" <[email protected]> ha scritto nel messaggio news:[email protected]...
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