+ süz

[mutluedenercan]

http://s5.dosya.tc/server/wokzzR/t_.yaz10.rar.html

Hocam Duadan başka ne gelir elimden deyin...sayenizde kod öğreniyoz...siz nasıl öğrendiniz ?

son halini paylaştım...bende bişiler yaptım: ( bi hata varmı bi bakın)
Öğrenciniz iyimi bi not verin.....

Yaptığım : A6 hücresine programın çeşitli aşamalarında bilgi yazması.
Flaslarkende dikkat flaslıyo

Yapamadığım: öğretmen seçilince sayaf1 de kaç satır listelendi A6 ya yazması

sayfa1 de harhangi bi hücre seçilince A6 ya yazması (bigi girişi algılandı gibi)

HAKKINIZI HELAL EDİN

hocam son ekladiğimiz düğme çakışma bulan, sıralamayı anladımda nasıl adresle öğretmeni karşılaştırıyo kavrıyamadım
X = WorksheetFunction.CountIf(Range("h9:h" & Say), Cells(a, "H").Value)
If X > 1 Then bu kodmu karşılaştırıyo

 

[PLİNT]

1. son halini paylaştım...bende bişiler yaptım: ( bi hata varmı bi bakın)
2. öğretmen seçilince sayaf1 de kaç satır listelendi A6 ya yazması

3. sayfa1 de harhangi bi hücre seçilince A6 ya yazması (bigi girişi algılandı gibi)

4. sıralamayı anladımda nasıl adresle öğretmeni karşılaştırıyo kavrıyamadım
X = WorksheetFunction.CountIf(Range("h9:h" & Say), Cells(a, "H").Value)
If X > 1 Then bu kodmu karşılaştırıyo

Merhaba
1.Kodların hoşgürüsü olmaz,hata ve eksikliği; kullandıkça ortaya çıkan sonuçları dikkatli inceleyerek siz bulabilirsiniz.
2.

 Public Sub CommandButton1_Click()
'.............
'..........
If Trim(Cells(z, 12).Value) <> Trim([G5].Value) Then Cells(z, 12).EntireRow.Hidden = True
If ComboBox1.Value = "ÖĞRETMEN ATANMAMIŞ" And Trim(Cells(z, 12).Value) = "" Then
Cells(z, 12).EntireRow.Hidden = False
s = s + 1
End If
If Cells(z, 12) = [G5] Then
[COLOR="Red"]s = s + 1[/COLOR]
sat = S2.Range("C65520").End(xlUp).Row + 1
S2.Cells(sat, 1) = sat - 5
'..............
'.............
[COLOR="Red"]If s <> 0 Then Sayfa1.[A6] = s & " TANE VERİLERİ BULUNDU 3 SAYFADA LİSTELENDİ..."[/COLOR]
If ComboBox1.Value = "ÖĞRETMEN ATANMAMIŞ" Then MsgBox "ÖĞRETMENİ ATANMAMIŞ ÖĞRENCİ : " & 0 + s
  End Sub

3.

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR="Red"][A6] = "(bilgi girişi algılandı gibi)"[/COLOR]
If Intersect(Target, Range("D9:D1000")) Is Nothing Then Exit Sub
'...
'.. End sub

4. http://www.upturkey.com/download.php?file=926AÇIKLAMA.txt

Ayrıca
"Sayfa2" ye öğrenci isimleri aktarılırken ad soyad arasına "-" gereksiz gibi
"CommandButton1_Click()" altında

 S2.Cells(sat, 1) = sat - 5
S2.Cells(sat, 2) = S1.Cells(z, 3) & " - " & S1.Cells(z, 2)
  'S2.Cells(sat, 3) = S1.Cells(z, 4) & " - " & S1.Cells(z, 5)
[COLOR="Red"]S2.Cells(sat, 3) = S1.Cells(z, 4) & " " & S1.Cells(z, 5)[/COLOR]
S2.Cells(sat, 4) = S1.Cells(z, 7) & " - " & S1.Cells(z, 8) & " - " & S1.Cells(z, 12)