userformdan ıkı sayfaya kayıt

[mesutalkan]

merhaba ektekı dosyada arıza sayfasında gırılen urunlerın aynı zamanda çıkış yapıyor olması gerekıyor bunu nasıl saglarım

 

[vardar07]

Merhaba aşağıdaki kırmızılı ve mavili yerleri çıkış sayfasına göre düzenleyip denermisiniz.

Private Sub CommandButton1_Click()
    If TextBox1.Text <> "" And TextBox3.Text <> "" Then
        Son_Dolu_Satir = Sheets("ARIZA").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("ARIZA").Range("A" & Bos_Satir).Value = _
    Application.WorksheetFunction.Max(Sheets("ARIZA").Range("A:A")) + 1
   Sheets("ARIZA").Range("E" & Bos_Satir).Value = ComboBox1.Text
   Sheets("ARIZA").Range("F" & Bos_Satir).Value = ComboBox2.Text
   Sheets("ARIZA").Range("G" & Bos_Satir).Value = ComboBox3.Text
   Sheets("ARIZA").Range("H" & Bos_Satir).Value = ComboBox4.Text
   Sheets("ARIZA").Range("I" & Bos_Satir).Value = ComboBox5.Text
   Sheets("ARIZA").Range("U" & Bos_Satir).Value = ComboBox6.Text
   Sheets("ARIZA").Range("Y" & Bos_Satir).Value = ComboBox7.Text
   Sheets("ARIZA").Range("AC" & Bos_Satir).Value = ComboBox8.Text
   Sheets("ARIZA").Range("AG" & Bos_Satir).Value = ComboBox9.Text
   Sheets("ARIZA").Range("T" & Bos_Satir).Value = ComboBox10.Text
   Sheets("ARIZA").Range("V" & Bos_Satir).Value = ComboBox12.Text
   Sheets("ARIZA").Range("Z" & Bos_Satir).Value = ComboBox13.Text
   Sheets("ARIZA").Range("AD" & Bos_Satir).Value = ComboBox14.Text
   Sheets("ARIZA").Range("AH" & Bos_Satir).Value = ComboBox11.Text
      
   Sheets("ARIZA").Range("B" & Bos_Satir).Value = TextBox1.Text
   Sheets("ARIZA").Range("C" & Bos_Satir).Value = TextBox2.Text
   Sheets("ARIZA").Range("D" & Bos_Satir).Value = TextBox3.Text
   Sheets("ARIZA").Range("J" & Bos_Satir).Value = TextBox4.Text
   Sheets("ARIZA").Range("K" & Bos_Satir).Value = TextBox5.Text
   Sheets("ARIZA").Range("L" & Bos_Satir).Value = TextBox6.Text
   Sheets("ARIZA").Range("M" & Bos_Satir).Value = TextBox7.Text
   Sheets("ARIZA").Range("N" & Bos_Satir).Value = TextBox8.Text
   Sheets("ARIZA").Range("O" & Bos_Satir).Value = TextBox9.Text
   Sheets("ARIZA").Range("P" & Bos_Satir).Value = TextBox10.Text
   Sheets("ARIZA").Range("Q" & Bos_Satir).Value = TextBox11.Text
   Sheets("ARIZA").Range("W" & Bos_Satir).Value = TextBox12.Text
   Sheets("ARIZA").Range("AA" & Bos_Satir).Value = TextBox13.Text
   Sheets("ARIZA").Range("AE" & Bos_Satir).Value = TextBox14.Text
   Sheets("ARIZA").Range("AI" & Bos_Satir).Value = TextBox15.Text
   Sheets("ARIZA").Range("R" & Bos_Satir).Value = TextBox16.Text
   Sheets("ARIZA").Range("S" & Bos_Satir).Value = TextBox17.Text
  Sheets("ARIZA").Range("AL" & Bos_Satir).Value = TextBox18.Text
   
  [COLOR="Red"] Son_Dolu_Satir = Sheets("ÇIKIŞ").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("ÇIKIŞ").Range("A" & Bos_Satir).Value = _
    Application.WorksheetFunction.Max(Sheets("ARIZA").Range("A:A")) + 1
   Sheets("ÇIKIŞ").Range("[COLOR="Blue"]E[/COLOR]" & Bos_Satir).Value = ComboBox1.Text
   Sheets("ÇIKIŞ").Range("[COLOR="blue"]F[/COLOR]" & Bos_Satir).Value = ComboBox2.Text
   Sheets("ÇIKIŞ").Range("[COLOR="blue"]G[/COLOR]" & Bos_Satir).Value = ComboBox3.Text[/COLOR]
   
   
    Sheets("ARIZA").Select
    Unload UserForm4
   Else
   MsgBox "VERİLERİ DOLDURUNUZ"
            End If
            
            End Sub

 

[mesutalkan]

Bu sekılde uyarlanıyor fakat
b c d
hucrelerıne gelıcek degerler alt alta lıstelenırmı aynı anda hepsıne deger gelıcek cunku bırtanesını ısleme alacaktıR


