Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 22-01-2017, 12:18   #1
muhasebeciyiz
 
Giriş: 10/02/2006
Mesaj: 154
Varsayılan bağ yapıştır yardımı talebimdir

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
Eklenmiş Dosyalar
Dosya Türü: xlsx bağ yapıştır yardımı ilave.xlsx (491.5 KB, 5 Görüntülenme)

Bu mesaj en son " 23-01-2017 " tarihinde saat 08:18 itibariyle muhasebeciyiz tarafından düzenlenmiştir....
muhasebeciyiz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-01-2017, 12:41   #2
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,226
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

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.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-01-2017, 13:09   #3
emr123
Altın Üye
 
Giriş: 01/11/2012
Şehir: Bursa
Mesaj: 144
Excel Vers. ve Dili:
OFFICE 2013 TÜRKÇE
Varsayılan

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
emr123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-01-2017, 15:35   #4
muhasebeciyiz
 
Giriş: 10/02/2006
Mesaj: 154
Varsayılan

liste güncel arkadaşlar
muhasebeciyiz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-01-2017, 18:39   #5
emr123
Altın Üye
 
Giriş: 01/11/2012
Şehir: Bursa
Mesaj: 144
Excel Vers. ve Dili:
OFFICE 2013 TÜRKÇE
Varsayılan

Vermis oldugum kod isinizi gormedi mi acaba
emr123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-02-2017, 17:24   #6
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,226
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

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.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-02-2017, 17:40   #7
muhasebeciyiz
 
Giriş: 10/02/2006
Mesaj: 154
Varsayılan

Alıntı:
Ömer BARAN tarafından gönderildi Mesajı Görüntüle
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.
.
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
muhasebeciyiz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-02-2017, 17:46   #8
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,226
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Ö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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SAYFALARA_FORMUL()
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
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-02-2017, 18:38   #9
muhasebeciyiz
 
Giriş: 10/02/2006
Mesaj: 154
Varsayılan

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.
muhasebeciyiz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-02-2017, 01:31   #10
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,226
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SAYFA_ADLARI()
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
End Sub
'------------------------------------------------------------------------------------------------------------------------------
Sub SAYFALARA_FORMUL()
Set f = Sheets("Form")
For fsat = 1 To f.[CA65536].End(3).Row
    sut = fsat * 4 - 1
    Sheets(f.Cells(fsat, "CA").Value).[BT29:BT36].Formula = "=Form!" & Cells(1, sut).Address(0, 1)
    Sheets(f.Cells(fsat, "CA").Value).[CN29:CN36].Formula = "=Form!" & Cells(1, sut + 1).Address(0, 1)
    Sheets(f.Cells(fsat, "CA").Value).[DK29:DK36].Formula = "=Form!" & Cells(1, sut + 2).Address(0, 1)
Next
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 02:21


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden