• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Çalışma sayfası ekle

  • Konbuyu başlatan Konbuyu başlatan MERDAG
  • Başlangıç tarihi Başlangıç tarihi
M

MERDAG

Katılım
16 Ekim 2007
Mesajlar
166
Excel Vers. ve Dili
EXCEL 2003 TR
Öncelikle paylaşımlarınız için teşekkürler...
Formda bulduğum bir çalışmayı kendime uyarlamak istedim ama olmadı...
Yapmak istediğim ANA SAYFA'da A sütununa yazdığım isimlere çift tıkladığım zaman o isimde boş bir çalışma sayfası açılıyor.
Benim istediğim boş çalışma sayfası değilde PANO sayfasını kopyalayıp ona yazdığım ismi versin istiyorum.

İlginize şimdiden teşekkürler...
 

Ekli dosyalar

Kod: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim Sayfa As String

If ActiveSheet.Name <> "ANA SAYFA" Then
    ActiveSheet.Visible = False
    Sheets("ANA SAYFA").Select
    
Else
 
    Sayfa = Target.Value
    Sheets(Sayfa).Visible = True
    If Sayfa <> "" Then Sheets(Sayfa).Select

End If

Exit Sub
Son:
If Target.Value = "" Then
Exit Sub
End If
If MsgBox("" & Target.Value & "" & vbLf & "Adına kayıtlı sayfa yok " & vbLf & "Şimdi açılsın mı ?", vbQuestion + vbYesNo, " KumanExcel@hotmail.com") = vbYes Then
[color=red]Sheets("PANO").Copy After:=Sheets(Sheets.Count)[/color]
ActiveSheet.Select
ActiveSheet.Name = Target.Value
End If
End Sub
 
Kopyalanan her sayfada A1 hücresine otomatik sıra numarası vermek için bu koda nasıl bir ekleme yapmalıyız...
 
Son düzenleme:
2.mesajda sizin eklemiş olduğunuz kodla PANO sayfasını kopyalayıp yeni bir çalışma sayfası açabiliriyorum.
Şimdi bu açmış olduğum çalışma sayfalarına otomatik olarak sıra numarası vermek istiyorum.

Birde sayfa adını belli bir hücrede gösterebilirmiyiz.
İlginize şimdiden teşekkürler...
 
Otomatik sıra numarası derken neyi kastediyorsunuz ? Bir örnek ile açıklayın.
 
Örneğin PANO sayfasında A1 hücresine 1000 yazacağım sayfa her kopyalandığında bu değer bir artacak ve kopyalanan sayfanın A1 hücresinde 1001,1002,1003 gibi numara vermesini istiyorum...
Umarım anlatabilmişimdir...
 
Eki inceleyin.
Kod: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim Sayfa As String

If ActiveSheet.Name <> "ANA SAYFA" Then
    ActiveSheet.Visible = False
    Sheets("ANA SAYFA").Select
    
Else
 
    Sayfa = Target.Value
    Sheets(Sayfa).Visible = True
    If Sayfa <> "" Then Sheets(Sayfa).Select

End If

Exit Sub
Son:
If Target.Value = "" Then
Exit Sub
End If
If MsgBox("" & Target.Value & "" & vbLf & "Adına kayıtlı sayfa yok " & vbLf & "Şimdi açılsın mı ?", vbQuestion + vbYesNo, " KumanExcel@hotmail.com") = vbYes Then
Sheets("PANO").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Select
ActiveSheet.Name = Target.Value
[a1] = Sheets("ANA SAYFA").Cells(Target.Row, 2)
[B1] = ActiveSheet.Name
End If
End Sub
 

Ekli dosyalar

Teşekkürler sayın hamitcan
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst