userformda çift değişkenli etopla macro ile

[suer_aslan]

merhaba arkadaşlar,

ekte verdiğim dosyada 3. sütun aktif olduğunda açılan userformdaki kaydet butonuna tıklayınca diğer sayfaya verileri kaydediyorum. userform aktif olduğunda aktif satırdaki parti no otomatik olarak textbox1 e ekleniyor ve diğer sayfadaki fason işletme verileri de otomatik olarak combobox1 e ekleniyor. bu noktada

1- combobox1 verisinin diğer sayfadaki tüm verileri değil sadece aktif parti no ya ait veriler olmasını
2- textbox1 de aktif olan parti no ve textbox2 de aktif olan (combobox1 ile seçiliyor) fason işletme bilgilerine göre ara butonuna tıklayarak diğer sayfadan etopla işlemi yaptırarak toplam giden ve toplam gelen bilgilerinin sırasıyla textbox3 ve textbox4 e verilmesini nasıl sağlarım.

yardımlarınız için şimdiden teşekkürler

 

[suer_aslan]

arkadaşlar yok mu yardımcı olacak kimse

 

[Ferhat Pazarçevirdi]

kodlarınızı aşağıdaki gibi revize ediniz.

Private Sub UserForm_Initialize()
Set sh = Sheets("deneme fason")
secim = ActiveCell.Offset(0, -2).Value
son = sh.Cells(65536, 2).End(xlUp).Row
TextBox1.Text = secim
ComboBox1.Clear
For j = 2 To son
   If sh.Cells(j, 1) = secim Then
       x = sh.Cells(j, 2)
       If ComboBox1.ListCount = 0 Then: ComboBox1.AddItem x: GoTo f2
            For i = 0 To ComboBox1.ListCount - 1
                If ComboBox1.List(i) = x Then: y = y + 1
            Next i
            If y = 0 Then: ComboBox1.AddItem x
    End If
f2:
Next j
Set sh = Nothing
End Sub

Ara butonuna atanacak kod...

Private Sub CommandButton2_Click()
Set sh = Sheets("deneme fason")
secim = ActiveCell.Offset(0, -2).Value
son = sh.Cells(65536, 2).End(xlUp).Row
For i = 2 To son
  If sh.Cells(i, 1) = secim And sh.Cells(i, 2) = ComboBox1.Value Then
      giris = giris + sh.Cells(i, 4)
      cikis = cikis + sh.Cells(i, 3)
      kalan = cikis - giris
  End If
Next i
TextBox3.Value = cikis
TextBox4.Value = giris
TextBox5.Value = kalan
Set sh = Nothing
End Sub

 

[suer_aslan]

teşekkür

fpc arkadaşım, sana ne kadar teşekkür etsem azdır. sağol ilgilendiğin için.