Tekrar merhaba,

Public Sub berat()

On Error Resume Next

Dim MyCell As Range, MyRange As Range, deger1 As Range, deger2 As Range, deger3 As Range



Set MyRange = Sheets("Sayfa2").Range("A2")

Set MyRange = Range(MyRange, MyRange.End(xlDown))

Set deger1 = Sheets("Sayfa2").Range("B2")

Set deger1 = Range(deger1, deger1.End(xlDown))

Set deger2 = Sheets("Sayfa2").Range("C2")

Set deger2 = Range(deger2, deger2.End(xlDown))

Set deger3 = Sheets("Sayfa2").Range("D2")

Set deger3 = Range(deger3, deger3.End(xlDown))



For Each MyCell In MyRange

Sheets("Sayfa1").Copy After:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Name = MyCell.Value

Sheets(Sheets.Count).Range("b3").Value = deger1.Value

Sheets(Sheets.Count).Range("f6").Value = deger2.Value

Sheets(Sheets.Count).Range("g4").Value = deger3.Value

Next MyCell





End Sub

Bu şekilde bir kod oluşturdum. Güzel olan taraf A kolonuna göre isimlere sahip sayfa açabiliyorum. Ama açtığım sayfalara istediğim hücrelere yazım yaptıramıyorum.
Yardım ederseniz sevinirim.