Filtrelenmiş satırlara sıralı numara vermek

[LolaDelRio]

merhabalar öncelikle foruma yeni üye oldum herkese iyi forumlar dilerim.

Soruma gelecek olursam;
İş yerinde excel ile teklif hazırlamaktayız. Yeri geliyor 1000 küsür panoya (ag panosu) teklif veriyoruz.
Teklif formatını anlatmam gerekirse, A sütununda P1 , B sütununda pano adı, C sütununda adeti yazmakta.
P1 hücresinin altında 1 den 10-20-30 a kadar rakam olabiliyor. sonra diğer panoya geçince P2 oluyor.
teklif en son bittiğinde P1 den 100 veya 1000 e kadar p1-p2-p3 diye gidiyor. tabi aralarda kopyala yapıştır yaptığımızdan P yazan yerler karışıyor. en son P yazan satırları filtreleyip manuel olarak p1-p2-p3 yazıyoruz. biraz karışık oldu sanırım.

yani kısaca filtrelenmiş satırlara P1 den başlayarak aşağı doğru çektiğimizde p2-p3 olarak sıralı gitmesini istiyoruz.

bir makro buldum oda 1 den başlayıp sıralıyor. bizim işimizi görmedi. bize P1 den başlaması lazım.

umarım anlatabillmişimdir.

bulduğum makroyu aşağıya atıyorum.

Sub Renumbering()
    'Updateby Extendoffice
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
    xIndex = 1
    For Each Rng In WorkRng
        Rng.Value = xIndex
        xIndex = xIndex + 1
    Next
End Sub

 

[Necdet]

Merhaba,
Foruma hoş geldiniz. Örnek dosyanızı ve olması gerekeni de belirterek paylaşım sitelerinden birine dosya.co, dosya.tc gibi yüklerseniz, çözüme daha hızlı ulaşabilirsiniz.

 

[YUSUF44]

Doğru anladıysam, İlk P'li değeriniz A2 hücresindeyse filtre yaptıktan sonra A2 hücresine aşağıdaki formülü yapıştırıp aşağı doğru kopyalayın:

="P"&EĞERSAY($A$1:A1;"P"&"*")+1

 

[LolaDelRio]

Doğru anladıysam, İlk P'li değeriniz A2 hücresindeyse filtre yaptıktan sonra A2 hücresine aşağıdaki formülü yapıştırıp aşağı doğru kopyalayın:

="P"&EĞERSAY($A$1:A1;"P"&"*")+1

çok teşekkür ederim bu kod işimize çok yaradı makro kullanmak zorunda da kalmadık çok saolun.