Sayfa Kopyalamak

[memduh]

Merhaba arkadaşlar.
sayfa1 B1den B20 kadar olan Hücrelerde gireceğim veriyi sayfa2 kopyalayıp ve sayfa1 B1 B20 arası hücrelere girdiğim ismi sayfa2 ye veren makro var mı?(örnek B1 ali girdim sayfa2 i kopyalayıp sayfaya2ye ali ismini verecek.)


_______________
Office 2003 Türkçe

 

[Ali]

Sub SayfaAdi()
If Worksheets("Sayfa1").Range("C4").Value = "" Then Exit Sub
Worksheets.Add
ActiveSheet.Name = Worksheets("Sayfa1").Range("C4").Value
End Sub

Sayfa1 'e yukarıdaki kısmı kopyala
C4 hücresini bir değer yaz Ahmet, Mehmet gibi bu makroyu çalıştır. C4 olan hücresi yerine sen kendi aralığına göre B1:B20 olarak değiştirirsin

 

[memduh]

Sayın fructose tam istediğim değil. Sayfa2 de hazır bir formum var.
b1 den b20 ye kadar hücrelere isim girdiğim zaman sayfa2 i kopyalayıp sayfa2 nin kopyası olan sayfaya b1 b20 arası girdiğim ismi verecek makro. Yani b1 ahmet girdim sayfa2nin kopayasıoluşturulacak ve kopya sayfaya ahmet adını verecek. ve b2 devam edecek b20 ye kadar.



_______________
Office 2003 Türkçe

 

[isakarakus]

şunu incelermisin?

 

[memduh]

sayın isakarakus cevabın için teşekkürler. Ama istediğim cevap değil.
Sanırım tam Anlatamadım. Ekteki Dosyada ayrıntılar var. teşekkürler.





________________
Office 2003 Türkçe

 

[isakarakus]

ne istediğiniz tam olarak anlaşılmıyor,,
benim anladığım şu.

ilk sayfada bir listeniz var ve bu liste diğer sayfaların adlarından oluşuyor.
listedeki bir ismi değiştirdiğinizde o sayfanın da ismi değişiyor
öyle mi?

 

[memduh]

Sayfa "aa" da b2den b20 kadar boş. B2den başlayarak b20ye kadar hücrelere herhangi bir veri girdiğim zaman "sayfa ismi" isimli sayfa kopyalanacak ve b2 b20 hücrelerine girdiğim veri ismini alacak.
Umarım amlamışsınızdır.




_______________
Office 2003 Türkçe

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e184c5ac65]Sub kopyala()
Set s1 = Sheets("aa")
Set s2 = Sheets("sayfa ismi")
say = WorksheetFunction.CountA(s1.[b2:b65536])
For a = 1 To say
Sheets("sayfa ismi").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = s1.Cells(a + 1, 2).Value
Next
End Sub[/vb:1:e184c5ac65]

 

[memduh]

Sayın levent bey cevabınız için teşekkürler. Yalnız Hücreye veri girip enterladığım gibi sayfa oluşması sağlanılabilir mi? ve aynı ismler olunca "Bu isimde bir sayfa Mevcut" uyarısını versin. Teşekkürler.


________________
Office 2003 Türkçe

 

[Levent Menteşoğlu]

Aşağıdaki kodu aa isimli sayfanın kod sayfasına yazarak deneyin.

[vb:1:07ada63cba]Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error GoTo 10
If Target.Column <> 2 Or Target.Row = 1 Or Target = 0 Then Exit Sub
Set s1 = Sheets("aa")
Set s2 = Sheets("sayfa ismi")
s2.Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Target.Value
s1.Select
Exit Sub
10 Application.DisplayAlerts = False
Sheets(Sheets.Count).Delete
s1.Select
MsgBox "BU İSİMDE KAYITLI SAYFA MEVCUTTUR"
Target.Select
Selection.Cells.ClearContents
End Sub
[/vb:1:07ada63cba]