[Yardım]  Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma Sorunu

Excel sayfalarında kullandığımız yerleşik fonksiyonlar ya da kendi yazabileceğiniz fonksiyonlar ile ilgili bilmek istedikleriniz, sorunlar ve çözümleri

Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma

İleti#21)  feraz » 08 Tem 2018 03:33

Burayada gif yükledim.Önceki mesajdaki gif olmamış.
Denersiniz,bakarız.

http://dosya.co/e6g0t358bzw1/fffffff.gif.html
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Ve

İleti#22)  düşünceli » 08 Tem 2018 11:47

[quote="feraz"]Burayada gif yükledim.Önceki mesajdaki gif olmamış. Ellerine sağlık sayın feraz. Dener denemez dönüş yaparım.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 15:11
Meslek: memur
Yaş: 45
İleti: 134
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma

İleti#23)  feraz » 08 Tem 2018 12:50

Rica ederim.20.ci mesajdaki dodyayı deneyin.

Örnek olsun diye yazdım formülleri.
Yani sayfa adlarını formüle entegre yaptırdım.

Orjinal formüle uyarlanacak.

Daha önceki kodunuzda sayfa kopyala butonuna basınca aynı isimde sayfa varsa hata veriyordu.
Önce sabit olmayan sayfaları sildirip sonra kopyalatma işlemi yaptırdım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Ve

İleti#24)  düşünceli » 08 Tem 2018 12:59

feraz yazdı:Rica ederim.20.ci mesajdaki dodyayı deneyin.

Örnek olsun diye yazdım formülleri.
Yani sayfa adlarını formüle entegre yaptırdım.

Orjinal formüle uyarlanacak.

Daha önceki kodunuzda sayfa kopyala butonuna basınca aynı isimde sayfa varsa hata veriyordu.
Önce sabit olmayan sayfaları sildirip sonra kopyalatma işlemi yaptırdım.

Emeğine yüreğine sağlık. Dosyayı oluşturur oluşturmaz sitede paylaşacağım. Sizede dönüş yaparım. Hoşçakalın.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 15:11
Meslek: memur
Yaş: 45
İleti: 134
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma

İleti#25)  feraz » 08 Tem 2018 13:19

Unutmadan Giriş sayfa adını Giris olarak değiştirdim dosyada.
Tr karakterler bende hata yapıyor bazen.

Sonra Giriş olarak değiştirilir.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Ve

İleti#26)  düşünceli » 09 Tem 2018 21:46

feraz yazdı:Unutmadan Giriş sayfa adını Giris olarak değiştirdim dosyada.
Tr karakterler bende hata yapıyor bazen.

Sonra Giriş olarak değiştirilir.


Kod: Tümünü seç
Sub evnIsımlereEkYap()
Dim sayfa As Worksheet
Dim refer As Worksheet
Dim varmi As Range
Set refer = Sheets("referans")
For Each sayfa In Worksheets
    Set varmi = refer.Range("a2:a" & refer.Range("a65536" _
                ).End(3).Row).Find(sayfa.Name, , , 1)
    If Not varmi Is Nothing Then
        sayfa.Name = varmi.Offset(0, 0).Value & "_" & _
                   varmi.Offset(0, 1).Value
    End If
Next sayfa
Set varmi = Nothing
Set refer = Nothing: Set sayfa = Nothing
End Sub


Giriş sayfası A2 den a300 arasına girilecek yeni listeye göre "giriş, sabitler, örnek bordro, ücret bordrosu" sayfaları hariç diğer sayfa isimlerini toplu olarak değiştirebilirsek sorun büyük ölçüde halledilmiş olacak. Yukarıda ki kod buna göre düzenlenebilir mi?
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 15:11
Meslek: memur
Yaş: 45
İleti: 134
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma

İleti#27)  feraz » 09 Tem 2018 21:54

Evet böyle daha mantıklı bencede.

Fazla sayfalarıda sildiririz sabit harici ve ismi değiştirilen sayfalar harici.Bir bakayım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma

İleti#28)  feraz » 09 Tem 2018 22:03

Dosyada giris sayfasında A sütunu boş nasıl olacak.A ve B sütunlarımı birleşecek kod mantığına göre.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma

İleti#29)  feraz » 09 Tem 2018 22:11

ücret bordrosu sayfasındaki B13:Ae17 aralığındaki formüllü sonucuyla eklermisiniz.Diğerleride buna görede ayarlanır.Denemekte fayda var.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Ve

İleti#30)  düşünceli » 09 Tem 2018 22:40

feraz yazdı:ücret bordrosu sayfasındaki B13:Ae17 aralığındaki formüllü sonucuyla eklermisiniz.Diğerleride buna görede ayarlanır.Denemekte fayda var.


Örnek dosya ekte üstadım. Kolay gelsin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 15:11
Meslek: memur
Yaş: 45
İleti: 134
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma

İleti#31)  feraz » 10 Tem 2018 00:19

Dediğiniz gibi alttaki kodu yaptım.

Formül olayına girmedim.

Kod: Tümünü seç
Sub degstr()

Dim sayfa As Worksheet
Dim refer As Worksheet
Dim varmi As Range
Set refer = Sheets("giris")
For Each sayfa In Worksheets
    Set varmi = refer.Range("B7:B" & refer.Range("B65536").End(3).Row).Find(sayfa.Name, , , 1)
    If Not varmi Is Nothing Then
        sayfa.Name = varmi.Offset(0, 1).Value
                   
    End If
Next sayfa

refer.Select
Set varmi = Nothing
Set refer = Nothing: Set sayfa = Nothing

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma

İleti#32)  feraz » 10 Tem 2018 00:25

,,,,,,

Kod: Tümünü seç
Sub degstr()

Dim sayfa As Worksheet
Dim refer As Worksheet
Dim varmi As Range
Set refer = Sheets("giris")
For Each sayfa In Worksheets
    Set varmi = refer.Range("B7:B" & refer.Range("B65536").End(3).Row).Find(sayfa.Name, , , 1)
    If Not varmi Is Nothing Then
     If varmi.Offset(0, 1).Value <> "" Then
        sayfa.Name = varmi.Offset(0, 1).Value
     End If
    End If
Next sayfa

refer.Select
Set varmi = Nothing
Set refer = Nothing: Set sayfa = Nothing

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Ve

İleti#33)  düşünceli » 10 Tem 2018 00:52

feraz yazdı:,,,,,,

Kod: Tümünü seç
Sub degstr()

Dim sayfa As Worksheet
Dim refer As Worksheet
Dim varmi As Range
Set refer = Sheets("giris")
For Each sayfa In Worksheets
    Set varmi = refer.Range("B7:B" & refer.Range("B65536").End(3).Row).Find(sayfa.Name, , , 1)
    If Not varmi Is Nothing Then
     If varmi.Offset(0, 1).Value <> "" Then
        sayfa.Name = varmi.Offset(0, 1).Value
     End If
    End If
Next sayfa

refer.Select
Set varmi = Nothing
Set refer = Nothing: Set sayfa = Nothing

End Sub

Örnek dosyada ve kodyaları ekleyerek te çalıştıramadım.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 15:11
Meslek: memur
Yaş: 45
İleti: 134
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma

İleti#34)  feraz » 10 Tem 2018 00:54

Giris sayfasında kocaman mavi birşey var ona bir tıkla.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma

İleti#35)  düşünceli » 10 Tem 2018 00:58

Tamamdır çalıştırdım sayın feraz. Teşekkür ederim. Kodlu dosyaya uyarlayıp bu sayfada paylaşacağım.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 15:11
Meslek: memur
Yaş: 45
İleti: 134
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Sabit Olan Sayfaya Yeni Eklenen Sayfalardan Veri Alma

İleti#36)  feraz » 10 Tem 2018 01:05

Rica ederim,hayırlı akşamlar.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Önceki

Forum Kullanıcı Tanımlı Fonksiyonlar ( KTF )

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe