AŞaĞidakİ Kodun Ne Demek İstedİĞİnİ Anlatabİlİrmİsİnİz.

ferhatgurbuz · 14 Eylül 2007

Private Sub CommandButton2_Click()
For X = 1 To 67
Controls("TextBox" & X) = ""
Next
TextBox65.SetFocus
End Sub

Recep İpek · 14 Eylül 2007

Private Sub CommandButton2_Click()
For X = 1 To 67 'Döngü ile 1-67 arasındaki
Controls("TextBox" & X) = "" 'Texbox'ların değerleri siliniyor.
Next
TextBox65.SetFocus 'İmleç TextBox65 konumlandırılıyor.
End Sub

Yani userformdaki bilgiler yeni giriş için siliniyor.

ferhatgurbuz · 14 Eylül 2007

Ben şöyle birşey yaptım. Daha önce 1 den başlayıp 46 ya kadar sıralı devam eden textboxlar vardı. ben onların numaralarını tekrar değiştirdim ve aralarda boşluk bıraktım yani 1 den 15 , 30 dan 46 ve 50 den 67ye kadar böyle sıraladım.

bunun bir sakıncası olurmu. Yani hata verme sebebi olabilir mi

Recep İpek · 14 Eylül 2007

Problem yaratabilir.Bulamadığı Textbox olursa hata verecektir.

Eğer sadece bu textboxların içeriliğini silmek istiyorsanız ayrı ayrı bu kodu yazabilirsiniz.

Private Sub CommandButton2_Click()
For X = 1 To 15
Controls("TextBox" & X) = ""
Next

For X = 30 To 46
Controls("TextBox" & X) = ""
Next

For X = 50 To 67
Controls("TextBox" & X) = ""
Next

TextBox65.SetFocus
End Sub

ferhatgurbuz · 14 Eylül 2007

teşekkür ederim.

ferhatgurbuz · 14 Eylül 2007

Sayın Ripek rahatsız ediyorum ama kusura bakmayın
Şimdi ben yukarıda bahsettiğim kodları toplamak istiyorum.
yani 30 ile 46 arasını 50 ile 67 arasını

aşağıdaki kodda toplama formülü var ama textbox numaraları değiştiği için bunlar da hata verdi sanırım.

Private Sub UserForm_Initialize()
ReDim Preserve Txt(45)
For X = 15 To 41
Set Txt(X).Txt = Controls("TextBox" & X)
Next
TextBox44 = " "
End Sub

Recep İpek · 14 Eylül 2007

Aşağıdaki kodları kendinize göre uyarlayınız.

Kod:

Private Sub CommandButton1_Click()
Dim topla As Long

For X = 1 To 5 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla = topla + Controls("TextBox" & X) * 1
End If
Next

For X = 20 To 30 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla = topla + Controls("TextBox" & X) * 1
End If
Next

TextBox46 = topla
End Sub

ferhatgurbuz · 14 Eylül 2007

Sayin Rİpek Bu Kod Sanirsam Bİr Butona BaĞli
SÖyle Olsa Olmaz Mi Userform AÇildĞinda Bİlgİler Ekrana Gelİyor. Ve Gelen Bİlgİler KendİlİĞİnden Toplansa Bu MÜmkÜn DeĞİlmİdİr.

Recep İpek · 14 Eylül 2007

Kodları userformun açılış olayına kopyalamanız yeterlidir.

Private Sub UserForm_Initialize()
Dim topla As Long

For X = 1 To 5 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla = topla + Controls("TextBox" & X) * 1
End If
Next

For X = 20 To 30 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla = topla + Controls("TextBox" & X) * 1
End If
Next

TextBox46 = topla
[/code]

ferhatgurbuz · 14 Eylül 2007

Private Sub UserForm_Initialize()
Dim topla As Long

For X = 30 To 46 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla = topla + Controls("TextBox" & X) * 1
End If
Next

For X = 50 To 62 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla = topla + Controls("TextBox" & X) * 1
End If
Next

TextBox67 = topla
[/code]

ANLAYAMADIĞIM KONU AÇILIŞ OLAYI DERKEN NEYİ KASTETİĞİNİZ. BİRDE BEN 30 İLE 46 YI 67 DE TOPLUYORUM. PEKİ 50 İLE 62 Yİ 68 DE TOPLAMAK İÇİN NE YAPMALIYIM.

