Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste Special--what is this doing
Private Sub CommandButton1_Click() Application.ScreenUpdating = False Range("R2").Select Application.CutCopyMode = False Selection.Copy Range("G2:G3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("l2:l3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("M2:M3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("M2:M3500").Select Selection.NumberFormat = "m/d;@" Range("F1:M1").Select Range("M1").Activate Application.CutCopyMode = False Range("A1:M3500").Sort Key1:=Range("G2"), Order1:=xlDescending Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("N2").Select Application.ScreenUpdating = True End Sub It looks to my like it is copying what is in R2 and pasting it in th range G2:G3500. But R2 contains the digit 1 and nothing else and afte this runs G2:G3500 does not contain 1. I inherited this from somebody no longer here and the users are no able to help. Thanks JP -- JPS@beb ----------------------------------------------------------------------- JPS@bebe's Profile: http://www.excelforum.com/member.php...fo&userid=3271 View this thread: http://www.excelforum.com/showthread.php?threadid=52545 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste Special--what is this doing
i think it's changing text to a number
see if this is more readable and fucntions the same, untested. Option Explicit Private Sub CommandButton1_Click() Dim rng As Range Application.ScreenUpdating = False Set rng = Range("R2") rng.Copy With rng Range("G2:G3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False End With With rng Range("l2:l3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False End With With rng Range("M2:M3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False End With Range("M2:M3500").NumberFormat = "m/d;@" Range("F1:M1").Select Range("M1").Activate Application.CutCopyMode = False With Range("A1:M3500") ..Sort Key1:=Range("G2"), Order1:=xlDescending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With Range("N2").Select Application.ScreenUpdating = True End Sub -- Gary "Don Guillett" wrote in message ... Despite the fact that it is crudely done from a recording of the macro, the intent is to take the number 1 and use it to multiply by the referenced cells to force them from text to numbers. -- Don Guillett SalesAid Software "JPS@bebe" wrote in message ... Private Sub CommandButton1_Click() Application.ScreenUpdating = False Range("R2").Select Application.CutCopyMode = False Selection.Copy Range("G2:G3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("l2:l3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("M2:M3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("M2:M3500").Select Selection.NumberFormat = "m/d;@" Range("F1:M1").Select Range("M1").Activate Application.CutCopyMode = False Range("A1:M3500").Sort Key1:=Range("G2"), Order1:=xlDescending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("N2").Select Application.ScreenUpdating = True End Sub It looks to my like it is copying what is in R2 and pasting it in the range G2:G3500. But R2 contains the digit 1 and nothing else and after this runs G2:G3500 does not contain 1. I inherited this from somebody no longer here and the users are not able to help. Thanks JPS -- JPS@bebe ------------------------------------------------------------------------ JPS@bebe's Profile: http://www.excelforum.com/member.php...o&userid=32713 View this thread: http://www.excelforum.com/showthread...hreadid=525453 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste Special--what is this doing
Actually, you should be able to combine the ranges
Range("G2:G3500,l2:l3500,etc").PasteSpecial Paste -- Don Guillett SalesAid Software "Gary Keramidas" <GKeramidasATmsn.com wrote in message ... i think it's changing text to a number see if this is more readable and fucntions the same, untested. Option Explicit Private Sub CommandButton1_Click() Dim rng As Range Application.ScreenUpdating = False Set rng = Range("R2") rng.Copy With rng Range("G2:G3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False End With With rng Range("l2:l3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False End With With rng Range("M2:M3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False End With Range("M2:M3500").NumberFormat = "m/d;@" Range("F1:M1").Select Range("M1").Activate Application.CutCopyMode = False With Range("A1:M3500") .Sort Key1:=Range("G2"), Order1:=xlDescending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With Range("N2").Select Application.ScreenUpdating = True End Sub -- Gary "Don Guillett" wrote in message ... Despite the fact that it is crudely done from a recording of the macro, the intent is to take the number 1 and use it to multiply by the referenced cells to force them from text to numbers. -- Don Guillett SalesAid Software "JPS@bebe" wrote in message ... Private Sub CommandButton1_Click() Application.ScreenUpdating = False Range("R2").Select Application.CutCopyMode = False Selection.Copy Range("G2:G3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("l2:l3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("M2:M3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("M2:M3500").Select Selection.NumberFormat = "m/d;@" Range("F1:M1").Select Range("M1").Activate Application.CutCopyMode = False Range("A1:M3500").Sort Key1:=Range("G2"), Order1:=xlDescending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("N2").Select Application.ScreenUpdating = True End Sub It looks to my like it is copying what is in R2 and pasting it in the range G2:G3500. But R2 contains the digit 1 and nothing else and after this runs G2:G3500 does not contain 1. I inherited this from somebody no longer here and the users are not able to help. Thanks JPS -- JPS@bebe ------------------------------------------------------------------------ JPS@bebe's Profile: http://www.excelforum.com/member.php...o&userid=32713 View this thread: http://www.excelforum.com/showthread...hreadid=525453 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste Special--what is this doing
thanks for pointing that out, don't know how my post ended up as a reply to
yours instead of the op's -- Gary "Don Guillett" wrote in message ... Actually, you should be able to combine the ranges Range("G2:G3500,l2:l3500,etc").PasteSpecial Paste -- Don Guillett SalesAid Software "Gary Keramidas" <GKeramidasATmsn.com wrote in message ... i think it's changing text to a number see if this is more readable and fucntions the same, untested. Option Explicit Private Sub CommandButton1_Click() Dim rng As Range Application.ScreenUpdating = False Set rng = Range("R2") rng.Copy With rng Range("G2:G3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False End With With rng Range("l2:l3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False End With With rng Range("M2:M3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False End With Range("M2:M3500").NumberFormat = "m/d;@" Range("F1:M1").Select Range("M1").Activate Application.CutCopyMode = False With Range("A1:M3500") .Sort Key1:=Range("G2"), Order1:=xlDescending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With Range("N2").Select Application.ScreenUpdating = True End Sub -- Gary "Don Guillett" wrote in message ... Despite the fact that it is crudely done from a recording of the macro, the intent is to take the number 1 and use it to multiply by the referenced cells to force them from text to numbers. -- Don Guillett SalesAid Software "JPS@bebe" wrote in message ... Private Sub CommandButton1_Click() Application.ScreenUpdating = False Range("R2").Select Application.CutCopyMode = False Selection.Copy Range("G2:G3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("l2:l3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("M2:M3500").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Range("M2:M3500").Select Selection.NumberFormat = "m/d;@" Range("F1:M1").Select Range("M1").Activate Application.CutCopyMode = False Range("A1:M3500").Sort Key1:=Range("G2"), Order1:=xlDescending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("N2").Select Application.ScreenUpdating = True End Sub It looks to my like it is copying what is in R2 and pasting it in the range G2:G3500. But R2 contains the digit 1 and nothing else and after this runs G2:G3500 does not contain 1. I inherited this from somebody no longer here and the users are not able to help. Thanks JPS -- JPS@bebe ------------------------------------------------------------------------ JPS@bebe's Profile: http://www.excelforum.com/member.php...o&userid=32713 View this thread: http://www.excelforum.com/showthread...hreadid=525453 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Paste and Paste Special No Longer Working - Excel 2003 | Excel Discussion (Misc queries) | |||
In Excel: add a Paste-Special Option to paste IN REVERSE ORDER. | Excel Worksheet Functions | |||
Cut and Paste using Macro gives paste special method error | Excel Programming | |||
How do I capture user paste action and convert to Paste Special | Excel Programming | |||
Dynamic Copy/Paste Special Formulas/Paste Special Values | Excel Programming |