| myshak,
If I take your description literally, I think this is what you want.
Sub Convertt()
Dim i As Long
Dim arg
i = 2 ' starting row
arg = Cells(i, "I")
Do
If arg = "45g" Then
Cells(i, "C") = Cells(i + 1, "C")
Cells(i, "D") = Cells(1 + 1, "D")
Cells(i, "E") = Cells(i + 1, "E")
Cells(i, "F") = Cells(i + 1, "F")
Cells(i, "G") = Cells(i + 1, "G")
Cells(i, |
|
 |
|
 |
Group: microsoft.public.excel.misc · Group Profile · Search for Warehousey in microsoft.public.excel.misc
Author: Earl Kiosterud
Date: Feb 26, 2008 13:11
I have this file. 12,br2,3er,6ro,WarehouseA,CottonA,Alpha5u4,Brav56o,34g,54inch,$99,45 14,cd3,4er,7ro,WarehouseB,CottonGr,Charlie4,Labmert,45g,55inch,$98,43 15,gd4,5er,8ro,WarehouseC,CottonGe,Charlie2,Labmert,55g,56inch,$97,42 25,df3,4er,107o,Warehouseg,CottonGb,Mike14,Labmert,65g,57inch,$96,42 45,gf4,5er,11ro,Warehouse1,CottonGc,Charlie,Labmert,75g,58inch,$95,41 35,df3,4er,1ro,Warehouse3
|
