• DİKKAT

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

ilgili sayfalara dağıtım

  • Konbuyu başlatan Konbuyu başlatan gmm
  • Başlangıç tarihi Başlangıç tarihi
G

gmm

Katılım
7 Ekim 2005
Mesajlar
99
Arkadaşlar öncelikle herkese iyi bayramlar. Ekte data sayfasında yazılı olan bilgileri ilgili sayfalara dağıtan bir formül var fakat data sayfasındaki 100 satırına kadar alıyor ondan sonrakileri almıyor yapmaya çalıştım ama çözemedim yardımcı olursanız sevinirim. formülü değiştiriyorum hata veriyor.
 

Ekli dosyalar

Formllerde yer alan 99 ve 80'leri istediğiniz kadar, örneğin 1000 yapın.

.
 
sevgili yurttaş ilgine teşekkürler fakat bunu daha önce denemiştim olmadı tekrar denedim ve #SAYI hatası veriyor ekte yolladım acaba bir şeyi yanlış mı yapıyorum çözemedim bu işi
 

Ekli dosyalar

Selamlar,

Eğer çok satırlı verilerle çalışacaksanız bu şekilde formüllerle verileri listelemek bir süre sonra zorlaşacaktır. Dosya boyutunuz inanılmaz derecelerde yükselecektir. Benim size tavsiyem forumda daha önce verilmiş makrolarla sayfalara aktarım örneklerini kullanmanızdır. Bu şekilde inanılmaz hızlı raporlamalar hazırlayabilirsiniz. Tabiki tercih sizin.
 
yurttaş ilgine teşekkür ederim. diğer tavsiyeleriniz için örnek çalışma veya link verirseniz sevinirim. böylelikle çözüm seçeneklerimizi arttırmış ve dediğiniz gibi dosya boyutunu makul sevilerde tutabiliriz. sağolun
 
Selamlar,

Forumda sayfa+aktar şeklinde arama yaparsanız birçok örneğe ulaşabilirsiniz.
 
yurttaş teşekkür ederim. ayrıca ctrl+shift+enter yapmadığımdan dolayı formulüm hata veriyordu galiba. Ayrıca düzenlediğimiz çalışmayı makrolu hale getirmek istesek ne yapmamız lazım sütunda eklemek gerekebilir yardımcı olur musun?
 
sevgili yurttaş yardımcı olduğun çalışmayı makrolu olarakta yaparsan sevinirim ayrıca sütun sayısını arttırmak gerekirse ne yapmam gerektiğini yazarsan sevinirim. verdiğin örneklerden denedim fakat olmuyor
 
link için teşekkürler inceledim fakat bana uygun olanı bulamadım şöyle izahat edeyim bana esasen nasıl yapıldığı lazım ki daha sonraları ne yapmam gerekiyorsa ona göre işlemlerimi ekleyeyim. Yani makrolu yaptığımız çalışmada makroyu nasıl yaptınız ve sütun sayısı nasıl arttırılır?
 
Selamlar,

Sn. yurttas beyin size önerdiği linkteki #4 nolu mesajdaki dosyada gelişmiş filtre ve döngü yöntemi kullanılarak sayfalara aktarım yapılmıştır. Aktarım yapılırken sayfa adı kontrolü yapılmaktadır. Eğer ilgili sayfa varsa ilk olarak içeriği silinmektedir. Ve bilgiler yine gelimiş filtre yöntemi ile aktarılmaktadır. Eğer ilgili sayfa yoksa otomatik olarak eklenip bilgiler aktarılmaktadır. Bu işlem esnasında "L" ve "J" sütunları yardımcı sütun olarak kullanılmıştır. Eğer sizin kendi dosyanızda bu sütunlar dolu ise uygun boş sütunlar belirleyip kodda geçen "L" ve "J" sütunlarını buna göre düzeltmelisiniz.

Yine kod içinde kullanılan ALAN değşkeni için sayfa üzerinde ad tanımlaması yapılmıştır. Bu ad tanımlamasınıda kendi dosyanıza göre düzenlemelisiniz. Ulaşmak için EKLE-AD-TANIMLA menüsünü takip edin. VERİTABANI isimli adı tıklayın ve BAŞVURU ALANI bölümünü kendi dosyanıza göre güncelleyip EKLE butonuna tıklayın.

Bu aşamadan sonra size sadece kodu çalıştırmak kalıyor. Biraz irdelerseniz çözeceğinizi düşünüyorum.
 
gmm' Alıntı:
link için teşekkürler inceledim fakat bana uygun olanı bulamadım şöyle izahat edeyim bana esasen nasıl yapıldığı lazım ki daha sonraları ne yapmam gerekiyorsa ona göre işlemlerimi ekleyeyim. Yani makrolu yaptığımız çalışmada makroyu nasıl yaptınız ve sütun sayısı nasıl arttırılır?
Genişletmek için tıkla ...

