Soru Vba Farklı Sheetlere Kaydetme

[TUGBADM]

Merhaba,

Oluşturduğum form üzerinde Page1(Hammadde Giriş) ve Page2(Hammadde Çıkış) arayüzünden Page1 deki girdiğim kayıtları Sheet 1 ' e kayıt, Page 2 dekileri de Sheet 2 ye kayıt yaptırmaya çalışıyorum. Fakat Hangi Sheet açık ise ona kayıt yapıyor. Yardımcı olabilir misiniz? Ekran görüntüsü ve kodlarımı ekliyorum.

Giriş Kaydet Kodlarım;

Dim UrunId As Integer
Dim hammadde As String
Dim Marka As String
Dim Ozellik As String
Dim Tarih As String
Dim Vardiya As String
Dim Renk As String
Dim Verimlilik As String
Dim Voltaj As String
Dim PaletSayisi As Variant
Dim KoliSayisi As Variant
Dim KutuSayisi As Variant
Dim Birim As Variant


hammadde = ComboBox_HammaddeAdi.Value
Marka = ComboBox_Marka.Value
Ozellik = ComboBox_Ozellik.Value
Tarih = TextBox_Tarih.Value
Vardiya = ComboBox_Vardiya.Value
Renk = ComboBox_Renk.Value
Verimlilik = ComboBox_Verimlilik.Value
Voltaj = ComboBox_Voltaj.Value
PaletSayisi = TextBox_PaletSayisi.Value
KoliSayisi = TextBox_KoliSayisi.Value
KutuSayisi = TextBox_KutuSayisi.Value
Birim = ComboBox_Birim.Value


Satir = WorksheetFunction.CountA(Range("A:A")) + 1
UrunId = Satir + 1
If hammadde <> "" And Marka <> "" And Ozellik <> "" And Tarih <> "" And Vardiya <> "" And Birim <> "" Then

Range("A" & Satir).Value = Satir
Range("B" & Satir).Value = ComboBox_HammaddeAdi.Value
Range("C" & Satir).Value = ComboBox_Marka.Value
Range("D" & Satir).Value = ComboBox_Ozellik.Value
Range("E" & Satir).Value = TextBox_Tarih.Value
Range("F" & Satir).Value = ComboBox_Vardiya.Value
Range("G" & Satir).Value = ComboBox_Renk.Value
Range("H" & Satir).Value = ComboBox_Verimlilik.Value
Range("I" & Satir).Value = ComboBox_Voltaj.Value
Range("J" & Satir).Value = TextBox_PaletSayisi.Value
Range("K" & Satir).Value = TextBox_KoliSayisi.Value
Range("L" & Satir).Value = TextBox_KutuSayisi.Value
Range("N" & Satir).Value = ComboBox_Birim.Value


' ------Toplam Giriş Hesaplama Formül Kısmı--------

If ComboBox_HammaddeAdi.Value = "Hücre" Then

Range("M" & Satir).Value = PaletSayisi * 4224 + KoliSayisi * 1760

ElseIf ComboBox_HammaddeAdi.Value = "Eva" Then

Range("M" & Satir).Value = ((PaletSayisi * 4) + KoliSayisi) * 230 * 1.03

ElseIf ComboBox_HammaddeAdi.Value = "Backsheet" Then

Range("M" & Satir).Value = (PaletSayisi * 11 * 200 + KoliSayisi * 200) * 1.043

ElseIf ComboBox_HammaddeAdi.Value = "Silikon" Then

Range("M" & Satir).Value = ((PaletSayisi * 2) + KoliSayisi) * 270

ElseIf ComboBox_HammaddeAdi.Value = "Cam" Then

Range("M" & Satir).Value = PaletSayisi * 100

ElseIf ComboBox_HammaddeAdi.Value = "Backsheet" Then

Range("M" & Satir).Value = (PaletSayisi * 11 * 200 + KoliSayisi * 200) * 1.043

ElseIf ComboBox_HammaddeAdi.Value = "Silikon" Then

