Çift Tıklayınca Örnek Sayfadan Bir Tane Üretmesi

[Mikdad]

S.a Dostlarım,
Excel de Örnek Sayfa ve Ana Sayfa Diye iki sayfam var.
Ana Sayfada
Sıra No Adı Açıklama


Şeklinde alanlarım var.

Adı Kısmına bir isim yazım çift tıkladığımda eğer o isimden sayfa varsa direk oraya gidecek, eğer yoksa yazmış olduğum isimle Örnek Sayfa nın aynısını oluşturacak.
Örnek
Sıra No Adı Açıklama
1 Ali Can Müşteri

( Ali Can ı çift tıkladığmda eğer alican diye bir sayfa varsa oraya gidecek eğer yoksa yeni bir sayfa oluşturayımmı diye soracak evet dediğimde Daha önce oluşturduğum Örnek Sayfa nın aynısını Ali Can diye oluşturacak.)

Bu konuda yardımcı olursanız çok sevinirim.
Allah Razı Olsun

 

[vardar07]

İstediğiniz gibimi? incelermisiniz.

 

[Mikdad]

S.a Hocam Allah razı olsun Hemen Hemen
yanlız
1) eğer tıklanan varsa direk ilgili sayfayı açacak,
2) eğer tıklanan yoksa "İlgili Kayıt Bulunamadı. Yeni Kayıt Açmak İster misiniz" Diye Soracak
Şimdiden Allah Razı Olsun.

 

[muygun]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

 

[Mikdad]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

Hocam Allah Razı Olsun
Evet İstediğim Gibi oldu yanlız sormak istediğim bir iki şey daha var

Örnek sayfaya Resim Yerleştirdim.
1) yeni sayfa oluşturduğu zaman resmi yeni oluşturalan sayfaya atmıyor. onu nasıl sağlayabiliriz.
2)Sayfa Oluştuğunda Hangi isimle Oluştu ise Yeni oluşan sayfada Cari Adı Hücresine onun isminin gelmesini sağlayabilir miyiz?

 

[veyselemre]

Alternatif olsun.
Excel 2003 te resimleri kopyalıyor, 2007 ve sonrası kopyalamıyor galiba
resmi ayrıca koplayabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [b3:b65536]) Is Nothing Then
        Cancel = True
        isim = Target.Value
        If isim <> "" Then
            If InStr(isim, "\") Or InStr(isim, "/") Or InStr(isim, ":") Or InStr(isim, "*") Or InStr(isim, "?") Or InStr(isim, "<") Or InStr(isim, ">") Or InStr(isim, "|") Or InStr(isim, Chr(34)) Then
                MsgBox "Hatalı sayfa ismi.", vbCritical
                Exit Sub
            End If
            On Error Resume Next
            Sheets(isim).Select
            If Err > 0 Then
                Err = 0
                On Error GoTo 0
                If MsgBox(isim & " isimli sayfa bulunamadı, yeni sayfa oluşturulsun mu?", vbYesNo) = vbYes Then
                    Sheets("Örnek Sayfa").Copy After:=Sheets(ActiveSheet.Index)
                    ActiveSheet.Name = isim
                    ActiveSheet.[b12] = isim
                    '***************** excel 2003 te resimleri kopyalıyor gerek yok
                    'Sheets("Örnek Sayfa").Shapes("Resim 1").Copy
                    'ActiveSheet.Paste
                    '**************************************************************
                End If
            End If
        End If
    End If
End Sub

 

[Mikdad]

Hocam Allah Razı Olsun Hakkınızı da Helal Edin. Sorunsuz Bir Şekilde Çalışıyor. Son bir şey sormak istiyorum. Ana Sayfada Alacak Borç Toplamlarını Almak istiyorum. ama daha üretilmemiş bir sayfanın borç alacağı yapılabilir mi?

 

[veyselemre]

Hocam Allah Razı Olsun Hakkınızı da Helal Edin. Sorunsuz Bir Şekilde Çalışıyor. Son bir şey sormak istiyorum. Ana Sayfada Alacak Borç Toplamlarını Almak istiyorum. ama daha üretilmemiş bir sayfanın borç alacağı yapılabilir mi?

Doğmamış çocuğa don biçilmez, :hihoho::biggrin:

Başka yerde verileriniz (cari hareketleri) varsa onlar değerlendirilir, ama bu konuyla alakası yok. Hareketleri de aktarmak istiyorsanız o da yapılır.

 

[Mikdad]

Doğmamış çocuğa don biçilmez, :hihoho::biggrin:

Başka yerde verileriniz (cari hareketleri) varsa onlar değerlendirilir, ama bu konuyla alakası yok. Hareketleri de aktarmak istiyorsanız o da yapılır.

Doğmamış çocuğa don biçilmez, :hihoho::biggrin:

Evet hocam haklısınız . Allah Razı Olsun Güzel bir espiriydi. yani aslında söylemek istediğim şu. dosyayı açtığımda var olan sayfaları tarayıp örnek veriyorum.
Excel dosyasını açtığımızda var olan çalışma sayfalarının f11 hücrelerini toplayıp ana sayfanın A8 Hücresine yazmak mümkün müdür?

 

[veyselemre]

Kodları Ana Sayfa isimli sayfanın kod modülüne yerleştirin.

Private Sub Worksheet_Activate()
    Top = 0
    For Each syf In ActiveWorkbook.Sheets
        al = syf.Range("F11")
        If syf.Index <> ActiveSheet.Index And IsNumeric(al) Then
            toplam = toplam + al
        End If
    Next syf
    Range("A8") = toplam
End Sub

 

[Mikdad]

Allah Razı Olsun Hocam Tam İstediğim Gibi. Hakkınızı Helal Edin.

 

[Mikdad]

Allah Razı Olsun Tam Olarak İstediğim Gibi Oldu