BİRDE AÇIK SÖYLÜYORUM. ben şuan rahatsız olmaya başladım. Sizleri meşgul ettiğim için. yani işiniz varsa size engel olmak istemem

Recep İpek · 14 Eylül 2007

UserForm_Initialize() userformun açılışı olayıdır.Yani bu bölüme ne kod yazarsanız userform açılırken bu kodlar işleme alınır.
Burada userform açılırken toplama işlemi yapılmaktadır.

Diğer konuyu ise aşağıdaki şekilde yapabilirsiniz.

Kod:

Private Sub UserForm_Initialize()
Dim topla1,topla2 As Long

For X = 30 To 46 'Buray&#305; Textbox say&#305;s&#305;na g&#246;re d&#252;zeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla1 = topla1 + Controls("TextBox" & X) * 1
End If
Next

TextBox67 = topla1

For X = 50 To 62 'Buray&#305; Textbox say&#305;s&#305;na g&#246;re d&#252;zeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla2 = topla2 + Controls("TextBox" & X) * 1
End If
Next

TextBox68 = topla2
End Sub

Vaktimiz müsait olduğu sürece sizlere yardımcı olmaya çalışıyoruz.

Size tavsiyem yazılan kodları anlamaya çalışarak kendi projeniz üzerine uyarlamaktır.Ancak bu şekilde öğrenebilirsiniz.

ferhatgurbuz · 14 Eylül 2007

Private Sub CommandButton1_Click()
Sheets("Data").Select
If TextBox65.Value = "" Or TextBox65.Value = 0 Or TextBox65.Value = " " Then
MsgBox "Text kutusu boş. Lütfen bir değer giriniz.."
Exit Sub
End If
'On Error Resume Next
'Cells.Find(What:=TextBox65.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
':=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
'True, SearchFormat:=False).Activate
Set bul = Columns("B").Find(TextBox65.Value, LOOKAT:=xlWhole)

If bul Is Nothing Then
MsgBox "Aradığınız veri bulunamadı. Lütfen yaptığınız girişi kontrol ediniz."
Exit Sub
End If
Cells(bul.Row, 1).Select

TextBox1.Value = ActiveCell.Value 'Sıra No
TextBox2.Value = ActiveCell.Offset(0, 1).Value 'Personel No
TextBox3.Value = ActiveCell.Offset(0, 2).Value 'Ünvanı
TextBox4.Value = ActiveCell.Offset(0, 3).Value 'Adı
TextBox5.Value = ActiveCell.Offset(0, 4).Value 'Soyadı
TextBox6.Value = ActiveCell.Offset(0, 5).Value 'Aylık Derece Kademe 1
TextBox7.Value = ActiveCell.Offset(0, 6).Value 'Aylık Derece Kademe 1
TextBox8.Value = ActiveCell.Offset(0, 9).Value 'Medeni Hali
TextBox9.Value = ActiveCell.Offset(0, 13).Value 'Gösterge
TextBox10.Value = ActiveCell.Offset(0, 15).Value 'Ek Gösterge
TextBox11.Value = ActiveCell.Offset(0, 18).Value 'Kıdem Yılı
TextBox12.Value = ActiveCell.Offset(0, 26).Value 'Kıstas Aylık Oranı
TextBox13.Value = ActiveCell.Offset(0, 48).Value 'Emekli Sicil No
TextBox14.Value = ActiveCell.Offset(0, 47).Value 'TC.-Vergi Kimlik No
TextBox15.Value = ActiveCell.Offset(0, 46).Value 'Banka Hesap No
TextBox30.Value = ActiveCell.Offset(0, 14).Value 'Aylık
TextBox31.Value = ActiveCell.Offset(0, 16).Value 'Ek Gösterge
TextBox32.Value = ActiveCell.Offset(0, 17).Value 'Taban Aylık
TextBox33.Value = ActiveCell.Offset(0, 19).Value 'Kıdem Aylığı
TextBox34.Value = ActiveCell.Offset(0, 21).Value 'Çocuk Yardımı
TextBox35.Value = ActiveCell.Offset(0, 23).Value 'Aile Yardımı
TextBox36.Value = ActiveCell.Offset(0, 36).Value 'Yan Ödeme
TextBox37.Value = ActiveCell.Offset(0, 25).Value 'Özel Hizmet Tazminatı
TextBox38.Value = ActiveCell.Offset(0, 29).Value 'Yargı Ödeneği
TextBox39.Value = ActiveCell.Offset(0, 27).Value 'Kıstas Aylık
TextBox40.Value = ActiveCell.Offset(0, 31).Value 'Denge Tazminatı
TextBox41.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox42.Value = ActiveCell.Offset(0, 32).Value 'Sendika ödeneği
TextBox43.Value = ActiveCell.Offset(0, 68).Value 'Denge Tazminatı
TextBox44.Value = ActiveCell.Offset(0, 69).Value '% 20 Emekli keseneği
TextBox45.Value = ActiveCell.Offset(0, 72).Value 'Sendika ödeneği
TextBox46.Value = ActiveCell.Offset(0, 67).Value 'kesif Ücreti
TextBox50.Value = ActiveCell.Offset(0, 40).Value 'Gelir Vergisi
TextBox51.Value = ActiveCell.Offset(0, 41).Value 'Damga Vergisi
TextBox52.Value = ActiveCell.Offset(0, 38).Value '% 16 Emekli keseneği
TextBox53.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox54.Value = ActiveCell.Offset(0, 51).Value '% 16 Emekli keseneği
TextBox55.Value = ActiveCell.Offset(0, 52).Value '% 20 Emekli keseneği
TextBox56.Value = ActiveCell.Offset(0, 71).Value '% 20 Emekli keseneği
TextBox57.Value = ActiveCell.Offset(0, 42).Value '% 16 Emekli keseneği
TextBox58.Value = ActiveCell.Offset(0, 63).Value '% 20 Emekli keseneği
TextBox59.Value = ActiveCell.Offset(0, 50).Value 'Lojman Kirası
TextBox60.Value = ActiveCell.Offset(0, 66).Value 'Artış Keseneği
TextBox62.Value = ActiveCell.Offset(0, 59).Value 'Lojman Kirası
TextBox62.Value = ActiveCell.Offset(0, 70).Value 'Artış Keseneği
'Formunuz Üzerindeki Textbox'ların Veri Alacağı Satırları Bu Şekilde Ayarlayın.
'GERİSİNİ SİZE BIRAKTIM.
Dim topla As Long

