Sap 1 to Sap 2 card transfer

M

makinmomb

Active Member
Joined
Dec 23, 2013
Messages
401
[TABLE="width: 960"]
<colgroup><col><col><col><col><col><col><col><col></colgroup><tbody>[TR]
[TD]100.000.01[/TD]
[TD]GEMMA 40 X 40 = KARNAK BEIGE P GRANITO[/TD]
[TD]FLOOR GEMMA[/TD]
[TD]KARNAK BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]007A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.02[/TD]
[TD]GEMMA 40 X 40 = KARNAK GREY P GRANITO[/TD]
[TD]TILE GEMMA[/TD]
[TD]KARNAK GREY[/TD]
[TD]GEMMA[/TD]
[TD]007A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.03[/TD]
[TD]GEMMA 40 X 40 = MYKONOS GREYP GRANITO[/TD]
[TD]FLOOR TILE GEMMA[/TD]
[TD]MYKONOS GREY[/TD]
[TD]GEMMA[/TD]
[TD]007A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.04[/TD]
[TD]GEMMA 50 X 50 = ARIZONA BEIGE[/TD]
[TD][/TD]
[TD]ARIZONA BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]005A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.05[/TD]
[TD]GEMMA 50 X 50 = VERANDA BRICK[/TD]
[TD][/TD]
[TD]VERANDA BRICK[/TD]
[TD]GEMMA[/TD]
[TD]005A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.06[/TD]
[TD]GEMMA 50 X 50 = VERANDA BRICK GEOMETRIC[/TD]
[TD]GEMMA[/TD]
[TD]VERANDA BRICK[/TD]
[TD]GEMMA[/TD]
[TD]005A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.07[/TD]
[TD]GEMMA 25 X 35 = BOMBAY GREEN[/TD]
[TD][/TD]
[TD]BOMBAY GREEN[/TD]
[TD]GEMMA[/TD]
[TD]016A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.08[/TD]
[TD]GEMMA 30 X 44 = ISCANDARONA BROWN DARK[/TD]
[TD][/TD]
[TD]ISCANDARONA BROW[/TD]
[TD]GEMMA[/TD]
[TD]011A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.09[/TD]
[TD]GEMMA 20 X 20 = SOLANGE IVORY[/TD]
[TD][/TD]
[TD]SOLANGE[/TD]
[TD]GEMMA[/TD]
[TD]022A[/TD]
[TD="align: right"]1000.00[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]100.000.10[/TD]
[TD]CLOSED CARD[/TD]
[TD][/TD]
[TD][/TD]
[TD]GEMMA[/TD]
[TD]PC[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.11[/TD]
[TD]CLOSED CARD[/TD]
[TD][/TD]
[TD][/TD]
[TD]GEMMA[/TD]
[TD]PC[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.12[/TD]
[TD]GEMMA 20X30 = FRUTTI BEIGE[/TD]
[TD][/TD]
[TD]FRUTTI BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]020H[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.13[/TD]
[TD]GEMMA 20X30 = FRUTTI BRICK
[/TD]
[TD][/TD]
[TD]FRUTTI BRICK[/TD]
[TD]GEMMA[/TD]
[TD]020H[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.14[/TD]
[TD]GEMMA LISTELO 10 X 20 = FRUTTI BEIGE[/TD]
[TD][/TD]
[TD]FRUTTI BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]PC[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.15[/TD]
[TD]GEMMA DECOR 20X30 = FRUTTI BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]FRUTTI BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]PC[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.16[/TD]
[TD]GEMMA 30 X 30 = ARIZONA MARRON[/TD]
[TD][/TD]
[TD]ARIZONA MARRON[/TD]
[TD]GEMMA[/TD]
[TD]015A[/TD]
[TD="align: right"]2000.00[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="width: 960"]
<colgroup><col><col><col><col><col><col><col><col></colgroup><tbody>[TR]
[TD]100.000.01[/TD]
[TD]GEMMA 40 X 40 = KARNAK BEIGE P GRANITO[/TD]
[TD]FLOOR GEMMA[/TD]
[TD]KARNAK BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]007A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.02[/TD]
[TD]GEMMA 40 X 40 = KARNAK GREY P GRANITO[/TD]
[TD]TILE GEMMA[/TD]
[TD]KARNAK GREY[/TD]
[TD]GEMMA[/TD]
[TD]007A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.03[/TD]
[TD]GEMMA 40 X 40 = MYKONOS GREYP GRANITO[/TD]
[TD]FLOOR TILE GEMMA[/TD]
[TD]MYKONOS GREY[/TD]
[TD]GEMMA[/TD]
[TD]007A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.04[/TD]
[TD]GEMMA 50 X 50 = ARIZONA BEIGE[/TD]
[TD][/TD]
[TD]ARIZONA BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]005A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.05[/TD]
[TD]GEMMA 50 X 50 = VERANDA BRICK[/TD]
[TD][/TD]
[TD]VERANDA BRICK[/TD]
[TD]GEMMA[/TD]
[TD]005A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.06[/TD]
[TD]GEMMA 50 X 50 = VERANDA BRICK GEOMETRIC[/TD]
[TD]GEMMA[/TD]
[TD]VERANDA BRICK[/TD]
[TD]GEMMA[/TD]
[TD]005A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.07[/TD]
[TD]GEMMA 25 X 35 = BOMBAY GREEN[/TD]
[TD][/TD]
[TD]BOMBAY GREEN[/TD]
[TD]GEMMA[/TD]
[TD]016A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.08[/TD]
[TD]GEMMA 30 X 44 = ISCANDARONA BROWN DARK[/TD]
[TD][/TD]
[TD]ISCANDARONA BROW[/TD]
[TD]GEMMA[/TD]
[TD]011A[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.09[/TD]
[TD]GEMMA 20 X 20 = SOLANGE IVORY[/TD]
[TD][/TD]
[TD]SOLANGE[/TD]
[TD]GEMMA[/TD]
[TD]022A[/TD]
[TD="align: right"]1000.00[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]100.000.10[/TD]
[TD]CLOSED CARD[/TD]
[TD][/TD]
[TD][/TD]
[TD]GEMMA[/TD]
[TD]PC[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.11[/TD]
[TD]CLOSED CARD[/TD]
[TD][/TD]
[TD][/TD]
[TD]GEMMA[/TD]
[TD]PC[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.12[/TD]
[TD]GEMMA 20X30 = FRUTTI BEIGE[/TD]
[TD][/TD]
[TD]FRUTTI BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]020H[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.13[/TD]
[TD]GEMMA 20X30 = FRUTTI BRICK[/TD]
[TD][/TD]
[TD]FRUTTI BRICK[/TD]
[TD]GEMMA[/TD]
[TD]020H[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.14[/TD]
[TD]GEMMA LISTELO 10 X 20 = FRUTTI BEIGE[/TD]
[TD][/TD]
[TD]FRUTTI BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]PC[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.15[/TD]
[TD]GEMMA DECOR 20X30 = FRUTTI BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]FRUTTI BEIGE[/TD]
[TD]GEMMA[/TD]
[TD]PC[/TD]
[TD="align: right"]0[/TD]
[TD]remove[/TD]
[/TR]
[TR]
[TD]100.000.16[/TD]
[TD]GEMMA 30 X 30 = ARIZONA MARRON[/TD]
[TD][/TD]
[TD]ARIZONA MARRON[/TD]
[TD]GEMMA[/TD]
[TD]015A[/TD]
[TD="align: right"]2000.00[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
 
Sort by date Sort by votes
Hi rick again , your magic is required again

This week I am moving from one software to another

There is a small modification required , your macro works
fine on one series e.g. 100.000.01 and so

But I have series

102.000.01
103.000.01

Going up to 300

So what I needed added is the macro to do the following

Delete as it does
Then rename the way it does but this time to take care of 102. 103. and so on
 
Upvote 0

Excel Facts

Can a formula spear through sheets?
Use =SUM(January:December!E7) to sum E7 on all of the sheets from January through December
makinmomb said:
There is a small modification required , your macro works
fine on one series e.g. 100.000.01 and so

But I have series

102.000.01
103.000.01

Going up to 300
Click to expand...
Do the 102.... and 103.... etc. series appear on separate sheets or are they listed one under the other on the same sheet? If the latter, is there any blank rows between the individual series?
 
Upvote 0
I can insert row too if the macro is easier that way ,
I have an insert row macro that looks as follows

Sub InsertRow()
Dim i As Long
For i = Range("A" & Rows.Count).End(xlUp).Offset(-1).Row To 1 Step -1
If Split(Cells(i, 1), ".")(0) <> Split(Cells(i + 1, 1), ".")(0) Then
Cells(i + 1, 1).EntireRow.Insert
End If
Next i
End Sub
 
Upvote 0
Okay, give this macro a try...
Code: 
Sub DeleteRowsWithRemoveInColumnH()
  Dim LastRow As Long, Addr1 As String, Addr2 As String
  Application.ScreenUpdating = False
  Columns("H").SpecialCells(xlConstants).EntireRow.Delete
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Addr1 = "A1:A" & LastRow - 1
  Addr2 = "A2:A" & LastRow
  Range("A1").Value = Application.Replace(Range("A1"), Len(Range("A1")) - 1, 2, "01")
  Range(Addr2) = Evaluate(Replace(Replace("IF(LEFT(@,3)<>LEFT($,3),REPLACE(@,LEN(@)-1,2,""01""),"""")", "$", Addr1), "@", Addr2))
  Range(Addr2).SpecialCells(xlBlanks).FormulaR1C1 = "=LEFT(R[-1]C,8)&TEXT(RIGHT(R[-1]C,2)+1,""00"")"
  Range(Addr2).Value = Range(Addr2).Value
  Application.ScreenUpdating = True
End Sub
 
Upvote 0
Thank you very much Rick , this is more than Magic

My final question for tomorrow though , since my
pricelist have the old codes , I will need to know
what the prior code was

This should be possible maybe insert a column
and then pull its old code

This for tomorrow sir , as today you have given
me the punch answer already
 
Upvote 0
You must log in or register to reply here.

Forum statistics

Threads
1,225,475
Messages
6,185,195
Members
453,282
Latest member
roger_nz66

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top