texbox3 de verı yoksa texbox1 ı kaydetme

[osmanucel]

Bırını yapsanız bana dıgerlerını uyarlarım ben
yalnız bırıncı sıra mecburı ıslıyor
ıkıncı sırada eger malzeme yoksa
carı hesap ısmı ıslemesın
ıstedıgım bu
raporlamada hata verıyo cunkı

 

[osmanucel]

olmadımı acaba ömer bey

 

[osmanucel]

Bu ıs yapılamazmı acaba bı yardımcı olabılecek bırılerı yokmu

 

[Ömer]

Tam olarak dosyada yapmak istediğinizi anlamadım. Başlığa göre istediğiniz:

"COMBOBOX 4 BOS ISE COMBOBOX 1 KAYIT YAPMASIN"

Kodlar da:

Cells(son, "G") = ComboBox1

yerine aşağıdaki satırı yazın.

If ComboBox4.Value <> "" Then Cells(son, "G") = ComboBox1

Bu şekilde yazıp deneyin.

 

[osmanucel]

cok sagol ömer bey sorunu çözdum sukur sehır dısındaydım bakamadım yenı gördum daha

 

[osmanucel]

Private Sub CommandButton1_Click()
Sheets("ALIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "A") = CDbl(TextBox47.Value)
Cells(son, "B") = CDbl(CDate(TextBox1))
Cells(son, "C") = TextBox2
Cells(son, "D") = TextBox3
Cells(son, "E") = ("ALIŞ")
Cells(son, "F") = ComboBox1
Cells(son, "G") = ComboBox3
Cells(son, "H") = CDbl(TextBox5.Value)
Cells(son, "I") = CDbl(TextBox6.Value)
Cells(son, "J") = TextBox8


Sheets("ALIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "H") = ComboBox4
If ComboBox4.Value <> "" Then
Cells(son, "G") = ComboBox1
Else
Cells(son, "G") = ""
End If
Cells(son, "H") = ComboBox4
If ComboBox4.Value <> "" Then
Cells(son, "I") = CDbl(TextBox12.Value)
Else
Cells(son, "I") = ""
End If
Cells(son, "H") = ComboBox4
If ComboBox4.Value <> "" Then
Cells(son, "J") = CDbl(TextBox13.Value)
Else
Cells(son, "J") = ""
End If
Cells(son, "K") = TextBox15

Sheets("ALIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "H") = ComboBox5
If ComboBox5.Value <> "" Then
Cells(son, "G") = ComboBox1
Else
Cells(son, "G") = ""
End If
Cells(son, "H") = ComboBox5
If ComboBox5.Value <> "" Then
Cells(son, "I") = CDbl(TextBox19.Value)
Else
Cells(son, "I") = ""
End If
Cells(son, "H") = ComboBox5
If ComboBox5.Value <> "" Then
Cells(son, "J") = CDbl(TextBox20.Value)
Else
Cells(son, "J") = ""
End If
Cells(son, "K") = TextBox22

Sheets("ALIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "H") = ComboBox6
If ComboBox6.Value <> "" Then
Cells(son, "G") = ComboBox1
Else
Cells(son, "G") = ""
End If
Cells(son, "H") = ComboBox6
If ComboBox6.Value <> "" Then
Cells(son, "I") = CDbl(TextBox26.Value)
Else
Cells(son, "I") = ""
End If
Cells(son, "H") = ComboBox6
If ComboBox6.Value <> "" Then
Cells(son, "J") = CDbl(TextBox27.Value)
Else
Cells(son, "J") = ""
End If
Cells(son, "K") = TextBox29


Sheets("ALIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "H") = ComboBox7
If ComboBox7.Value <> "" Then
Cells(son, "G") = ComboBox1
Else
Cells(son, "G") = ""
End If
Cells(son, "H") = ComboBox7
If ComboBox7.Value <> "" Then
Cells(son, "I") = CDbl(TextBox33.Value)
Else
Cells(son, "I") = ""
End If
Cells(son, "H") = ComboBox7
If ComboBox7.Value <> "" Then
Cells(son, "J") = CDbl(TextBox34.Value)
Else
Cells(son, "J") = ""
End If
Cells(son, "K") = TextBox36

Sheets("ALIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "H") = ComboBox8
If ComboBox8.Value <> "" Then
Cells(son, "G") = ComboBox1
Else
Cells(son, "G") = ""
End If
Cells(son, "H") = ComboBox8
If ComboBox8.Value <> "" Then
Cells(son, "I") = CDbl(TextBox40.Value)
Else
Cells(son, "I") = ""
End If
Cells(son, "H") = ComboBox8
If ComboBox8.Value <> "" Then
Cells(son, "J") = CDbl(TextBox41.Value)
Else
Cells(son, "J") = ""
End If
Cells(son, "K") = TextBox43

Sheets("SATIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "C") = CDbl(CDate(TextBox1))
Cells(son, "D") = TextBox2
Cells(son, "E") = TextBox4
Cells(son, "F") = ("SATIŞ")
Cells(son, "G") = ComboBox2
Cells(son, "H") = ComboBox3
Cells(son, "I") = CDbl(TextBox5.Value)
Cells(son, "J") = CDbl(TextBox7.Value)
Cells(son, "K") = TextBox9

Sheets("SATIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "H") = ComboBox4
If ComboBox4.Value <> "" Then
Cells(son, "G") = ComboBox1
Else
Cells(son, "G") = ""
End If
Cells(son, "H") = ComboBox4
If ComboBox4.Value <> "" Then
Cells(son, "I") = CDbl(TextBox12.Value)
Else
Cells(son, "I") = ""
End If
Cells(son, "H") = ComboBox4
If ComboBox4.Value <> "" Then
Cells(son, "J") = CDbl(TextBox14.Value)
Else
Cells(son, "J") = ""
End If
Cells(son, "K") = TextBox16

Sheets("SATIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "H") = ComboBox5
If ComboBox5.Value <> "" Then
Cells(son, "G") = ComboBox1
Else
Cells(son, "G") = ""
End If
Cells(son, "H") = ComboBox5
If ComboBox5.Value <> "" Then
Cells(son, "I") = CDbl(TextBox19.Value)
Else
Cells(son, "I") = ""
End If
Cells(son, "H") = ComboBox5
If ComboBox5.Value <> "" Then
Cells(son, "J") = CDbl(TextBox21.Value)
Else
Cells(son, "J") = ""
End If
Cells(son, "K") = TextBox23

Sheets("SATIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "H") = ComboBox6
If ComboBox6.Value <> "" Then
Cells(son, "G") = ComboBox1
Else
Cells(son, "G") = ""
End If
Cells(son, "H") = ComboBox6
If ComboBox6.Value <> "" Then
Cells(son, "I") = CDbl(TextBox26.Value)
Else
Cells(son, "I") = ""
End If
Cells(son, "H") = ComboBox6
If ComboBox6.Value <> "" Then
Cells(son, "J") = CDbl(TextBox28.Value)
Else
Cells(son, "J") = ""
End If
Cells(son, "K") = TextBox30


Sheets("SATIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "H") = ComboBox7
If ComboBox7.Value <> "" Then
Cells(son, "G") = ComboBox1
Else
Cells(son, "G") = ""
End If
Cells(son, "H") = ComboBox7
If ComboBox7.Value <> "" Then
Cells(son, "I") = CDbl(TextBox33.Value)
Else
Cells(son, "I") = ""
End If
Cells(son, "H") = ComboBox7
If ComboBox7.Value <> "" Then
Cells(son, "J") = CDbl(TextBox35.Value)
Else
Cells(son, "J") = ""
End If
Cells(son, "K") = TextBox37

Sheets("SATIŞ").Select
son = Cells(65536, "G").End(xlUp).Row + 1
Cells(son, "H") = ComboBox8
If ComboBox8.Value <> "" Then
Cells(son, "G") = ComboBox1
Else
Cells(son, "G") = ""
End If
Cells(son, "H") = ComboBox8
If ComboBox8.Value <> "" Then
Cells(son, "I") = CDbl(TextBox40.Value)
Else
Cells(son, "I") = ""
End If
Cells(son, "H") = ComboBox8
If ComboBox8.Value <> "" Then
Cells(son, "J") = CDbl(TextBox42.Value)
Else
Cells(son, "J") = ""
End If
Cells(son, "K") = TextBox44


On Error Resume Next
TextBox3.Value = L05.Caption + 1
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
TextBox19.Value = ""
TextBox20.Value = ""
TextBox21.Value = ""
TextBox22.Value = ""
TextBox23.Value = ""
TextBox24.Value = ""
TextBox25.Value = ""
TextBox26.Value = ""
TextBox27.Value = ""
TextBox28.Value = ""
TextBox29.Value = ""
TextBox30.Value = ""
TextBox31.Value = ""
TextBox32.Value = ""
TextBox33.Value = ""
TextBox34.Value = ""
TextBox35.Value = ""
TextBox36.Value = ""
TextBox37.Value = ""
TextBox38.Value = ""
TextBox39.Value = ""
TextBox40.Value = ""
TextBox41.Value = ""
TextBox42.Value = ""
TextBox43.Value = ""
TextBox44.Value = ""
TextBox45.Value = ""
TextBox46.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
ComboBox6.Value = ""
ComboBox7.Value = ""
ComboBox8.Value = ""
ComboBox3.Value = ""
E.Value = ""
k.Value = ""
TextBox3.SetFocus
Kayıt = True
End Sub

 

[osmanucel]

hıc mecbur olmadıgınız halde bıze yardım edıyorsunuz inşallah hep yuzunuz guler allah yokluğunuzu göstermesın