For X = 30 To 46 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla = topla + Controls("TextBox" & X) * 1
End If
Next
TextBox67 = topla

For X = 50 To 62 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla = topla + Controls("TextBox" & X) * 1
End If
Next
TextBox68 = topla
End Sub

Şöyle yaptım Sorgu çalıştır butonun altına kopyaladım ve sorgu çalıştır dediğimde toplam alıyor. 67 ve 68 e toplam alabiliyorum. Tek bir şey kaldı Textbox69 a (67-68) arasındaki farkı bulmak ve bulunan rakamların ondalıklı görünmesini sağlamak

Recep İpek · 14 Eylül 2007

topla değişkenini topla1 ve topla2 olarak ayrı ayrı yaparsanız veya
TextBox67 = topla satırından sonra
topla=0

yaparsanız daha iyi olur.Çünkü ilk döngüden topla değişkeninde bilgi kalabilir.

Fark almak içinse Format(TextBox68,"#,##0.00") = TextBox67 - TextBox68

kodunu ekleyebilirsiniz.

ferhatgurbuz · 14 Eylül 2007

olmuyor olmuyor.Yani biraz önce çalışan şey şimdi çalışmıyor. Tüm kodlar burda son bir defa daha bakın olmazsa bırakalım.

Private Sub CommandButton1_Click()
Sheets("Data").Select
If TextBox65.Value = "" Or TextBox65.Value = 0 Or TextBox65.Value = " " Then
MsgBox "Text kutusu boş. Lütfen bir değer giriniz.."
Exit Sub
End If
'On Error Resume Next
'Cells.Find(What:=TextBox65.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
':=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
'True, SearchFormat:=False).Activate
Set bul = Columns("B").Find(TextBox65.Value, LOOKAT:=xlWhole)

If bul Is Nothing Then
MsgBox "Aradığınız veri bulunamadı. Lütfen yaptığınız girişi kontrol ediniz."
Exit Sub
End If
Cells(bul.Row, 1).Select