Dosyanız makrolu olarak yapılmış şekilde ekte verilmiştir.

1. VERİTABANI alan tanımlamasında yer alan formülü (=VERİ!$A$1:$E$1000) daha geniş bir alanı kapsaması için gerekirse satır ve sütun yönünden genişletmeniz gerekir. (Bu Insert/Name/Define - Ekle/Ad/Tanımla'dan yapılacak.)

2. J ve L sütunlarını eklenen verilerle işgal edilmeleri durumunda Kod sayfasındaki kodlarda yer alan bu J ve L sütunlarını ötelememiz gerekir. Örneğin bunları X ve Z yapabiliriz. Veya daha da öteleyebiliriz. Eğer X ve Z yaparsak kodda J ve L geçen yerlere bu kez X ve Z koymamız gerekecek. (Kod sayfasına ulaşmak için ALT+F11 tuşlarına aynı anda basılarak ulaşıldığını biliyoruz.)

3. J ve L sütunlarını eklenen verilerle işgal edilmeleri durumunda, Cretira alanı olarak tanımlanan L1:L2 değişeceğinden; kodda yer alan L1:L2'lerde ona göre uyarlanması gerekir.



.
 

Ekli dosyalar

kusura bakmayın ama bende anlayış kıtlığı var galiba sütun arttıramadım
 
gmm' Alıntı:
arkadaşlar ben bu olayın mantığını kavrayamadım bana detaylı anlatabilirmisiniz veya örnekle gösterin lütfen
Genişletmek için tıkla ...

Kodları okumasını bilmeniz gerekir ki; ona göre değişiklik ve uyarlama yapmanız mümkün olur. Ben buradaki kodları tek tek anlatmaya kalkışsam size bir kitap oluşturacak bilgiyi yazmam gerekir. Bunu bizden istemezsiniz herhalde...

1. Kodda uyarlanan yerler kırmızı olarak gösterilmiştir.

Kod: 
Sub DAGIT()
Dim s1 As Worksheet
Dim sY As Worksheet
Dim ALAN As Range
Dim r As Integer
Dim c As Range
Set s1 = Sheets("VERİ")
Set ALAN = Range("VERİTABANI")


s1.Columns("d:d").Copy _
  Destination:=Range("[COLOR="Red"]t1[/COLOR]")
s1.Columns("[COLOR="red"]t:t[/COLOR]").AdvancedFilter _
  Action:=xlFilterCopy, _
  CopyToRange:=Range("[COLOR="Red"]o1[/COLOR]"), Unique:=True
r = Cells(Rows.Count, "[COLOR="red"]o[/COLOR]").End(xlUp).Row


Range("[COLOR="red"]t1[/COLOR]").Value = Range("d1").Value

For Each c In Range("[COLOR="red"]o2:o[/COLOR]" & r)
  
  s1.Range("[COLOR="red"]t2[/COLOR]").Value = c.Value
  
  If SAYFA(c.Value) Then
    Sheets(c.Value).Cells.Clear
    ALAN.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("VERİ").Range("[COLOR="red"]t1:t2[/COLOR]"), _
        CopyToRange:=Sheets(c.Value).Range("A1"), _
        Unique:=False
  Else
    Set sY = Sheets.Add
    sY.Move After:=Worksheets(Worksheets.Count)
    sY.Name = c.Value
    ALAN.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("VERİ").Range("[COLOR="red"]t1:t2[/COLOR]"), _
        CopyToRange:=sY.Range("A1"), _
        Unique:=False
  End If
Next
s1.Select
s1.Columns("[COLOR="red"]o:t[/COLOR]").Delete
End Sub

2. VERİTABANI ad tanımlaması =VERİ!$A$1:$K$1000 olarak ayarlanmıştır.

Dosyanız ekte.

.
 

Ekli dosyalar

tekrar tekrar teşekkürler fakat
VERİTABANI ad tanımlaması =VERİ!$A$1:$K$1000

nasıl ayarlanıyor veya nereye işleniyor acaba
 
yurttas' Alıntı:
Dosyanız makrolu olarak yapılmış şekilde ekte verilmiştir.

1. VERİTABANI alan tanımlamasında yer alan formülü (=VERİ!$A$1:$E$1000) daha geniş bir alanı kapsaması için gerekirse satır ve sütun yönünden genişletmeniz gerekir. (Bu Insert/Name/Define - Ekle/Ad/Tanımla'dan yapılacak.)



.
Genişletmek için tıkla ...

gmm' Alıntı:
tekrar tekrar teşekkürler fakat
VERİTABANI ad tanımlaması =VERİ!$A$1:$K$1000

nasıl ayarlanıyor veya nereye işleniyor acaba
Genişletmek için tıkla ...

.

Yukarıda açıkladım. Yazdıklarımı dikkatlice okumuyorsunuz herhalde.

.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst