hangi sayfada olduğunu yanına yazdırmak

[bulent123]

Selamlar
Genel bir listem var ve bu genel listeyi oluşturan 7 adet sheet var
genel listedeki bir rakamın hangi sheet te olduğunu yanına nasıl yazdırabilirim.

 

[Ayhan Ercan]

Merhaba
Örnek dosya ekleyebilirmisiniz?

 

[bulent123]

dosya nasıl ekleniyor acaba

 

[Ayhan Ercan]

dosya nasıl ekleniyor acaba

Hızlı Cevap Yazma penceresinin altında "Hızlı Cevap Gönder" ve "Gelişmiş Moda Dön" butonları var

Gelişmiş Moda Dön 'e girin ordan göreceksiniz...

 

[bulent123]

örnek dosya

dosya büyük olduğu için küçük bir örnek yaptım

 

[Ayhan Ercan]

Örnek dosyada 1 rakamını ele almışsınız.

Bu 1 rakamı sadece "Yeni" sayfada var değilmi?

Yani aynı rakam değişik sayfalarda bulunmuyor değilmi?

 

[bulent123]

hayır başka sayfada yok sadece yeni sayfasında var

 

[Orion1]

Bende bu konuyla ilgilenecektim ama baktım ki Ayhan bey ilgileniyor.Ayhan beye bıraktım.
Ayhan bey size kolay gelsin.

 

[Ayhan Ercan]

Bende bu konuyla ilgilenecektim ama baktım ki Ayhan bey ilgileniyor.Ayhan beye bıraktım.
Ayhan bey size kolay gelsin.

Sayın Evren Gizlen
Hocam lütfen...

Buyrun sizde ilgilenin. Zaman zaman pc başında olamıyorum. Malum mesai saatindeyiz....

 

[Ayhan Ercan]

Ek Dosyayı İnceleyiniz...

Private Sub CommandButton1_Click()
    For i = 2 To Sheets.Count
        For j = 1 To [b65536].End(3).Row
            If Not Sheets(i).Range("B:B").Find(Cells(j, 2), lookat:=xlWhole) Is Nothing Then
                Cells(j, 3) = Sheets(i).Name
            End If
    Next j, i
End Sub

 

[bulent123]

hocam herhalde excel verisyonlarımız farklı
aynı makroyu yapıştırsam olurmu

 

[Ayhan Ercan]

hocam herhalde excel verisyonlarımız farklı
aynı makroyu yapıştırsam olurmu

Ben sizin yollamış olduğunuz dosya üzerinde çalışıp iade yolladım..

Kodu Sayfadaki Command butonuna atayarak yapabilirsiniz...

 

[bulent123]

çok teşekkür ederim elinize sağlık

 

[Ayhan Ercan]

çok teşekkür ederim elinize sağlık

Rica ederim.
İyi Çalışmalar... k::