süz ve verileri al

[ckayaz]

B c d e f g h ı j k satırındaki verileri l sütunundaki kategoriye göre
bcdefg
bcdehı
bcdejk şeklinde yapmak istedim ama oluşturduğum makro çok uzun oldu ve yeni bilgi girdiğimde güncellenmiyor. Yardımcı olacak arkadaşlara teşekkür ederim

 

[ckayaz]

B c d e f g h ı j k satırındaki verileri l sütunundaki kategoriye göre
bcdefg
bcdehı
bcdejk şeklinde yapmak istedim ama oluşturduğum makro çok uzun oldu ve yeni bilgi girdiğimde güncellenmiyor. Yardımcı olacak arkadaşlara teşekkür ederim

Şuda olabilir önce b c d e f g h ı j k l olan verileri

bcdefg

bcdehı

bcdejk şeklinde L sütunundaki verilere göre yeni bir sayfa açarak içine kopyalanabilir

 

[usta07]

Ek dosyayı inceleyiniz anladığım kadarı ile bir çözüm üretmeye çalıştım. umarım işinizi görür.
İyi çalışmalar

 

[ckayaz]

usta07 ilginizden dolayı teşekkür ederim fakat isteklerimi karşılamadı

forumdaki ustalardan beklentim var bari aşağıdaki koda yardımcı olunda yavaş yavaş bizde öğrenelim kod yazmayı

belde sayfasında a1 den sonra sıra numarası versin, sayfa1 de sonradan ekleme olrsa belde sayfası yapılan eklemeleri görsün

Sub Makro4()

    ActiveSheet.Range("$A$4:$L$81").AutoFilter Field:=12, Criteria1:="BELDE"
    Range("B6:G53").Select
    Selection.Copy
    Sheets("BELDE").Select
    Range("B5").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=9
    Sheets("Sayfa1").Select
    Range("B6:E53,H6:I53").Select
    Range("H6").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("BELDE").Select
    Range("B17").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=9
    Sheets("Sayfa1").Select
    Range("B6:E53,J6:K53").Select
    Range("J6").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("BELDE").Select
    Range("B29").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-18
    Range("A5").Select
    Application.CutCopyMode = False

    Sheets("Sayfa1").Select
    ActiveSheet.Range("$A$4:$L$81").AutoFilter Field:=12
End Sub

 

[usta07]

Özet tablo çözüm de ilave ettim işinizi görürse kolay gelsin..

 

[ckayaz]

usta07 çok teşekkür ederim ama istediğim bu değil yinede yardımların için teşekkür ederim

 

[ckayaz]

Arkadaşlar herşey tamam fakat yapamadığım birkaç sorunum kaldı yeni konu açmak istemedim Aşağıda belirtmiş olduğum konularda yardım istiyorum

1-sayfa1 deki sıra numarası yerine her açılan sayfada Sayfa1 deki sıra numarası yerine 1 den başlayarak A sütununa sıra numarası vermesidir.
2-diğer bir konu sayfa1 deki sütun genişlikleri diğer açılan yeni sayfalardada aynı olmasıdır.
3-En önemli konu Aktar makrosuna bastığımda verileri ikinci bir defa daha yazdırmayıp Sayfa1 e eklenen isim varsa eklesin yoksa her makroyu çalıştırdığımda tekrar tekrar veriyi yeni açılan sayfalara yazdırmasın

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.

 

[ckayaz]

Sayın asr35 başlığım yanlış olduğu kanatine vardım. şimdi benim enson eklediğim dosyamda 3 er isim alacak ve yanlarına bilgileri ekleyecek

7.mesajda eklemiş olduğum dosyamda Sayfa1 ile hiç bir sorunum yok sıra numaraları orada mevcut Fakat L sütunundaki verilere göre sayfa açıldığında örnegin BELDE sayfası A sütununda 3 adet 1 var 3 adet 2 var burada 1 2 3 4 5 6 diye devam etmesi gerekiyor yani b sütununda kaç veri varsa sıra numarasıda okadar olmalı. Aynı şekilde diğer sayfalardada bu şekilde devam etmeli yine Belde sayfasında c ve d sütunlarının genişlemesi gerekiyor.

Belde Sayfasında 3 adet Ali akdemir var 4.sünü atmaması gerekiyor 3 adet Büşra Kargın var 4. olmamalı makroyı çalıştırdığımda 3 olan sayı 6 ya çıkıyor 3 te kalmasını istiyorum ben bu konuda yardım istiyorum. Sayfa1 e asr35 yazarsak l sütununda izmir yazıyorsa 3 tane asr35 yazmalı

1-235 01.01.2000 asr35 izmir araba 60000 ev 100000 yazlık 60000 izmir
2-312 01.01.2000 ckayaz ısparta bisiklet 550 araba10000 tekne2500 izmir
olması gereken
1-235 01.01.2000 asr35 izmir araba 60000
2-235 01.01.2000 asr35 izmir ev 100000
3-235 01.01.2000 asr35 izmir yazlık 60000
4-12 01.01.2000 ckayaz ısparta bisiklet 550
5-12 01.01.2000 ckayaz ısparta araba10000
6-12 01.01.2000 ckayaz ısparta tekne2500

makro çalışınca asr35 ve ckayazı bir daha atmayacak

 

[ckayaz]

bir yardım eli uzatan yok

 

[ckayaz]

birilerinin yardımcı olacağı umudu halen var