?
Solved

A Macro to Copy Labels

Posted on 2002-04-10
9
Medium Priority
?
213 Views
Last Modified: 2010-05-02
I have a spread sheet with various product reference numbers and stock levels.

For example.

REF     QUANTITY

100        3
101        4
102        2

This is in excel in two columns.

What I need is to set up some sort of macro that creates a reference number for each of the quantities.( i.e: 3 entries for REF 100, 4 entries for REF 101 etc)
So for example, would create another sheet that shows the following :

REF    QUANTITY

100      1
100      1
100      1
etc
I need to print a label for each reference number for each individual stock item.

Rob.

0
Comment
Question by:RobertWhite
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
  • 3
9 Comments
 
LVL 44

Expert Comment

by:bruintje
ID: 6930920
Hi RobertWhite,

-open the VB Editor with ALT+F11
-then insert a new module from the menu
-paste the code

Option Explicit

Sub RecordToLabels()
Dim intRows As Integer
Dim strName As String
Dim intRecCount As Integer
Dim i As Integer, j As Integer
Dim intRecordLabelCounter As Integer

  'assuming your data start at A2 on sheet 1
  Sheets(1).Activate
  Range("A2").Select
  Selection.End(xlDown).Select
  intRows = Selection.Row
  For i = 2 To intRows
    intRecCount = Range("B" & i)
    strName = Range("A" & i)
    For j = 1 To intRecCount
      Sheets(2).Range("A" & j + 1 + intRecordLabelCounter) = strName
      Sheets(2).Range("B" & j + 1 + intRecordLabelCounter) = 1
    Next j
    intRecordLabelCounter = intRecordLabelCounter + j - 1
  Next i
End Sub

-then choose F8 to step
-or choose F5 to run

HTH:O)Bruintje
0
 

Author Comment

by:RobertWhite
ID: 6930928
Bruintje

Thanks for this.
I have tried this but nothing seems to happen.
When I press F5, I get prompted with the "GO TO" reference.

Am I doing something wrong ?

Rob
0
 
LVL 44

Expert Comment

by:bruintje
ID: 6930962
Hi Rob,

You can download a little sample here

http://www.bredlum.com/ee_temp/sample.xls

if you got any questions just post it here

HTH:O)Bruintje
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 143

Expert Comment

by:Guy Hengel [angelIII / a3]
ID: 6930969
Hi, try this macro:

Public Sub Duplicate()
  Dim lngLoop As Long
  Dim lngQuantity As Long
  Dim lngRowIndex As Long
 
  Sheet2.Range("A1:B10000").ClearContents
  Sheet1.Range("A1:B1").Copy Sheet2.Range("A1:B1")
   
  lngLoop = 2
  lngRowIndex = 2
 
  While Sheet1.Cells(lngLoop, 1) <> Empty
    lngQuantity = Val(Sheet1.Cells(lngLoop, 2).Value)
    While lngQuantity > 0
      Sheet2.Cells(lngRowIndex, 1).Value = Sheet1.Cells(lngLoop, 1).Value
      Sheet2.Cells(lngRowIndex, 2).Value = 1
     
      lngQuantity = lngQuantity - 1
      lngRowIndex = lngRowIndex + 1
    Wend
    lngLoop = lngLoop + 1
  Wend
 
End Sub


CHeers
0
 
LVL 143

Accepted Solution

by:
Guy Hengel [angelIII / a3] earned 300 total points
ID: 6930971
sorry bruintje, didn't see yours...
Robert, you can still try mine, eventually replacing

Sheet1 and Sheet2 as needed...

CHeers
0
 

Author Comment

by:RobertWhite
ID: 6930978
Sorry guys.

My excel and Vb skills are not the best.
How do I actually get these macros to run once copied into the MODULE ?

Regards

Rob
0
 
LVL 143

Expert Comment

by:Guy Hengel [angelIII / a3]
ID: 6930985
Either place the cursor inside the procedure, and hit <F5>, or hit <ALT>+<F8>, choose the macro (duplicate) from the list, and hit the RUN button.

CHeers
0
 

Author Comment

by:RobertWhite
ID: 6930994
This has worked a treat.
Brilliant.

Thanks a lot.
Is it ok to accept ANGELS answer ?

Rob
0
 
LVL 44

Expert Comment

by:bruintje
ID: 6931010
o yeah of course
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses
Course of the Month11 days, 18 hours left to enroll

752 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question