Comboboxlar ile veri aktarımı

[zakaak2001]

Merhaba Arkadaşlar...

Ekteki tabloda comboboxlar yardımıyla ayrıntı sheetindeki verileri denge sayfasına nasıl taşıyabilirim. 2 comboboxtan biri demirbaş adına göre diğeri ise mağaza adına göre olacak. 2 kriter seçildiğinde denge syfasına aktaracak.Şimdiden teşekkürler

 

[zakaak2001]

Üstadlar cevap veren yok galiba. Nasıl yapabilirim. Tıkandım kaldım.

 

[ileriexcel]

Private Sub ComboBox1_Change()
On Error Resume Next
Set ay = Sheets("AYRINTI")
ay.Range("b5").Select
Selection.AutoFilter
ActiveCell.AutoFilter Field:=2, Criteria1:="*" & ComboBox1 & "*"
End Sub


Private Sub ComboBox2_Change()
On Error Resume Next
Set ay = Sheets("AYRINTI")
ay.Range("c5").Select
Selection.AutoFilter
ActiveCell.AutoFilter Field:=3, Criteria1:="*" & ComboBox2 & "*"
End Sub

Private Sub CommandButton1_Click()
On Error Resume Next
Set ay = Sheets("AYRINTI")
Set de = Sheets("DENGE")
ay.Range("a4").Select
Selection.CurrentRegion.Select
Selection.Copy
de.Select
Range("a1").PasteSpecial
End Sub

Private Sub CommandButton2_Click()
Set de = Sheets("DENGE")
de.Range("a1:k100").ClearContents
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "b1:b" & WorksheetFunction.CountA([b1:b65000])
ComboBox2.RowSource = "c1:c" & WorksheetFunction.CountA([c1:c65000])
End Sub

 

[zakaak2001]

Üstadım teşekkürler fakat bir hata veriyor. Verileri denge sheetine atmıyor denge sheetinde a1 hücresine boş olarak atıyor. Dosyayı düzenleyip gönderebilirmisin?

 

[ileriexcel]

®

®®®®®®®®®®