LolaDelRio
Altın Üye
- Katılım
- 23 Eylül 2022
- Mesajlar
- 2
- Excel Vers. ve Dili
- Ofis 365 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 29-07-2025
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.
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.
Kod:
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