veriye göre sayfa oluşturmak ve satırları kopyalamak

Katılım
24 Eylül 2005
Mesajlar
332
Ekteki örnekte görülen a sütunundaki verilere göre sayfa oluşturmak o satırları kopyalama istiyorum.
Yapılacak işlem A sütununda 01 nolu hücreleri 01 sayfası oluşturmak ve 01 ile başlayan satırları o sayfaya kopyalamak.
bu her numara için yapılacak.
 
Katılım
6 Şubat 2005
Mesajlar
1,467
TextBox2.Value = Application.Lookup(TextBox1, Range("a2:a23"), Range("b2:B23"))
kodları kendi dosyana göre ayarla
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Ekteki örneği bir inceleyin
 
Katılım
10 Ekim 2004
Mesajlar
242
Sn.fructoze mükemmel bir çalışma tebrikler.Size sorum şu aynı zamanda sheet1 de sayfalara link yapmak mümkünmü?

teşekürler.
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Evet mümkün linkleri ile beraberde diğer sayfalarada aktarılabilir.
 
Katılım
10 Ekim 2004
Mesajlar
242
Çok özür dilerim soruyu eksik sorduğumu cevabınızdan sonra farkettim.Verileri aktar düğmesine aynı zamanda link kodlarını eklemek mümkünmüdür yani verileri aktaracak ve aynı anda köprüyü yapacak

Teşekürler.

Link kodları



Sub Tabellennamen_auflisten()
Dim i As Integer
Dim myRange As Range

Set myRange = ActiveCell
myRange.Resize(Worksheets.Count).Select

If (MsgBox("UYARI: Sayfalara köprü oluşturulacak... !" & vbCrLf & _
Chr(13) & " Emin misin ", vbYesNo)) _
<> vbYes Then Exit Sub

For i = 1 To Worksheets.Count
With myRange.Cells(i)
.Value = Worksheets(i).Name
.Hyperlinks.Add _
Anchor:=myRange.Cells(i), _
Address:="", _
SubAddress:=.Value & "!" & .Address, _
ScreenTip:="Blatt (" & .Value & ")", _
TextToDisplay:=.Value
End With
Next i

myRange.Select

MsgBox (" Toplam ") & ThisWorkbook.Worksheets.Count & _
(" Çalışma sayfasına köprü oluşturuldu"), vbOKOnly, ThisWorkbook.Name
End Sub

Ben ekleyemedim.Teşekürler

Not: Kodlar benim çalışmam değildir.
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Elimde bir çalışma vardı buda hem link veriyor hem sayfaya ekliyor.
 
Katılım
23 Mayıs 2006
Mesajlar
30
ya allah rızası için vallahi kiriz geçiriyorum.. bir excel sayfasını kopyaladıktan sonra sayfanın ismini değiştirince köprüleri nasıl çalıştırabilirim. bilen birisi lütfen sölesin vallahi dua edecem o kişiye.
 
Katılım
20 Şubat 2006
Mesajlar
188
Excel Vers. ve Dili
Office 2003 Tr
samurayhiya' Alıntı:
ya allah rızası için vallahi kiriz geçiriyorum.. bir excel sayfasını kopyaladıktan sonra sayfanın ismini değiştirince köprüleri nasıl çalıştırabilirim. bilen birisi lütfen sölesin vallahi dua edecem o kişiye.
Örnek bir dosya gönderirseniz bir bakalım..
 
Katılım
23 Mayıs 2006
Mesajlar
30
sayfayı nasıl göndereceğimi bilmiyorum ama size kısa anlatabilirm.
örnek:
1 sayfa1'de A1'e köprü açın D4 olsun. (aynı sayfa içinde)
2 bu sayfayı kopyalayın sayfa2 ye yapıştırın.
3 köprüye bastığınızda köprü sayfa1 değilde sayfa2 deki D4 gittsin.
szaim bey çok teşekkür ederim.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bir örnek dosya eklerseniz yardımcı olmaya çalışalım. Bu durum VBA ile çözülecek gibi geldi bana.
 
Katılım
20 Şubat 2006
Mesajlar
188
Excel Vers. ve Dili
Office 2003 Tr
samurayhiya' Alıntı:
tamam hemen göndereyim ama nasıl göderebilirim.
Cevap yaz butonuna basın.
Dosya ekle kısmından gözatı tıklayıp dosyanızın yolunu belirtin ve gönderin..
 
Üst