Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I need some help in writing a routine to print in this way... 3 sheets,
one in English, one in French and the third one, to enter all the information, with a flag, E for English and F for French, in this page, each line will be the information for the other two pages, but I want to be print sequentially, once one if finish, the line will be clear and then the next line will print, and so on. Can I do this in excel? Thanks, Fernando |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Not exactly sure what you are looking for but this might help you get started:
Assumptions: You are entering data in Sheet1 You enter in col A either "E" for Eng or "F" for French You enter data in Col B After entering all your data in Col B you click a command button to fire the following macro which will copy your data to the correct sheet E or F. You can then delete your entry data sheet 1. Option Explicit Sub Eng_French() Dim oCell As Range Dim E As Worksheet Dim F As Worksheet Set E = Worksheets("E") Set F = Worksheets("F") For Each oCell In Range("B1:B100") If oCell < "" Then Select Case UCase(oCell.Offset(0, -1)) Case Is = "E" oCell.EntireRow.Copy E.Range("A65536").End(xlUp).Offset(1, 0) Case Is = "F" oCell.EntireRow.Copy F.Range("A65536").End(xlUp).Offset(1, 0) Case Else MsgBox "Row " & oCell.Row & " is not flagged.", vbOKOnly End Select End If Next oCell Set E = Nothing Set F = Nothing Set oCell = Nothing End Sub Rather than all data being entered, followed by a command button, you could do this one line at a time by placing the following code in the Sheet1 object: Private Sub Worksheet_Change (ByVal Target as Range) If Target.Cells.Count = 1 then Application.EnableEvents = False If Not Intersect(Target, Range("A1") Is Nothing Then If Target.Offset(0,1)<"" Then Eng_French Target.Entirerow.Eelete End If End if Application.EnableEvents = True End if End Sub "Fernando Duran" wrote: I need some help in writing a routine to print in this way... 3 sheets, one in English, one in French and the third one, to enter all the information, with a flag, E for English and F for French, in this page, each line will be the information for the other two pages, but I want to be print sequentially, once one if finish, the line will be clear and then the next line will print, and so on. Can I do this in excel? Thanks, Fernando |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Excel 2003 printing problem--printing 1 document on 2 pages | Excel Discussion (Misc queries) | |||
Excel Printing --Borders are not printing on the same page as data | Excel Discussion (Misc queries) | |||
Printing a heading on each new page when printing | Excel Discussion (Misc queries) | |||
Enable Double sided printing contiuously when printing multiple s. | Excel Discussion (Misc queries) | |||
Printing? Worksheets not printing the same on multiple pc's! | Excel Programming |