makro ile sayfalara aktarım

[KuTuKa]

Merhabalar

Bir çalışmayı sayfalara aktarmam gerekiyor veri sayfası 5000 satırdan oluşmaktadır.


1-C sütununda yer alan her ücret türü için bir sayfaya aktaracak 6510 i.in bir sayfa 6500 i.in bir sayfa 6555 için bir sayfa 6550 için bir sayfa olmalı

2-Açılan Ücret türü sayfasında sıralama personel numarasına göre olmalıdır.Excelin içinde örnek gönderdim.

şimdiden yardımlarınız için teşekkürler
Kutuka

 

[muygun]

Şablon ile sayfa oluştur-sil

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[Tanemesin0911]

Merhaba;
Eki deneyin.
İyi çalışmalar.

muygun yaptığınız işlem tamda benim istediğim gibi rica etsem ekteki raporuma da uygularmısınız...sayfalama kriterim nakliyeci adı b sütunu...

yardımcı olursanız minnettar kalırım

 

[Tanemesin0911]

muygun bey sayfaları oluştur butonunu son sütundan sonra 5 stun yer bırakarak yerleştirirmisiniz rica etsem.

 

[hamitcan]

Daha basit bir örnek paylaşıyorum.

Sub Aktar()
    For i = 3 To 12
    k = Sheets(CStr(Cells(i, 3))).[a65536].End(3).Row + 1
        Sheets(CStr(Cells(i, 3))).Rows(k) = Rows(i).Value
        Sheets(CStr(Cells(i, 3))).Range("a2:m100").Sort key1:=Sheets(CStr(Cells(i, 3))).[a2]
    Next
End Sub

 

[Tanemesin0911]

Daha basit bir örnek paylaşıyorum.

Sub Aktar()
    For i = 3 To 12
    k = Sheets(CStr(Cells(i, 3))).[a65536].End(3).Row + 1
        Sheets(CStr(Cells(i, 3))).Rows(k) = Rows(i).Value
        Sheets(CStr(Cells(i, 3))).Range("a2:m100").Sort key1:=Sheets(CStr(Cells(i, 3))).[a2]
    Next
End Sub

hamitca bey makro uygulama konusunda tecrübesizim rica etsem ekteki dosyama uygulama yapabilirmisiniz

 

[Tanemesin0911]

bi konuda daha yardıma ihtiyacım var ekteki veri listemde koşullara uygun olarak doğru yanlış olarak doğrulama sütunu açmak istiyorum...
koşul ;
listede yer alan plakaların ,veri listesi sayfasındaki plakalar ile eşleşiyorsa stok adı da yine veri listesi sayfasındaki stok kodlarıyla eşlesmesi durumunda doğru , stok listesinin dışında bir veri olur ise yanlış algılayacak....

aynı koşul; plaka liste dışında bir plaka ise stok adının da liste dışında olması doğru,stok listesiyle eşleşir ise yanlış olarak kabul etmelidir....

konuyla ilgili yardımlarınızı rica ederim.

 

[KuTuKa]

Sayın muygun

tablo çok güzel olmuş personel adında bir sayfa ekleyip veri sayfasına düşeyara ile sicilleri geitriyorum.Sayfa sil deyince bu sayfada siliniyor.

bu şekilde sayfa kalırsa çok iyi olur.

 

[Tanemesin0911]

sayın muygun;kutukaya uyguladığınız çalışmanın aynısını ekteki dosyama uygulamak istiyorum...ben sizin örneğinize bakarak kodları yazdım ama yanlış işledi tarihlere göre sayfalandırdı...dosyamı kodlamaya hazır şekilde veri ve şablon sayfalarını sizin düzeninize uygun hale getirdim... çok rica ediyorummmmmmm...bana destek verebilirmisiniz...rapor fazlasıyla işimi kolaylaştıracak...

lütfennnnnn

 

[Tanemesin0911]

sayın muygun;kutukaya uyguladığınız çalışmanın aynısını ekteki dosyama uygulamak istiyorum...ben sizin örneğinize bakarak kodları yazdım ama yanlış işledi tarihlere göre sayfalandırdı...dosyamı kodlamaya hazır şekilde veri ve şablon sayfalarını sizin düzeninize uygun hale getirdim... çok rica ediyorummmmmmm...bana destek verebilirmisiniz...rapor fazlasıyla işimi kolaylaştıracak...

lütfennnnnn

 

[muygun]

Syn. Tanemesin0911;

Sayfaları hangi sütun verisine göre açacaksınız?

 

[Tanemesin0911]

b stunundaki nakliyeci adı ile sayın muygan

 

[muygun]

