Macro, Help me!
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 |
Macro, Help me!
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" 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 |
Macro, Help me!
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??? -- Dave Peterson |
Macro, Help me!
Thanks Dave Peterson
"Dave Peterson" ha scritto nel messaggio ... 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??? -- Dave Peterson |
All times are GMT +1. The time now is 10:29 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com