Butona Tıklandığında Yeni Sayfa açıp ana sayfada köprü oluşturma

[veysikulte1]

Arkadaşlar ekteki dosyaya userform ile yeni bir cari eklemek istediğim zaman cari ekle butonuna tıkladığım zaman textbox1 e yazacağım ismi yazdıktan sonra otomatik yeni bir cari hesabı açılsın diğer sayfalarla aynı bide sayfa isimleride aynı ana sayfadaki listede ismi yazılsın tıkladığın zaman onun sayfasına gidebilecek şekilde yapmamız mümkünmü yardımlarınız için şimdiden teşekkürler

 

[Ömer]

Merhaba,

Bu tür çalışmalarda, sablon bir sayfa yapısı hazırlayıp yeni açılacak sayfalar için bu sayfayı kullanmak daha mantıklı.

Linkte #6 nolu mesajı inceleyin. Form kullanmak yerine bu şekilde bir yapı kullanmak daha mantıklı bence. Eğer isterseniz aynı mantığı formda da kullanabilirsiniz.

http://www.excel.web.tr/f14/otomatik-sayfa-olu-turma-t89158.html

.

 

[veysikulte1]

Söylediğim tarzda bi çare yokmu

 

[muygun]

Merhaba;
Ömer bey'in belirttiği gibi şablon kullanmak daha mantıklı...
Eki deneyin.
İyi çalışmalar.

 

[askm]

İstediğiniz sanırım böyle bir şey.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet
Set s1 = Sheets("Ana Sayfa")

SonSatir = s1.Cells(65536, "A").End(xlUp).Row + 1
s1.Cells(SonSatir, "A").Value = TextBox1.Text
'Worksheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
SayfaAdi = s1.Cells(4, "A").Value
Sheets(SayfaAdi).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = TextBox1.Text
Range("b2").Value = TextBox1.Text
Range("A5:E22").ClearContents

s1.Activate
s1.Range("A" & SonSatir).Select

s1.Hyperlinks.Add Anchor:=s1.Range("A" & SonSatir), Address:="", SubAddress:= _
        s1.Range("A" & SonSatir).Value & "!A1", TextToDisplay:=TextBox1.Text


Range("A" & SonSatir - 1).Copy
Range("A" & SonSatir).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

Range("B" & SonSatir - 1 & ":C" & SonSatir - 1).Copy
Range("B" & SonSatir & ":C" & SonSatir).Select
ActiveSheet.Paste
Application.CutCopyMode = False
    
Sheets(TextBox1.Text).Activate
Unload Me
End Sub

 

[veysikulte1]

İstediğiniz sanırım böyle bir şey.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet
Set s1 = Sheets("Ana Sayfa")

SonSatir = s1.Cells(65536, "A").End(xlUp).Row + 1
s1.Cells(SonSatir, "A").Value = TextBox1.Text
'Worksheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
SayfaAdi = s1.Cells(4, "A").Value
Sheets(SayfaAdi).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = TextBox1.Text
Range("b2").Value = TextBox1.Text
Range("A5:E22").ClearContents

s1.Activate
s1.Range("A" & SonSatir).Select

s1.Hyperlinks.Add Anchor:=s1.Range("A" & SonSatir), Address:="", SubAddress:= _
        s1.Range("A" & SonSatir).Value & "!A1", TextToDisplay:=TextBox1.Text


Range("A" & SonSatir - 1).Copy
Range("A" & SonSatir).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

Range("B" & SonSatir - 1 & ":C" & SonSatir - 1).Copy
Range("B" & SonSatir & ":C" & SonSatir).Select
ActiveSheet.Paste
Application.CutCopyMode = False
    
Sheets(TextBox1.Text).Activate
Unload Me
End Sub

Çok teşekkür ederim tam istedigim gibi ancak köprü ayarinida yapabilirmiyiz ana sayfadaki eklenen isme tıklandığında o zayfaya gitsin yani ekle dedigimizde o da ayarlanabilir mi ?

 

[Ömer BARAN]

Merhaba.

Alternatif olsun.
.

 

[askm]

Zaten köprü oluşturuyor. Aşağıdaki satır köprü oluşturmak için.

s1.Hyperlinks.Add Anchor:=s1.Range("A" & SonSatir), Address:="", SubAddress:= _
        s1.Range("A" & SonSatir).Value & "!A1", TextToDisplay:=TextBox1.Text

 

[veysikulte1]

[sıze="2"]merhaba.

Alternatif olsun.
.[/sıze]

teşekkürler

 

[simyaci64]

ömer bey;

çalışmalar güzel cari hesaplar yeni bir excel sayfasında nasıl yapılabilir.

yani cari hesapları bir klasöre toplamak ana sayfadan klösör içindeki carilere erişim nasıl olur.

 

[veysikulte1]

ömer bey yaptığınız çalışmada dosya kopyalamasını yaptığında bakiye kısmındaki formül siliniyor bunu düzeltme imkanımız varmı

 

[veysikulte1]

bu konuda yardımcı olabilecek yokmu. dosya kopyalanırken bakiye kısmındaki formül siliniyor

 

[askm]

Benim eklemiş olduğum kodlar ile yapılan örnek ektedir.

 

[veysikulte1]

sorun gene aynı. yeni bir cari eklediğimizde eklenen caride bakiye kısmında yani E stünundaki formüller gelmiyor.

 

[askm]

E sütununda formül olduğunu görmedim.Aşağıdaki kısımda C olan yerleri E yazın.

Range("B" & SonSatir - 1 & ":C" & SonSatir - 1).Copy
Range("B" & SonSatir & ":C" & SonSatir).Select
ActiveSheet.Paste
Application.CutCopyMode = False

 

[veysikulte1]

teşekkürler