B sütununda bilgi varsa C sütununa A sütununu yaz

[ayhanhoca]

iyi günler
A1---sıra no
B1---öğrenci okul no
C1---öğrenci adı soyadı
D1---Mevcut mu


E1---1.ders
F1---2.ders
G1---3.ders

şeklinde bir dosyam var. Yoklamayı D sütununa gelenlere + gelmeyenlere - işareti koyarak alıyorum. Adres-mektup birleştirme yoluyla bu excel dosyasını alıcı kaynağı olarak belirtip bilgileri word belgesine gönderiyorum.
Word'de bize gönderilen yoklama kağıdı milimetrik şablonu hazırladım. uygun yerlere ders_adı, Ders_öğretmeni vb şekilde uygun değerler otomatik yazılıyor sorun yok.

Ancak sorun şu ki yoklama kağıdına gelmeyenleri manuel yazmak zorunda kalıyorum.
istediğim şu:
1.dersin yoklama satırı olan E sütununda gelmeyen öğrenciler yani önünde - olan öğrencilerin numaraları altalta gelsin. böylece wordde yazdır dediğimde öğretmen ismi, ders ismi gibi bilgiler dışında o dersin gelmeyen öğrencilerinin okul numaraları altalta yazılmış olur...

Bunu nasıl başarabileceğimi bilemedim.
yardımcı olursanız sevinirim.
NOT: Altın üyeliğim olmadığı için herhangi bir dosyayı indiremiyorum.

 

[numan şamil]

Makro ile olur dersen
Aşağıdaki kodları dener misiniz

Sub numan()
Dim x As Long
Application.ScreenUpdating = False
Range("E2:E" & Rows.Count).ClearContents
Satır = 2
For x = 2 To Range("D" & Rows.Count).End(3).Row
If Range("D" & x).Value <> "" And Mid(Range("D" & x), 1, 1) = "-" Then
Range("E" & Satır).Value = Range("D" & x).Value
Satır = Satır + 1
End If
Next x
Application.ScreenUpdating = True
End Sub

 

[ayhanhoca]

cevap için evvela teşekkürler...
formül olayı olursa nasıl olur acaba

 

[çıtır]

Yoklama D sütununda numara önlerine +,- konularak yapılıyor ise
- olanları sıralı E sütuna yazar.
E sütununa yaz; aşağı çek
Dizi formülü ctrl+shift + Enterle

=EĞERHATA(İNDİS(D$1:D$100;KÜÇÜK(EĞER(SOLDAN(D$1:D$100;1)="-";SATIR(D$1:D$100));SATIR(A1));SÜTUN(A1))*-1;"")

 

[klop01]

Ayhan Hoca'm,
Dosyanız istenilenleri yapınca paylaşır mısınız?