TextBox1.Value = ActiveCell.Value 'Sıra No
TextBox2.Value = ActiveCell.Offset(0, 1).Value 'Personel No
TextBox3.Value = ActiveCell.Offset(0, 2).Value 'Ünvanı
TextBox4.Value = ActiveCell.Offset(0, 3).Value 'Adı
TextBox5.Value = ActiveCell.Offset(0, 4).Value 'Soyadı
TextBox6.Value = ActiveCell.Offset(0, 5).Value 'Aylık Derece Kademe 1
TextBox7.Value = ActiveCell.Offset(0, 6).Value 'Aylık Derece Kademe 1
TextBox8.Value = ActiveCell.Offset(0, 9).Value 'Medeni Hali
TextBox9.Value = ActiveCell.Offset(0, 13).Value 'Gösterge
TextBox10.Value = ActiveCell.Offset(0, 15).Value 'Ek Gösterge
TextBox11.Value = ActiveCell.Offset(0, 18).Value 'Kıdem Yılı
TextBox12.Value = ActiveCell.Offset(0, 26).Value 'Kıstas Aylık Oranı
TextBox13.Value = ActiveCell.Offset(0, 48).Value 'Emekli Sicil No
TextBox14.Value = ActiveCell.Offset(0, 47).Value 'TC.-Vergi Kimlik No
TextBox15.Value = ActiveCell.Offset(0, 46).Value 'Banka Hesap No
TextBox30.Value = ActiveCell.Offset(0, 14).Value 'Aylık
TextBox31.Value = ActiveCell.Offset(0, 16).Value 'Ek Gösterge
TextBox32.Value = ActiveCell.Offset(0, 17).Value 'Taban Aylık
TextBox33.Value = ActiveCell.Offset(0, 19).Value 'Kıdem Aylığı
TextBox34.Value = ActiveCell.Offset(0, 21).Value 'Çocuk Yardımı
TextBox35.Value = ActiveCell.Offset(0, 23).Value 'Aile Yardımı
TextBox36.Value = ActiveCell.Offset(0, 36).Value 'Yan Ödeme
TextBox37.Value = ActiveCell.Offset(0, 25).Value 'Özel Hizmet Tazminatı
TextBox38.Value = ActiveCell.Offset(0, 29).Value 'Yargı Ödeneği
TextBox39.Value = ActiveCell.Offset(0, 27).Value 'Kıstas Aylık
TextBox40.Value = ActiveCell.Offset(0, 31).Value 'Denge Tazminatı
TextBox41.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox42.Value = ActiveCell.Offset(0, 32).Value 'Sendika ödeneği
TextBox43.Value = ActiveCell.Offset(0, 68).Value 'Denge Tazminatı
TextBox44.Value = ActiveCell.Offset(0, 69).Value '% 20 Emekli keseneği
TextBox45.Value = ActiveCell.Offset(0, 72).Value 'Sendika ödeneği
TextBox46.Value = ActiveCell.Offset(0, 67).Value 'kesif Ücreti
TextBox50.Value = ActiveCell.Offset(0, 40).Value 'Gelir Vergisi
TextBox51.Value = ActiveCell.Offset(0, 41).Value 'Damga Vergisi
TextBox52.Value = ActiveCell.Offset(0, 38).Value '% 16 Emekli keseneği
TextBox53.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox54.Value = ActiveCell.Offset(0, 51).Value '% 16 Emekli keseneği
TextBox55.Value = ActiveCell.Offset(0, 52).Value '% 20 Emekli keseneği
TextBox56.Value = ActiveCell.Offset(0, 71).Value '% 20 Emekli keseneği
TextBox57.Value = ActiveCell.Offset(0, 42).Value '% 16 Emekli keseneği
TextBox58.Value = ActiveCell.Offset(0, 63).Value '% 20 Emekli keseneği
TextBox59.Value = ActiveCell.Offset(0, 50).Value 'Lojman Kirası
TextBox60.Value = ActiveCell.Offset(0, 66).Value 'Artış Keseneği
TextBox62.Value = ActiveCell.Offset(0, 59).Value 'Lojman Kirası
TextBox62.Value = ActiveCell.Offset(0, 70).Value 'Artış Keseneği
'Formunuz Üzerindeki Textbox'ların Veri Alacağı Satırları Bu Şekilde Ayarlayın.
'GERİSİNİ SİZE BIRAKTIM.
Dim topla As Long
For X = 30 To 46 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla = topla + Controls("TextBox" & X) * 1
End If
Next
TextBox67 = topla1
topla = 0
For X = 50 To 62 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla = topla + Controls("TextBox" & X) * 1
End If
Next
TextBox68 = topla2
topla = 0
End Sub

