Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Launching Program with Time Sensitive Data | Excel Discussion (Misc queries) | |||
calling a C++ program from Excel 2000 and passing a result from C++ back to an excel spreadsheet | Excel Discussion (Misc queries) | |||
How to display a form- to show status of the running program | Excel Discussion (Misc queries) | |||
Hyperlink in Excel opens the right program, but can't read file. | Excel Discussion (Misc queries) | |||
Charts causing program to crash | Charts and Charting in Excel |