Range("M" & Satir).Value = ((PaletSayisi * 2) + KoliSayisi) * 270

ElseIf ComboBox_HammaddeAdi.Value = "Cam (120)" Then

Range("M" & Satir).Value = PaletSayisi * 100

ElseIf ComboBox_HammaddeAdi.Value = "Cam (144)" Then

Range("M" & Satir).Value = PaletSayisi * 100

'ElseIf ComboBox_HammaddeAdi.Value = "Tab Ribbon" Then

'Range("M" & Satir).Value = PaletSayisi * ?

'ElseIf ComboBox_HammaddeAdi.Value = "Bus Ribbon" Then

'Range("M" & Satir).Value = PaletSayisi * ?


ElseIf ComboBox_HammaddeAdi.Value = "Flux" Then

Range("M" & Satir).Value = KoliSayisi * 25


ElseIf ComboBox_HammaddeAdi.Value = "J-Box" Then

Range("M" & Satir).Value = PaletSayisi * 1200

ElseIf ComboBox_HammaddeAdi.Value = "Hücre Sabitleme Bandı " Then

Range("M" & Satir).Value = ((KoliSayisi * 152) + KutuSayisi) * 0.008 * 66

ElseIf ComboBox_HammaddeAdi.Value = "J-Box Kablo Sabitleme Bandı" Then

Range("M" & Satir).Value = ((KoliSayisi * 137) + KutuSayisi) * 0.012 * 50

ElseIf ComboBox_HammaddeAdi.Value = "Epe" Then

Range("M" & Satir).Value = KutuSayisi * 200 * 0.055


ElseIf ComboBox_HammaddeAdi.Value = "Potting" And ComboBox_Marka.Value = "Huitian 5299w-s(A)" Then

Range("M" & Satir).Value = (KutuSayisi * 2) * 10

ElseIf ComboBox_HammaddeAdi.Value = "Potting" And ComboBox_Marka.Value = "Huitian 5299w-s(B)" Then

Range("M" & Satir).Value = KoliSayisi * 8 * 2 + KutuSayisi * 2

ElseIf ComboBox_HammaddeAdi.Value = "Resin Ribbon" Then

Range("M" & Satir).Value = KutuSayisi * 300

ElseIf ComboBox_HammaddeAdi.Value = "Etiket" Then

Range("M" & Satir).Value = KutuSayisi * 650

ElseIf ComboBox_HammaddeAdi.Value = "Barkod" Then

Range("M" & Satir).Value = KutuSayisi * 7000

ElseIf ComboBox_HammaddeAdi.Value = "Barkod" Then

Range("M" & Satir).Value = KutuSayisi * 7000

ElseIf ComboBox_HammaddeAdi.Value = "Çerçeve Uzun Kenar (144)" Then

Range("M" & Satir).Value = KutuSayisi / 2

ElseIf ComboBox_HammaddeAdi.Value = "Çerçeve Kısa Kenar (144)" Then

Range("M" & Satir).Value = KutuSayisi / 2

ElseIf ComboBox_HammaddeAdi.Value = "Çerçeve Uzun Kenar (120)" Then

Range("M" & Satir).Value = KutuSayisi / 2

ElseIf ComboBox_HammaddeAdi.Value = "Çerçeve Kısa Kenar (120)" Then

Range("M" & Satir).Value = KutuSayisi / 2

'-------------------------------------------------
End If

MsgBox "Hammadde Eklendi!"
ActiveWorkbook.Save

ComboBox_HammaddeAdi.Value = ""
ComboBox_Marka.Value = ""
ComboBox_Ozellik.Value = ""
TextBox_Tarih.Value = ""
ComboBox_Vardiya.Value = ""
ComboBox_Renk.Value = ""
ComboBox_Verimlilik.Value = ""
ComboBox_Voltaj.Value = ""
TextBox_PaletSayisi.Value = ""
TextBox_KoliSayisi.Value = ""
TextBox_KutuSayisi.Value = ""
ComboBox_Birim.Value = ""

Else
MsgBox "Lütfen Boş Alanları Doldurunuz!"
End If






