imza sirküsü

[erdenek]

arkadaşlar ekteki dosyadan imza sirküsü hazırlamam lazım.Yalnız burada tercih sayısı fazla olacak.örneğin bazen ilçeden yazı geliyor.Sınıf Öğretmenlerini ilgilendiriyor sadece onlara yazıyı imzalatmam gerekiyor bazen kadrolulara geliyor onlara imzalatmam lazım.Yani yazıyı kimi ilgilendiriyorsa onları seçme şansım olsun.userform veya başka şekilde de olabilir.

 

[systran]

-listenin olduğu sayfaya tablo başlıklarını seçerek Veri --> Filtre uygula (Sheet1 A6:g6 aralığı)
-bir tane düğme ekle ve içine aşağıdaki kodları yapıştır.
imza sirküsünü kime göndermek istiyorsan filtre yardımı ile seç ve düğmeye bas.

Private Sub CommandButton1_Click()
Dim rng As Range
ss = Sayfa1.Range("A300").End(3).Row


'sayfa1 7. satırdan başlar
Set rng = Sayfa1.Range("A7:A" & ss)


'imza sayfası 9.satırdan başlar
Sayfa2.Activate
Sayfa2.Range("A9:H1000").ClearContents


sayac = 9
For Each cl In rng.SpecialCells(xlCellTypeVisible)
    'sıra no 9 - 8
    Sayfa2.Range("A" & sayac).Value = sayac - 8
    Sayfa2.Range("B" & sayac).Value = Sayfa1.Range("F" & cl.Row).Value & " " & Sayfa1.Range("G" & cl.Row).Value
    
    sayac = sayac + 1
Next
Sayfa2.Columns("B").AutoFit
End Sub

 

[erdenek]

üstad denedim olmadı

 

[erdenek]

yok mu arkadaşlar buna bir çözüm.

 

[systran]

kodları sizin gönderdiğiniz dosyada deniyorum, gayet düzgün çalışıyor. hata veren yer varsa belirtiniz.

 

[Mahir64]

Merhaba,

Seçim nasıl yapılacak?

--

 

[erdenek]

makro çalışma kitabımnda olmayabilir şeklinde hata veriyor.

 

[erdenek]

Merhaba,

Seçim nasıl yapılacak?

--

üstadım userform şeklinde olursa daha güzel olur.seçim kriterleri farklı olacak.milli eğitimden gelen yazının içeriğine göre değişiyor.bazen sınıf öğretmenlerine bazen kadrolulara bazen türkçe öğretmenlerine.

 

[Mahir64]

... Sınıf öğretmeni veya Branş öğretmeni seçimini neye göre yapacaksınız.

Örneğin: Hizmetiçi eğitim yazısı geldi 2 sınıf, 5 branş ve 1 anasınıfı öğretmenini ilgilendiriyor.
Bu seçimi neye göre yapacaksınız.

Kod değilde formül ile çözüm daha kullanışlı olur. Mesela DÜŞEYARA() formülü.


--

 

[erdenek]

ilgili öğretmenleri ben seçerim üstad.userformda Branşı Görevi Kadro Durumu Tedrisat
seçenekeri olur.bende gelen yazının içeriğine göre Branşı Görevi Kadro Durumu Tedrisat
seçenklerinden hangisi gerekliyse o kısımdan seçim yaparım.

 

[erdenek]

arkadaşlar soruma daha çözüm bulunamadı.

 

[erdenek]

kodları sizin gönderdiğiniz dosyada deniyorum, gayet düzgün çalışıyor. hata veren yer varsa belirtiniz.

üstad kodları dosyaya ekleyip paylaşabilir misiniz?belki ben bir yerde hata yapmış olabilirim.

 

[ZorBey_]

Merhaba Sayın erdenek iyi çalışmalar.
Ekli dosyayı incelermisiniz.
Sayın systran kodları düzgün çalışıyor.

 

[erdenek]

Merhaba Sayın erdenek iyi çalışmalar.
Ekli dosyayı incelermisiniz.
Sayın systran kodları düzgün çalışıyor.

üstadım çok güzel olmuş ellerinize sağlık.üstad birde süzülenleri aktar dediğmiz imza sirküsü sayfasında diyelim ki 20 kişi aktarılacak bunun 10 tanesi birinci kısıma diğer 10 tanesi ikinci kısıma aktarılsın.