userform işleme göre eklenenleri tek butonla yapmak

[netvolxxx]

userform işleme göre eklenenleri tek butonla nasıl yapabilirim combobox1 den seçtiğim ürüne göre bi işlem d alanına kayıt yapıyor farklı bi işlem de c alanına kayıt

bu iki işlemi kodda tek butonla nasıl yapıcam yardımcı olursanız.....
kullandığım kodlar aşağıda


Private Sub CommandButton15_Click()
On Local Error Resume Next
Dim urunAdi As String
Dim urunSatir As Long
Sheets("Teklif").Range("f13") = TextBox13.Value
If ComboBox1.ListIndex = -1 Then
MsgBox "Lütfen bir ürün seçiniz.", vbExclamation
Exit Sub
End If
urunAdi = ComboBox1.Value
urunSatir = ComboBox1.List(ComboBox1.ListIndex, 1)
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 0, "D").Value = TextBox5.Value + 0
TextBox5 = ""
MsgBox "Kaydedildi.", vbInformation
end sub


Private Sub CommandButton16_Click()
On Local Error Resume Next
Dim urunAdi As String
Dim urunSatir As Long
If ComboBox1.ListIndex = -1 Then
MsgBox "Lütfen bir ürün seçiniz.", vbExclamation
Exit Sub
End If
urunAdi = ComboBox1.Value
urunSatir = ComboBox1.List(ComboBox1.ListIndex, 1)
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 3, "c").Value = ComboBox2.Value

MsgBox "Kaydedildi.", vbInformation
end sub

 

[catalinastrap]

Aşağıdaki gibi bir düzenleme yaptım kontrol edermisiniz.

Private Sub CommandButton15_Click()
On Local Error Resume Next
Dim urunAdi As String
Dim urunSatir As Long


Sheets("Teklif").Range("F13") = TextBox13.Value
If ComboBox1.ListIndex = -1 Then
MsgBox "Lütfen bir ürün seçiniz.", vbExclamation
Exit Sub
End If
urunAdi = ComboBox1.Value
urunSatir = ComboBox1.List(ComboBox1.ListIndex, 1)
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 0, "D").Value = TextBox5.Value + 0
TextBox5 = ""

If ComboBox1.ListIndex <> -1 Then
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 3, "C").Value = ComboBox2.Value
End If
MsgBox "Kaydedildi.", vbInformation
End Sub

 

[netvolxxx]

Aşağıdaki gibi bir düzenleme yaptım kontrol edermisiniz.

Private Sub CommandButton15_Click()
On Local Error Resume Next
Dim urunAdi As String
Dim urunSatir As Long


Sheets("Teklif").Range("F13") = TextBox13.Value
If ComboBox1.ListIndex = -1 Then
MsgBox "Lütfen bir ürün seçiniz.", vbExclamation
Exit Sub
End If
urunAdi = ComboBox1.Value
urunSatir = ComboBox1.List(ComboBox1.ListIndex, 1)
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 0, "D").Value = TextBox5.Value + 0
TextBox5 = ""

If ComboBox1.ListIndex <> -1 Then
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 3, "C").Value = ComboBox2.Value
End If
MsgBox "Kaydedildi.", vbInformation
End Sub

çok teşekürrr ederim özgür bey çalıştı..

 

[netvolxxx]

Aşağıdaki gibi bir düzenleme yaptım kontrol edermisiniz.

Private Sub CommandButton15_Click()
On Local Error Resume Next
Dim urunAdi As String
Dim urunSatir As Long


Sheets("Teklif").Range("F13") = TextBox13.Value
If ComboBox1.ListIndex = -1 Then
MsgBox "Lütfen bir ürün seçiniz.", vbExclamation
Exit Sub
End If
urunAdi = ComboBox1.Value
urunSatir = ComboBox1.List(ComboBox1.ListIndex, 1)
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 0, "D").Value = TextBox5.Value + 0
TextBox5 = ""

If ComboBox1.ListIndex <> -1 Then
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 3, "C").Value = ComboBox2.Value
End If
MsgBox "Kaydedildi.", vbInformation
End Sub

özgür bey merhaba bi sorum daha olcaktı bitane daha textbox varsa nasıl olcak örnek

ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 4, "c").Value = TextBox2.Value

alt satıra geçip kod devam ettim ama olmadı
If ComboBox1.ListIndex <> -1 Then
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 4, "c").Value = TextBox2.Value
End If

 

[catalinastrap]

şöyle denermisiniz

Private Sub CommandButton15_Click()
On Local Error Resume Next
Dim urunAdi As String
Dim urunSatir As Long

Sheets("Teklif").Range("F13") = TextBox13.Value
If ComboBox1.ListIndex = -1 Then
MsgBox "Lütfen bir ürün seçiniz.", vbExclamation
Exit Sub
End If

urunAdi = ComboBox1.Value
urunSatir = ComboBox1.List(ComboBox1.ListIndex, 1)
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 0, "D").Value = TextBox5.Value + 0
TextBox5 = ""

If ComboBox1.ListIndex <> -1 Then
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 3, "C").Value = ComboBox2.Value
End If

ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 4, "C").Value = TextBox2.Value

MsgBox "Kaydedildi.", vbInformation
End Sub

 

[netvolxxx]

şöyle denermisiniz

Private Sub CommandButton15_Click()
On Local Error Resume Next
Dim urunAdi As String
Dim urunSatir As Long

Sheets("Teklif").Range("F13") = TextBox13.Value
If ComboBox1.ListIndex = -1 Then
MsgBox "Lütfen bir ürün seçiniz.", vbExclamation
Exit Sub
End If

urunAdi = ComboBox1.Value
urunSatir = ComboBox1.List(ComboBox1.ListIndex, 1)
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 0, "D").Value = TextBox5.Value + 0
TextBox5 = ""

If ComboBox1.ListIndex <> -1 Then
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 3, "C").Value = ComboBox2.Value
End If

ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 4, "C").Value = TextBox2.Value

MsgBox "Kaydedildi.", vbInformation
End Sub

yok bunu ben denemiştim zaten olmamştı ustad....

 

[catalinastrap]

If ComboBox1.ListIndex <> -1 Then
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 3, "C").Value = ComboBox2.Value
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 4, "C").Value = TextBox2.Value
End If


şu bloğun arasına koyup denermisiniz yada dosyayı ekleyin bakayım böyle biraz afaki oluyor çünkü

 

[netvolxxx]

If ComboBox1.ListIndex <> -1 Then
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 3, "C").Value = ComboBox2.Value
ThisWorkbook.Sheets("Teklif").Cells(urunSatir + 4, "C").Value = TextBox2.Value
End If


şu bloğun arasına koyup denermisiniz yada dosyayı ekleyin bakayım böyle biraz afaki oluyor çünkü

bu şekilde de denemiştim olmadı da ben de bitane fazla buton olsun dedim artık yapcak bir şey yok teşekürr ederim sağolun....