Çıkış Kaydet Kodlarım;

Private Sub CommandButton_KaydetCikis_Click()

Dim UrunId As Integer
Dim hammadde As String
Dim Marka As String
Dim Ozellik As String
Dim Tarih As String
Dim Vardiya As String
Dim Renk As String
Dim Verimlilik As String
Dim Voltaj As String
Dim PaletSayisi As Variant
Dim KoliSayisi As Variant
Dim KutuSayisi As Variant
Dim Birim As Variant


hammadde = ComboBox_HammaddeCikis.Value
Marka = ComboBox_MarkaCikis.Value
Ozellik = ComboBox_OzellikCikis.Value
Tarih = TextBox_TarihCikis.Value
Vardiya = ComboBox_VardiyaCikis.Value
Renk = ComboBox_RenkCikis.Value
Verimlilik = ComboBox_VerimlilikCikis.Value
Voltaj = ComboBox_VoltajCikis.Value
PaletSayisi = TextBox_PaletCikis.Value
KoliSayisi = TextBox_KoliCikis.Value
KutuSayisi = TextBox_KutuCikis.Value
Birim = ComboBox_BirimCikis.Value



Satir = Sheets("HammaddeCikis").Range("A1000000").End(xlUp).Row + 1
UrunId = Satir + 1
If hammadde <> "" And Marka <> "" And Ozellik <> "" And Tarih <> "" And Vardiya <> "" And Birim <> "" Then

Range("A" & Satir).Value = Satir
Range("B" & Satir).Value = ComboBox_HammaddeCikis.Value
Range("C" & Satir).Value = ComboBox_MarkaCikis.Value
Range("D" & Satir).Value = ComboBox_OzellikCikis.Value
Range("E" & Satir).Value = TextBox_TarihCikis.Value
Range("F" & Satir).Value = ComboBox_VardiyaCikis.Value
Range("G" & Satir).Value = ComboBox_RenkCikis.Value
Range("H" & Satir).Value = ComboBox_VerimlilikCikis.Value
Range("I" & Satir).Value = ComboBox_VoltajCikis.Value
Range("J" & Satir).Value = TextBox_PaletCikis.Value
Range("K" & Satir).Value = TextBox_KoliCikis.Value
Range("L" & Satir).Value = TextBox_KutuCikis.Value
Range("N" & Satir).Value = ComboBox_BirimCikis.Value


' ------Toplam Çıkış Hesaplama Formülü--------

If ComboBox_HammaddeCikis.Value = "Hücre" Then

Range("M" & Satir).Value = PaletSayisi * 4224 + KoliSayisi * 1760

ElseIf ComboBox_HammaddeCikis.Value = "Eva" Then

Range("M" & Satir).Value = ((PaletSayisi * 4) + KoliSayisi) * 230 * 1.03

ElseIf ComboBox_HammaddeCikis.Value = "Backsheet" Then

Range("M" & Satir).Value = (PaletSayisi * 11 * 200 + KoliSayisi * 200) * 1.043

ElseIf ComboBox_HammaddeCikis.Value = "Silikon" Then

Range("M" & Satir).Value = ((PaletSayisi * 2) + KoliSayisi) * 270

ElseIf ComboBox_HammaddeCikis.Value = "Cam" Then

Range("M" & Satir).Value = PaletSayisi * 100

ElseIf ComboBox_HammaddeCikis.Value = "Backsheet" Then

Range("M" & Satir).Value = (PaletSayisi * 11 * 200 + KoliSayisi * 200) * 1.043

ElseIf ComboBox_HammaddeCikis.Value = "Silikon" Then

Range("M" & Satir).Value = ((PaletSayisi * 2) + KoliSayisi) * 270

ElseIf ComboBox_HammaddeCikis.Value = "Cam (120)" Then

Range("M" & Satir).Value = PaletSayisi * 100

ElseIf ComboBox_HammaddeCikis.Value = "Cam (144)" Then

Range("M" & Satir).Value = PaletSayisi * 100

