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

Excel Facts

Can you sort left to right?
To sort left-to-right, use the Sort dialog box. Click Options. Choose "Sort left to right"
This is working perfect rick

Except 100.000.09 then needs to be 100.000.01 and the next code 100.000.02

If it does that for 100.000.99 that is ninety nine time than the next code will be
100.002.01
 
Upvote 0
You half answer will do too as I can write 100.000.01 and drag

But now sure if the full automation is possible ?
 
Upvote 0
I changed my mind Rick

I am more than happy with the formula

It does not need any further modifications

sweet and can handle gigantic data
 
Upvote 0
makinmomb said:
I changed my mind Rick

I am more than happy with the formula

It does not need any further modifications
Click to expand...
I can modify it easily enough, I just need to understand your numbering system first (see below).


makinmomb said:
Except 100.000.09 then needs to be 100.000.01 and the next code 100.000.02

If it does that for 100.000.99 that is ninety nine time than the next code will be
100.002.01
Click to expand...

Why wouldn't 100.001.01 follow 100.000.99?

Also, why not 100.001.00 instead of 100.001.01?
 
Last edited:
Upvote 0
Then when 100.001.01 and 100.001.02
once it reaches 100.001.99 it will be 100.002.00

I have this going upto 100.007.00 and so
 
Upvote 0
makinmomb said:
You are correct it needs to be 100.001.00 after 100.000.99
Click to expand...
makinmomb said:
Then when 100.001.01 and 100.001.02
once it reaches 100.001.99 it will be 100.002.00

I have this going upto 100.007.00 and so
Click to expand...

Give this macro a try...
Code: 
Sub DeleteRowsWithRemoveInColumnH()
  Dim LastRow As Long
  Columns("H").SpecialCells(xlConstants).EntireRow.Delete
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Range("A1:A" & LastRow) = Evaluate("IF(ROW(),TEXT(10000000+ROW(A1:A" & LastRow & "),""000\.000\.00""))")
End Sub
 
Upvote 0
super hot

I can actually see the portion but at minute seconds

When the first card is 100.000.09 and takes 100.000.01

Just exact

Thanks rick not to forget it was you who introduced me
macros in December 2013
 
Upvote 0
makinmomb said:
I can actually see the portion but at minute seconds
Click to expand...
I forgot to hide the manipulations from view. The following should be more visually appealing...
Code: 
Sub DeleteRowsWithRemoveInColumnH()
  Dim LastRow As Long
  [COLOR=#0000FF]Application.ScreenUpdating = False[/COLOR]
  Columns("H").SpecialCells(xlConstants).EntireRow.Delete
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Range("A1:A" & LastRow) = Evaluate("IF(ROW(),TEXT(10000000+ROW(A1:A" & LastRow & "),""000\.000\.00""))")
  [COLOR=#0000FF]Application.ScreenUpdating = True[/COLOR]
End Sub
 
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