kayıtları aynı hizaya getirme

[Suddedly]

Arkadaşlar hepinize merhabalar. ekte göndermiş olduğum excel dosyasındaki örnekle ilgili bir sıkıntım var. ilk dört sütunda ürünün geliş tarih ve bilgileri bulunuyor ben bunların yanında karışık olarak bir çok ürün nosuna göre üretim bilgisi giriyorum örneğin geçen hafta gelen bir ürün bugün üretime girmiş ama kayıtlarda yüzlerce olunca tek tek bunları bulup aynı satıra kes yapıştır yapmak zor oluyor. yardımlarınız için şimdiden teşekkür ederim. umarım açıkalyabilmişimdir.

 

[Mahir64]

Merhaba,

Ne yapılmasını istiyorsunuz?

 

[Suddedly]

Merhaba,

Ne yapılmasını istiyorsunuz?

Mahir bey merhaba. yapmak istediğim şu;

sol taraftaki veriler hammaddenin geliş tarihi ve bilgileri kapsıyor. Sağdakiler ise başka bir rapordan yani o malzemelerin kesim tarih ve bilgilerini kapsıyor. kesim bilgilerini sağ tarafa yapıştırıyorum ancak sol taraftaki aynı malzeme no satırıyla kesiştirmek istiyorum. Yani o tarihte kesilmeyen hammaddeler olduğu için kesilenleri bulup sağ tarafta satır ekle demek kayıt çokluğunda zor oluyor.

 

[Necdet]

yapmak istediğim şu;
.......
.....
Yani o tarihte kesilmeyen hammaddeler olduğu için kesilenleri bulup sağ tarafta satır ekle demek kayıt çokluğunda zor oluyor.

Merhaba,

Birşey yapacaksınız da onu yapmak zor dediğinizi anladım.

 

[Suddedly]

Aynen Necdet bey tam da dediğiniz gibi kayıtlar örnektekinden çok daha uzun oluyor. o yüzden daha kolay bir yolu var mı diye size bir danışmak istedim.

 

[Necdet]

Aynen Necdet bey tam da dediğiniz gibi kayıtlar örnektekinden çok daha uzun oluyor. o yüzden daha kolay bir yolu var mı diye size bir danışmak istedim.

İyi de neyi nasıl yapacağınız tam olarak anlaşılmıyor ki.

Örnek dosyanızda bunu gösterirseniz şimdiye kadar sorununuz çoktan çözülmüş olurdu.

 

[Suddedly]

İyi de neyi nasıl yapacağınız tam olarak anlaşılmıyor ki.

Örnek dosyanızda bunu gösterirseniz şimdiye kadar sorununuz çoktan çözülmüş olurdu.

Necdet bey ekteki dosyayı değiştirdim. biraz bu konuda acemiyim kusura bakmayın. yanlış veya eksik soruyor olabilirim.

 

[Necdet]

Merhaba,

İkinci bölümün sayfa2 de olması daha mantıklı geldi bana.

Buna göre aşağıdaki kodları deneyiniz.

Not : Sayfa2 de eşleşmeyen satırlar renklendirilir.

Sub Eslestir()
    
    Dim s1      As Worksheet, _
        s2      As Worksheet, _
        c       As Range, _
        i       As Long, _
        AdtEsl  As Long, _
        AdtEsm  As Long
        
    Application.ScreenUpdating = False
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    s1.Select
    
    i = s1.Cells(Rows.Count, "F").End(3).Row
    If i > 1 Then
        With s1.Range("F2:L" & i)
            .ClearContents
            .Interior.ColorIndex = xlNone
        End With
    End If
    
    For i = 2 To s2.Cells(Rows.Count, "A").End(3).Row
    
        Set c = s1.Range("B:B").Find(s2.Cells(i, "A"), LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            AdtEsl = AdtEsl + 1
            s2.Range("A" & i & ":G" & i).Copy s1.Range("F" & c.Row)
            s1.Range("F" & c.Row & ":L" & c.Row).Interior.ColorIndex = 15
        Else
            AdtEsm = AdtEsm + 1
            s2.Range("A" & i & ":G" & i).Interior.ColorIndex = 3
        End If
    
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox " EŞLEŞEN KAYIT SAYISI : " & AdtEsl & Chr(10) & Chr(10) & _
           " EŞLEŞMEYEN KAYIT SAYISI : " & AdtEsm, vbInformation, "N. YEŞERTENER"
    
End Sub

 

[Suddedly]

Necdet bey ekteki dosyayı açtım tam istediğim gibi çalışıyor size çok teşekkür ederim. Zahmet verdim. Tekrar sağolun.

 

[Necdet]

Necdet bey ekteki dosyayı açtım tam istediğim gibi çalışıyor size çok teşekkür ederim. Zahmet verdim. Tekrar sağolun.

Güle güle kullanınız.