ilgili sayfalara dağıtım

[gmm]

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.

 

[Merhum İdris SERDAR]

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

.

 

[gmm]

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

 

[gmm]

yardım edecek yok mu arkadaşlar

 

[Merhum İdris SERDAR]

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

.

Dosyanız ekte.


.

 

[Korhan Ayhan]

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.

 

[gmm]

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

 

[Korhan Ayhan]

Selamlar,

Forumda sayfa+aktar şeklinde arama yaparsanız birçok örneğe ulaşabilirsiniz.

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=20271&highlight=verilerin+ilgili+sayfalar%FDna+form%FClle+da%F0%FDt%FDlmas%FD

Buraya bakın.

.

 

[gmm]

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?

 

[gmm]

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

 

[Merhum İdris SERDAR]

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

http://www.excel.web.tr/showthread.php?t=20271&highlight=verilerin+ilgili+sayfalar%FDna+form%FClle+da%F0%FDt%FDlmas%FD

Yukarıda da bu linki verdim. Oradaki örnekleri incelediniz mi? Tekrar veriyorum. Orada makrolu çözümler de var.


.

 

[gmm]

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?

 

[Korhan Ayhan]

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.

 

[Merhum İdris SERDAR]

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?

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.



.

 

[gmm]

kusura bakmayın ama bende anlayış kıtlığı var galiba sütun arttıramadım

 

[gmm]

arkadaşlar ben bu olayın mantığını kavrayamadım bana detaylı anlatabilirmisiniz veya örnekle gösterin lütfen

 

[Merhum İdris SERDAR]

arkadaşlar ben bu olayın mantığını kavrayamadım bana detaylı anlatabilirmisiniz veya örnekle gösterin lütfen

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.

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.

.

 

[gmm]

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

 

[Merhum İdris SERDAR]

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.)



.

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

.

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

.