Hücreye Yazdığım isim ile sayfa oluşturma

[oornek1]

Merhaba;

Sayfa1 de A1 hücresine yazdığım isim ile sayfa3' ü kopyalamak ve sayfa1 de A2 hücresinden itibaren oluşturduğum sayfaları listelemek istiyorum konuyla ilgili yardım edebilirmisiniz.

 

[oornek1]

Yardım edebilecek kimse yokmu

 

[Saban Sertkaya]

Sorunuz net değil, anlaşılmıyor.

A1'e ne ismi yazıyorsunuz ki, Sayfa3 kopyalanıyor ama yapıştırılmıyor mu?

Bu işlem sonrası A2'den itibaren sayfa isimleri mi var. Neyi nerede listeleyeceksiniz ?

 

[oornek1]

Sayfa1 de a1 hücresine yazmış olduğum isim adıyla safya3 teki bilgileri kopyalayarak sayfa oluşturmak ve oluşturduğum sayfalarıda sayfa1 de a2 hücresinden aşağı sıralamak istiyorum

 

[Saban Sertkaya]

Merhabalar,

Kusura bakmayın, ben yine anlatmak istediğiniz anlamadım.

Örneğin,
Siz Sayfa1 A1 hücresine "Selam" yazdınız. Sayfa3 'te hangi veriler kopyalanacak. "Selam" yazan satırlar mı ?
Eğer öyle ise, her bulduğu satır için yeni bir sayfa mı oluşturacak. Ki "oluşturduğum sayfaları A2'den aşağı doğru sıralayacak" diyerek çoğul ifade kullanıyorsunuz.

Siz yapmak istediğiniz şeyi biliyorsunuz, ama biz sizin yapmak istediğiniz şeyi anlattığınız kadarıyla çözmeye çalışıyoruz. Bu anlatım tarzınız ile malesef ben yardımcı olamayacağım.

Ya örnek bir dosya ekleyin (1 upload sitesine yükleyip link paylaşın), ya isteğinizi daha net ifade edin, ya da ben anlayamıyor isem (ki muhtemelen öyledir), ifadenizi anlayanlardan biri yardımcı olacaktır.

Kolay gelsin...

 

[oornek1]

Sayfa1 de a1 hücresine 'selam' yazarak sayfa3 ün tamamını kopyalayarak selam adında bir sayfa oluşturmak ve bu oluşan sayfaları a2 hücresinde sıralama yapmak istiyorum

 

[Hakngnc]

Data paylaşırsanız daha iyi yardımcı olabiliriz.

Bende pek anlamadım ama bir makro yazdım anlattığın kadarıyla işini görür mü bilemem.İyi akşamlar.

 

[oornek1]

Altın üyeliğim yok kodu yazarsanız sevinirim

 

[Hakngnc]

İlgili kod aşağıdadır.
Sub deneme()
Sheets("Sayfa2").Range("a1").FormulaR1C1 = "=Sayfa1!RC"
Sheets("Sayfa2").Range("B1").FormulaR1C1 = "=VLOOKUP(RC[-1],Sayfa3!C[-1]:C,2,0)"
Columns("B:B").Select
Selection.Copy
Sheets("Sayfa1").Select
Columns("B:B").Select
ActiveSheet.Paste
End Sub

 

[oornek1]

Hakngnc belirtiğiniz örneği inceledim fakat istediğim o değil size bir örnek dosya gönderdim incelermisiniz

 

[Hakngnc]

Sayfa 1i sayfa 3'ün sonuna taşıdım. İsminede sayfa1'de a1 hücresinin değerini yazdırdım.Diğer sayfalarda a2 hücresini ismi şeklinde gidiyor.Umarım istediğini doğru anlayabilmişimdir. İyi akşamlar

 

[oornek1]

Sub SayfaKopyala()
    Sheets("Sayfa3").Copy after:=Sheets(Worksheets.Count)
    On Error GoTo hata
    ActiveSheet.Name = InputBox("Sayfanın Adını Giriniz", _
    "Yeni Sayfa Ad", "YeniSayfa Ekle")
hata:
   
End Sub

Yukarıdaki makroyu çalıştırdığımda bana sayfa ismini yazmam için bir input açılıyor ben input gelmesini istemiyorum sayfa1 de a1 hücresine yazdığım isim ile sayfa adının açılmasını istiyorum,

son sayfa adlarını sayfa1 de a2 hücresine listelenmesi

 

[Hakngnc]

Diğer sayfa a2 sonra a3 diye mi gitsin istiyorsun?

 

[Hakngnc]

Dener misin?

Sub SayfaKopyala()
    Dim a As Byte
    For a = 1 To 3
    Sheets("Sayfa3").Copy after:=Sheets(Worksheets.Count)
    ActiveSheet.Name = Sheets("sayfa1").Cells(a, 1)
    Next a
   
End Sub

 

[oornek1]

Sayfa3 ü Sayfa1 deki a1 hücresine yazdığım isim ile kopyalaması gerekiyor verdiğin kod sayfa3 ü aynı isimle kopyalıyor

 

[Saban Sertkaya]

Deneyin...

Sub makro1()
a=worksheets.count
Sheets("sayfa3").copy after:=sheets(a)
Activesheet.name = sheets("sayfa1").range("A1")
Sheets("sayfa1").select
For b = 1 to a +1
Cells(b+1,1)=sheets(b).name
Next b
End sub

 

[oornek1]

Bu kod işimi gördü elinize sağlık teşekkürler

 

[erenkahya]

Merhaba
arkadaşın bir benzeri yardıma ihtiyacım var
kod yazmayı çok bilmiyorum ama dosyamdaki bilgilere göre aşağıdaki kodu nasıl güncelleyebilirim.

Sayfa1 : MÜŞTERİLER DOSYAM VAR (D3 D4 D5 devam eden hücrelere yazdığım bilgilere göre )
Sayfa3 : YENİ_CARİ isimli dosyamdan d3 itibariyle yazılan bilgilere göre kopya sayfa oluşturulmasını istiyorum.

yardımcı olabilir misiniz rica etsem

Sub makro1()
a=worksheets.count
Sheets("sayfa3").copy after:=sheets(a)
Activesheet.name = sheets("sayfa1").range("A1")
Sheets("sayfa1").select
For b = 1 to a +1
Cells(b+1,1)=sheets(b).name
Next b
End sub

 

[Necdet]

Merhaba,
Yeni soru için yeni konu açsanız daha iyi olur.
Ayrıca altın üye olarak örnek dosya ekleyerek ne yapmak istediğinizi açıklayınız. Çözüme daha hızlı ulaşırsınız.

 

[mehmetd]

Merhaba arkadaşlar
Aşağıdaki koda nasıl bir ekleme yaparsam CARI KART A sütununa yeni eklediğim bir ismi otomatik olarak kopyalama yapıp açsın mükerrer sayfa ismi varsa uyarsın. 5 satırdan sonra yazılan isimlerle sayfa açılsın üst kısımlara ekleme yapabilirim

Saygılarımla
iyi çalışmalar

Sub SayfaKopyala()
Dim a As Byte
For a = 1 To 1
Sheets("CARI KART").Copy after:=Sheets(Worksheets.Count)
ActiveSheet.Name = Sheets("MENU").Cells(a, 1)
Next a

End Sub