cari hesap

[Fuat Şirin]

arkadaşlar ekteki dosyamda
liste sayfasında a sütununa girdiğim firma ismlerine sayfa açılıyor
bu sayfalara isim veriyorum
ama açılan sayfanın a1 hücresine aynı ismi yazmasını istiyorum
ve j4 hücresini liste sayfasının b sütununa ilgili firma karşısına eklemesini istiyorum
yardım ederseniz sevinirim

 

[emrexcel123]

ek

arkadaşım eki inceler misin?
(biraz acele ile yaptım hatam varsa affola )

 

[xxcell]

Aşağıdaki düzenlemeyi yaparsan istediğin oluyor

Sub sheet_ekle1()
On Error Resume Next
X = Sheets("LİSTE").Cells(65536, 1).End(xlUp).Row
isim = Cells(X, 1)
Sheets("ŞABLON").Copy After:=Sheets(Sheets.Count)
Sheets(ActiveSheet.Name).Cells(1, 1).Value = ActiveSheet.Name
Sheets("LİSTE").Cells(X, 2).Formula = "=" & ActiveSheet.Name & "!J4"ActiveSheet.Name = Sheets("LİSTE").Cells(X, 1).TextSheets(ActiveSheet.Name).Cells(1, 1).Value = ActiveSheet.Name
Sheets("LİSTE").Cells(X, 2).Formula = "=" & ActiveSheet.Name & "!J4"Sheets("lİSTE").Select
End Sub