Veri Girişinin İlgili Sayfada Aynı Satırda Olması YARDI

[teknik]

Veri Girişinin Ýlgili Sayfada Aynı Satırda Olması YARDI

Arkadaşlar başka bir konu için hazırlanan çalışma ama küçük bir değişikle benim de işimi görecek
Ekteki dosyada satıra girilen veri ilgili sayfa ekleme yapıyor. eğer bütün sarı ile renklendirilen hücreler dolu olursa tam işlem yapıyor. ama hücrelerin biri boş olursa bir sonraki kayıtta ilgili kayıtın tam karşısına yazmıyor bir önceki kayıtın karşısındaki hücreye yazıyor.bir kayıtta örneğin çıkış bölümü boş bırakıldı bir sonraki kayıtta çıkış kısmına tarih veya veri girilirse aynı kayıtın karşısına yazsın önceki kaydın çıkış bölümü yine boş kalsın şimdiki konumda bir önceki kayıtın karşısına yazıyor. boş satırları kontrol ederek takip ediyor. bu durumda da kayıtlara yanlış veriler girilmiş oluyor bunu düzeltilirse benim çok işime gelecek ilgilenirseniz sevinirim.

 

[teknik]

İlgilenen Arkadaş Var mı?

 

[Levent Menteşoğlu]

Commandbutttondaki kodu aşağıdaki kod ile değişrirerek deneyin.

[vb:1:cf887735fa]Dim sonsat As Integer
Private Sub CommandButton1_Click()
Dim i As Integer
Set s1 = Sheets("GİRİÞ")
For i = 1 To Worksheets.Count
If s1.[c6].Value = Worksheets(i).Name Then
sonsat = Worksheets(i).Cells.CurrentRegion.Rows.Count
Worksheets(i).Cells(sonsat + 1, 1) = s1.Cells(3, 3).Value
Worksheets(i).Cells(sonsat + 1, 2) = s1.Cells(4, 3).Value
Worksheets(i).Cells(sonsat + 1, 3) = s1.Cells(5, 3).Value
Worksheets(i).Cells(sonsat + 1, 4) = s1.Cells(6, 3).Value
Worksheets(i).Cells(sonsat + 1, 5) = s1.Cells(7, 3).Value
Call devam
End If
Next i
If Cells(3, 3).Value <> Empty Then
MsgBox "Geçerli Giriş Tarihi ile herhangi bir sayfaya kayıt yapılamadı" & _
vbNewLine & "Lütfen kontrol edip tekrar deneyiniz", vbInformation, "Hata Oluştu"
Exit Sub
End If
End Sub
[/vb:1:cf887735fa]