Hücre içinden en büyük yılı ayırmak

[kyaman28]

Selamlar,

Ekte gönderdiğim örnek tablodaki;

A sütununda yazan tüm yılları B sütununa alacak, C sütununa ise imha tarihini belirleyebilmem için B sütunundaki en büyük yılı yazacak bir kod veya formül olabilir mi?

 

[KuTuKa]

Selamlar

sizin tabloya göre işle biraz zor ben size bir tablo düzenledim işinizi görebilir
kolay gelsin
kutuka

 

[kyaman28]

Selam KuTuKa,

Elimde buna benzer milyondan fazla data var
Tabloyu değiştirmem mümkün değil.
Yine de zaman ayırdığın için teşekkür ederim.

 

[hımmmmmmmm]

slm

çalışma ekde... yıl bak butonunu tıklıyosun...
yıl sayfasından yıl aralığı farklı ise onuda belirt

Private Sub CommandButton1_Click()
Range("b2:C65000").ClearContents
BAS = Sheets("Yıl").Cells(2, 1).Value
BIT = Sheets("Yıl").Cells(3, 1).Value
For I = 2 To WorksheetFunction.CountA(Range("A:A"))
S = 0: YILYAZ = "": Sheets("Yıl").Range("C:C").ClearContents
OKU = Cells(I, 1).Value
  For K = BAS To BIT
    X = InStr(OKU, K)
    If X <> 0 Then
       S = S + 1
       YILYAZ = YILYAZ + Trim(K) + " "
       Sheets("Yıl").Cells(S, 3).Value = K
    End If
Next K
   Cells(I, 2).Value = YILYAZ
   Cells(I, 3).Value = WorksheetFunction.Max(Sheets("Yıl").Range("C:C"))
Next I
End Sub

 

[Necdet]

Merhaba,

Alternatif olsun.

Sub Yillar()
    
    Dim i   As Long, _
        Son As Long, _
        j   As Integer, _
        Mak As Integer, _
        Deg As Variant, _
        m, _
        Mtn As String
    Son = Cells(Rows.Count, "A").End(3).Row
    
    Application.ScreenUpdating = False
    
    Range("B2:C" & Son).ClearContents
    
    For i = 2 To Son
    
        Mak = 0
        Mtn = ""
        m = Split(Cells(i, "A"), " ")
        
        For j = 0 To UBound(m)
            m(j) = Replace(m(j), "/", ".")
            If IsNumeric(m(j)) = True Then
                If IsDate(m(j)) = True Then
                    Deg = Year(m(j))
                Else
                    Deg = m(j)
                End If
                If Len(Deg) = 4 Then
                    If Deg > Mak Then Mak = Deg
                    Mtn = Mtn & " " & Deg
                End If
            End If
        Next j
        
        If Not Mtn = "" Then
            Cells(i, "B") = Trim(Mtn)
            Cells(i, "C") = Mak
        End If
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Tamamlanmıştır....", vbInformation, "N. YEŞERTENER ---> [URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
    
End Sub

 

[kyaman28]

hımmmmmmmm ve Necdet Yeşertener kardeşlerime nekadar teşekkür etsem azdır. Tam istediğim gibi olmuş. Bunca zaman nekadar zaman kaybettiğimi anlatamam. Emeğinize sağlık. Çok teşekkür ediyorum. Çalışmalarınızda başarılar dilerim.

 

[kyaman28]

Merhaba hımmmmmmmm,

Yazmış olduğun kod harika fakat bir sorunum var.
Bazı hücrelerde yıl ile beraber ürün kodları da yer almakta.
Örneğin;

2001 KURU GIDA URUN NO 53891052005

B ve C sütununa sadece 2001'i alması gerekirken ürün kodunun sonunda bulunan 2005'i de yıl sütunlarına almakta.
Bunun bir çözümü olabilir mi?

 

[Necdet]

bizim kodlar ne alemde?

 

[kyaman28]

Sizin kodunuz da süper Necdet Bey. Emeğinize sağlık. Eskiden yaptığım manuel girişlere göre çok zaman kazandığımı düşünüyorum.
Fakat şöyle bir sorun var.

"2002 KURU GIDA REYON 30 URUN KODU 578304582005"

Sizin gönderdiğiniz kod URUN KOD'unun sonunda bulunan 2005'i almıyor. Bu çok güzel fakat bu sefer de "30" u alıyor. Sorun burda.

hımmmmmmmm'ın gönderdiği kod ise "30" u almıyor fakat ürün kodunun sonunda bulunan 2005'i alıyor.

Bu haliyle bile benim için güzel fakat binlerce kaydı gözgezdirmem gerekiyor.
Eğer buna bir çözüm bulabilrseniz gözgezdirmeme bile gerek olmayacağını düşünüyorum.
Yardımcı olabilirseniz çok sevinirim.

 

[Necdet]

"2002 KURU GIDA REYON 30 URUN KODU 578304582005".

Merhaba,

Alıntı yaptığım satırda olması gereken değer nedir? Öğrenmek için soruyorum.

 

[kyaman28]

"2002 KURU GIDA REYON 30 URUN KODU 578304582005"

sadece "2002" alacak.

30.REYON olduğunda problem yok fakat noktasız datalarda var.
Ben size ekte örnek tabloyu güncelleyip tekrar gönderiyorum.
B ve C sütununda olması gereken değerler yeralıyor.
A sütunundan alması gereken değerleri kırmızı ile yazdım.
Teşekkürler.

 

[Necdet]

Merhaba,

5 nolu mesajda kod ve dosyayı değiştirdim. Sizin sonuç ile aynı çıkıyor.
Deneyiniz.

 

[kyaman28]

Tek kelime ile süper. Harika çalışıyor.
Çok teşekkürler. Emeğinize sağlık.

 

[Necdet]

Tek kelime ile süper. Harika çalışıyor.
Çok teşekkürler. Emeğinize sağlık.

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