Private Sub CommandButton2_Click()
For X = 1 To 15
Controls("TextBox" & X) = ""
Next

For X = 30 To 46
Controls("TextBox" & X) = ""
Next

For X = 50 To 62
Controls("TextBox" & X) = ""
Next

TextBox65.SetFocus
End Sub
Private Sub CommandButton3_Click()
Sheets("Kisisel").Select
[e12] = TextBox1.Value
[e13] = TextBox2.Value
[e14] = TextBox3.Value
[e15] = TextBox4.Value
[e16] = TextBox5.Value
[e17] = TextBox6.Value
[e18] = TextBox7.Value
[e19] = TextBox8.Value
[e20] = TextBox9.Value
[e21] = TextBox10.Value
[e22] = TextBox14.Value
[e23] = TextBox11.Value
[e24] = TextBox12.Value
[e25] = TextBox13.Value
[ı9] = TextBox15.Value
[ı10] = TextBox16.Value
[ı11] = TextBox17.Value
[ı12] = TextBox18.Value
[ı13] = TextBox19.Value
[ı14] = TextBox20.Value
[ı15] = TextBox21.Value
[ı16] = TextBox22.Value
[ı17] = TextBox23.Value
[ı18] = TextBox24.Value
[ı19] = TextBox25.Value
[ı20] = TextBox26.Value
[ı21] = TextBox27.Value
[ı22] = TextBox29.Value
[ı23] = TextBox29.Value
[ı24] = TextBox30.Value
[ı28] = TextBox46.Value
[m9] = TextBox31.Value
[m10] = TextBox32.Value
[m11] = TextBox33.Value
[m12] = TextBox34.Value
[M13] = TextBox35.Value
[m14] = TextBox36.Value
[m15] = TextBox37.Value
[m16] = TextBox38.Value
[m17] = TextBox39.Value
[m18] = TextBox40.Value
[m19] = TextBox41.Value
[m20] = TextBox42.Value
[m21] = TextBox43.Value
[m26] = TextBox48.Value
[m28] = TextBox49.Value
ActiveWindow.SelectedSheets.PrintOut

End Sub

Private Sub CommandButton4_Click()
Unload Me
UserForm2.Show
End Sub

Private Sub SpinButton1_SpinDown()
Sheets("Data").Select
If TextBox65.Value = "" Then
MsgBox "Sorgu Çalıştırmak İçin Herhangi Bir Bilgi Giriniz..."
Exit Sub
End If
Cells(ActiveCell.Row - 1, 1).Select

