• DİKKAT

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

bağ yapıştır yardımı talebimdir

M

muhasebeciyiz

Altın Üye
Katılım
10 Şubat 2006
Mesajlar
1,298
Excel Vers. ve Dili
Office 2016
64 Bit
saygıdeğer forumdaşlar ;

Ekte sunmuş olduğum belgemdeki ilk sayfadaki bulunan bilgilerimi şablon sayfalarına sırasıyla hücreleri bağ yağıştır yöntemi ile kopyalamak istiyorum.

Bu konuda yardımınıza ihiyacım vardır.Teşekkür ederim.Saygılar
 

Ekli dosyalar

Son düzenleme:
Merhaba.

Ya ben anlamadım ya da farklı bir durum var.

Örnek belgenize göre; sablon adlı sayfanızdaki A8, D4, A12, D16 hücreleri için,
hedef sayfasının B11 hücresini adres gösteriyorsunuz (diğerleri için de benzer durum var)
Bunun anlamı nedir?

Yukarıdaki husus yok sayılırsa ve örneğin sablon adlı sayfadaki sadece A8 hücresinin,
hedef sayfası B11'e aktarılacağı düşünülürse neden doğrudun B11 hücresine =sablon!A8 şeklinde formül yazmıyorsunuz?

Böylece hedef adlı sayfayı çoğalttığınızda, bu formül orada kaldığına göre,
yeni kopya sayfanızda B11 hücresinde hep sablon sayfası A8'deki değeri alırsınız.

Bağ yapıştır'dan maksatınız anlaşılmıyor doğrusu.
.
 
Merhaba

Ömer hocama katılmakla beraber örnek dosya olması nedeniyle bu konuyu dikkate almadım aksi taktirde tutarsızlıklar var orjinal dosyanız bu şekilde olmadığını varsayarak aşağıdaki kodu deneyebilirsiniz heralde istediğiniz böyle birşey
Kod: 
Sub emr123()
Dim i As Integer

    For i = 7 To 23
        hucre = Sheets("sablon").Cells(i, "C").Value
        hedef = Sheets("sablon").Cells(i, "F").Value
        Sheets("hedef").Range(hedef).Formula = "=sablon!" & hucre
    Next


End Sub
 
Vermis oldugum kod isinizi gormedi mi acaba
 
Ben asıl konu sayfasından devam edeyim.

-- Hedef hücre-kaynak hücre adresleriyle ilgili soru sormuşum.
-- BAĞ YAPIŞTIR'daki maksatı sormuşum.
-- Bir de öneride bulunmuşum.

Bu sorulara ve önriye karşılık alınan cevap ise çok anlamlı ve "liste güncel arkadaşlar" şeklinde.

Sorumuza cevap alamayınca da konu o aşamada kalmış durumda.
.
 
Ömer BARAN' Alıntı:
Ben asıl konu sayfasından devam edeyim.

-- Hedef hücre-kaynak hücre adresleriyle ilgili soru sormuşum.
-- BAĞ YAPIŞTIR'daki maksatı sormuşum.
-- Bir de öneride bulunmuşum.

Bu sorulara ve önriye karşılık alınan cevap ise çok anlamlı ve "liste güncel arkadaşlar" şeklinde.

Sorumuza cevap alamayınca da konu o aşamada kalmış durumda.
.
Genişletmek için tıkla ...

Sayın Ömer Varan bey ;
Meramımı yeterince ifade edemediğim için yeni örnek vererek yeni konu konu açtım.Orada izah ettim.Birden fazla konu açıp kirlilik yaratmak istemezdim.Tamamen iyiniyetle hareket ettim.

Bağ yapıştırma konusunda örnekte 17 sayfa olduğu için tek tek hepsinde hücreyi seçip kopyalayıp bağ yapıştırmak çok zahmetli olduğu için çözümü olabilirmi diye çare aramıştım.

Sizin yardımseverliğiniz ortada.Teşekkür eder.Saygılarımı sunarım.

Vakitlerinizden çaldıysam affola.Saygılar
 
Önceki cevabımda sayfaları çoğaltma öncesi yapılabilecek bir öneride bulunmuşum.
Madem sayfalar çoğaltılmış; aşağıdaki kod'u boş bir Modül'e uygulayın ve çalıştırın (kod tüm sayfalara formül uygular)
Umarım istediğiniz budur.

Değilse, neden olmadığını net olarak açıklayınız ve örnek veriniz.
.
Kod: 
[FONT="Arial Narrow"][B]Sub SAYFALARA_FORMUL()[/B]
For s = 1 To Sheets.Count
    If Sheets(s).Name <> "Form" Then
        For fsat = 1 To 8
            Sheets(s).[BT29:BT36].Formula = "=Form!C1"
            Sheets(s).[CN29:CN36].Formula = "=Form!D1"
            Sheets(s).[DK29:DK36].Formula = "=Form!E1"
        Next
    End If
Next
[B]End Sub[/B][/FONT]
 
Sayın Ömer Baran bey ;