Private Sub CommandButton1_Click()
If TextBox1.Text <> "" And TextBox3.Text <> "" Then
Son_Dolu_Satir = Sheets("ARIZA").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("ARIZA").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("ARIZA").Range("A:A")) + 1
Sheets("ARIZA").Range("E" & Bos_Satir).Value = ComboBox1.Text
Sheets("ARIZA").Range("F" & Bos_Satir).Value = ComboBox2.Text
Sheets("ARIZA").Range("G" & Bos_Satir).Value = ComboBox3.Text
Sheets("ARIZA").Range("H" & Bos_Satir).Value = ComboBox4.Text
Sheets("ARIZA").Range("I" & Bos_Satir).Value = ComboBox5.Text
Sheets("ARIZA").Range("U" & Bos_Satir).Value = ComboBox6.Text
Sheets("ARIZA").Range("Y" & Bos_Satir).Value = ComboBox7.Text
Sheets("ARIZA").Range("AC" & Bos_Satir).Value = ComboBox8.Text
Sheets("ARIZA").Range("AG" & Bos_Satir).Value = ComboBox9.Text
Sheets("ARIZA").Range("T" & Bos_Satir).Value = ComboBox10.Text
Sheets("ARIZA").Range("V" & Bos_Satir).Value = ComboBox12.Text
Sheets("ARIZA").Range("Z" & Bos_Satir).Value = ComboBox13.Text
Sheets("ARIZA").Range("AD" & Bos_Satir).Value = ComboBox14.Text
Sheets("ARIZA").Range("AH" & Bos_Satir).Value = ComboBox11.Text

Sheets("ARIZA").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("ARIZA").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("ARIZA").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("ARIZA").Range("J" & Bos_Satir).Value = TextBox4.Text
Sheets("ARIZA").Range("K" & Bos_Satir).Value = TextBox5.Text
Sheets("ARIZA").Range("L" & Bos_Satir).Value = TextBox6.Text
Sheets("ARIZA").Range("M" & Bos_Satir).Value = TextBox7.Text
Sheets("ARIZA").Range("N" & Bos_Satir).Value = TextBox8.Text
Sheets("ARIZA").Range("O" & Bos_Satir).Value = TextBox9.Text
Sheets("ARIZA").Range("P" & Bos_Satir).Value = TextBox10.Text
Sheets("ARIZA").Range("Q" & Bos_Satir).Value = TextBox11.Text
Sheets("ARIZA").Range("W" & Bos_Satir).Value = TextBox12.Text
Sheets("ARIZA").Range("AA" & Bos_Satir).Value = TextBox13.Text
Sheets("ARIZA").Range("AE" & Bos_Satir).Value = TextBox14.Text
Sheets("ARIZA").Range("AI" & Bos_Satir).Value = TextBox15.Text
Sheets("ARIZA").Range("R" & Bos_Satir).Value = TextBox16.Text
Sheets("ARIZA").Range("S" & Bos_Satir).Value = TextBox17.Text
Sheets("ARIZA").Range("AL" & Bos_Satir).Value = TextBox18.Text

Son_Dolu_Satir = Sheets("ÇIKIŞ").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("ÇIKIŞ").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("ARIZA").Range("A:A")) + 1
Sheets("ÇIKIŞ").Range("B" & Bos_Satir).Value = ComboBox6.Text
Sheets("ÇIKIŞ").Range("B" & Bos_Satir).Value = ComboBox7.Text
Sheets("ÇIKIŞ").Range("B" & Bos_Satir).Value = ComboBox8.Text
Sheets("ÇIKIŞ").Range("B" & Bos_Satir).Value = ComboBox9.Text

Sheets("ÇIKIŞ").Range("C" & Bos_Satir).Value = ComboBox12.Text
Sheets("ÇIKIŞ").Range("C" & Bos_Satir).Value = ComboBox13.Text
Sheets("ÇIKIŞ").Range("C" & Bos_Satir).Value = ComboBox14.Text
Sheets("ÇIKIŞ").Range("C" & Bos_Satir).Value = ComboBox11.Text

Sheets("ÇIKIŞ").Range("I" & Bos_Satir).Value = TextBox2.Text
Sheets("ÇIKIŞ").Range("H" & Bos_Satir).Value = ComboBox10.Text
Sheets("ÇIKIŞ").Range("G" & Bos_Satir).Value = ComboBox5.Text
Sheets("ÇIKIŞ").Range("E" & Bos_Satir).Value = ComboBox4.Text
Sheets("ÇIKIŞ").Range("F" & Bos_Satir).Value = ComboBox2.Text

Sheets("ÇIKIŞ").Range("K" & Bos_Satir).Value = TextBox11.Text

Sheets("ÇIKIŞ").Range("D" & Bos_Satir).Value = TextBox12.Text
Sheets("ÇIKIŞ").Range("D" & Bos_Satir).Value = TextBox13.Text
Sheets("ÇIKIŞ").Range("D" & Bos_Satir).Value = TextBox14.Text
Sheets("ÇIKIŞ").Range("D" & Bos_Satir).Value = TextBox15.Text

Sheets("ÇIKIŞ").Select
Unload UserForm4
Else
MsgBox "VERİLERİ DOLDURUNUZ"
End If

End Sub