Aktarma,Yeni Kayıt ve Raporda hata

Ercan_ÇELİKOĞLU · 4 Aralık 2007

Sayın Asmet67 Sayın hsayar Ekteki Özürlü yardım programı ikinizinde özverili çalışması sayesinde yapıldı.
Lütfen Mesajı tam okuyunuz.

ancak halen bazı eksikleri var ve takdir edersinizki ; eksiklik aksaklığı, aksaklık işin gecikmesini, İşin gecikmesi de yardım alan kişilerin mağdur olmalarına neden olmaktadır.
sizlerin ve üstadların yardımı ile bunu tam ve kullanılışlı bir hale getirmek için;
Programdaki eksiklikler :

1. Form aç butonuna bastığımızda text value kutularından birinde 12.MADDE kelimesi otomatik olması gerekmekte idi ancak ilk açılışta otomatik gelmekte fakat form temizle tuşana basıp yeni bir kayıt yapmak istediğimde 12.MADDE
kelimesi ortadan kaybolmakta.(deneyiniz anlarsınız) Ayrıca yeni eklediğim kişilerde yine isim engeli çıkıyor ;
Örnek : Yusuf Kosif diye birini girmek istiyorum
Bir önceki yusufun bilgilerine güncellendi diyor yani eski kaydı güncelliyor.
Yeni eklediğim kişilerde para tutarlarının olduğu sütunlarda yeni eklenen miktarların yanında küçücük yeşil bir işaret çıkıyor ve bu nedenle yeni eklenenler toplama yansımıyor ve mecburen ben o sütünlara gidip bir önceki işaretsiz sayıları aşağı çekerek işaretlerin yok olmasını elle müdahale ederek sağlıyorum.

2.Aktar butonuna basıldığında aktarmada hata yok ancak yeni eklenen kişi sayısı arttıkça
sheets Ücret_Bordrosu
sheets Ay_Listesi
sheets Banka_Listesi
Sayfalarının sonlarına ilk sıraya numara atmamakta ve bazen satır sütün çizgilerini vermemekte. (Deneyiniz lütfen)

3. Raporla Butonları Ücret Bordrosu Raporla dediğinizde aynı şekilde numara vermemekte ve kimi verileri küçük kimi verileri ise büyük puntolarla yansıtmakta ayrıca alt toplamda yazı ile yazılan formül asıl tahakkuk eden tutarı değil normal toplamı baz almakta . yani şu anki ekli dosyada 24.729,85 i toplamını yazı ile yazması gerekirken diğer toplamı yazı ile yazmakta
(deneyiniz)
Ay_Listesi Raporla
Banka_Listesi raporla
Toplamlarda ve yazıda sorun yok
Ancak her ikisindede numaralandırma ve verileri bir büyük bir küçük almakta
Yukarıda saydığım sorunlar benim görebildiklerim eğer sizinde dikkatinizi çeken başka eksiklik aksaklık var ise yada şöyle olsa daha iyi olur diyen olursa lütfen kendi desteğinizi ekleyiniz.

Ercan_ÇELİKOĞLU · 4 Aralık 2007

Lütfen bu bir yardım programı

saygılarımla yardımlarınızı esirgememenizi istiyorum

Ercan_ÇELİKOĞLU · 4 Aralık 2007

Sayın Üstadlar

Sayın Excel üstadları lütfen yardım edin.

isfa5878 · 5 Aralık 2007

1. Form aç butonuna bastığımızda text value kutularından birinde 12.MADDE kelimesi otomatik olması gerekmekte idi ancak ilk açılışta otomatik gelmekte fakat form temizle tuşana basıp yeni bir kayıt yapmak istediğimde 12.MADDE
kelimesi ortadan kaybolmakta.(deneyiniz anlarsınız) Ayrıca yeni eklediğim kişilerde yine isim engeli çıkıyor ;
Örnek : Yusuf Kosif diye birini girmek istiyorum
Bir önceki yusufun bilgilerine güncellendi diyor yani eski kaydı güncelliyor.

userform1 deki kodlarınızın tamamını aşağıdakiyle değiştiriniz.. yaptığınız kaydı b sütununda isim aynı olunca uyarmak yerine güncelliyor du artık TC. no ya göre arayacak eğer aynı TC no varsa uyaracak ..
güncelleme butonu eklendi güncellemek gerekirse bilgiler girilip güncelleme butonuna tıklanacak....

değişen dosyanız ekte...
kaldırıldı özür.......

Ercan_ÇELİKOĞLU · 5 Aralık 2007

Nesi Değişmiş anlayamadım sorunlar aynı;

isfa5878' Alıntı:
1. Form aç butonuna bastığımızda text value kutularından birinde 12.MADDE kelimesi otomatik olması gerekmekte idi ancak ilk açılışta otomatik gelmekte fakat form temizle tuşana basıp yeni bir kayıt yapmak istediğimde 12.MADDE
kelimesi ortadan kaybolmakta.(deneyiniz anlarsınız) Ayrıca yeni eklediğim kişilerde yine isim engeli çıkıyor ;
Örnek : Yusuf Kosif diye birini girmek istiyorum
Bir önceki yusufun bilgilerine güncellendi diyor yani eski kaydı güncelliyor.

userform1 deki kodlarınızın tamamını aşağıdakiyle değiştiriniz.. yaptığınız kaydı b sütununda isim aynı olunca uyarmak yerine güncelliyor du artık TC. no ya göre arayacak eğer aynı TC no varsa uyaracak ..
güncelleme butonu eklendi güncellemek gerekirse bilgiler girilip güncelleme butonuna tıklanacak....

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False

Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
For Each ara In s1.Range("A1:A" & s1.Cells(65536, 1).End(xlUp).Row)
If StrConv(Val(ara.Value), vbUpperCase) = StrConv(Val(ComboBox1.Value), vbUpperCase) Then

TextBox13.Value = s1.Range(ara.Offset(0, 1).Address).Value
Exit Sub
End If
Next ara
End Sub

Private Sub ComboBox3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
TEMIZLE1
End Sub

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
Set s2 = ThisWorkbook.Worksheets("Bilgi_Girisi")
Set s3 = ThisWorkbook.Worksheets("Ucret_Bodrosu")
Set s4 = ThisWorkbook.Worksheets("Ay_Listesi")
Set s5 = ThisWorkbook.Worksheets("Banka_Listesi")
'güncelle

