Novice in exel macros needs help

[Jere]

Hi

I'm currently working on a project that consists of filing data of lecture attendance. Now what we have, is an exel chart of all the people who have attended any of the lectures, where, when, how long was the lecture and which one was it. Now what I need to do, is create a macro that will take the data from one line [Name, company, lecture, date & time, length], and create a certificate that uses the data that the particular line has.

The said list contains roughly about 100 names at this point, and I think that manual typing one by one would be a pain. So I was hoping that someone could tell me how I can get exel to repeat the project for each line, untill it finds a line that doesn't have data on it. Also, does anyone know if I can create a macro that takes data from exel, and places it into a word file in the spesific places I want it to be placed, and can it be created as a self repeating process

Thank you in advance for everyone who replys to this thread
I'd also like to apologize for my poor grammar, but I'm not a native speaker of English

- Jere

 

[Chip Pearson]

Jere,

Try something like

Dim Rng As Range
Set Rng = Range("A1")
Do Until Rng.Value = ""
' do something with the data in Rng and that row
Set Rng = Rng(2,1)
Loop


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



message

Hi,

I'm currently working on a project that consists of filing data

of lecture attendance. Now what we have, is an exel chart of all
the people who have attended any of the lectures, where, when,
how long was the lecture and which one was it. Now what I need to
do, is create a macro that will take the data from one line
[Name, company, lecture, date & time, length], and create a
certificate that uses the data that the particular line has.

The said list contains roughly about 100 names at this point,

and I think that manual typing one by one would be a pain. So I
was hoping that someone could tell me how I can get exel to
repeat the project for each line, untill it finds a line that
doesn't have data on it. Also, does anyone know if I can create a
macro that takes data from exel, and places it into a word file
in the spesific places I want it to be placed, and can it be
created as a self repeating process?

 

[Jere]

I tried that, but it started to loop the same process over and over again never stopping.

 

[Jere]

This is what I have going on right now

Range("A2").Selec
Do Until IsEmpty(ActiveCell
Selection.Cop
Sheets("pt2").Selec
Range("A1").Selec
ActiveSheet.Past
ActiveCell.Offset(1, 0).Selec
Sheets("pt1").Selec
ActiveCell.Offset(1, 0).Selec
Loo
End Su

The problem is that I think that the activecell.offset(1, 0).select that changes the selections place in sheet pt1 replaces the selection is sheet pt2. I need to know how I can get it paste the next value copied from pt1 to be pasted under the first value on pt2. If I get that working, I can proceed easily.

 

[Jere]

never mind, I got it working. Stupid old me.