Öncelik le yardımı geçecek arkadaşlara şimdiden teşekkür ederim.
1. Resimdeki arama butonuna bastığımda bana planlanan makine ve tarihi veriyor ama ben bunun içerisine ikinci resimdeki VARDİYA1 VARDİYA2 ve VARDİYA3 olarak ayrılmış bölümler var onlarında arama yap butonuna bastığım zaman göstermesini istiyorum.
Bunu yapabilmemin bir makro yöntemi varımdır yardımcı olursanız sevinirim. 3. resimdeki hali hazırda olan kullandığım makro kodları içerisine ekleme yaparak olabileceğini düşünüyorum.
MAKRO:
Sub Makine_Ara()
Dim a As String
Dim c, x, sayfa, y As Integer
Dim toplam As Double
a = Selection.Text
x = 1
Do While Worksheets(1).Cells(x, 1).Text <> a
x = x + 1
If x > 5000 Then
GoTo cikis
End If
Loop
cikis:
sayfa = 0
For sayfa = 4 To 20
y = 0
For y = 3 To 750
If Worksheets(sayfa).Cells(y, 5) = a Then
c = y
Do While Worksheets(sayfa).Cells(c, 1).Text = ""
c = c - 1
Loop
UserForm1.ListBox1.AddItem Worksheets(sayfa).Cells(c, 1).Text
UserForm1.ListBox1.AddItem Worksheets(sayfa).Name
UserForm1.ListBox1.AddItem Worksheets(sayfa).Cells(y, 8) & " adet "
UserForm1.ListBox1.AddItem "---------------------------------------"
toplam = toplam + Worksheets(sayfa).Cells(y, 8)
End If
Next y
Next sayfa
UserForm1.ListBox1.AddItem "Toplam: " & toplam & " adet planlanmış."
UserForm1.Show
End Sub