Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looking in 1 list and copying from another lfile
Need help with a smal problem that i´ve ran into . Im using this for a log report. Kund = ActiveCell.Value If Kund < "" Then Windows("Rtm.csv").Activate Sheets("rtm").Select Range("a2").Select Cells.Find(What:=Kund, After:=ActiveCell, LookIn:=xlFormulas LookAt _ :=xlPart, SearchOrder:=xlByColumns SearchDirection:=xlNext, MatchCase:= _ False).Activate ActiveCell.Offset(0, 5).Range("A1").Select ErrorAction = ActiveCell.Value Windows("totalkostnad mot intäkt.xls").Activate ActiveCell.Offset(0, 7).Range("A1").Select ActiveCell.Value = ErrorAction ActiveCell.Offset(1, -7).Range("A1").Select GoTo HittaKund End If And my problem is when there is a number in the first list that+s no in the second one. Im getting an error mess. Tried to use "On Error resume next" or "On Error goto 0" but non o them worked as I wanted. I need one that is going to the next line in the first list and will d that until its getting to a empty cell -- Gadare ----------------------------------------------------------------------- Gadarel's Profile: http://www.excelforum.com/member.php...fo&userid=1468 View this thread: http://www.excelforum.com/showthread.php?threadid=26310 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looking in 1 list and copying from another lfile
Dim rng as Range
Kund = ActiveCell.Value If Kund < "" Then Windows("Rtm.csv").Activate Sheets("rtm").Select Range("a2").Select set rng =Cells.Find(What:=Kund, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False) if not rng is nothing then rng.select ActiveCell.Offset(0, 5).Range("A1").Select ErrorAction = ActiveCell.Value Windows("totalkostnad mot intäkt.xls").Activate ActiveCell.Offset(0, 7).Range("A1").Select ActiveCell.Value = ErrorAction ActiveCell.Offset(1, -7).Range("A1").Select End if GoTo HittaKund End If -- Regards, Tom Ogilvy "Gadarel" wrote in message ... Need help with a smal problem that i´ve ran into . Im using this for a log report. Kund = ActiveCell.Value If Kund < "" Then Windows("Rtm.csv").Activate Sheets("rtm").Select Range("a2").Select Cells.Find(What:=Kund, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False).Activate ActiveCell.Offset(0, 5).Range("A1").Select ErrorAction = ActiveCell.Value Windows("totalkostnad mot intäkt.xls").Activate ActiveCell.Offset(0, 7).Range("A1").Select ActiveCell.Value = ErrorAction ActiveCell.Offset(1, -7).Range("A1").Select GoTo HittaKund End If And my problem is when there is a number in the first list that+s not in the second one. Im getting an error mess. Tried to use "On Error resume next" or "On Error goto 0" but non of them worked as I wanted. I need one that is going to the next line in the first list and will do that until its getting to a empty cell. -- Gadarel ------------------------------------------------------------------------ Gadarel's Profile: http://www.excelforum.com/member.php...o&userid=14688 View this thread: http://www.excelforum.com/showthread...hreadid=263108 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Selecting and copying from a list | Excel Discussion (Misc queries) | |||
Copying different cells from one list to another | Excel Discussion (Misc queries) | |||
exel list copying | Excel Discussion (Misc queries) | |||
Copying list-box control | Excel Discussion (Misc queries) | |||
Copying from list | Excel Worksheet Functions |