'ElseIf ComboBox_HammaddeAdi.Value = "Tab Ribbon" Then

'Range("M" & Satir).Value = PaletSayisi * ?

'ElseIf ComboBox_HammaddeAdi.Value = "Bus Ribbon" Then

'Range("M" & Satir).Value = PaletSayisi * ?


ElseIf ComboBox_HammaddeCikis.Value = "Flux" Then

Range("M" & Satir).Value = KoliSayisi * 25


ElseIf ComboBox_HammaddeCikis.Value = "J-Box" Then

Range("M" & Satir).Value = PaletSayisi * 1200

ElseIf ComboBox_HammaddeCikis.Value = "Hücre Sabitleme Bandı " Then

Range("M" & Satir).Value = ((KoliSayisi * 152) + KutuSayisi) * 0.008 * 66

ElseIf ComboBox_HammaddeCikis.Value = "J-Box Kablo Sabitleme Bandı" Then

Range("M" & Satir).Value = ((KoliSayisi * 137) + KutuSayisi) * 0.012 * 50

ElseIf ComboBox_HammaddeCikis.Value = "Epe" Then

Range("M" & Satir).Value = KutuSayisi * 200 * 0.055


ElseIf ComboBox_HammaddeCikis.Value = "Potting" And ComboBox_Marka.Value = "Huitian 5299w-s(A)" Then

Range("M" & Satir).Value = (KutuSayisi * 2) * 10

ElseIf ComboBox_HammaddeCikis.Value = "Potting" And ComboBox_Marka.Value = "Huitian 5299w-s(B)" Then

Range("M" & Satir).Value = KoliSayisi * 8 * 2 + KutuSayisi * 2

ElseIf ComboBox_HammaddeCikis.Value = "Resin Ribbon" Then

Range("M" & Satir).Value = KutuSayisi * 300

ElseIf ComboBox_HammaddeCikis.Value = "Etiket" Then

Range("M" & Satir).Value = KutuSayisi * 650

ElseIf ComboBox_HammaddeCikis.Value = "Barkod" Then

Range("M" & Satir).Value = KutuSayisi * 7000

ElseIf ComboBox_HammaddeCikis.Value = "Barkod" Then

Range("M" & Satir).Value = KutuSayisi * 7000

ElseIf ComboBox_HammaddeCikis.Value = "Çerçeve Uzun Kenar (144)" Then

Range("M" & Satir).Value = KutuSayisi / 2

ElseIf ComboBox_HammaddeCikis.Value = "Çerçeve Kısa Kenar (144)" Then

Range("M" & Satir).Value = KutuSayisi / 2

ElseIf ComboBox_HammaddeCikis.Value = "Çerçeve Uzun Kenar (120)" Then

Range("M" & Satir).Value = KutuSayisi / 2

ElseIf ComboBox_HammaddeCikis.Value = "Çerçeve Kısa Kenar (120)" Then

Range("M" & Satir).Value = KutuSayisi / 2

'-------------------------------------------------------------

End If

MsgBox "Hammadde Çıkış Eklendi!"
ActiveWorkbook.Save

ComboBox_HammaddeCikis.Value = ""
ComboBox_MarkaCikis.Value = ""
ComboBox_OzellikCikis.Value = ""
TextBox_TarihCikis.Value = ""
ComboBox_VardiyaCikis.Value = ""
ComboBox_RenkCikis.Value = ""
ComboBox_VerimlilikCikis.Value = ""
ComboBox_VoltajCikis.Value = ""
TextBox_PaletCikis.Value = ""
TextBox_KoliCikis.Value = ""
TextBox_KutuCikis.Value = ""
ComboBox_BirimCikis.Value = ""

Else
MsgBox "Lütfen Boş Alanları Doldurunuz!"
End If


End Sub

 

[AdemCan]

Kaydet işlemlerinde uygun bir alanda sayfaları aktif edebilirsiniz.
Sheet1.Activate ve Sheet2.Activate

 

[TUGBADM]

Sorun çözülmüştür teşekkürler.