Alt sayfalara girişi yapılan satırların ana sayfadaki satır numarası hk

[muzaffer.sm]

Arkadaşlar merhaba,

İçinde gerekli açıklamaları yaptığım eklemiş olduğum belge hakkında olmak üzere yardımlarınızı rica edebilir miyim ?
Olabilirliği konusunda fikir ve görüşleriniz de ayrıca önemlidir.

Saygılarımla.

Hata indir

Hata

www.dosyaupload.com

 

[excelokyanus500]

Deneyiniz

Sub compareDel()

Dim sh1 As Worksheet, sh2 As Worksheet, i As Long, fn As Range
Set sh1 = Sheets(1)
Set sh2 = Sheets(2)
Sheets(2).Select
    For i = sh2.Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
        Set fn = sh1.Range("C:C").Find(sh2.Cells(i, 3).Value, , xlValues, xlWhole)
            If Not fn Is Nothing Then
                sh2.Cells(i, 3).Offset(0, 18).Value = fn.Row
                sh2.Cells(i, 3).Offset(0, 19).Select
                ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'Giriş'!C" & fn.Row, TextToDisplay:="Link"
            End If
    Next
End Sub

 

[muzaffer.sm]

Merhaba excelokyanus,

İlgi ve alakanız için teşekkürler.Temsili olarak eklemiş olduğum belge iki sayfalı olduğu için doğal olarak buna göre çözüm göstermişsiniz.Problem yok.
Lakin dediğim gibi temsili olarak iki sayfa eklemiştim.Söz konusu sayfalar manuel olarak cari tuttuğum için çok olup 40 yada 45 adet sayfadan ibaret.
Giriş sayfasında Q sütununa yazdığım her cariye bir sayfa açılıyor.Dolasıyla çoklu sayfalarda işlem yapmak gerekiyor.
Çözümünüz iki sayfa için geçerli olmuş.Çoklu sayfalara göre revize olunursa yerinde olacak.Sayfa sayılarının çoğaldığı hesap sayfalarını dikkate alarak gidebilirsek harika olur.Birde her hesap sayfasında link satır numarası gösterilmesi gerekiyor.

 

[excelokyanus500]

Sanırım istediğiniz dosya bu şekilde yahut buna yakın bir dosya.
Linkteki dosyayı indirip deneyiniz.
Ancak birey isimlerindeki mükerrerlik dosyanın güvenilir çalışma olanağını aşabilir.

Dosya Linki

 

[muzaffer.sm]

Merhaba Excelokyanus,


Esasen aranılan yere göre işlem tamam olmuş.C sütunundaki verilere göre eşleştirmeyi baz almışsınız.Buna göre çalışma tamam.Benim belge içinde belirtmiş olduğum aranılan yeri ayrıca referans göstermemiş olduğumdur.O yüzden mükerrerlik kısmı devre dışı olacaktır.Hesap sayfalarındaki her bir satır giriş sayfasındaki her satır ile örtüşüyor.Referansımız aranılan yerler satırdaki verilerin tümü olacağı üzerine kurgulu olması gerek.
Yani alt sayfalardaki tüm satırın aynısı giriş sayfasında mevcut.Alt sayfalardaki her satırın aynısı giriş sayfasında aynı ise satır nosu verdirilmesi gerek
Esasen tek yeri referans alıp C sütunu aranılan yer olursa da çalışma bu şekli ile tamam.
Fakat bizim çalışmamız alt hesaplar sayfasındaki tüm satır = giriş sayfasındaki tüm satırlar aynı ise.Ana sayfadaki satırlar ile alt sayfalardaki satır verilerinin tümü aynı.Arama bu yönde yapılıp satır nosu verdirilmeli.
Bu yüzden böyle bir çalışmada takıldım.Destek ihtiyacı söz konusu oldu.

 

[excelokyanus500]

Aynı satırdaki sütunlar birleştirilerek arama yapılan bir dosya oluşturuldu.

Bununla beraber Giriş sayfasındaki datalar el ile kayıt ediliyorsa - ki öyle anlaşılıyor- en küçük harf /rakam değişiminde yahut boşluk bırakma eyleminde doğru sonuç vermeyecektir.
Bununda kanaatimce iki şekilde çözümü olabilir.
Ya C sütununda birbirine benzemeyecek datalar girilebilir.
Yahut giriş sayfasına her data girildiğinde en son satırı şu şu sayfaya kopyala şeklinde makro oluşturulabilir.
Seçim sizin.

Tüm satır verilerine (A-P sütunları) bakarak arama yapan dosya ektedir.

Satır_yerini_Bul.rar - 40 KB

 

[muzaffer.sm]

Teşekkürler, Excelokyanus.Eline sağlık.


Dosyayı inceler bakarım.Çalışma mantığı giriş sayfasındaki veriler alt hesaplara otomatik birebir aktarılıyor.Dolayısıyla tüm satırların eşleşmesi aynı olması yüzde yüzdür.O yüzden tüm satırların eşleşmesi mukabili giriş sayfasındaki satır nosunu buldurmak esastır.
Yani alt sayfalardaki satırların giriş sayfasındaki karşılığıda aynıdır.Seçenek şekli tek kriteri(müşteri isimleri) olarak kullanmayız.