Macro Help

[zbiris]

Hello,

I need help from the experts.

I'm creating an inventory file for all users and I have the main sheet called "Users" where I have a table with the names of the users in the column A, starting in the cell A1 and goes to A200.

I need to create a new sheet using the sheet called "Template" with the name of the cell.

And after that I need that the text in the cell A1 goes to the cell C4 on the new sheet created.

Can you help me please?

 

[zbiris]

The values from col

A B C D

User1	Test1	Access1	Confirmation1
User2	Test2	Access2	Confirmation2
User3	Test3	Access3	Confirmation3

<colgroup><col><col><col><col></colgroup><tbody>
</tbody>

Want the sheet User1 to have the User1 text in the cell c4 the Test1 in the cell H4 text Access1 in the cell H6 and text Confirmation1 in cell D6 and forwards. User2 data in the sheet User2

 

[Fluff]

In that case, try

Sub zbiris()
   Dim Cl As Range
   
   For Each Cl In Sheets("Users").Range("A1", Sheets("Users").Range("A" & Rows.count).End(xlUp))
      If Cl.Value <> "" Then
         If Not Evaluate("isref('" & Cl.Value & "'!A1)") Then
            Sheets("Template").Copy , Sheets(Sheets.count)
            With ActiveSheet
               .Name = Cl.Value
               .Range("C4").Value = Cl.Value
               .Range("H4").Value = Cl.Offset(, 1).Value
               .Range("H6").Value = Cl.Offset(, 2).Value
               .Range("D6").Value = Cl.Offset(, 3).Value
            End With
         End If
      End If
   Next Cl
End Sub

 

[zbiris]

In that case, try

Sub zbiris()
   Dim Cl As Range
   
   For Each Cl In Sheets("Users").Range("A1", Sheets("Users").Range("A" & Rows.count).End(xlUp))
      If Cl.Value <> "" Then
         If Not Evaluate("isref('" & Cl.Value & "'!A1)") Then
            Sheets("Template").Copy , Sheets(Sheets.count)
            With ActiveSheet
               .Name = Cl.Value
               .Range("C4").Value = Cl.Value
               .Range("H4").Value = Cl.Offset(, 1).Value
               .Range("H6").Value = Cl.Offset(, 2).Value
               .Range("D6").Value = Cl.Offset(, 3).Value
            End With
         End If
      End If
   Next Cl
End Sub

That's perfect, thanks

 

[Fluff]

You're welcome & thanks for the feedback