TextBox1.Value = ActiveCell.Value 'Sıra No
TextBox2.Value = ActiveCell.Offset(0, 1).Value 'Personel No
TextBox3.Value = ActiveCell.Offset(0, 2).Value 'Ünvanı
TextBox4.Value = ActiveCell.Offset(0, 3).Value 'Adı
TextBox5.Value = ActiveCell.Offset(0, 4).Value 'Soyadı
TextBox6.Value = ActiveCell.Offset(0, 5).Value 'Aylık Derece Kademe 1
TextBox7.Value = ActiveCell.Offset(0, 6).Value 'Aylık Derece Kademe 1
TextBox8.Value = ActiveCell.Offset(0, 9).Value 'Medeni Hali
TextBox9.Value = ActiveCell.Offset(0, 13).Value 'Gösterge
TextBox10.Value = ActiveCell.Offset(0, 15).Value 'Ek Gösterge
TextBox11.Value = ActiveCell.Offset(0, 18).Value 'Kıdem Yılı
TextBox12.Value = ActiveCell.Offset(0, 26).Value 'Kıstas Aylık Oranı
TextBox13.Value = ActiveCell.Offset(0, 48).Value 'Emekli Sicil No
TextBox14.Value = ActiveCell.Offset(0, 47).Value 'TC.-Vergi Kimlik No
TextBox15.Value = ActiveCell.Offset(0, 46).Value 'Banka Hesap No
TextBox30.Value = ActiveCell.Offset(0, 14).Value 'Aylık
TextBox31.Value = ActiveCell.Offset(0, 16).Value 'Ek Gösterge
TextBox32.Value = ActiveCell.Offset(0, 17).Value 'Taban Aylık
TextBox33.Value = ActiveCell.Offset(0, 19).Value 'Kıdem Aylığı
TextBox34.Value = ActiveCell.Offset(0, 21).Value 'Çocuk Yardımı
TextBox35.Value = ActiveCell.Offset(0, 23).Value 'Aile Yardımı
TextBox36.Value = ActiveCell.Offset(0, 36).Value 'Yan Ödeme
TextBox37.Value = ActiveCell.Offset(0, 25).Value 'Özel Hizmet Tazminatı
TextBox38.Value = ActiveCell.Offset(0, 29).Value 'Yargı Ödeneği
TextBox39.Value = ActiveCell.Offset(0, 27).Value 'Kıstas Aylık
TextBox40.Value = ActiveCell.Offset(0, 31).Value 'Denge Tazminatı
TextBox41.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox42.Value = ActiveCell.Offset(0, 32).Value 'Sendika ödeneği
TextBox43.Value = ActiveCell.Offset(0, 68).Value 'Denge Tazminatı
TextBox44.Value = ActiveCell.Offset(0, 69).Value '% 20 Emekli keseneği
TextBox45.Value = ActiveCell.Offset(0, 72).Value 'Sendika ödeneği
TextBox46.Value = ActiveCell.Offset(0, 67).Value 'kesif Ücreti
TextBox50.Value = ActiveCell.Offset(0, 40).Value 'Gelir Vergisi
TextBox51.Value = ActiveCell.Offset(0, 41).Value 'Damga Vergisi
TextBox52.Value = ActiveCell.Offset(0, 38).Value '% 16 Emekli keseneği
TextBox53.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox54.Value = ActiveCell.Offset(0, 51).Value '% 16 Emekli keseneği
TextBox55.Value = ActiveCell.Offset(0, 52).Value '% 20 Emekli keseneği
TextBox56.Value = ActiveCell.Offset(0, 71).Value '% 20 Emekli keseneği
TextBox57.Value = ActiveCell.Offset(0, 42).Value '% 16 Emekli keseneği
TextBox58.Value = ActiveCell.Offset(0, 63).Value '% 20 Emekli keseneği
TextBox59.Value = ActiveCell.Offset(0, 50).Value 'Lojman Kirası
TextBox60.Value = ActiveCell.Offset(0, 66).Value 'Artış Keseneği
TextBox62.Value = ActiveCell.Offset(0, 59).Value 'Lojman Kirası
TextBox62.Value = ActiveCell.Offset(0, 70).Value 'Artış Keseneği
'Formunuz Üzerindeki Textbox'ların Veri Alacağı Satırları Bu Şekilde Ayarlayın.
'GERİSİNİ SİZE BIRAKTIM.
End Sub

Private Sub SpinButton1_SpinUp()
Sheets("Data").Select
If TextBox65.Value = "" Then
MsgBox "Sorgu Çalıştırmak İçin Herhangi Bir Bilgi Giriniz..."
Exit Sub
End If
Cells(ActiveCell.Row + 1, 1).Select

