Macro, Help me!

[SM]

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.

Regards

Marcello

 

[SM]

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


DataDoc = Cells(21, 4)

Righe = 1

ConPag = Cells(87, 4)(C85:C90 [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
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)]

Regards
Marcello
"SM" <[email protected]> ha scritto nel messaggio
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)]


Regards

Marcello

 

[Dave Peterson]

I see that you've posted this several times in several newsgroups without an
answer.

That usually means that people can't figure out what you're asking.

You may want to try a different newsgroup:
microsoft.public.it.office.excel

Maybe it'll be easier to explain in your mother tongue???

 

[SM]

Thanks Dave Peterson