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

[GKMER]

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.

 

[omerceri]

TextBox2.Value = Application.Lookup(TextBox1, Range("a2:a23"), Range("b2:B23"))
kodları kendi dosyana göre ayarla

 

[GKMER]

Benim sayfamda textbox yokki

 

[Ali]

Ekteki örneği bir inceleyin

 

[spilavci]

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]

Evet mümkün linkleri ile beraberde diğer sayfalarada aktarılabilir.

 

[omerceri]

kusura bakmayın yanlış soruya cevap yamışım

 

[spilavci]

Ç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.

 

[veyselemre]

bir örnek te benden

 

[Ali]

Elimde bir çalışma vardı buda hem link veriyor hem sayfaya ekliyor.

 

[spilavci]

Teşekürler fruktose

İstediğim buydu.

Slm...

 

[samurayhiya]

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.

 

[szaim]

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..

 

[samurayhiya]

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]

Bir örnek dosya eklerseniz yardımcı olmaya çalışalım. Bu durum VBA ile çözülecek gibi geldi bana.

 

[samurayhiya]

tamam hemen gönderim ama nasıl göndereceğimi bilmiyorum

 

[samurayhiya]

tamam hemen göndereyim ama nasıl göderebilirim.

 

[szaim]

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..

 

[samurayhiya]

sayfayı forma nasıl gönerebilirim

:kafa: :kafa: :yardim: :kafa: :kafa:

 

[szaim]

Sayın leventm, beyin
Bu konuda siteye yeni üye olan arkadaşlar için hazırladığı linkte tam olarak anlatmıştır. aşağıda ki linkten inceleyin..

http://www.excel.web.tr/viewtopic.php?t=2489