macro / vba assistance

[Rameses]

Dear all

Worksheet 1 is a data set

Worksheet 2 is a form template with cells to be filled from row 2 of worksheet 1

Once that is filled in I want to be able to save that and open a new worksheet with the form template to fill in row 3 of worksheet 1 (this can all be saved in the same workbook)

I need a macro but dont know where to start

any assistance gratefully received

rameses

 

[Rameses]

I tried adding the following

Range("B1").Interior.ColorIndex = dSht.Range("A1").Interior.ColorIndex

obviously changing the cell nos to match mine but still no luck

anyone have an idea pleaaase..?

 

[Rameses]

Still not sure of how to go about it in the code

I wonder will

/*Interior.ColorIndex

also work with mailmerge???

 

[Rameses]

?

 

[Rameses]

are there any mvps who can help with this request? as i have now searched high and low, far and wide and am stumped ....quite seriously

anything, tips or whatever to help me work with it would be gratefully received!!!!

 

[Rameses]

vba and cell colour

hi guys

anyone willing to help as I am going balder by the minute...???

Rameses

 

[jbeaucaire]

Re: vba and cell colour

1) Mail Merge won't be taking cell formatting unless you're really hot at VBA. Mail merge takes in values from a data set and inserts into a form that has its own formatting in place.

2) The syntax I've given works for me, so no idea why you're seeing something different. If posted a sample workbook somewhere we could look at together, this would be simpler. You can use the link in my signature to contact me directly.

Meanwhile, we can try reversing the syntax to a more brutish copy/paste:

        With ActiveSheet                                'fill out the form
            'edit these rows to fill out your form, add more as needed
            .Name = dSht.Range("A" & Rw)
            dSht.Range("A" & Rw).Copy .Range("C2")
            dSht.Range("B" & Rw).Copy .Range("F2")
            dSht.Range("C" & Rw).Copy .Range("C6")
            dSht.Range("D" & Rw).Copy .Range("C5")
            dSht.Range("F" & Rw, "I" & Rw).Copy .Range("B12:E12")
            dSht.Range("K" & Rw, "N" & Rw).Copy .Range("F12:I12")
            dSht.Range("P" & Rw, "S" & Rw).Coy .Range("J12:M12")
            dSht.Range("U" & Rw, "X" & Rw).Copy .Range("B16:E16")
            dSht.Range("Z" & Rw).Copy .Range("F16")
            dSht.Range("AA" & Rw, "AC" & Rw).Copy .Range("G16:I16")
            dSht.Range("AE" & Rw, "AH" & Rw).Copy .Range("J16:M16")
            dSht.Range("AJ" & Rw, "AM" & Rw).Copy .Range("B20:E20")
            dSht.Range("AO" & Rw, "AR" & Rw).Copy .Range("F20:I20")
            dSht.Range("AT" & Rw, "AW" & Rw).Copy .Range("J20:M20")
        End With

 

[Rameses]

Hi Jerry

I have forwarded you a copy of the spreadsheet to rocket scientist


Rameses

 

[jbeaucaire]

I'll watch for it.

 

[Rameses]

any one able to help?

 

[Rameses]

hi guys?

any advice?