satırda bulma

[honestguy25]

arkdaşlar biraz baktım forumda bulamadım userfoumda checkbozdan bilgi kaydedecek fakat gireceği hucreyi textbox1 ve textbox2 deki bilgileri arayıp bularak girecek fakat textbox2 satır 1 numaralı satır yanı ıkı bılgının kesişim noktasına checkbox1 dekı veriyi girecek.. karışık oldu biraz ama yardımcı olabilecek biri varsa sevinirim hürmetler..

 

[Ayhan Ercan]

......karışık oldu biraz....

Biraz değil, epeyi karışık olmuş

Sorunuzu örnek dosya ile destekleyebilirmisiniz?

 

[honestguy25]

bende örnek dosya hazırlıyordm umarım orda ıyı anlatabılmışımdır. saygılar

 

[Skorpiyon]

Sayın honestguy25,

Ekli dosyayı inceleyiniz.

 

[honestguy25]

hocam süpersiniz şimdi baktım dosyaya teşekkurler ediyorum

 

[honestguy25]

Ben Kendi Dosyama Uygularkan Hata Veriyor Sanriim Sheet İsmİnİ Gİrerken YanliŞ YapmiŞ Olabilirim Sheet İsmİnİ Nereye Gİrmem Gerekecek Acaba?

 

[Skorpiyon]

Sayın honestguy25,

Kendi dosyanızdan (bir sakıncası yok ise) küçük bir örnek ekleyin. Üzerinde düzeltelim.

 

[honestguy25]

userforum 2 anamenuden sicil formuna giriyorsunuz şifreler (aha) devamsızlık bolumu öğrencının numarasını yazıyourm bula basıyorum sonra devamsızlık tarıhını gırıyorum kaydete basıyorum çalışmıyor ama aynı kodlar tek bır userforum varken çalışıyor anlamadım..

 

[Skorpiyon]

Sayın honestguy25,

Cevabınız biraz gecikecek. Boya badana işleri halen devam ediyor.
En geç bu gece halletmeye çalışırım. (Tabi önce davranan çıkmaz ise)

 

[honestguy25]

teşekkur ederım bende yarın bakarım inşallah kolay gelsın size boya işlerinizde

 

[Skorpiyon]

Sayın honestguy25,

10 dakikalık bir ara vermiştim. Kodunuzdaki hatayı buldum. Devamsızlık sayfasında B sütunundaki verileri Sicil sayfasından formülle almışsınız. Aslında hücrede öğrenci numaraları görünmesine rağmen hücre ;
=Sicil!B2 gibi formüller içeriyor.

Şimdi kaydet butonunuzun kodlarını aşağıdakiler ile değiştirin. İlk kodlarınız ile şu anda verdiğim kodlar arasındaki farkı inceleyin. Ben kodların küçük bir açıklamasını da ekliyorum.

Private Sub CommandButton9_Click()
On Error GoTo hata
Application.ScreenUpdating = False 'Sayfalar arası geçiş engelleniyor
Sheets("SİCİL").Select 'Asıl numaraların bulunduğu sicil sayfası seçiliyor
Range("B:B").Select 'B sütunu komple tutuluyor
Selection.Find(What:=TextBox29, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
, SearchFormat:=False).Activate 'Yazılan öğrenci no bulduruluyor
ActiveCell.Activate 'B sütununun komple tutulmasından kurtulmak için, bulunan satır tekrar aktif edilerek sadece hücre seçilmesi sağlanıyor
a = ActiveCell.Row + 1 'Buraya dikkat. Sicil sayfasındaki öğrenci numaralarının başladığı satır, devamsızlık sayfasından 1 satır yukarıda. O yüzden bulunan satırın değeri +1 olarak yazılıyor ve a değişkenine atanıyor.
Application.ScreenUpdating = True 'Sayfalar arası geçiş açılıyor
Sheets("DEVAMSIZLIK").Select
Rows(1).Select
Selection.Find(What:=CDate(TextBox34), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
, SearchFormat:=False).Activate
ActiveCell.Activate
b = ActiveCell.Column 'Devamsızlık sayfasında bulunan tarih b değişkenine atanıyor. Ve sorgulamalar yapılıyor. Yani 1. checkbox işaretliyse şunu değilse bunu gibi... vs...
If CheckBox8.Value = True And CheckBox9.Value = False And CheckBox10.Value = False Then
Cells(a, b) = "D"
ElseIf CheckBox8.Value = False And CheckBox9.Value = True And CheckBox10.Value = False Then
Cells(a, b) = "E"
ElseIf CheckBox8.Value = False And CheckBox10.Value = False And CheckBox9.Value = True Then
Cells(a, b) = "S"
ElseIf CheckBox8.Value = True And CheckBox10.Value = True And CheckBox9.Value = False Then
Cells(a, b) = "DE"
ElseIf CheckBox8.Value = True And CheckBox10.Value = False And CheckBox9.Value = True Then
Cells(a, b) = "DS"
ElseIf CheckBox8.Value = False And CheckBox9.Value = True And CheckBox10.Value = True Then
Cells(a, b) = "ES"
ElseIf CheckBox8.Value = True And CheckBox9.Value = True And CheckBox10.Value = True Then
Cells(a, b) = "DES"
ElseIf CheckBox8.Value = False And CheckBox9.Value = False And CheckBox10.Value = False Then
MsgBox "Lütfen bir kutucuk seçin"
Exit Sub
End If
GoTo 10
hata:
MsgBox "Girdiğiniz verileri kontrol ediniz"
10
Range("A1").Select
End Sub

 

[honestguy25]

çok teşekkur ederım sicil sayfasından devamsızlık sayfasına o şekılde veri aktarmam yanlış oılmuş sanırım altdaki kaydet tuşuna hem sicile hem devamsızlıga ekle komutu koymam daha akıllıca olacaktı. herşey ıçın teşekkurler. pekı devamsızlık olayını nasıl buldunuz=? kulagı tersten gostermek gıbı olmamış degıl mı

 

[Skorpiyon]

Sayın honestguy25,

Şahsen kodlarınızı pek inceleme fırsatı bulamadım (malum boya işleri ) Nasıl buldunuz derken, ne kastettiğinizi anlayamadım.