For Each ara In s2.Range("k3:k" & s2.Cells(65536, 2).End(xlUp).Row)
If StrConv(ara.Value, vbUpperCase) = StrConv(TextBox10.Text * 1, vbUpperCase) Then
MsgBox "BU KİMLİK NO'LU KAYIT VAR"
Exit Sub
End If

If StrConv(ara.Value, vbUpperCase) <> StrConv(TextBox10.Text * 1, vbUpperCase) Then
'Yeni kayit ekle
say = s2.Cells(65536, 2).End(xlUp).Row
s2.Cells(say + 1, "A").Value = s2.Cells(say, "A").Value + 1 * 1

s2.Cells(say + 1, "B").Value = Evaluate("=PROPER(""" & ComboBox3.Value & """)")
s2.Cells(say + 1, "C").Value = Evaluate("=UPPER(""" & ComboBox4.Value & """)")
s2.Cells(say + 1, "D").Value = Evaluate("=PROPER(""" & TextBox3.Value & """)")
s2.Cells(say + 1, "E").Value = Evaluate("=UPPER(""" & TextBox4.Value & """)")
s2.Cells(say + 1, "F").Value = Evaluate("=PROPER(""" & TextBox5.Value & """)")
s2.Cells(say + 1, "G").Value = Evaluate("=PROPER(""" & TextBox6.Value & """)")
s2.Cells(say + 1, "H").Value = TextBox7.Value
s2.Cells(say + 1, "I").Value = Evaluate("=PROPER(""" & TextBox8.Value & """)")
s2.Cells(say + 1, "J").Value = Evaluate("=PROPER(""" & TextBox9.Value & """)")
s2.Cells(say + 1, "K").Value = Format(TextBox10.Value, "### ### ### ##")
s2.Cells(say + 1, "L").Value = ComboBox1.Value 'ŞUBE KD
s2.Cells(say + 1, "M").Value = TextBox11.Value 'HESAP NO
s2.Cells(say + 1, "N").Value = TextBox12.Value
s2.Cells(say + 1, "O").Value = ComboBox2.Value
s2.Cells(say + 1, "P").Value = TextBox14.Value
s2.Cells(say + 1, "Q").Value = TextBox15.Value
s2.Cells(say + 1, "R").Value = TextBox16.Value
s2.Cells(say + 1, "S").Value = TextBox17.Value
s2.Cells(say + 1, "A").Value = s2.Cells(say + 1, "A").Value & "."
MsgBox " Yeni Kaydiniz Eklendi"
Exit Sub
End If
Next ara
'SonKelime = Evaluate("=PROPER(""" & SonKelime & """)")
'Soyad = Evaluate("=UPPER(""" & Soyad & """)")
End Sub

Private Sub CommandButton10_Click()

If ComboBox5.Value = "Ücret Bordrosu" Then
Call UcrBrdWrd
ElseIf ComboBox5.Value = "Banka Listesi" Then
Call BankLıstWrd
ElseIf ComboBox5.Value = "Aylık Liste" Then
Call AyLıstWrd
End If

End Sub

Private Sub CommandButton11_Click()

Application.ScreenUpdating = False

Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
Set s2 = ThisWorkbook.Worksheets("Bilgi_Girisi")
Set s3 = ThisWorkbook.Worksheets("Ucret_Bodrosu")
Set s4 = ThisWorkbook.Worksheets("Ay_Listesi")
Set s5 = ThisWorkbook.Worksheets("Banka_Listesi")
'güncelle

For Each ara In s2.Range("k3:k" & s2.Cells(65536, 2).End(xlUp).Row)
If StrConv(ara.Value, vbUpperCase) = StrConv(TextBox10.Text * 1, vbUpperCase) Then

s2.Select
s2.Range(ara.Offset(0, -9).Address).Value = ComboBox3.Value
s2.Range(ara.Offset(0, -8).Address).Value = ComboBox4.Value
s2.Range(ara.Offset(0, -7).Address).Value = TextBox3.Value
s2.Range(ara.Offset(0, -6).Address).Value = TextBox4.Value
s2.Range(ara.Offset(0, -5).Address).Value = TextBox5.Value
s2.Range(ara.Offset(0, -4).Address).Value = TextBox6.Value
s2.Range(ara.Offset(0, -3).Address).Value = TextBox7.Value
s2.Range(ara.Offset(0, -2).Address).Value = TextBox8.Value
s2.Range(ara.Offset(0, -1).Address).Value = TextBox9.Value
s2.Range(ara.Offset(0, 0).Address).Value = TextBox10.Value
s2.Range(ara.Offset(0, 1).Address).Value = ComboBox1.Value
s2.Range(ara.Offset(0, 2).Address).Value = TextBox11.Value
s2.Range(ara.Offset(0, 3).Address).Value = TextBox12.Value
s2.Range(ara.Offset(0, 4).Address).Value = ComboBox2.Value
s2.Range(ara.Offset(0, 5).Address).Value = TextBox14.Value
s2.Range(ara.Offset(0, 6).Address).Value = TextBox15.Value
s2.Range(ara.Offset(0, 7).Address).Value = TextBox16.Value
s2.Range(ara.Offset(0, 17).Address).Value = TextBox17.Value
MsgBox " Bilgileriniz Guncellendi"

Exit Sub
End If
Next ara
'SonKelime = Evaluate("=PROPER(""" & SonKelime & """)")
'Soyad = Evaluate("=UPPER(""" & Soyad & """)")
End Sub

Private Sub CommandButton2_Click()

TEMIZLE1
End Sub

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False

Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
Set s2 = ThisWorkbook.Worksheets("Bilgi_Girisi")
Set s3 = ThisWorkbook.Worksheets("Ucret_Bodrosu")
Set s4 = ThisWorkbook.Worksheets("Ay_Listesi")
Set s5 = ThisWorkbook.Worksheets("Banka_Listesi")
say = s3.Cells(65536, 2).End(xlUp).Row
s3.Range("B7:Z" & say + 7).ClearContents
say1 = s4.Cells(65536, 2).End(xlUp).Row
s4.Range("B5:Z" & say + 7).ClearContents
say2 = s5.Cells(65536, 2).End(xlUp).Row
s5.Range("B3:Z" & say + 7).ClearContents

End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub CommandButton5_Click()
Application.ScreenUpdating = False

Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
Set s2 = ThisWorkbook.Worksheets("Bilgi_Girisi")
Set s3 = ThisWorkbook.Worksheets("Ucret_Bodrosu")
Set s4 = ThisWorkbook.Worksheets("Ay_Listesi")
Set s5 = ThisWorkbook.Worksheets("Banka_Listesi")
s1.Range("b65536").End(xlUp).Offset(1, 0).Value = ComboBox1
say = s3.Cells(65536, 2).End(xlUp).Row
s3.Range("B7:Z" & say + 7).ClearContents
say1 = s4.Cells(65536, 2).End(xlUp).Row
s4.Range("B5:Z" & say + 7).ClearContents
say2 = s5.Cells(65536, 2).End(xlUp).Row
s5.Range("B3:Z" & say + 7).ClearContents

'ücret bodrosu
For i = 3 To s2.Cells(65536, 2).End(xlUp).Row
s2.Range("b" & i & ":e" & i).Copy
s3.Range("b65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
s2.Range("k" & i).Copy
s3.Range("b65536").End(xlUp).Offset(0, 4).PasteSpecial xlPasteValues
s2.Range("n" & i).Copy
s3.Range("b65536").End(xlUp).Offset(0, 5).PasteSpecial xlPasteValues
s2.Range("p" & i & ":s" & i).Copy
s3.Range("b65536").End(xlUp).Offset(0, 6).PasteSpecial xlPasteValues
Next i
'Ay_Listesi
For i = 3 To s2.Cells(65536, 2).End(xlUp).Row
s2.Range("b" & i & ":K" & i).Copy
s4.Range("b65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
s2.Range("Q" & i).Copy
s4.Range("b65536").End(xlUp).Offset(0, 10).PasteSpecial xlPasteValues
Next i

'Ay_Listesi
For i = 3 To s2.Cells(65536, 2).End(xlUp).Row
s2.Range("D" & i & ":E" & i).Copy
s5.Range("b65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
s2.Range("O" & i).Copy
s5.Range("b65536").End(xlUp).Offset(0, 2).PasteSpecial xlPasteValues
s2.Range("Q" & i).Copy
s5.Range("b65536").End(xlUp).Offset(0, 3).PasteSpecial xlPasteValues
s2.Range("L" & i & ":M" & i).Copy
s5.Range("b65536").End(xlUp).Offset(0, 4).PasteSpecial xlPasteValues
Next i

End Sub

Private Sub CommandButton6_Click()
Application.ScreenUpdating = False

Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
Set s2 = ThisWorkbook.Worksheets("Bilgi_Girisi")
Set s3 = ThisWorkbook.Worksheets("Ucret_Bodrosu")
Set s4 = ThisWorkbook.Worksheets("Ay_Listesi")
Set s5 = ThisWorkbook.Worksheets("Banka_Listesi")
If Not ComboBox4 = "" Then Exit Sub
For Each ara In s2.Range("b1:b" & s2.Cells(65536, 2).End(xlUp).Row)
If StrConv(ara.Value, vbUpperCase) = StrConv(ComboBox3.Value, vbUpperCase) Then
s2.Select
ComboBox4.Value = s2.Range(ara.Offset(0, 1).Address).Value
TextBox3.Value = s2.Range(ara.Offset(0, 2).Address).Value
TextBox4.Value = s2.Range(ara.Offset(0, 3).Address).Value
TextBox5.Value = s2.Range(ara.Offset(0, 4).Address).Value
TextBox6.Value = s2.Range(ara.Offset(0, 5).Address).Value
TextBox7.Value = s2.Range(ara.Offset(0, 6).Address).Value
TextBox8.Value = s2.Range(ara.Offset(0, 7).Address).Value
TextBox9.Value = s2.Range(ara.Offset(0, 8).Address).Value
TextBox10.Value = s2.Range(ara.Offset(0, 9).Address).Value
ComboBox1.Value = s2.Range(ara.Offset(0, 10).Address).Value
TextBox11.Value = s2.Range(ara.Offset(0, 11).Address).Value
TextBox12.Value = s2.Range(ara.Offset(0, 12).Address).Value
ComboBox2.Value = s2.Range(ara.Offset(0, 13).Address).Value
TextBox14.Value = s2.Range(ara.Offset(0, 14).Address).Value
TextBox15.Value = s2.Range(ara.Offset(0, 15).Address).Value
TextBox16.Value = s2.Range(ara.Offset(0, 16).Address).Value
TextBox17.Value = s2.Range(ara.Offset(0, 17).Address).Value
Exit Sub
End If

Next ara
End Sub

Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim toplam, toplam1, toplam2, toplam3 As Double
If TextBox12 = "" Then Exit Sub
If TextBox14 = "" Then Exit Sub
toplam = Val(TextBox12)
toplam1 = CDbl(TextBox14)
toplam2 = toplam * toplam1
TextBox15.Value = FormatNumber(toplam2, 2)
On Error GoTo 0
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False

ComboBox5.AddItem "Ücret Bordrosu"
ComboBox5.AddItem "Banka Listesi"
ComboBox5.AddItem "Aylık Liste"
ComboBox5.Style = fmStyleDropDownList
'On Error Resume Next
Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
Set s2 = ThisWorkbook.Worksheets("Bilgi_Girisi")
Set s3 = ThisWorkbook.Worksheets("Ucret_Bodrosu")
Set s4 = ThisWorkbook.Worksheets("Ay_Listesi")
Set s5 = ThisWorkbook.Worksheets("Banka_Listesi")
Dim i%
Dim TMP$
ComboBox2.Clear
For i = 1 To 12
TMP = Format(DateSerial(2004, i, 1), "mmmm")
ComboBox2.AddItem TMP
Next i
say = s2.Cells(65536, 2).End(xlUp).Row
s2.Select
ComboBox3.ColumnCount = 2
ComboBox3.ColumnWidths = "30;50"
ComboBox3.ListRows = "5"
ComboBox3.RowSource = "Bilgi_Girisi!b3: C" & Cells(65536, 2).End(xlUp).Row
'ComboBox4.RowSource = "Bilgi_Girisi!c3: c" & Cells(65536, 3).End(xlUp).Row
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "30;50"
ComboBox1.ListRows = "5"
ComboBox1.RowSource = "veri!a2: b" & s1.Cells(65536, 1).End(xlUp).Row
TextBox16.Value = "12.MADDE"
Application.ScreenUpdating = True
End Sub
Private Sub TEMIZLE1()
Application.ScreenUpdating = False

'On Error Resume Next
Application.ScreenUpdating = False
For Each NESNE1 In Controls
If TypeName(NESNE1) = "TextBox" Then ' NESNENIN ADI YAZILACAK
NESNE1.Value = ""

End If
Next NESNE1
For Each nesne In Controls
If TypeName(nesne) = "ComboBox" Then ' NESNENIN ADI YAZILACAK
nesne.Value = ""
End If
Next nesne
'For Each nesne2 In Controls
'If TypeName(nesne2) = "ListBox" Then ' NESNENIN ADI YAZILACAK
'nesne2.RowSource = ""
'End If
'Next nesne2
TextBox16.Value = "MADDE 12"
End Sub

değişen dosyanız ekte...

neyin değiştiğini anlayamadım?

hsayar · 5 Aralık 2007

userform1 deki kodlarınızın tamamını aşağıdakiyle değiştiriniz.. yaptığınız kaydı b sütununda isim aynı olunca uyarmak yerine güncelliyor du artık TC. no ya göre arayacak eğer aynı TC no varsa uyaracak ..
güncelleme butonu eklendi güncellemek gerekirse bilgiler girilip güncelleme butonuna tıklanacak....

Sn isfa 878 yazmış arkadaşım...
siz yusuf varken bir yusauf daha girin ne olduğunu anlayın
Doktora geliyorsunuz şikayetlerinizi sıralıyorsunuz size ilaç önmeriliyor ben bundan şikayet etmemiştim ki diyorsunuz!?

hsayar · 5 Aralık 2007

A sütununda özürlünün Tc Kimlik No sütunu olması lazım ve Userformda bir tane daha Combaobox eklenmesi lazım
özürlünün tc nolarını içeren listeyi ekleyiniz... .sizinkinde sadece yakınının tc nosu var karışıklık birazda ordan geliyor.......

isfa5878 · 5 Aralık 2007

userform1 deki kodlarınızın tamamını aşağıdakiyle değiştiriniz.. yaptığınız kaydı b sütununda isim aynı olunca uyarmak yerine güncelliyor du artık TC. no ya göre arayacak eğer aynı TC no varsa uyaracak ..
güncelleme butonu eklendi güncellemek gerekirse bilgiler girilip güncelleme butonuna tıklanacak....

değişen dosyanız ekte...
kaldırıldı özür.......

yüzlerce yusuf olabilir o kadar uğraştırır
TC:kimlik no'su aynı olan kaç tane ÖZÜRLÜ YAKINI olabilir ?.
özürlü kimlik no da eklenebilir di
fikir veremediğim,yardımcı olmak niyetiyle meşgul ettiğim için tekrar özür!...

hsayar · 5 Aralık 2007

sn isfa5878 hocam elimizden geldiğince yardımn edeceğiz artık ara = boşsa dğer satıra atla nasıl denir bugün biraz vaktim var acemi olarak toparlama yapmaya çalışama ama yardımınız ihtiyacım var?

Ercan_ÇELİKOĞLU · 5 Aralık 2007

Tamam dediğinizi anladım

isfa5878' Alıntı:
userform1 deki kodlarınızın tamamını aşağıdakiyle değiştiriniz.. yaptığınız kaydı b sütununda isim aynı olunca uyarmak yerine güncelliyor du artık TC. no ya göre arayacak eğer aynı TC no varsa uyaracak ..
güncelleme butonu eklendi güncellemek gerekirse bilgiler girilip güncelleme butonuna tıklanacak....

değişen dosyanız ekte...
kaldırıldı özür.......

yüzlerce yusuf olabilir o kadar uğraştırır
TC:kimlik no'su aynı olan kaç tane ÖZÜRLÜ YAKINI olabilir ?.
özürlü kimlik no da eklenebilir di
fikir veremediğim,yardımcı olmak niyetiyle meşgul ettiğim için tekrar özür!...

Bakın arkadaşlar siz sadece ilk konuya yani 1 nolu hataya takmışsınız peki raporlamadaki hatalar ne olacak?
ayrıca özürlünün t.c si eklenmez çünkü asıl önemli olan yardım alan kişinin yakınlarıdır bu konuda anlaşırsak ve mesajımın tamamını okuyup konuya net çözüm getirirseniz sizlere tek diyebileceğim Allah c.c. sizden razı olsun olacaktır.

hsayar · 5 Aralık 2007

özürlünün tc kiml,ik noları eklenmek zorundadır....
bir velinin iki tane özürlü yakını olabilir ancak Tc noları tektir ya herkese benzersiz bir numara vereceksiniz yada Türkiye Cumhuriyeti'nin vermiş olduğu her kişi için b,ir tane olan numarayı kullanacaksınız ben bunun için farazide olsa çalışmalara başladım....

diğer hatalara bundan sonra bakacam siz bana gerçek tc nolarını temin edip bir lista halinde gönderin
eğer sizin dediğiniz gibi olmasında ısrar ediyorsanız hatalar peş,inizi bırakmayacaktır ve bende bu kadar çok hata ile çalışamam

Size bir şey söyleyeyim Nüfus müdürlüğünde sözleşmeli memurluk yaptım
Adı, Soyadı,Baba Adı,Anne Adı, Doum Gün ay ve yılı aynı hatta nüfusa kayıtlı olduğu il ilçe mah. aynı olan şahıslar gördüm tek ayraç TC NO idi
yada; ilçe kodu/cilt/hane/ birey sıra no kullanacaksınız 4 kriteri karşılaştırmaktansa tek kriteri karşılaştırmak daha iyidir. ya bana listeyi iletin yada benden pas.

Ercan_ÇELİKOĞLU · 5 Aralık 2007

o zaman birey sıra no

hsayar' Alıntı:
özürlünün tc kiml,ik noları eklenmek zorundadır....
bir velinin iki tane özürlü yakını olabilir ancak Tc noları tektir ya herkese benzersiz bir numara vereceksiniz yada Türkiye Cumhuriyeti'nin vermiş olduğu her kişi için b,ir tane olan numarayı kullanacaksınız ben bunun için farazide olsa çalışmalara başladım....

diğer hatalara bundan sonra bakacam siz bana gerçek tc nolarını temin edip bir lista halinde gönderin
eğer sizin dediğiniz gibi olmasında ısrar ediyorsanız hatalar peş,inizi bırakmayacaktır ve bende bu kadar çok hata ile çalışamam

Size bir şey söyleyeyim Nüfus müdürlüğünde sözleşmeli memurluk yaptım
Adı, Soyadı,Baba Adı,Anne Adı, Doum Gün ay ve yılı aynı hatta nüfusa kayıtlı olduğu il ilçe mah. aynı olan şahıslar gördüm tek ayraç TC NO idi
yada; ilçe kodu/cilt/hane/ birey sıra no kullanacaksınız 4 kriteri karşılaştırmaktansa tek kriteri karşılaştırmak daha iyidir. ya bana listeyi iletin yada benden pas.

O zaman birey sıra no veya sanal tc.Yaratalım sayın h sayar

ASMET67 · 5 Aralık 2007

Ben forumdaki kaydet butonunu ikiye böldüm.
1- Yeni kayıt. Girdiğiniz bilgileri direk son sarıa kaydeder.
2- Güncelle . Girdiğiniz bilgileri arar ve kaydeder . Aradığı kayıt yoksa kaydetmez.

Ercan_ÇELİKOĞLU · 5 Aralık 2007

aktar basınca

ASMET67' Alıntı:
Ben forumdaki kaydet butonunu ikiye böldüm.
1- Yeni kayıt. Girdiğiniz bilgileri direk son sarıa kaydeder.
2- Güncelle . Girdiğiniz bilgileri arar ve kaydeder . Aradığı kayıt yoksa kaydetmez.

aktara basınca debug veriyor

hsayar · 6 Aralık 2007

özürlünün 11 haneli tc nosunu girmek zorunlu hale getrilmiştir girmeden başka hiçbir yere veri giremezsiniz.
bul fonksiyonu direk combobox6 change bağlandığı için kaldırıldı.

Aynı tcnosuna sahip özürlü varsa değiştireyimmi diye sorar....
bu nedenle değiştir butonuda kaldırıldı.
yoksa kaydeder...
ücret bordrosunda ödeme miktarına ilişkin hata giderilmiştir.

Kod:

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
For Each ara In s1.Range("A1:A" & s1.Cells(65536, 1).End(xlUp).Row)
        If StrConv(Val(ara.Value), vbUpperCase) = StrConv(Val(ComboBox1.Value), vbUpperCase) Then
         
    TextBox13.Value = s1.Range(ara.Offset(0, 1).Address).Value
       Exit Sub
        End If
Next ara
Application.ScreenUpdating = True
End Sub

Kod:

Private Sub ComboBox6_Change()
Set s2 = ThisWorkbook.Worksheets("Bilgi_Girisi")
s2_sstr = s2.Cells(65536, 2).End(xlUp).Row
If Len(ComboBox6.Text) = 11 Then
    ComboBox3.Locked = False
    ComboBox4.Locked = False
    TextBox3.Locked = False
    TextBox4.Locked = False
    TextBox5.Locked = False
    TextBox6.Locked = False
    TextBox7.Locked = False
    TextBox8.Locked = False
    TextBox9.Locked = False
    TextBox10.Locked = False
    ComboBox1.Locked = False
    TextBox11.Locked = False
    TextBox12.Locked = False
    ComboBox2.Locked = False
    TextBox14.Locked = False
    TextBox15.Locked = False
    TextBox17.Locked = False
    ComboBox3.BackColor = &H80000005
    ComboBox4.BackColor = &H80000005
    TextBox3.BackColor = &H80000005
    TextBox4.BackColor = &H80000005
    TextBox5.BackColor = &H80000005
    TextBox6.BackColor = &H80000005
    TextBox7.BackColor = &H80000005
    TextBox8.BackColor = &H80000005
    TextBox9.BackColor = &H80000005
    TextBox10.BackColor = &H80000005
    ComboBox1.BackColor = &H80000005
    TextBox11.BackColor = &H80000005
    TextBox12.BackColor = &H80000005
    ComboBox2.BackColor = &H80000005
    TextBox14.BackColor = &H80000005
    TextBox15.BackColor = &H80000005
    TextBox17.BackColor = &H80000005
    For Each knt In s2.Range("b3:b" & s2.Cells(65536, 2).End(xlUp).Row)
        If knt.Value = ComboBox6.Text Then
            ara = s2.Range("b3:b" & s2_sstr).Find(ComboBox6.Text).Row
            ComboBox3 = Cells(ara, 3)
            ComboBox4 = Cells(ara, 4)
            TextBox3 = Cells(ara, 5)
            TextBox4 = Cells(ara, 6)
            TextBox5 = Cells(ara, 7)
            TextBox6 = Cells(ara, 8)
            TextBox7 = Cells(ara, 9)
            TextBox8 = Cells(ara, 10)
            TextBox9 = Cells(ara, 11)
            TextBox10 = Cells(ara, 12)
            ComboBox1 = Cells(ara, 13)
            TextBox11 = Cells(ara, 14)
            TextBox12 = Cells(ara, 15)
            ComboBox2 = Cells(ara, 16)
            TextBox14 = CDbl(Cells(ara, 17))
            TextBox15 = CDbl(Cells(ara, 18))
            TextBox16 = Cells(ara, 19)
            TextBox17 = Cells(ara, 20)
            GoTo son
        End If
    Next
Else
    GoTo bos
End If
GoTo son:

bos:
    ComboBox3.Locked = True
    ComboBox4.Locked = True
    TextBox3.Locked = True
    TextBox4.Locked = True
    TextBox5.Locked = True
    TextBox6.Locked = True
    TextBox7.Locked = True
    TextBox8.Locked = True
    TextBox9.Locked = True
    TextBox10.Locked = True
    ComboBox1.Locked = True
    TextBox11.Locked = True
    TextBox12.Locked = True
    ComboBox2.Locked = True
    TextBox14.Locked = True
    TextBox15.Locked = True
    TextBox17.Locked = True
    ComboBox3.BackColor = &H80000011
    ComboBox4.BackColor = &H80000011
    TextBox3.BackColor = &H80000011
    TextBox4.BackColor = &H80000011
    TextBox5.BackColor = &H80000011
    TextBox6.BackColor = &H80000011
    TextBox7.BackColor = &H80000011
    TextBox8.BackColor = &H80000011
    TextBox9.BackColor = &H80000011
    TextBox10.BackColor = &H80000011
    ComboBox1.BackColor = &H80000011
    TextBox11.BackColor = &H80000011
    TextBox12.BackColor = &H80000011
    ComboBox2.BackColor = &H80000011
    TextBox14.BackColor = &H80000011
    TextBox15.BackColor = &H80000011
    TextBox17.BackColor = &H80000011
    ComboBox3 = ""
    ComboBox4 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
    TextBox7 = ""
    TextBox8 = ""
    TextBox9 = ""
    TextBox10 = ""
    ComboBox1 = ""
    TextBox11 = ""
    TextBox12 = ""
    ComboBox2 = ""
    TextBox14 = ""
    TextBox15 = ""
    TextBox17 = ""
son:
End Sub

Kod:

Private Sub CommandButton1_Click()

For Each Nsn In Controls
If TypeName(Nsn) = "TextBox" Or TypeName(Nsn) = "ComboBox" Then ' NESNENIN ADI YAZILACAK
    If Nsn.Value = "" Then
        If Not Nsn.Name = "Textbox13" Then MsgBox Nsn.Name & "Bo&#351; B&#305;rak&#305;lamaz": Nsn.SetFocus: Exit Sub
        If Not Nsn.Name = "Combobox5" Then MsgBox Nsn.Name & "Bo&#351; B&#305;rak&#305;lamaz": Nsn.SetFocus: Exit Sub
    End If
End If
Next Nsn



If Len(ComboBox6.Text) <> 11 Then MsgBox "&#214;z&#252;rl&#252; Tc No 11 haneli olmal&#305;d&#305;r!": Exit Sub
If Len(TextBox10.Text) <> 11 Then MsgBox "Yak&#305;n&#305;n Tc No 11 haneli olmal&#305;d&#305;r!": Exit Sub



OzTcN = ComboBox6.Value       '&#214;z. Tcn
OzAdi = Evaluate("=PROPER(""" & ComboBox3.Value & """)")       'ADI
OzSad = Evaluate("=UPPER(""" & ComboBox4.Value & """)")      'SOYADI
YkAdi = Evaluate("=PROPER(""" & TextBox3.Value & """)")      'Yk. Ad&#305;
YkSad = Evaluate("=UPPER(""" & TextBox4.Value & """)")        'Yk. SAd&#305;
YkDrc = Evaluate("=PROPER(""" & TextBox5.Value & """)")       'Yk. Derecesi
YkDYr = Evaluate("=PROPER(""" & TextBox6.Value & """)")        'D. Yeri
YkDTr = TextBox7.Value        'D. tr
YkAAd = Evaluate("=PROPER(""" & TextBox8.Value & """)")        'A. Ad&#305;
YkBAd = Evaluate("=PROPER(""" & TextBox9.Value & """)")     'B. Ad&#305;
YkTcN = TextBox10.Value     'Yk. Tcn
BnKod = ComboBox1.Value      'banka Kodu
BnHsN = TextBox11.Value     'Hsp N
KAyOd = TextBox12.Value      'Ka&#231; Ayl&#305;k &#214;Deme
OdnAy = ComboBox2.Value '* 1    '&#214;denen Ay
OdmMk = CDbl(TextBox14.Value) '* 1   '&#246;deme mikt.
NAsUc = CDbl(TextBox15.Value) '* 1    'net asg.
Yonet = TextBox16.Value      'y&#246;netmelik
OnyTr = TextBox17.Value      'onay tarihi
Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
Set s2 = ThisWorkbook.Worksheets("Bilgi_Girisi")
Set s3 = ThisWorkbook.Worksheets("Ucret_Bodrosu")
Set s4 = ThisWorkbook.Worksheets("Ay_Listesi")
Set s5 = ThisWorkbook.Worksheets("Banka_Listesi")
'KAYDET veya G&#252;ncelle
For Each ara In s2.Range("b3:b" & s2.Cells(65536, 2).End(xlUp).Row)
    If ara.Value = ComboBox6.Text Then
        cevap = MsgBox(OzTcN & "Kimlik Numaras&#305;na Sahip Bir &#214;z&#252;rl&#252; var, G&#252;ncelleyecekmisiniz?", vbYesNo)
        If cevap = vbYes Then
            s2.Range(ara.Offset(0, 0).Address).Value = OzTcN
            s2.Range(ara.Offset(0, 0).Address).NumberFormat = "### ### ### ##"
            s2.Range(ara.Offset(0, 1).Address).Value = OzAdi
            s2.Range(ara.Offset(0, 2).Address).Value = OzSad
            s2.Range(ara.Offset(0, 3).Address).Value = YkAdi
            s2.Range(ara.Offset(0, 4).Address).Value = YkSad
            s2.Range(ara.Offset(0, 5).Address).Value = YkDrc
            s2.Range(ara.Offset(0, 6).Address).Value = YkDYr
            s2.Range(ara.Offset(0, 7).Address).Value = YkDTr
            s2.Range(ara.Offset(0, 8).Address).Value = YkAAd
            s2.Range(ara.Offset(0, 9).Address).Value = YkBAd
            s2.Range(ara.Offset(0, 10).Address).Value = YkTcN
            s2.Range(ara.Offset(0, 10).Address).NumberFormat = "### ### ### ##"     'Yk. Tcn
            s2.Range(ara.Offset(0, 11).Address).Value = BnKod
            s2.Range(ara.Offset(0, 12).Address).Value = BnHsN
            s2.Range(ara.Offset(0, 13).Address).Value = KAyOd
            s2.Range(ara.Offset(0, 14).Address).Value = OdnAy
            s2.Range(ara.Offset(0, 15).Address).Value = OdmMk
            s2.Range(ara.Offset(0, 16).Address).Value = NAsUc
            s2.Range(ara.Offset(0, 17).Address).Value = Yonet
            s2.Range(ara.Offset(0, 18).Address).Value = OnyTr
            MsgBox " Bilgileriniz Guncellendi"
            'Unload Me
            'UserForm1.Show
            Exit Sub
        Else
            MsgBox "G&#252;ncelle &#304;ptal"
            Exit Sub
        End If
    End If
Next ara
    say = s2.Cells(65536, 2).End(xlUp).Row
    s2.Cells(say + 1, "A").Value = s2.Cells(say, "A").Value + 1 * 1
    s2.Cells(say + 1, "B").Value = ComboBox6.Value
    s2.Cells(say + 1, "B").NumberFormat = "### ### ### ##"
    s2.Cells(say + 1, "c").Value = Evaluate("=PROPER(""" & ComboBox3.Value & """)")
    s2.Cells(say + 1, "D").Value = Evaluate("=UPPER(""" & ComboBox4.Value & """)")
    s2.Cells(say + 1, "E").Value = Evaluate("=PROPER(""" & TextBox3.Value & """)")
    s2.Cells(say + 1, "F").Value = Evaluate("=UPPER(""" & TextBox4.Value & """)")
    s2.Cells(say + 1, "G").Value = Evaluate("=PROPER(""" & TextBox5.Value & """)")
    s2.Cells(say + 1, "H").Value = Evaluate("=PROPER(""" & TextBox6.Value & """)")
    s2.Cells(say + 1, "I").Value = TextBox7.Value
    s2.Cells(say + 1, "J").Value = Evaluate("=PROPER(""" & TextBox8.Value & """)")
    s2.Cells(say + 1, "K").Value = Evaluate("=PROPER(""" & TextBox9.Value & """)")
    s2.Cells(say + 1, "L").Value = TextBox10.Value
    s2.Cells(say + 1, "L").NumberFormat = "### ### ### ##"
    s2.Cells(say + 1, "M").Value = ComboBox1.Value  '&#350;UBE KD
    s2.Cells(say + 1, "N").Value = TextBox11.Value  'HESAP NO
    s2.Cells(say + 1, "O").Value = TextBox12.Value
    s2.Cells(say + 1, "P").Value = ComboBox2.Value
    s2.Cells(say + 1, "Q").Value = CDbl(TextBox14.Value)
    s2.Cells(say + 1, "Q").NumberFormat = "#,##0.00"
    s2.Cells(say + 1, "R").Value = CDbl(TextBox15.Value)
    s2.Cells(say + 1, "R").NumberFormat = "#,##0.00"
    s2.Cells(say + 1, "S").Value = TextBox16.Value
    s2.Cells(say + 1, "T").Value = TextBox17.Value
    s2.Cells(say + 1, "A").Value = s2.Cells(say + 1, "A").Value & "."
    Rows(say).Select:    Selection.Copy
    Rows(say + 1).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    MsgBox " Yeni Kaydiniz Eklendi"
End Sub

Kod:

Private Sub CommandButton10_Click()
    
    If ComboBox5.Value = "&#220;cret Bordrosu" Then
        Call UcrBrdWrd
    ElseIf ComboBox5.Value = "Banka Listesi" Then
        Call BankL&#305;stWrd
    ElseIf ComboBox5.Value = "Ayl&#305;k Liste" Then
        Call AyL&#305;stWrd
    ElseIf ComboBox5.Value = "Rapor Se&#231;iniz..." Then
    End If
End Sub

Kod:

Private Sub CommandButton3_Click()
Call Exc_Tem
End Sub

Kod:

Private Sub Exc_Tem()
Application.ScreenUpdating = False

Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
Set s2 = ThisWorkbook.Worksheets("Bilgi_Girisi")
Set s3 = ThisWorkbook.Worksheets("Ucret_Bodrosu")
Set s4 = ThisWorkbook.Worksheets("Ay_Listesi")
Set s5 = ThisWorkbook.Worksheets("Banka_Listesi")
say = s3.Cells(65536, 2).End(xlUp).Row
s3.Range("A7:Z" & say + 7).ClearContents
say1 = s4.Cells(65536, 2).End(xlUp).Row
s4.Range("A5:Z" & say + 7).ClearContents
say2 = s5.Cells(65536, 2).End(xlUp).Row
s5.Range("A3:Z" & say + 7).ClearContents
MsgBox "Silme Tamamland&#305;"
End Sub

Kod:

Private Sub CommandButton4_Click()
Unload Me
End Sub

Kod:

Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
Call Exc_Tem
Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
Set s2 = ThisWorkbook.Worksheets("Bilgi_Girisi")
Set s3 = ThisWorkbook.Worksheets("Ucret_Bodrosu")
Set s4 = ThisWorkbook.Worksheets("Ay_Listesi")
Set s5 = ThisWorkbook.Worksheets("Banka_Listesi")
 s1.Range("b65536").End(xlUp).Offset(1, 0).Value = ComboBox1
say = s3.Cells(65536, 2).End(xlUp).Row
s3.Range("B7:Z" & say + 7).ClearContents
say1 = s4.Cells(65536, 2).End(xlUp).Row
s4.Range("B5:Z" & say + 7).ClearContents
say2 = s5.Cells(65536, 2).End(xlUp).Row
s5.Range("B3:Z" & say + 7).ClearContents

'&#252;cret bodrosu
For i = 3 To s2.Cells(65536, 2).End(xlUp).Row
s3.Range("b65536").End(xlUp).Offset(1, -1).Value = i - 2 & ".)"
s3.Range("b65536").End(xlUp).Offset(1, -1).HorizontalAlignment = xlRight
s3.Range("b65536").End(xlUp).Offset(1, -1).Font.Bold = True
s3.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeLeft).LineStyle = xlContinuous
s3.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeTop).LineStyle = xlContinuous
s3.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeBottom).LineStyle = xlContinuous
s3.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeRight).LineStyle = xlContinuous
s2.Range("c" & i & ":f" & i).Copy
s3.Range("b65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
s2.Range("n" & i).Copy
s3.Range("b65536").End(xlUp).Offset(0, 4).PasteSpecial xlPasteAll
s2.Range("o" & i).Copy
s3.Range("b65536").End(xlUp).Offset(0, 5).PasteSpecial xlPasteAll
s2.Range("Q" & i & ":T" & i).Copy
s3.Range("b65536").End(xlUp).Offset(0, 6).PasteSpecial xlPasteAll
Next i
    s3.Select
    Range("A7:K" & s3.Cells(65536, "k").End(xlUp).Row).Select
    Selection.Font.Bold = False

'Ay_Listesi
For i = 3 To s2.Cells(65536, 2).End(xlUp).Row
s4.Range("b65536").End(xlUp).Offset(1, -1).Value = i - 2 & ".)"
s4.Range("b65536").End(xlUp).Offset(1, -1).HorizontalAlignment = xlRight
s4.Range("b65536").End(xlUp).Offset(1, -1).Font.Bold = True
s4.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeLeft).LineStyle = xlContinuous
s4.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeTop).LineStyle = xlContinuous
s4.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeBottom).LineStyle = xlContinuous
s4.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeRight).LineStyle = xlContinuous
s2.Range("C" & i & ":L" & i).Copy
s4.Range("b65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
s2.Range("R" & i).Copy
s4.Range("b65536").End(xlUp).Offset(0, 10).PasteSpecial xlPasteAll
Next i
    s4.Select
    Range("A5:L" & s4.Cells(65536, "L").End(xlUp).Row).Select
    Selection.Font.Bold = False

'Banka_Listesi
s5.Range("A3").Value = "Sr No"
s5.Range("B3").Value = "ADI"
s5.Range("c3").Value = "SOYADI"
s5.Range("d3").Value = "&#214;denecek Ay"
s5.Range("e3").Value = "&#214;denecek Miktar"
s5.Range("f3").Value = "Banka Kodu"
s5.Range("g3").Value = "Hesap No"

sno = 0
For i = 3 To s2.Cells(65536, 2).End(xlUp).Row

s5.Range("b65536").End(xlUp).Offset(1, -1).Value = i - 2 & ".)"
s5.Range("b65536").End(xlUp).Offset(1, -1).HorizontalAlignment = xlRight
s5.Range("b65536").End(xlUp).Offset(1, -1).Font.Bold = True
s5.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeLeft).LineStyle = xlContinuous
s5.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeTop).LineStyle = xlContinuous
s5.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeBottom).LineStyle = xlContinuous
s5.Range("b65536").End(xlUp).Offset(1, -1).Borders(xlEdgeRight).LineStyle = xlContinuous
s2.Range("E" & i & ":F" & i).Copy
s5.Range("b65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
s2.Range("P" & i).Copy
s5.Range("b65536").End(xlUp).Offset(0, 2).PasteSpecial xlPasteAll
s2.Range("R" & i).Copy
s5.Range("b65536").End(xlUp).Offset(0, 3).PasteSpecial xlPasteAll
s2.Range("M" & i & ":N" & i).Copy
s5.Range("b65536").End(xlUp).Offset(0, 4).PasteSpecial xlPasteAll
Next i
    s5.Select
    Range("A4:G" & s5.Cells(65536, "G").End(xlUp).Row).Select
    Selection.Font.Bold = False

MsgBox "Aktarma Tamamland&#305;"
Application.ScreenUpdating = True
            
End Sub

Kod:

Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim toplam, toplam1, toplam2, toplam3 As Double
If TextBox12 = "" Then Exit Sub
If TextBox14 = "" Then Exit Sub
toplam = TextBox12
toplam1 = TextBox14
toplam2 = toplam * toplam1
TextBox15.Value = FormatNumber(toplam2, 2)
On Error GoTo 0
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
    ComboBox3.Locked = True
    ComboBox4.Locked = True
    TextBox3.Locked = True
    TextBox4.Locked = True
    TextBox5.Locked = True
    TextBox6.Locked = True
    TextBox7.Locked = True
    TextBox8.Locked = True
    TextBox9.Locked = True
    TextBox10.Locked = True
    ComboBox1.Locked = True
    TextBox11.Locked = True
    TextBox12.Locked = True
    ComboBox2.Locked = True
    TextBox14.Locked = True
    TextBox15.Locked = True
    TextBox17.Locked = True
    
    ComboBox3.BackColor = &H80000011
    ComboBox4.BackColor = &H80000011
    TextBox3.BackColor = &H80000011
    TextBox4.BackColor = &H80000011
    TextBox5.BackColor = &H80000011
    TextBox6.BackColor = &H80000011
    TextBox7.BackColor = &H80000011
    TextBox8.BackColor = &H80000011
    TextBox9.BackColor = &H80000011
    TextBox10.BackColor = &H80000011
    ComboBox1.BackColor = &H80000011
    TextBox11.BackColor = &H80000011
    TextBox12.BackColor = &H80000011
    ComboBox2.BackColor = &H80000011
    TextBox14.BackColor = &H80000011
    TextBox15.BackColor = &H80000011
    TextBox17.BackColor = &H80000011
       
ComboBox5.AddItem "Rapor Se&#231;iniz"
ComboBox5.AddItem "&#220;cret Bordrosu"
ComboBox5.AddItem "Banka Listesi"
ComboBox5.AddItem "Ayl&#305;k Liste"
ComboBox5.Value = "Rapor Se&#231;iniz"
ComboBox5.Style = fmStyleDropDownList
'On Error Resume Next
Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("veri")
Set s2 = ThisWorkbook.Worksheets("Bilgi_Girisi")
Set s3 = ThisWorkbook.Worksheets("Ucret_Bodrosu")
Set s4 = ThisWorkbook.Worksheets("Ay_Listesi")
Set s5 = ThisWorkbook.Worksheets("Banka_Listesi")
Dim i&#37;
Dim TMP$
    ComboBox2.Clear
    For i = 1 To 12
        TMP = Format(DateSerial(2004, i, 1), "mmmm")
        ComboBox2.AddItem TMP
    Next i
say = s2.Cells(65536, 2).End(xlUp).Row
s2.Select
ComboBox6.ColumnCount = 3
ComboBox6.ColumnWidths = "75;40;50"
ComboBox6.ListRows = "5"
ComboBox6.RowSource = "Bilgi_Girisi!b3: D" & Cells(65536, 2).End(xlUp).Row

ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "30;50"
ComboBox1.ListRows = "5"
ComboBox1.RowSource = "veri!a2: b" & s1.Cells(65536, 1).End(xlUp).Row
TextBox16.Value = "12.MADDE"
Application.ScreenUpdating = True
End Sub

Ercan_ÇELİKOĞLU · 6 Aralık 2007

dakika 1 gol 1
Ücret Bordrosu_Raporla dediğimde
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
debug çıktı

hsayar · 6 Aralık 2007

ben neden hata almadım çok merak ediyorum

hsayar · 6 Aralık 2007

hata almaya devem ediyormusunuz?
ne girdiğinizde hata veriyor

Ercan_ÇELİKOĞLU · 7 Aralık 2007

Teşekkürler

hsayar' Alıntı:
hata almaya devem ediyormusunuz?
ne girdiğinizde hata veriyor

Çok Ama Çok Teşekkür ederim ilk mesajımda dediğim gibi allah c.c. razı olsun!

Ercan_ÇELİKOĞLU · 7 Aralık 2007

pardon Sheets.Banka_Listesi Raporlama da 61 kişi yerine 62 kişi yazıyor tek hata o Şu anda

Aktarma,Yeni Kayıt ve Raporda hata

Ercan_ÇELİKOĞLU

Ercan_ÇELİKOĞLU

Ercan_ÇELİKOĞLU

isfa5878

Banned

Ercan_ÇELİKOĞLU

hsayar

hsayar

isfa5878

Banned

hsayar

Ercan_ÇELİKOĞLU

hsayar

Ercan_ÇELİKOĞLU

ASMET67

Ercan_ÇELİKOĞLU

hsayar

Ercan_ÇELİKOĞLU

hsayar

hsayar

Ercan_ÇELİKOĞLU

Ercan_ÇELİKOĞLU