Bütün çalışama...

[real51]

Açılan bütün çalışma sayfalarında arama ve değişiklik yapması için buraya ne ekleyebilriz.



---------------------------------------------------------------------------
Private Sub CommandButton2_Click()
Unload Me
UserForm2.Show
End Sub

Private Sub ComboBox1_Change()
Dim sat As Integer
For sat = 3 To Cells(65536, "a").End(xlUp).Row
If Cells(sat, "a") Like ComboBox1.Value Then
TextBox5 = Cells(sat, "b")
End If
Next
End Sub
Private Sub CommandButton1_Click()
Dim sat As Integer
If ComboBox1.Value = "" Then
MsgBox "Önce bir malzeme kodu seçmelisiniz.", vbInformation
Exit Sub: End If
For sat = 3 To Cells(65536, "a").End(xlUp).Row
If Cells(sat, "a") Like ComboBox1.Value Then
Cells(sat, "c") = Cells(sat, "c") + Val(TextBox3)
Cells(sat, "d") = Cells(sat, "d") + Val(TextBox4)
End If
Next
End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Mevlüt!a3:a" & [Mevlüt!a65536].End(xlUp).Row
ComboBox1.RowSource = "sayfa1!a3:a" & [sayfa1!a65536].End(xlUp).Row
End Sub

--------------------------------------------------------------------------



ComboBox1.RowSource = "sayfa1!a3:a" & [sayfa1!a65536].End(xlUp).Row

ben bunu ekledim ama 1. sayfada iken 2. sayfayı taramıyor..
ama 2. sayfada actıgım zaman çalışıyor..

 

[real51]

kİMSE YOKMU ACABA YARDIM EDECEK....

 

[real51]

Bişey daha sorcam tarihe göre raporlamayı nasıl yaparız?