Excel hakkında yardım

[scaymaz1]

Merhaba arkadaşlar hoca bir ödev verdi 3 gündür yapamadım bütün sınıfa aynı ödevi verdi ankcak ödev deyip geçmiyelim finalin yarını kapsıyor resimler aşşağıda;


Şimdi hocanın burada istediği 1.resimdeki butona basıldığında ekrana bir inputbox gelicek oraya sicil numarası girilip tamam dendiğinde 2. resimdeki saat tarih kısmına sırasıyla derskodu,ders adı(3.sayfadan alınacak) sınıfı ve sınıfın bölümü(bilgisayar,elektrik vs.)

Lütfen Acil yardım edin..

 

[scaymaz1]

burda kimse yaradım edemiyecekmi bana

 

[Hüseyin]

Merhaba,
yeni olduğunuz için bilgi vermek istedim.
Forumun genel amacı sorulara yanıt vermektir.
Ancak sizin mesajınızda hocanın ne istediğini genel anlatan metin var ancak somut bir soru yok.

"Hocanın verdiği ödevi bana yapar mısınız?" demek istemişsiniz. Sanıyorum bunu kimse yapmaz.

Ancak derseniz ki;
"Projeye ben başladım, şuraya kadar getirdim...."
Örneğin: "Butona basınca şunun çıkmasını beklerken bu çıkıyor. Bu hata nereden kaynaklanıyor olabilir?" gibi bir şey yazsanız...
Bu bir sorudur ve vakti olan arkadaşlar yanıt yazabilirler.

Ödev süreniz açısından zamanınız az olduğundan boşuna beklemeyin diye bilgi vermek istedim.

 

[scaymaz1]

hocam peki şöyle sorayım bende benim takıldığım konu bu inputboxa girdiğimiz değeri sayfa içinde arayıp satır numarsının 1 eksiği ve 1 fazlasını 2 sayfaya nasıl aktarıcam

 

[headspring]

Bulduğum bu kod işini görecektir ama çalışma sayfasına uyarlanması gerekiyor


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$6" Then Exit Sub
Sheets("Sayfa1").CommandButton1.Enabled = False
If Target <> "" Then Sheets("Sayfa1").CommandButton1.Enabled = True
End Sub
Private Sub CommandButton1_Click()
[b10:ae500].ClearContents
For s = 1 To 100
satsay = Sheets("" & s).Cells(53, 4).End(xlUp).Row
For ara = 1 To satsay
If Sheets("" & s).Cells(ara, 33).Value = Sheets("Sayfa1").[f6] Then
c = c + 1
Cells(c + 9, 4) = Sheets("" & s).Cells(ara, 2).Value
Cells(c + 9, 3) = Sheets("" & s).Cells(ara, 34).Value
Cells(c + 9, 2) = Sheets("" & s).Cells(ara, 31).Value
For sut = 5 To 34
Cells(c + 9, sut - 1) = Sheets("" & s).Cells(ara, sut).Value
Sheets("Sayfa1").[b10].Select
Next
End If
Next
Next
End Sub