Üretim Takip2

[programer]

kayıt butonunu hallettim ama kaydet dediğim zaman boş olan TextBox larıda kaydediyo. bunun için her sıranın başıba bir if değiri koyup eğer ilgili texbox boşsa işlem yapmasın gibi.

 

[programer]

Arkadaşlar bi yardımcı olsanız. Bayramdan önce halletmem gerekiyo.
bende uğraştım ama beceremedim.

 

[programer]

Bi cevap yazıcak arkaş yokmu. 1 hafta oldu elle yazmaktan yoruldum valla. allah rızası için yardım...

 

[Levent Menteşoğlu]

Kaydet butonunuzda aşağıdaki kodu deneyin.

[vb:1:7bcc0cface]Private Sub CommandButton1_Click()
Set s1 = Sheets("İşlemler")
Dim t As Range
If ComboBox1 = "" Then
MsgBox "SİPARİÞ NO BOÞ BIRAKILAMAZ..."
Exit Sub
End If
s1.[a2:f65536].ClearContents
For a = 100 To 189 Step 3
If Controls("textbox" & a) = "" Then Exit Sub
c = c + 1
s1.Cells(c + 1, "a") = c
s1.Cells(c + 1, "b") = CLng(CDate(TextBox190.Value))
s1.Cells(c + 1, "c") = ComboBox1.Value
s1.Cells(c + 1, "d") = Controls("textbox" & a)
s1.Cells(c + 1, "e") = Controls("textbox" & a + 1)
s1.Cells(c + 1, "f") = Controls("textbox" & a + 2)
Next
MsgBox "KAYIT ÞLEMİ TAMAMLANMIÞTIR"
End Sub[/vb:1:7bcc0cface]

 

[programer]

Ramazan Bayramınız Mübarek Olsun Arkadaşlar

leventm verdiğiniz kod çalışıyor ama ikinci kez farklı bir üretim girdiğim zaman daha önce girdiğim üretim siliniyor bende kodu aşağıdaki gibi değiştirdim ama çalışmadı.

Private Sub CommandButton1_Click()
Set s1 = Sheets("İşlemler")
Dim t As Range
If ComboBox1 = "" Then
MsgBox "SİPARİÞ NO BOÞ BIRAKILAMAZ..."
Exit Sub
End If
dolusay = WorksheetFunction.CountA(Worksheets("İşlemler").[a1:a60000]) + 1
Worksheets("İşlemler").Cells(dolusay, "a").Value = dolusay - 1
dolusay = WorksheetFunction.CountA(Worksheets("İşlemler").[a1:a60000])
s1.[a2:f65536].ClearContents
For a = 100 To 189 Step 3
If Controls("textbox" & a) = "" Then Exit Sub
c = c + 1
s1.Cells(c + 1, "a") = c
s1.Cells(c + 1, "b") = CLng(CDate(TextBox190.Value))
s1.Cells(c + 1, "c") = ComboBox1.Value
s1.Cells(c + 1, "d") = Controls("textbox" & a)
s1.Cells(c + 1, "e") = Controls("textbox" & a + 1)
s1.Cells(c + 1, "f") = Controls("textbox" & a + 2)
Next
MsgBox "KAYIT ÞLEMİ TAMAMLANMIÞTIR"
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:7cb24cca06]Private Sub CommandButton1_Click()
Set s1 = Sheets("İşlemler")
Dim t As Range
If ComboBox1 = "" Then
MsgBox "SİPARİÞ NO BOÞ BIRAKILAMAZ..."
Exit Sub
End If
c = WorksheetFunction.CountA(s1.[c2:c65536]) + 2
For a = 100 To 189 Step 3
If Controls("textbox" & a) = "" Then Exit Sub
s1.Cells(c, "a") = c - 1
s1.Cells(c, "b") = CLng(CDate(TextBox190.Value))
s1.Cells(c, "c") = ComboBox1.Value
s1.Cells(c, "d") = Controls("textbox" & a)
s1.Cells(c, "e") = Controls("textbox" & a + 1)
s1.Cells(c, "f") = Controls("textbox" & a + 2)
Next
MsgBox "KAYIT ÞLEMİ TAMAMLANMIÞTIR"
End Sub[/vb:1:7cb24cca06]

 

[programer]

Sayın leventm yardımlarınız için teşekkür ederim verdiğiniz kodu aşağıdaki gibi düzelttim çalışıyor. Yalnız TextBox lara girdiğim veri excelde sayı biçiminde görünmüyor. Hücreleri biçimlendir seceneğini kullandım oda işe yaramadı. Ancak üzerine tıklayıp sayıya dönüştür dediğim zaman normale dönüyo bunun için ne yapmam gerek

Private Sub CommandButton1_Click()
Set s1 = Sheets("İşlemler")
Dim t As Range
If ComboBox1 = "" Then
MsgBox "SİPARİÞ NO BOÞ BIRAKILAMAZ..."
Exit Sub
End If
c = WorksheetFunction.CountA(Worksheets("İşlemler").[a1:a60000]) - 1
For a = 100 To 189 Step 3
If Controls("textbox" & a) = "" Then Exit Sub
c = c + 1
s1.Cells(c + 1, "a") = c
s1.Cells(c + 1, "b") = CLng(CDate(TextBox190.Value))
s1.Cells(c + 1, "c") = ComboBox1.Value
s1.Cells(c + 1, "d") = Controls("textbox" & a)
s1.Cells(c + 1, "e") = Controls("textbox" & a + 1)
s1.Cells(c + 1, "f") = Controls("textbox" & a + 2)
Next
MsgBox "KAYIT ÞLEMİ TAMAMLANMIÞTIR"
End Sub

 

[Levent Menteşoğlu]

Bunun en pratik yolu aktarılan veriyi 1 (bir) ile çarpmaktır. Ã?rneğin;

s1.Cells(c + 1, "d") = Controls("textbox" & a) *1

 

[programer]

Sayın leventm yardımlarınız için çok teşekkür ederim.