toplu tebligat hazırlama ve çıktı alma

[ozcanya]

arkadaşlar yapmak istediğim eklediğim listedeki isim listesindeki bilgileri diğer sayfaya aktararak çıktı alabilmek hatta çıktı işlemini listedeki kişi sayısı kadar alabilmek ilgilenirseniz çok sevinirim bütün excel dostlarıma saygılar

 

[ozcanya]

çok rıca ediyorum konuya bir baksanıız

 

[mustafa1205]

Bir sayfada iki kişi mi olacak yoksa tek kişi tek sayfada iki nüsha mı ?

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir module yapıştırarak dener misiniz?

Sub TebligatYazdır()
Set s1 = Sheets("isim listesi")
Set s2 = Sheets("MANUEL TEBLİGAT")
For i = 2 To s1.Range("B" & Rows.Count).End(3).Row
X = 0
    For K = 1 To 2
        s2.Cells(X + 2, 3).Value = s1.Cells(i, 2).Value
        s2.Cells(X + 3, 3).Value = s1.Cells(i, 3).Value
        s2.Cells(X + 4, 3).Value = s1.Cells(i, 4).Value
        s2.Cells(X + 5, 3).Value = s1.Cells(i, 5).Value
        s2.Cells(X + 8, 3).Value = s1.Cells(i, 9).Value
        s2.Cells(X + 9, 3).Value = s1.Cells(i, 10).Value
        s2.Cells(X + 10, 3).Value = s1.Cells(i, 11).Value
        s2.Cells(X + 11, 3).Value = s1.Cells(i, 12).Value
        s2.Cells(X + 12, 3).Value = s1.Cells(i, 13).Value
        s2.Cells(X + 13, 3).Value = s1.Cells(i, 14).Value
        s2.Cells(X + 14, 3).Value = s1.Cells(i, 15).Value
        X = 26
    Next K
    s2.PrintOut Copies:=1
Next i
MsgBox "Tebligat Yazdırma İşlemi Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[mustafa1205]

Ekteki örneği inceleyin.

 

[ozcanya]

isim girerek nasıl yapılır

Ekteki örneği inceleyin.

hocam ilginize teşekkür ederim tc yerine isim girerek yapsak nasıl olur

 

[ozcanya]

hocam yapmak istediğim veri sayfasından bilgiler girildikten sonra kaç kişi varsa görev alan o kadar çıktı alabilmek

 

[dEdE]

hocam yapmak istediğim veri sayfasından bilgiler girildikten sonra kaç kişi varsa görev alan o kadar çıktı alabilmek

Merhaba,
Makro kodunu kullanmayı düşünmediniz herhalde?

 

[ozcanya]

hocam denedim ama olmadı veya ben beceremedim

 

[ozcanya]

korhan hocam yardım lütfen

 

[mustafa1205]

Merhaba,

Ekteki örneği inceleyin.

 

[ozcanya]

sayın mustafa bey ilgi alakanıza çok teşekkür ederim. yapmak istediğim bu idi. ama kişi sayısı 500 lere vurduğunda çıktı almak çok zaman alıyor ve yorucu oluyor. toplu olarak çıktı alabilme nasıl olur tabiği bilgiler aktarıldıktan sonra ben onu düşüyorum.bu konuda bana yardım edermisiniz

 

[mustafa1205]

Tabiki yapılabilir. Bir bakayım acizane birşeyler yapmaya çalışacağım.

 

[ozcanya]

aslında böyle bir şey istemek bana beleş bir şey istemek gibi geliyor lakın hocam lazım ben uğraştım ama yapamadım daha öncede excel web tr çok güzel şeyler yaptım bu samimiyete güvenerek tekrar bir şeyler istedim. sitenin çok uzun zamandır üyesiyim

 

[mustafa1205]

Özcan bey ekteki örneği inceleyiniz. İsim listesi adlı sayfadaki formatı değiştirmeyiniz. 10 lu gruplar halinde toplu çıktı alabilirsiniz. Şöyle yapacaksınız sol taraftaki satırdan çıktısını almak istediğiniz en fazla 10 kişiyi satırdan seçerek (burası önemli) butona basın ve size çıktı sayfası gelecektir. Tebliğ tarihi olarak içinde bulunduğunuz günü otomatik olarak verecektir.Ayrıca işlem bitince seçtiğiniz satırları belirgin olması amacıyla otomatik olarak sarıya boyayacaktır.Bu arada örneği inceleyen hocalarım olursa kusuruma bakmasınlar. Amatörce oldu ama ancak bu kadar yapabildim. Takıldığınız yer olursa sorarsınız. Umarım işinizi görür.

 

[ozcanya]

üstat bu on kişi yerine mesela 100 veya 200 kişi olmadı

 

[mustafa1205]

Siz onar onar çıktılarını alın. Birşey değişir mi ?

 

[ozcanya]

çıktı sayısı genelde 500 kadar uzanacak üstat birde ön izleme yapıldığında geri alınmıyor?

 

[ozcanya]

aktarmalar olmuyor ve ön izlemeden geri alınamıyor

 

[mustafa1205]

Aktarmalar olmuyor dediğinizden kastınız nedir.Ben de sorun yok. Dediğim gibi yaptınımız mı yani satırı komple seçeceksiniz. Birde ön izlemede iken kapat butonuna basınca sorun olmadan ana sayfaya geçiyor.Siz office 2007 mi kullanıyorsunuz ? Yukarıdaki açıklamada da anlatmaya çalışayım çıktı alırken her seferinde satırdan almak istediğiniz kişileri seçmek durumundasınız. Seçmeden çıktı al butonuna basarsanız bilgiler çıkmayacaktır.