iki işlemi tek işlemde yapmak.

[ahmetozbey]

aşağıda aynı sayfada 2 adet commandbuton kullanarak yaptığım 2 adet işlem var. bu işlemleri tek commandbuton kullanarak yapmak istiyorum. yani hem e3 hücresine girdiğim değerle hemde b3 hücresine girdiğim değerleri karşılaştırarak ona göre sonucun görüntülenmesini istiyorum. yardımcı olursanız sevinirim.

Private Sub CommandButton1_Click()
[b7:k1005].ClearContents
For s = 1 To 1
Satsay = Sheets("14").Cells(20005, 3).End(xlUp).Row
For ara = 1 To Satsay
If Sheets("14").Cells(ara, 10).Value = Sheets("ARA3").[e3] Then
c = c + 1
For sut = 1 To 10
Cells(c + 6, sut + 1) = Sheets("14").Cells(ara, sut).Value
Sheets("ARA3").[a7].Select
Next
End If
Next
Next
If [a4].Value Then MsgBox "SEÇTİĞİNİZ AY 'A AİT " & [a4].Value & " " & " ADET GİDER BULUNMUŞTUR."
If [a3].Value = 1 Then MsgBox "KAYIT BULUNAMAMIŞTIR.!"
End Sub

Private Sub CommandButton2_Click()
[b7:k1005].ClearContents
For s = 1 To 1
Satsay = Sheets("14").Cells(20005, 2).End(xlUp).Row
For ara = 1 To Satsay
If Sheets("14").Cells(ara, 1).Value = Sheets("ARA3").[b3] Then
c = c + 1
For sut = 1 To 10
Cells(c + 6, sut + 1) = Sheets("14").Cells(ara, sut).Value
Sheets("ARA3").[a7].Select
Next
End If
Next
Next
If [a4].Value Then MsgBox "GİRDİĞİNİZ TARİHE GÖRE " & [a4].Value & " " & " ADET GİDER BULUNMUŞTUR."
If [a3].Value = 1 Then MsgBox "KAYIT BULUNAMAMIŞTIR.!"
End Sub

 

[danersin]

If Sheets("14").Cells(ara, 10).Value = Sheets("ARA3").[e3] and Sheets("14").Cells(ara, 1).Value = Sheets("ARA3").[b3] Then

Karşılaştırmayı yapan IF komutuna AND operatörü kullanarak iki koşulunda sağlayan satırları bulabilirsiniz.
Ama kodunuzda başka değişiklikler gerekebilir, bunun için örnek dosya eklerseniz daha iyi olabilir.