UserForma Buton eklemek

[msinan987]

arkadaşlar gönderdiğim dosyada Userform1 e bir adet ComboBox butonu ve Aktar Butonu eklemek istiyorum. Ayrıca Listbox butonunda işaretlediğim ismi sayfa 2 ye aktarmak istiyorum. Bu konuda yardımcı olursanız sevinirim.

 

[msinan987]

Arkadaşlar çokmu şey sruyorum veya istiyorumda kimse sorduğum soruya ceavp vermiyor. En azın dan yapamayacağınıza dair veya neden cevap vermediğinizi yazında bizde ona göre yazalım.

 

[N.Ziya Hiçdurmaz]

yanıt

Aktarma işlemi.

Private Sub CommandButton2_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("a2:d1000").Clear
For sut = 1 To s1.[a65536].End(xlUp).Row
If s1.Range("a" & sut) = ComboBox1.Text Then
s1.Range("a" & sut & ":d" & sut).Copy
s = s + 1
s2.Range("a" & s + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub
Private Sub CommandButton3_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("a2:d1000").Clear
For sut = 1 To s1.[b65536].End(xlUp).Row
If s1.Range("b" & sut) = ComboBox2.Text Then
s1.Range("a" & sut & ":d" & sut).Copy
s = s + 1
s2.Range("a" & s + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub
Private Sub CommandButton4_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("a2:d1000").Clear
For sut = 1 To s1.[c65536].End(xlUp).Row
If s1.Range("c" & sut) = ComboBox3.Text Then
s1.Range("a" & sut & ":d" & sut).Copy
s = s + 1
s2.Range("a" & s + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub
Private Sub CommandButton5_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("a2:d1000").Clear
For sut = 1 To s1.[d65536].End(xlUp).Row
If s1.Range("d" & sut) = ComboBox4.Text Then
s1.Range("a" & sut & ":d" & sut).Copy
s = s + 1
s2.Range("a" & s + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

 

[msinan987]

Arkadaşım çok teşekkür ederim ilgilendiğin için. çok güzel olmuş.çok oluyorsun deme yukarıda bir sorum daha vardı, o gözünüzden kaçmış galiba. Eğer bu konudada yardımcı olursanız çok sevinirim.yapmak istediğim birde, userforma 1 adet daha ComboBox butonu ekleyebilirim.ve 1. ve 2.sayfaklarada bigi içeren sayfa eklemek istiyorum nasıl yapabilirim.