Bilgileri farklı kitapta tarayarak bulma

[manisali50]

Arkadaşlar merhaba.."BİLGİLERİ TOPLAMAK" başlıklı sorumu uzun süre yanıt gelmeyince ufak bir-iki değişiklik yaparak tekrar açtım..Umarım bu sefer yanıt gelir.
Bu seferki sorum biraz karmaşık..Eğer yardımcı olursanız (ki bunun da üstesinden geleceğinize inancım sonsuz) size minnettar kalırım.
Yıl içerisinde arızalanan tezgâhların bakımlarının tutulduğu “Tezgâh sicil kartı ve arıza bildirim formu” dosyasında 200’e yakın tezgah sayfası var. Bunların yıl sonunda analizleri çıkıyor.”Tezgâh bakım analizi” dosyasında da bunların arıza analizleri tutuluyor.
İsteğim şu:
.”Tezgah bakım analizi” dosyasındaki “A” sütununda yazılı olan arıza sebeplerinin “Tezgah sicil kartı ve arıza bildirim formu” dosyasındaki sayfalarında “G” sütunları taranarak bulunması ve adet olarak karşılarına yazılıp,hangi makinenin arızalandığını da her sayfanın “I5” hücresinden okuyup çizelgeye yazması..Aratırken “A” sütunu aratılsın çünkü sebepler değişebileceği için formül ya da makro “A” sütununu tarasın.
Arkadaşlar..Bana,dolayısıyla yardımcı olacak arkadaşa da kolaylık olması açısından şöyle bir öneri getirmek istiyorum.Arıza sebeplerini ararken Tezgah Sicil Kartının G sütununda ilk cümleyi arıza sebebinin başlangıcı olarak ayarlarım..Dolayısıyla yazılan formül ya da makro, arıza sebebini ararken G sütunundaki ilk cümleyi arasın.
Uygun önerim şöyle:Arızayı tezgah sicil kartına işlediğimde ilk cümleyi arıza sebebi olarak kullanacağım..Arıza sebeplerini buna göre yeniden düzenleyeceğim..Örneğin;"başlat tuşu" arıza sebebini,"Başlat tuşu bozulmuş" olarak düzenleyeceğim ve Tezgah sicil kartına "Başlat tuşu bozulmuş." deyip noktayı koyduktan sonra arızanın açıklamasına geçeceğim..İsteğim de bu yönde zaten..İlk cümleyi esas alıp öyle tarama yapmasını istiyorum..
Diğer sorunuza gelince..."G" sütunu derken "G10" hücresinden başlayan sütunu kastetmiştim,ama iyi bir noktayı yakalamışsınız.."G10" hücresinden başlayıp,G11-G12-G13.......G29 hücreleri esas alınacak...
Şimdiden teşekkürler

 

[manisali50]

Ekrandan silinmemesi için tazeliyorum

 

[Korhan Ayhan]

Selamlar,

İki dosyanızıda aynı klasör içine yerleştirdikten sonra aşağıdaki kodu "Tezgah bakım analizi" isimli dosyanızda oluşturacağınız bir butona tanımlayın ve çalıştırın.

Option Explicit
 
Sub TEZGAH_ARIZALARINI_LİSTELE()
    Dim K1 As Workbook, K2 As Workbook, S1 As Worksheet, SAYFA As Worksheet
    Dim X As Integer, Y As Integer, VERİ1 As String, VERİ2 As String, SÜTUN As Byte
 
    Application.ScreenUpdating = False
 
    Set K1 = ThisWorkbook
    Set S1 = K1.Sheets("Sayfa1")
    Set K2 = Workbooks.Open(ThisWorkbook.Path & "\Tezgah sicil kartı ve Arıza bildirim formu.xls")
    SÜTUN = 3
    S1.Range("C2:IV65536").ClearContents
 
    K1.Activate
 
    For X = 2 To S1.Range("A65536").End(3).Row
        VERİ1 = UCase(Replace(Replace(S1.Cells(X, 1), "i", "İ"), "ı", "I"))
        For Each SAYFA In K2.Worksheets
            For Y = 10 To SAYFA.Cells(65536, 3).End(3).Row
                If SAYFA.Cells(Y, 3) <> "" Then
                    VERİ2 = UCase(Replace(Replace(SAYFA.Cells(Y, 7), "i", "İ"), "ı", "I"))
                    If InStr(1, VERİ2, VERİ1, vbTextCompare) > 0 Then
                        S1.Cells(X, SÜTUN) = SAYFA.Range("I5")
                        SÜTUN = SÜTUN + 1
                    End If
                End If
            Next
        Next
        SÜTUN = 3
    Next
   
    K2.Close False
 
    Set S1 = Nothing
    Set K1 = Nothing
    Set K2 = Nothing
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[manisali50]

Hocam gerçekten tek kelime ile harika..Size nasıl teşekkür edeceğimi bilemiyorum..
Çok sağolun..Elinize,bilginize,emeğinize sağlık..