TextBox1.Value = ActiveCell.Value 'Sıra No
TextBox2.Value = ActiveCell.Offset(0, 1).Value 'Personel No
TextBox3.Value = ActiveCell.Offset(0, 2).Value 'Ünvanı
TextBox4.Value = ActiveCell.Offset(0, 3).Value 'Adı
TextBox5.Value = ActiveCell.Offset(0, 4).Value 'Soyadı
TextBox6.Value = ActiveCell.Offset(0, 5).Value 'Aylık Derece Kademe 1
TextBox7.Value = ActiveCell.Offset(0, 6).Value 'Aylık Derece Kademe 1
TextBox8.Value = ActiveCell.Offset(0, 9).Value 'Medeni Hali
TextBox9.Value = ActiveCell.Offset(0, 13).Value 'Gösterge
TextBox10.Value = ActiveCell.Offset(0, 15).Value 'Ek Gösterge
TextBox11.Value = ActiveCell.Offset(0, 18).Value 'Kıdem Yılı
TextBox12.Value = ActiveCell.Offset(0, 26).Value 'Kıstas Aylık Oranı
TextBox13.Value = ActiveCell.Offset(0, 48).Value 'Emekli Sicil No
TextBox14.Value = ActiveCell.Offset(0, 47).Value 'TC.-Vergi Kimlik No
TextBox15.Value = ActiveCell.Offset(0, 46).Value 'Banka Hesap No
TextBox30.Value = ActiveCell.Offset(0, 14).Value 'Aylık
TextBox31.Value = ActiveCell.Offset(0, 16).Value 'Ek Gösterge
TextBox32.Value = ActiveCell.Offset(0, 17).Value 'Taban Aylık
TextBox33.Value = ActiveCell.Offset(0, 19).Value 'Kıdem Aylığı
TextBox34.Value = ActiveCell.Offset(0, 21).Value 'Çocuk Yardımı
TextBox35.Value = ActiveCell.Offset(0, 23).Value 'Aile Yardımı
TextBox36.Value = ActiveCell.Offset(0, 36).Value 'Yan Ödeme
TextBox37.Value = ActiveCell.Offset(0, 25).Value 'Özel Hizmet Tazminatı
TextBox38.Value = ActiveCell.Offset(0, 29).Value 'Yargı Ödeneği
TextBox39.Value = ActiveCell.Offset(0, 27).Value 'Kıstas Aylık
TextBox40.Value = ActiveCell.Offset(0, 31).Value 'Denge Tazminatı
TextBox41.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox42.Value = ActiveCell.Offset(0, 32).Value 'Sendika ödeneği
TextBox43.Value = ActiveCell.Offset(0, 68).Value 'Denge Tazminatı
TextBox44.Value = ActiveCell.Offset(0, 69).Value '% 20 Emekli keseneği
TextBox45.Value = ActiveCell.Offset(0, 72).Value 'Sendika ödeneği
TextBox46.Value = ActiveCell.Offset(0, 67).Value 'kesif Ücreti
TextBox50.Value = ActiveCell.Offset(0, 40).Value 'Gelir Vergisi
TextBox51.Value = ActiveCell.Offset(0, 41).Value 'Damga Vergisi
TextBox52.Value = ActiveCell.Offset(0, 38).Value '% 16 Emekli keseneği
TextBox53.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox54.Value = ActiveCell.Offset(0, 51).Value '% 16 Emekli keseneği
TextBox55.Value = ActiveCell.Offset(0, 52).Value '% 20 Emekli keseneği
TextBox56.Value = ActiveCell.Offset(0, 71).Value '% 20 Emekli keseneği
TextBox57.Value = ActiveCell.Offset(0, 42).Value '% 16 Emekli keseneği
TextBox58.Value = ActiveCell.Offset(0, 63).Value '% 20 Emekli keseneği
TextBox59.Value = ActiveCell.Offset(0, 50).Value 'Lojman Kirası
TextBox60.Value = ActiveCell.Offset(0, 66).Value 'Artış Keseneği
TextBox62.Value = ActiveCell.Offset(0, 59).Value 'Lojman Kirası
TextBox62.Value = ActiveCell.Offset(0, 70).Value 'Artış Keseneği
'Formunuz Üzerindeki Textbox'ların Veri Alacağı Satırları Bu Şekilde Ayarlayın.
'GERİSİNİ SİZE BIRAKTIM
End Sub
Private Sub OptionButton1_Click()
Sheets("Kisisel").Select
[e12] = TextBox1.Value
[e13] = TextBox2.Value
[e14] = TextBox3.Value
[e15] = TextBox4.Value
[e16] = TextBox5.Value
[e17] = TextBox6.Value
[e18] = TextBox7.Value
[e19] = TextBox8.Value
[e20] = TextBox9.Value
[e21] = TextBox10.Value
[e22] = TextBox14.Value
[e23] = TextBox11.Value
[e24] = TextBox12.Value
[e25] = TextBox13.Value
[ı9] = TextBox15.Value
[ı10] = TextBox16.Value
[ı11] = TextBox17.Value
[ı12] = TextBox18.Value
[ı13] = TextBox19.Value
[ı14] = TextBox20.Value
[ı15] = TextBox21.Value
[ı16] = TextBox22.Value
[ı17] = TextBox23.Value
[ı18] = TextBox24.Value
[ı19] = TextBox25.Value
[ı20] = TextBox26.Value
[ı21] = TextBox27.Value
[ı22] = TextBox29.Value
[ı23] = TextBox29.Value
[ı24] = TextBox30.Value
[ı28] = TextBox46.Value
[m9] = TextBox31.Value
[m10] = TextBox32.Value
[m11] = TextBox33.Value
[m12] = TextBox34.Value
[M13] = TextBox35.Value
[m14] = TextBox36.Value
[m15] = TextBox37.Value
[m16] = TextBox38.Value
[m17] = TextBox39.Value
[m18] = TextBox40.Value
[m19] = TextBox41.Value
[m20] = TextBox42.Value
[m21] = TextBox43.Value
[m26] = TextBox48.Value
[m28] = TextBox49.Value
If OptionButton1 Then [c32] = "Adı geçenin maaşında herhangi bir haciz kesnitisi yoktur."
If OptionButton1 Then [k34] = "Arife ÖZBİLEN"
If OptionButton1 Then [k35] = "İdari İşler Müdürü"
End Sub
Private Sub OptionButton2_Click()
Sheets("Kisisel").Select
[e12] = TextBox1.Value
[e13] = TextBox2.Value
[e14] = TextBox3.Value
[e15] = TextBox4.Value
[e16] = TextBox5.Value
[e17] = TextBox6.Value
[e18] = TextBox7.Value
[e19] = TextBox8.Value
[e20] = TextBox9.Value
[e21] = TextBox10.Value
[e22] = TextBox14.Value
[e23] = TextBox11.Value
[e24] = TextBox12.Value
[e25] = TextBox13.Value
[ı9] = TextBox15.Value
[ı10] = TextBox16.Value
[ı11] = TextBox17.Value
[ı12] = TextBox18.Value
[ı13] = TextBox19.Value
[ı14] = TextBox20.Value
[ı15] = TextBox21.Value
[ı16] = TextBox22.Value
[ı17] = TextBox23.Value
[ı18] = TextBox24.Value
[ı19] = TextBox25.Value
[ı20] = TextBox26.Value
[ı21] = TextBox27.Value
[ı22] = TextBox29.Value
[ı23] = TextBox29.Value
[ı24] = TextBox30.Value
[ı28] = TextBox46.Value
[m9] = TextBox31.Value
[m10] = TextBox32.Value
[m11] = TextBox33.Value
[m12] = TextBox34.Value
[M13] = TextBox35.Value
[m14] = TextBox36.Value
[m15] = TextBox37.Value
[m16] = TextBox38.Value
[m17] = TextBox39.Value
[m18] = TextBox40.Value
[m19] = TextBox41.Value
[m20] = TextBox42.Value
[m21] = TextBox43.Value
[m26] = TextBox48.Value
[m28] = TextBox49.Value
If OptionButton2 Then [c32] = ""
If OptionButton2 Then [k34] = ""
If OptionButton2 Then [k35] = ""
End Sub