Verilen kodlar gayet güzel çalışmakta
Bu kodlarımızda Form sayfamızdaki C1 ile E8 arasındaki tüm veriler 17 sayfanın hücrelerine bağ olarak yapıştırılmaktadır.Hal böyle oluncada 17 sayfanın verileri hep aynı kalmaktadır.

Benim isteğim şayet mümkün olursa Form Sayfasındaki
C1'den başlayıp AK8 arasındaki tüm hücrelere farklı bilgiler girilmektedir.Bu bilgileri de ,
A-123'den başlayıp A-495051'e kadar giden sayfadaki ilgili hücrelere bağ olarak yapıştırmam gerekmektedir.

C1 ile E8 arasındaki veriler A-123 sayfasındaki ilgili hücrelere ;
G1 ile I8 arasındaki veriler A-456 sayfasındaki ilgili hücrelere ;
K1 ile M8 arasındaki veriler A-789 sayfasındaki ilgili hücrelere ;
O1 ile Q8 arasındaki veriler A-101112 sayfasındaki ilgili hücrelere ;
S1 ile U8 arasındaki veriler A-131415 sayfasındaki ilgili hücrelere ;
W1 ile Y8 arasındaki veriler A-161718 sayfasındaki ilgili hücrelere ;
AA1 ile AC8 arasındaki veriler A-222324 sayfasındaki ilgili hücrelere ;
AE1 ile AG8 arasındaki veriler A-252627 sayfasındaki ilgili hücrelere ;
AI1 ile AK8 arasındaki veriler A-282930 sayfasındaki ilgili hücrelere ; diye devam ederekten bağ olarak yapıştırmak istiyorum.

Saygılarımla.Teşekkür ederim.
 
Merhaba.

Soru şimdi anlaşılır hale geldi.

-- Form sayfası CA sütununda herhangi bir veri varsa onları başka sütuna taşıyın,
(CA sütununu kodlar kullanacak)
-- ALT+F11 tuşlarına basarak VBA ekranını görüntüleyin.
-- Açılan VBA ekranında, üst taraftaki MENÜ çubuğundan INSERT=>MODULE'yi seçin,
-- Sağ taraftaki boş alana aşağıdaki kodları yapıştırın.
-- Önce OK tuşlarını kullanarak imleçin Sub SAYFA_ADLARI() satırına gelmesini sağlayın ve F5 tuşuna basın,
(bu işlem Form adlı sayfanın CA sütununa belgenizdeki sayfa adlarının listelenmesini sağlayacaktır)
-- Sonra imlecin Sub SAYFALARA_FORMUL() satırına gelmesini sağlayın ve tekrar F5 tuşuna basın.
(bu işlem, son cevabınızdaki isteğinize uygun olarak sayfalara, gerekli formülleri uygulayacaktır)
.
Kod: 
[FONT="Arial Narrow"][B]Sub SAYFA_ADLARI()[/B]
Sheets("Form").Range("CA:CA").ClearContents
For s = 1 To Sheets.Count
    If Sheets(s).Name <> "Form" Then
        satır = Sheets("Form").[CA65536].End(3).Row + 1
        If Sheets("Form").[CA1] = "" Then satır = 1
    Sheets("Form").Cells(satır, "CA") = Sheets(s).Name
    End If
Next
[B]End Sub[/B]
'------------------------------------------------------------------------------------------------------------------------------
[B]Sub SAYFALARA_FORMUL()[/B]
Set f = Sheets("Form")
For fsat = 1 To f.[C[B][COLOR="Red"]A[/COLOR][/B]65536].End(3).Row
    sut = fsat * 4 - 1
    Sheets(f.Cells(fsat, "CA").Value).[BT29:BT36].Formula = "=Form!" & Cells(1, sut).Address[COLOR="red"][B](0, 1)[/B][/COLOR]
    Sheets(f.Cells(fsat, "CA").Value).[CN29:CN36].Formula = "=Form!" & Cells(1, sut + 1).Address[COLOR="red"][B](0, 1)[/B][/COLOR]
    Sheets(f.Cells(fsat, "CA").Value).[DK29:DK36].Formula = "=Form!" & Cells(1, sut + 2).Address[COLOR="red"][B](0, 1)[/B][/COLOR]
Next
[B]End Sub[/B][/FONT]
 
Tekrar merhaba.

Son kod cevabımdaki kod'u güncelledim.
-- For.... satırında, [C65536].End(3).Row kısmı [CA65536].End(3).Row şeklinde değiştirildi,
-- alttaki üç satırın sonunda da .(0, 1) eklemesi yapıldı.
Son haliyle tekrar deneyiniz.
.
 
Ömer BARAN' Alıntı:
Tekrar merhaba.

Son kod cevabımdaki kod'u güncelledim.
-- For.... satırında, [C65536].End(3).Row kısmı [CA65536].End(3).Row şeklinde değiştirildi,
-- alttaki üç satırın sonunda da .(0, 1) eklemesi yapıldı.
Son haliyle tekrar deneyiniz.
.
Genişletmek için tıkla ...


Çözümünüz başarıya ulaşmıştır.
Teşekkürler sayın Ömer BARAN bey,

Elinize, emeğinize sağlık.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst