Lİsteden BeŞlİ SeÇenek İle ÇaĞirma

[betoncu]

Acİl Yardim, LÜtfen…..
Onay Belgesİ Sayfasindan Kayit Numarasini SeÇİnce,onay Belgesİ Sayfasinda D7 HÜcresİne O Numaranin En Son MÜracaat EttİĞİ Tarİhİ
ÇaĞirtmak İstİyorum.
Bu Sorunu Nasil ÇÖzebİlİrİz.
Örnek Dosya Ektedİr. Yardimlarinizi Beklİyorum....

 

[Ali]

1. İŞLEM TARİHİ tarihi gibi girilen kısmı 1 nolu kayıt.
2. İŞLEM TARİHİ tarihi gibi girilen kısmı 2 nolu kayıt gibi yaptığınız düşündüm.

O nedenle yaptığınız formatı bozmadan

=EĞER(SAĞDAN(J1;6)="TARİHİ";ARA(9,99999999999999E+307;--SOLDAN(J1;SATIR($A$1:$A$1024)));"")

ile metin içindeki kayıt tarihlerini aldırdım.

=EĞER(J2="";"";MAK(J4:J16)) ile o tarihdeki en büyük değeri dolayısıyla sizin istemiş olduğunuz son tarihe gelmiş oluyor.

Liste adlı sayfanızın C sütunundada toplu olarak gösterdim.

Onay Belgesi sayfanızada bu C sütunundaki verileri Düşeyara ile aldırdım.

Umarım ekteki gibi birşey istiyorsunuzdur.

 

[betoncu]

Benim sorunumu çözen bir çalışma olmamış.
Liste sayfasında bulunan kayıt numarasının bulunduğu satırda bulunan en büyük tarihi, "ONAY BELGESİ" sayfasında bulunan "D7" hücresine yazdırmak istiyorum.
Bu doğrultuda nasıl bir formül önerirsiniz?

 

[Orion1]

Makrolu çözümü .

Sub Açılan3_Değiştir()
Dim k As Range, sut As Byte
Set k = Sheets("LİSTE").Range("B2:B65536").Find(Range("I5").Value, , xlValues, xlWhole)
sut = Sheets("LİSTE").Cells(k.Row, 256).End(xlToLeft).Column
Range("D7").Value = Sheets("LİSTE").Cells(k.Row, sut).Value
End Sub

 

[betoncu]

Makro İle Yapinca Bİr DefaliĞina DoĞru ÇaliŞiyor. Bİrden Fazla Gİrdİkten Sonra Otomatİk Gelmİyor.
FormÜl İle Bu İŞİ Yapamazmiyiz?

 

[Orion1]

Makro İle Yapinca Bİr DefaliĞina DoĞru ÇaliŞiyor. Bİrden Fazla Gİrdİkten Sonra Otomatİk Gelmİyor.
FormÜl İle Bu İŞİ Yapamazmiyiz?

Öyle şey olurmu hiç.
Bir defa doğru çalışıp ondan sonra yanlış çalışması.
Ya hep yanlış çalışır yada hep doğru çalışır.
Bir defa doğru çalışıyorsa hep doğru çalışır.
Çalışmayan dosyayı yollarmasınız ben bakayım.
Bende şimdi merak ettim.

 

[betoncu]

Dosya zatensizden gelen.
Örnek olarak aynı kayıt numarasındaki hücrelere bir kaç tarih girin sizde farkına varacaksınız.

 

[betoncu]

Yinede teşekkür ederim uğraştığınız için...

 

[Orion1]

Dosya zatensizden gelen.
Örnek olarak aynı kayıt numarasındaki hücrelere bir kaç tarih girin sizde farkına varacaksınız.

Bunu anlamadım.
Kayıt numaraları mükerrermi?
Eğer öyleyse benim yaptığım kodlar sadece ilk kaydı verir.

 

[Orion1]

Gerekli düzenlemeyi yaptım.
Dosyanız ekte.

Sub Açılan3_Değiştir()
Dim k As Range, sut As Byte, ilk As String, tarih As Date
On Error Resume Next
Range("D7").Value = ""
Set k = Sheets("LİSTE").Range("B2:B65536").Find(Range("I5").Value, , xlValues, xlWhole, , 1)
    If Not k Is Nothing Then
        ilk = k.Address
        Do
            sut = Sheets("LİSTE").Cells(k.Row, 256).End(xlToLeft).Column
            If Sheets("LİSTE").Cells(k.Row, sut) > tarih Then
                tarih = Sheets("LİSTE").Cells(k.Row, sut).Value
            End If
            Set k = Sheets("LİSTE").Range("B2:B65536").FindNext(k)
        Loop While k.Address <> ilk And Not k Is Nothing
    Range("D7").Value = tarih
    End If
    
End Sub

 

[betoncu]

TeŞekkÜr Ederİm GÜzel Bİr ÇaliŞma OlmuŞ.
Sİzden Bİr Rİcam Daha Olacak:
Pekİ Bu Makroya Ek Olarak En BÜyÜk Tarİhe Denk Gelen AÇiklamayi Onay Belgesİ Sayfasinda D15 HÜcresİne Yazdirabİlİrmİyİz. (en BÜyÜk Tarİh "2. İŞlem BaŞliĞi" Altindaysa "2. İŞlem İÇİn AÇiklama" BaŞliĞinda Bulunan AÇiklamayi Onay Belgesİ Sayasinda D15 HÜcresİne Yazdirabİlİrmİyİz)

 

[Orion1]

TeŞekkÜr Ederİm GÜzel Bİr ÇaliŞma OlmuŞ.
Sİzden Bİr Rİcam Daha Olacak:
Pekİ Bu Makroya Ek Olarak En BÜyÜk Tarİhe Denk Gelen AÇiklamayi Onay Belgesİ Sayfasinda D15 HÜcresİne Yazdirabİlİrmİyİz. (en BÜyÜk Tarİh "2. İŞlem BaŞliĞi" Altindaysa "2. İŞlem İÇİn AÇiklama" BaŞliĞinda Bulunan AÇiklamayi Onay Belgesİ Sayasinda D15 HÜcresİne Yazdirabİlİrmİyİz)

Dosyanız ekte.

Sub Açılan3_Değiştir()
Dim k As Range, sut As Byte, ilk As String, tarih As Date
Dim aciklama As String
On Error Resume Next
Range("D7").Value = ""
Range("D15").Value = ""
Set k = Sheets("LİSTE").Range("B2:B65536").Find(Range("I5").Value, , xlValues, xlWhole, , 1)
    If Not k Is Nothing Then
        ilk = k.Address
        Do
            For sut = 10 To 18 Step 2
                If Sheets("LİSTE").Cells(k.Row, sut) > tarih Then
                    tarih = Sheets("LİSTE").Cells(k.Row, sut).Value
                    aciklama = Sheets("LİSTE").Cells(k.Row, sut + 1).Value
                End If
            Next sut
            Set k = Sheets("LİSTE").Range("B2:B65536").FindNext(k)
        Loop While k.Address <> ilk And Not k Is Nothing
    Range("D7").Value = tarih
    Range("D15").Value = aciklama
    End If
    
End Sub

 

[betoncu]

Sanirim Problem Var.
GÖnderdİĞİnİz Dosyada Kayit Numarasinda MÜkerrer Rakamlar OlduĞundan Yazilan AÇiklamalari Getİrmİyor Sanirim.

 

[Orion1]

Sanirim Problem Var.
GÖnderdİĞİnİz Dosyada Kayit Numarasinda MÜkerrer Rakamlar OlduĞundan Yazilan AÇiklamalari Getİrmİyor Sanirim.

Ben 3 numaralı kayıttta denedim getiriyordu.
Problem yoktu.
Yeni yolladığım dosyay baktınızmı.
Önceki dosyada göstermiyordu.
Ama yeni yolladığım dosyada gerekl idüzenlemeyi yaptım.Şimdi gösteriyor.Göstermiyorsa bana izah edin ne yaptığınızda göstermiyor.
Ama en son yoladığım dosyay bakın.

 

[betoncu]

Sorunlu Dosya

O7 HÜcresİne AÇiklama Yazdim. Bu AÇiklamayi GÖstermİyor.
Ayrica B SÜtunundakİ Sayilar Sirali DeĞİl. Ektekİ Dosyaya Bakarmisiniz

 

[Orion1]

O7 hücresindeki açıklamayı göstermememsi gayet normal.
Çünkü solundaki hücrede tarih yok.
en büyük tarihi bulduğunda Kodlar sağ tarfındaki açıklmasını gösteriyor.
O7 hücresine ait tarih en büyük tarih olmadığı için, ki zaten hiç bir değer yok o7 hücresindeki tarihi göstermiyor.
Çünkü bunu siz böyle istemiştiniz.
En büyük tarihi bulduğu hücrenin yanındaki açıklamasını d17 hücresşne yazısın demiştiniz.Yoksa ben yanılıyormuyum:
Yalnız aşğıdaki kodda kırmızı satırı değiştiriniz.

Sub Açılan3_Değiştir()
Dim k As Range, sut As Byte, ilk As String, tarih As Date
Dim aciklama As String
On Error Resume Next
Range("D7").Value = ""
Range("D15").Value = ""
Set k = Sheets("LİSTE").Range("B2:B65536").Find(Range("I5").Value, , xlValues, xlWhole, , 1)
    If Not k Is Nothing Then
        ilk = k.Address
        Do
            For sut = 10 To 18 Step 2
                If Sheets("LİSTE").Cells(k.Row, sut) [B][COLOR="Red"][SIZE="4"]=>[/SIZE][/COLOR][/B] tarih Then
                    tarih = Sheets("LİSTE").Cells(k.Row, sut).Value
                    aciklama = Sheets("LİSTE").Cells(k.Row, sut + 1).Value
                End If
            Next sut
            Set k = Sheets("LİSTE").Range("B2:B65536").FindNext(k)
        Loop While k.Address <> ilk And Not k Is Nothing
    Range("D7").Value = tarih
    Range("D15").Value = aciklama
    End If
    
End Sub

 

[betoncu]

En BÜyÜk Tarİhe Aİt AÇiklamayi Yazmiyor Ama...

 

[betoncu]

Örnek Dosya GÖnderebİlİrmİsİnİz?

 

[Orion1]

Dosya ekte.
3 numaralı kayıtta en büyük hücrenin açıklamasını yazıyor.

 

[betoncu]

Emeklerİnİz İÇİn TeŞekkÜr Ederİm.
Sİze Mİnnettarim...
İyİ ÇaliŞmalar Dİlerİm...