b stunundaki nakliyeci adı ile sayın muygan

Merhaba;
B sütununda Nakliyeci adı Kullandığım (Ofis 2003) Ofis versiyonu nedeniyle tam almıyor.
Bu nedenle farklı bir uygulama yaptım.
Ekli dosyada rapor sayfasında seçim yaparak istenilen nakliyeci verilerini alabilirsiniz.
Deneyin.
İyi çalışmalar.

 

[muygun]

Sayın muygun

tablo çok güzel olmuş personel adında bir sayfa ekleyip veri sayfasına düşeyara ile sicilleri geitriyorum.Sayfa sil deyince bu sayfada siliniyor.

bu şekilde sayfa kalırsa çok iyi olur.

Merhaba;
ALT+F11 tuşlarına birlikte basarak vba kod bölümüne geçin.
Sub sayfaları_sil() makrosunda;
If Worksheets(i).Name = "Veri" Then GoTo pass 'yazılan sayfa pas geçiliyor
satırının altına üstteki satırı kopyalayıp yapıştırın.
sonra "Veri" kısmına silinmesini istemediğiniz sayfa adını yazın
x kısmından vba bölümünü kapatın.
dosyayı kaydedin ve deneyin.
İyi çalışmalar.

 

[Tanemesin0911]

Sayın muygun emeğiniz için elinize sağlık çok teşekkür ederim...veri yoğunluğu olduğu için tek tek seçim yapıp bilgileri yenilemek çok uğraştırıcı olacak kutuka dosyasına uyguladığınız kodlama çok süper olmuş bende sizin dosyanızı referans alarak makroyu koplayayıp bir kaç veri ile oynadım...sizin dosyanızda c sutünuna göre kodlama olduğu için benim c sütunumda tarih var ve tarihe göre otomatik sayfaları oluşturdu...

Sizin ilk örneğinize uygun olarak bana bir çözüm bulur iseniz çok sevinirim...

Desteğinize şimdiden teşekkürler

 

[Tanemesin0911]

merhaba;
b sütununda nakliyeci adı kullandığım (ofis 2003) ofis versiyonu nedeniyle tam almıyor.
Bu nedenle farklı bir uygulama yaptım.
Ekli dosyada rapor sayfasında seçim yaparak istenilen nakliyeci verilerini alabilirsiniz.
Deneyin.
Iyi çalışmalar.

sayın muygun şöyle yapsak nasıl olur... Kodlamada c yerine baz almam gereken b sütunu için hangi yerde değişiklik yapmam gerekir...ayrıca sizin örneğiniz n sütununda bitiyordu benimki m de bitiyor,bu kapsamda nerelerde ne şekilde değişiklik yapmam lazım bunları bana boyayarak tarif etseniz ben ona göre office 2013te çalışıp düzenlemeye çalışsam

 

[Tanemesin0911]

Merhaba;
B sütununda Nakliyeci adı Kullandığım (Ofis 2003) Ofis versiyonu nedeniyle tam almıyor.
Bu nedenle farklı bir uygulama yaptım.
Ekli dosyada rapor sayfasında seçim yaparak istenilen nakliyeci verilerini alabilirsiniz.
Deneyin.
İyi çalışmalar.

sayın muygun;

sizin örneğinizi kendi dosyama uyarladım.sayfaları açtı ancak nakliyecileri bulup sayfalara getirmedi...sanırım ara bul getir kısmını ayarlayamadım...bi göz atabilirmisiniz?tavsiyelerinize ihtiyacım var...

şimdiden teşekkürler...

 

[walabi]

Merhaba,

Excel uygulamanızda bir çok sayfa var. Neden çok sayfalı bir kitap ile çalışmaktasınız. Şundan dolayı sormaktayım. Veri girişinin olduğu bir sayfa ve verilerin tasnif edildiği bir sayfa işinizi görmez mi. Çok fazla excel sayfası ile çalışmak yorucudur. excel uygulamanız daha basit , kullanışlı hale getirilebilir kanımca.

 

[muygun]

sayın muygun;

sizin örneğinizi kendi dosyama uyarladım.sayfaları açtı ancak nakliyecileri bulup sayfalara getirmedi...sanırım ara bul getir kısmını ayarlayamadım...bi göz atabilirmisiniz?tavsiyelerinize ihtiyacım var...

şimdiden teşekkürler...

Merhaba;
Eki test edin.
İyi çalışmalar.

 

[Tanemesin0911]

sayın muygun; dosyayı denedim TAM İSTEDİĞİM GİBİ OLMUŞ ELİNİZE SAĞLIK ÇOK TEŞEKKÜR EDERİM..