View Single Post
 
Old 10-27-2017, 01:07 PM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
 
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default

Quote:
question - is there a way that the info can be copied into merged cells A1, D1 and G1 without overwriting the 'Type:', 'Ser no:' and 'User:' text?
I assume you mean like this
Code:
Sub Create_Name_WorkSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Set ws = Sheets("Template")
Set sh = Sheets("CFD Basic Info")
Application.ScreenUpdating = 0

    For i = 5 To Range("A" & Rows.Count).End(xlUp).Row
        Sheets("Template").Copy After:=sh

        With ActiveSheet
            .Name = sh.Range("A" & i).Value
            .Range("A1").Value = .Range("A1").Value & "  " & sh.Range("B" & i).Value
            .Range("D1").Value = .Range("D1").Value & "  " & sh.Range("A" & i).Value
            .Range("G1").Value = .Range("G1").Value & "  " & sh.Range("C" & i).Value
        End With

    Next i
    
Create_Hyperlinks
End Sub
Reply With Quote