Recep İpek · 14 Eylül 2007

İlk makronun son bölümünü aşağıdaki şekilde düzeltiniz.

'GERİSİNİ SİZE BIRAKTIM.
Dim topla1,topla2 As Long
For X = 30 To 46 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla1 = topla1 + Controls("TextBox" & X) * 1
End If
Next
TextBox67 = topla1
topla = 0
For X = 50 To 62 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla2 = topla2 + Controls("TextBox" & X) * 1
End If
Next
TextBox68 = topla2
End Sub

ferhatgurbuz · 14 Eylül 2007

kusura bakmayın siz elinizden geleni yapıyorsunuz ama ben o kadar iyi değilim
son bir sey rica ediyorum. Format(TextBox69,"#,##0.00") = TextBox67 - TextBox68

bunuda Dim topla1,topla2 As Long
For X = 30 To 46 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla1 = topla1 + Controls("TextBox" & X) * 1
End If
Next
TextBox67 = topla1
topla = 0
For X = 50 To 62 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla2 = topla2 + Controls("TextBox" & X) * 1
End If
Next
TextBox68 = topla2
end sub

yerleştirirseniz sevinirim

Recep İpek · 14 Eylül 2007

Dim topla1,topla2 As Long
For X = 30 To 46 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla1 = topla1 + Controls("TextBox" & X) * 1
End If
Next
TextBox67 = topla1
topla = 0
For X = 50 To 62 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla2 = topla2 + Controls("TextBox" & X) * 1
End If
Next
TextBox68 = topla2

TextBox69 = Format(TextBox67, "#,##0.00") - Format(TextBox68, "#,##0.00")

end sub

olarak deneyin.

ferhatgurbuz · 14 Eylül 2007

Çok teşekkür ederim. Sizi çok yordum bugün.

Recep İpek · 14 Eylül 2007

Önemli değil..Umarım istediğiniz gibi olmuştur.

ferhatgurbuz · 14 Eylül 2007

Ellerinize sağlık. % 90 oranında tamamlandı. Ufak tefek şeyler kaldı. Mesela yukardaki kodda Textbox68'i ondalıklı olarak göstermiyor.